[Robelle-l] Administrative problem

[Leonard_Berkowitz@harvardpilgrim.org]

Here is the code we are using:

BASE HEALTH.DATA,1,?
<writepass>
INPUT ARCHSR00.PUB
DEFINE SRV,13,16,DISPLAY
EXTRACT SRV
SORT SRV
OUTPUT ARCHSRSV.PUB
DUPLICATE NONE KEY
XEQ
GET COUNTER
DEFINE CNTR,COUNTER-KEY[1],10
TABLE SRVTAB,SERV#,SORTED,ARCHSRSV.PUB
TABLE CNTTAB,CNTR,FILE,ARCCNTTB.PHCDBASE
IF $LOOKUP(SRVTAB,SERV#) AND NOT $LOOKUP(CNTTAB,CNTR)
OUTPUT ARCHCC00.PUB,APPEND
DELETE
EXIT XEQ

The problem is that the input for the deletes is in a memory table
(SRVTAB), so we have no way of tracking the progress of the job as we would
if the input were a file. Is there a solution? I would be willing to
sacrifice some speed in processing the input to be able to keep track.

Thanks.
--
Leonard S. Berkowitz
Perot Health Care Systems
(Harvard Pilgrim Health Care account)
voice: 617-509-1212
fax: 617-509-1955
pager: 781-226-2431