27 lines
538 B
Plaintext
27 lines
538 B
Plaintext
|
* CMSD.TYPE30.FILES
|
||
|
|
* 2/19/96
|
||
|
|
* determine type 30 files so they can be converted to type 18.
|
||
|
|
*
|
||
|
|
OPEN 'VOC' TO VOC ELSE ABORT 201,VOC
|
||
|
|
EOL=0
|
||
|
|
TYPE30.FILES=''
|
||
|
|
SELECT VOC
|
||
|
|
LOOP
|
||
|
|
READNEXT ID ELSE EOL=1
|
||
|
|
UNTIL EOL DO
|
||
|
|
READ VREC FROM VOC,ID THEN GOSUB 1000
|
||
|
|
REPEAT
|
||
|
|
OPEN '&SAVEDLISTS&' TO PF ELSE ABORT 201,'PF'
|
||
|
|
WRITE TYPE30.FILES ON PF,'TYPE.30.FILES'
|
||
|
|
STOP
|
||
|
|
*
|
||
|
|
1000 *
|
||
|
|
IF VREC<1>[1,1] # 'F' THEN RETURN
|
||
|
|
OPEN ID TO TEMPFILE ELSE RETURN
|
||
|
|
STATUS STATS FROM TEMPFILE THEN
|
||
|
|
IF STATS<21>=30 THEN
|
||
|
|
TYPE30.FILES=INSERT(TYPE30.FILES,-1;ID)
|
||
|
|
END
|
||
|
|
END
|
||
|
|
RETURN
|