31 lines
487 B
Plaintext
31 lines
487 B
Plaintext
|
*
|
||
|
|
$INCLUDE GEN.COMMON
|
||
|
|
$INCLUDE USER
|
||
|
|
OPEN 'USER' TO USER ELSE ABORT
|
||
|
|
OPEN 'CLOCKFILE' TO CLOCKFILE ELSE ABORT
|
||
|
|
OPEN 'SCOTT.WORK' TO SCOTT.WORK ELSE ABORT
|
||
|
|
*
|
||
|
|
T=0
|
||
|
|
WT=0
|
||
|
|
EOF=0
|
||
|
|
*
|
||
|
|
*EXECUTE "GL SCOTT"
|
||
|
|
SELECT SCOTT.WORK
|
||
|
|
*
|
||
|
|
LOOP
|
||
|
|
READNEXT ID ELSE EOF=1
|
||
|
|
UNTIL EOF DO
|
||
|
|
T=T+1
|
||
|
|
READ WK.REC FROM SCOTT.WORK,ID THEN
|
||
|
|
IF WK.REC<1>='' ELSE
|
||
|
|
CDATE=OCONV(ID,'G1|1')
|
||
|
|
NEW.KEY='7943|':CDATE
|
||
|
|
WRITE WK.REC ON SCOTT.WORK,NEW.KEY
|
||
|
|
WT=WT+1
|
||
|
|
END
|
||
|
|
END
|
||
|
|
REPEAT
|
||
|
|
CRT 'T ':T
|
||
|
|
CRT 'WT ':WT
|
||
|
|
STOP
|