.ENABLE SUBSTITUTION
.IF P1 EQ "Y" .SETT CMP
.IF P1 EQ "N" .SETF CMP
.IF P1 EQ "" .ASK CMP COMPILE
.IF P2 EQ "Y" .SETT BUILD
.IF P2 EQ "N" .SETF BUILD
.IF P2 EQ "" .ASK BUILD BUILD
.IF P3 EQ "Y" .SETT MAP
.IF P3 EQ "N" .SETF MAP
.IF P3 EQ "" .IFT BUILD .ASK MAP MAP
.SETS DEV "SY0:"
.IF P4 NE "" .SETS DEV "'P4'"
.IF P4 EQ "" .ASKS DEV ENTER DEVICE TO BE USED FOR DICTIONARY
.IF DEV EQ "" .SETS DEV "SY0:"
.IFF CMP .GOTO 10
PIP DICTMK.LST;*/DE/NM,DICTMK.OBJ;*
F77 DICTMK,DICTMK/-SP=DICTMK
.IF <EXSTAT> NE 1 .EXIT
.10:
.IFF BUILD .EXIT
.IFT MAP ASN SY:=MP:
.IFF MAP ASN NL:=MP:
PIP DICTMK.TSK;*/DE
.OPEN DICTMKBLD.CMD
.ENABLE DATA
DICTMK,MP:DICTMK=DICTMK,F77FCS/LB
/
MAXBUF=512
TASK=DICTMK
ASG=SY0:1		;FOR "DICT.ADD" WORDS TO BE ADDED TO DICT
ASG='DEV'2:3		;FOR "DICT.SEQ" AND "DICT.RAF"
ASG=NL:4		;FOR "DICT.MAP" STATISTICS
ASG=TI:5		;FOR TERMINAL IO
UNITS=5
PRI=40
ACTFIL=4		;ONLY 4 ACTIVE LUNS
//
.DISABLE DATA
.CLOSE
TKB @DICTMKBLD
.IF <EXSTAT> NE 1 .EXIT
PIP DICTMKBLD.CMD;*,DICTMK.OBJ;*/DE/NM
.EXIT
