24 lines
579 B
Plaintext
24 lines
579 B
Plaintext
|
$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
|