.ENABLE SUBSTITUTION
TIME
.LOOPDD:
.ASKS DD ENTER COPY OF BASELINE DEVICE (DDuu:)
.TEST DD
.SETN XL <STRLEN>
.IF XL LE 0 .GOTO LOOPDD
.SETS X DD['XL':'XL']
.IF X NE ":" .SETS DD DD+":"
MOU 'DD'RSXM32
.ASK TF DID 'DD' MOUNT OK
.IFT TF .GOTO MOUOK
;
; FIX THE PROBLEM AND START AGAIN
;
.EXIT
.MOUOK:
.LOOPMM:
.ASKS MM ENTER RO AUTOPATCH TAPE DEVICE (MXuu:)
.TEST MM
.SETN XL <STRLEN>
.IF XL LE 0 .GOTO LOOPMM
.SETS X MM['XL':'XL']
.IF X NE ":" .SETS MM MM+":"
;
;  GET THE INFORMATION OFF THE TAPE
;
.SETT FLX
.IFNINS FLX .SETF FLX
.IFF FLX INS $FLX
.SETT PIP
.IFNINS PIP .SETF PIP
.IFF PIP INS $PIP
SET /UIC=[1,1]
;
;  CREATE UFDS FOR TAPE INFORMATION
;
UFD 'DD'[005,005]
UFD 'DD'[005,010]
UFD 'DD'[005,024]
UFD 'DD'[001,060]
UFD 'DD'[002,060]
UFD 'DD'[011,060]
UFD 'DD'[012,060]
UFD 'DD'[012,064]
UFD 'DD'[014,060]
UFD 'DD'[014,064]
UFD 'DD'[023,060]
UFD 'DD'[031,060]
UFD 'DD'[033,060]
UFD 'DD'[042,060]
UFD 'DD'[050,060]
UFD 'DD'[052,060]
UFD 'DD'[074,060]
UFD 'DD'[104,060]
UFD 'DD'[106,060]
UFD 'DD'[107,060]
UFD 'DD'[112,060]
UFD 'DD'[121,064]
UFD 'DD'[200,060]
UFD 'DD'[200,200]
UFD 'DD'[212,200]
UFD 'DD'[223,200]
UFD 'DD'[230,020]
UFD 'DD'[230,040]
UFD 'DD'[230,200]
UFD 'DD'[250,001]
UFD 'DD'[250,200]
UFD 'DD'[251,001]
UFD 'DD'[251,200]
UFD 'DD'[256,200]
UFD 'DD'[275,020]
UFD 'DD'[275,200]
UFD 'DD'[300,020]
UFD 'DD'[300,040]
UFD 'DD'[300,200]
UFD 'DD'[301,200]
;
;  GET [5,10], [5,5], [5,24], AUTOPATCH 1, 2 AND 3 FOR B
;
FLX 'DD'/RS/UI='MM'[*,*]*.*/DO
;
;  FIX ERRLOG PATCHES
;
PIP 'DD'[104,60]*.ICF;*='DD'[104,60]*.TSK;*/RE
.IFF FLX REM FLX
.IFF PIP REM PIP
;
TIME
; END OF CREATE.CMD
