added CMS folder

CMS/BP.CUSTOM/DICT.CREATE

@@ -0,0 +1,23 @@
+$INCLUDE BP.MASTER GEN.COMMON
+CRT 'INPUT FILENAME: ':
+NAME=''
+INPUT NAME
+IF NAME = '' OR NAME = PF2 THEN STOP
+OPEN 'DICT ':NAME TO DFILE ELSE ABORT
+CRT ''
+CRT 'ENTER HOW MANY FIELDS: ':
+FIELDS=''
+INPUT FIELDS
+IF FIELDS = '' OR FIELDS = PF3 THEN STOP
+IF FIELDS > 200 THEN FIELDS = 200
+FOR X = 1 TO FIELDS
+ FIELDNAME='F':X
+ REC='A':AM:X:AM:'FIELD ':X'R%2':AM:AM:AM:AM:AM:AM:'L':AM:'10'
+ READ DUMMY FROM DFILE,FIELDNAME THEN
+  CRT 'FIELD ':X:' ALREADY IN DICTIONARY - SKIPPED'
+ END ELSE
+  WRITE REC ON DFILE,FIELDNAME
+ END
+NEXT X
+CRT 'PROCESS COMPLETE!'
+STOP