added CMS folder

CMS/BP.CNV/CMSD.TYPE30.FILES

@@ -0,0 +1,26 @@
+* 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