* 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