;
;	Convert tasks to contiguous, and dictionary files to fixed-length.
	.ENABLE SUBSTITUTION
	.SETS S$MCR ""
	.IF <CLI> <> "MCR"	.SETS S$MCR "MCR "
;
; ... Converting ANAGRM.TSK
	'S$MCR' PIP /CO=ANAGRM.TSK & ANAGRM.TSK/PU & *.*;1/RE=ANAGRM.TSK
;
; ... Converting ANAMAK.TSK
	'S$MCR' PIP /CO=ANAMAK.TSK & ANAMAK.TSK/PU & *.*;1/RE=ANAMAK.TSK
.;
	.SETN N$SIZ 1.
.LOOP:
	.TESTFILE ANA'N$SIZ%DR2Z'.DIC
	.IF <FILERR> <> 1	.GOTO LOOPXT
	.PARSE <FILSPC> "]" S$JUNK S$ODIC
	.PARSE S$ODIC ";" S$DIC S$JUNK
	;
	; ... Converting 'S$DIC'
	.PARSE S$DIC "." S$DES S$JUNK
	.SETS S$DES S$DES+".DES"
	.OPEN 'S$DES'
	.DATA CLEAR ALL
	.DATA SET FILE ORGANIZATION SEQUENTIAL
	.DATA SET FILE PROTECTION (SYSTEM:RWED, OWNER:RWED, GROUP:R, WORLD:R )
	.DATA SET RECORD SIZE 'N$SIZ%D'
	.DATA SET RECORD FORMAT FIXED
	.DATA SET RECORD BLOCK_SPAN YES
	.DATA SET RECORD CARRIAGE_CONTROL CARRIAGE_RETURN
	.DATA CREATE 'S$DIC'
	.DATA EXIT 'S$DES'
	.CLOSE
	'S$MCR'RUN $RMSDES/CMD="DES @'S$DES'"
	'S$MCR'RUN $RMSCNV/CMD="CNV 'S$DIC'/AP/PD:40/TR='S$ODIC'"
	'S$MCR'PIP 'S$DIC'/PU & *.*;1/RE='S$DIC' & 'S$DIC'/TR
	'S$MCR'PIP 'S$DES';*/DE/NM
.LOOPXT:
	.INC N$SIZ
	.IF N$SIZ < 41.	.GOTO LOOP
;
; Conversion complete.
