.ENABLE SUBSTITUTION
;
; DELETE ALL FILES NOT NEEDED
;
.ASKS DD ENTER NEW SYSTEM DEVICE (DDUU:)
.TEST DD
.SETN L <STRLEN>
.SETS X DD['L':'L']
.IF X NE ":" .SETS DD DD+":"
.ASK SYSTM PURGE AND DELETE SYSTEM FILES
.ASK AUTOP1 DELETE SYSTEM AUTOPATCH FILES
.ASK AUTOP2 DELETE OVERLAY AUTOPATCH FILES
.ASK LIB COMPRESS LIBRARIES
.IFNINS PIP INS $PIP
SET /UIC=[1,3]
.IFF SYSTM .GOTO AUTOP1
;
; SYSTEM FILES
;
PIP 'DD'/FR
PIP 'DD'[1,54]RSX11MAP.CDA/NV='DD'[1,34]RSX11M.MAP/RE
PIP 'DD'[*,*]*.MAP;*/DE/NM
PIP 'DD'[1,1]*.OBJ;*/DE/NM,*.ODL;*
PIP 'DD'[1,2]HELP.ULB;*/DE/NM
PIP 'DD'[1,6]ERR*.ULB;*/DE/NM
PIP 'DD'[1,34]*.*;*/DE/NM
PIP 'DD'[1,50]*.*;*/DE/NM
SET /UIC=[1,54]
ASN SY:=XX:
ASN 'DD'=SY:
PIP /DD:29-DEC-81:29-DEC-81&*.*;*/DE/LD	!BASELINE FILES ONLY
ASN XX:=SY:
ASN =XX:
SET /UIC=[1,3]
PIP 'DD'[45,*]*.*;*/DE/NM
PIP 'DD'[104,*]*.*;*/DE/NM
PIP 'DD'[*,*]*.*/PU
PIP 'DD'[*,*]*.*/TR
PIP 'DD'[0,0]001050.DIR;*/DE/NM
PIP 'DD'[0,0]045*.DIR;*/DE/NM
PIP 'DD'[0,0]104*.DIR;*/DE/NM
.AUTOP1:
.IFF AUTOP1 .GOTO AUTOP2
;
; SYSTEM AUTOPATCH FILES
;
PIP 'DD'/FR
PIP 'DD'[001,060]*.*;*/DE/NM
PIP 'DD'[002,060]*.*;*/DE/NM
PIP 'DD'[011,060]*.*;*/DE/NM
PIP 'DD'[012,060]*.*;*/DE/NM
PIP 'DD'[012,064]*.*;*/DE/NM
PIP 'DD'[014,060]*.*;*/DE/NM
PIP 'DD'[014,064]*.*;*/DE/NM
PIP 'DD'[023,060]*.*;*/DE/NM
PIP 'DD'[031,060]*.*;*/DE/NM
PIP 'DD'[033,060]*.*;*/DE/NM
PIP 'DD'[042,060]*.*;*/DE/NM
PIP 'DD'[050,060]*.*;*/DE/NM
PIP 'DD'[052,060]*.*;*/DE/NM
PIP 'DD'[074,060]*.*;*/DE/NM
PIP 'DD'[104,060]*.*;*/DE/NM
PIP 'DD'[106,060]*.*;*/DE/NM
PIP 'DD'[107,060]*.*;*/DE/NM
PIP 'DD'[112,060]*.*;*/DE/NM
PIP 'DD'[121,064]*.*;*/DE/NM
PIP 'DD'[200,060]*.*;*/DE/NM
;
; AUTOPATCH DIRECTORIES
;
PIP 'DD'[0,0]001060.DIR;*/DE/NM
PIP 'DD'[0,0]002060.DIR;*/DE/NM
PIP 'DD'[0,0]011060.DIR;*/DE/NM
PIP 'DD'[0,0]012060.DIR;*/DE/NM
PIP 'DD'[0,0]012064.DIR;*/DE/NM
PIP 'DD'[0,0]014060.DIR;*/DE/NM
PIP 'DD'[0,0]014064.DIR;*/DE/NM
PIP 'DD'[0,0]023060.DIR;*/DE/NM
PIP 'DD'[0,0]031060.DIR;*/DE/NM
PIP 'DD'[0,0]033060.DIR;*/DE/NM
PIP 'DD'[0,0]042060.DIR;*/DE/NM
PIP 'DD'[0,0]050060.DIR;*/DE/NM
PIP 'DD'[0,0]052060.DIR;*/DE/NM
PIP 'DD'[0,0]074060.DIR;*/DE/NM
PIP 'DD'[0,0]104060.DIR;*/DE/NM
PIP 'DD'[0,0]106060.DIR;*/DE/NM
PIP 'DD'[0,0]107060.DIR;*/DE/NM
PIP 'DD'[0,0]112060.DIR;*/DE/NM
PIP 'DD'[0,0]121064.DIR;*/DE/NM
PIP 'DD'[0,0]200060.DIR;*/DE/NM
.AUTOP2:
.IFF AUTOP2 .GOTO AUTOP3
;
; OVERLAY AUTOPATCH FILES
;
PIP 'DD'/FR
PIP 'DD'[212,200]*.*;*/DE/NM
PIP 'DD'[223,200]*.*;*/DE/NM
PIP 'DD'[230,020]*.*;*/DE/NM
PIP 'DD'[230,040]*.*;*/DE/NM
PIP 'DD'[230,200]*.*;*/DE/NM
PIP 'DD'[250,001]*.*;*/DE/NM
PIP 'DD'[250,200]*.*;*/DE/NM
PIP 'DD'[251,001]*.*;*/DE/NM
PIP 'DD'[251,200]*.*;*/DE/NM
PIP 'DD'[256,200]*.*;*/DE/NM
PIP 'DD'[275,020]*.*;*/DE/NM
PIP 'DD'[275,200]*.*;*/DE/NM
PIP 'DD'[300,020]*.*;*/DE/NM
PIP 'DD'[300,040]*.*;*/DE/NM
PIP 'DD'[300,200]*.*;*/DE/NM
PIP 'DD'[301,200]*.*;*/DE/NM
;
; OVERLAY DIRECTORIES
;
PIP 'DD'[0,0]212200.DIR;*/DE/NM
PIP 'DD'[0,0]223200.DIR;*/DE/NM
PIP 'DD'[0,0]230020.DIR;*/DE/NM
PIP 'DD'[0,0]230040.DIR;*/DE/NM
PIP 'DD'[0,0]230200.DIR;*/DE/NM
PIP 'DD'[0,0]250001.DIR;*/DE/NM
PIP 'DD'[0,0]250200.DIR;*/DE/NM
PIP 'DD'[0,0]251001.DIR;*/DE/NM
PIP 'DD'[0,0]251200.DIR;*/DE/NM
PIP 'DD'[0,0]256200.DIR;*/DE/NM
PIP 'DD'[0,0]275020.DIR;*/DE/NM
PIP 'DD'[0,0]275200.DIR;*/DE/NM
PIP 'DD'[0,0]300020.DIR;*/DE/NM
PIP 'DD'[0,0]300040.DIR;*/DE/NM
PIP 'DD'[0,0]300200.DIR;*/DE/NM
PIP 'DD'[0,0]301200.DIR;*/DE/NM
.AUTOP3:
.IFF LIB .GOTO AUTOP4
PIP 'DD'/FR
SET /UIC=[1,1]
LBR 'DD'ANSLIB.OLB/CO='DD'ANSLIB.OLB
PIP 'DD'ANSLIB.OLB/PU
LBR 'DD'BASIC2.OLB/CO='DD'BASIC2.OLB
PIP 'DD'BASIC2.OLB/PU
LBR 'DD'BASRMS.OLB/CO='DD'BASRMS.OLB
PIP 'DD'BASRMS.OLB/PU
LBR 'DD'COBLIB.OLB/CO='DD'COBLIB.OLB
PIP 'DD'COBLIB.OLB/PU
LBR 'DD'COBOVR.OLB/CO='DD'COBOVR.OLB
PIP 'DD'COBOVR.OLB/PU
LBR 'DD'DTRLIB.OLB/CO='DD'DTRLIB.OLB
PIP 'DD'DTRLIB.OLB/PU
LBR 'DD'EXELIB.OLB/CO='DD'EXELIB.OLB
PIP 'DD'EXELIB.OLB/PU
LBR 'DD'RMSLIB.OLB/CO='DD'RMSLIB.OLB
PIP 'DD'RMSLIB.OLB/PU
LBR 'DD'SYSLIB.OLB/CO='DD'SYSLIB.OLB
PIP 'DD'SYSLIB.OLB/PU
LBR 'DD'VMLIB.OLB/CO='DD'VMLIB.OLB
PIP 'DD'VMLIB.OLB/PU
SET /UIC=[1,20]
LBR 'DD'BAD.OLB/CO='DD'BAD.OLB
PIP 'DD'BAD.OLB/PU
LBR 'DD'BOO.OLB/CO='DD'BOO.OLB
PIP 'DD'BOO.OLB/PU
LBR 'DD'BRU.OLB/CO='DD'BRU.OLB
PIP 'DD'BRU.OLB/PU
LBR 'DD'CBLLIB.OLB/CO='DD'CBLLIB.OLB
PIP 'DD'CBLLIB.OLB/PU
LBR 'DD'CDA.OLB/CO='DD'CDA.OLB
PIP 'DD'CDA.OLB/PU
LBR 'DD'CMP.OLB/CO='DD'CMP.OLB
PIP 'DD'CMP.OLB/PU
LBR 'DD'CRF.OLB/CO='DD'CRF.OLB
PIP 'DD'CRF.OLB/PU
LBR 'DD'DCLO.OLB/CO='DD'DCLO.OLB
PIP 'DD'DCLO.OLB/PU
LBR 'DD'DCLR.OLB/CO='DD'DCLR.OLB
PIP 'DD'DCLR.OLB/PU
LBR 'DD'DMP.OLB/CO='DD'DMP.OLB
PIP 'DD'DMP.OLB/PU
LBR 'DD'DSC.OLB/CO='DD'DSC.OLB
PIP 'DD'DSC.OLB/PU
LBR 'DD'EDI.OLB/CO='DD'EDI.OLB
PIP 'DD'EDI.OLB/PU
LBR 'DD'EDTLIB.OLB/CO='DD'EDTLIB.OLB
PIP 'DD'EDTLIB.OLB/PU
LBR 'DD'ERL.OLB/CO='DD'ERL.OLB
PIP 'DD'ERL.OLB/PU
LBR 'DD'FCP.OLB/CO='DD'FCP.OLB
PIP 'DD'FCP.OLB/PU
LBR 'DD'FIL.OLB/CO='DD'FIL.OLB
PIP 'DD'FIL.OLB/PU
LBR 'DD'FLX.OLB/CO='DD'FLX.OLB
PIP 'DD'FLX.OLB/PU
LBR 'DD'FMT.OLB/CO='DD'FMT.OLB
PIP 'DD'FMT.OLB/PU
LBR 'DD'FTB.OLB/CO='DD'FTB.OLB
PIP 'DD'FTB.OLB/PU
LBR 'DD'F11MSG.OLB/CO='DD'F11MSG.OLB
PIP 'DD'F11MSG.OLB/PU
LBR 'DD'ICP11M.OLB/CO='DD'ICP11M.OLB
PIP 'DD'ICP11M.OLB/PU
LBR 'DD'INI.OLB/CO='DD'INI.OLB
PIP 'DD'INI.OLB/PU
LBR 'DD'INS.OLB/CO='DD'INS.OLB
PIP 'DD'INS.OLB/PU
LBR 'DD'IOX.OLB/CO='DD'IOX.OLB
PIP 'DD'IOX.OLB/PU
LBR 'DD'LAINIT.OLB/CO='DD'LAINIT.OLB
PIP 'DD'LAINIT.OLB/PU
LBR 'DD'LBR.OLB/CO='DD'LBR.OLB
PIP 'DD'LBR.OLB/PU
LBR 'DD'LOA.OLB/CO='DD'LOA.OLB
PIP 'DD'LOA.OLB/PU
LBR 'DD'MAC.OLB/CO='DD'MAC.OLB
PIP 'DD'MAC.OLB/PU
LBR 'DD'MCR.OLB/CO='DD'MCR.OLB
PIP 'DD'MCR.OLB/PU
LBR 'DD'MLTUSR.OLB/CO='DD'MLTUSR.OLB
PIP 'DD'MLTUSR.OLB/PU
LBR 'DD'MTA.OLB/CO='DD'MTA.OLB
PIP 'DD'MTA.OLB/PU
LBR 'DD'NEISLB.OLB/CO='DD'NEISLB.OLB
PIP 'DD'NEISLB.OLB/PU
LBR 'DD'PAT.OLB/CO='DD'PAT.OLB
PIP 'DD'PAT.OLB/PU
LBR 'DD'PIP.OLB/CO='DD'PIP.OLB
PIP 'DD'PIP.OLB/PU
LBR 'DD'PIPUTL.OLB/CO='DD'PIPUTL.OLB
PIP 'DD'PIPUTL.OLB/PU
LBR 'DD'PMD.OLB/CO='DD'PMD.OLB
PIP 'DD'PMD.OLB/PU
LBR 'DD'PRT.OLB/CO='DD'PRT.OLB
PIP 'DD'PRT.OLB/PU
LBR 'DD'RMD.OLB/CO='DD'RMD.OLB
PIP 'DD'RMD.OLB/PU
LBR 'DD'RMSIFL.OLB/CO='DD'RMSIFL.OLB
PIP 'DD'RMSIFL.OLB/PU
LBR 'DD'RMSUTL.OLB/CO='DD'RMSUTL.OLB
PIP 'DD'RMSUTL.OLB/PU
LBR 'DD'RPT.OLB/CO='DD'RPT.OLB
PIP 'DD'RPT.OLB/PU
LBR 'DD'SAV.OLB/CO='DD'SAV.OLB
PIP 'DD'SAV.OLB/PU
LBR 'DD'SLP.OLB/CO='DD'SLP.OLB
PIP 'DD'SLP.OLB/PU
LBR 'DD'TKB.OLB/CO='DD'TKB.OLB
PIP 'DD'TKB.OLB/PU
LBR 'DD'VFY.OLB/CO='DD'VFY.OLB
PIP 'DD'VFY.OLB/PU
LBR 'DD'VMR.OLB/CO='DD'VMR.OLB
PIP 'DD'VMR.OLB/PU
LBR 'DD'ZAP.OLB/CO='DD'ZAP.OLB
PIP 'DD'ZAP.OLB/PU
SET /UIC=[1,24]
LBR 'DD'ACF.OLB/CO='DD'ACF.OLB
PIP 'DD'ACF.OLB/PU
LBR 'DD'BOO.OLB/CO='DD'BOO.OLB
PIP 'DD'BOO.OLB/PU
LBR 'DD'COT.OLB/CO='DD'COT.OLB
PIP 'DD'COT.OLB/PU
LBR 'DD'ERL.OLB/CO='DD'ERL.OLB
PIP 'DD'ERL.OLB/PU
LBR 'DD'FCP.OLB/CO='DD'FCP.OLB
PIP 'DD'FCP.OLB/PU
LBR 'DD'FIL.OLB/CO='DD'FIL.OLB
PIP 'DD'FIL.OLB/PU
LBR 'DD'FOR.OLB/CO='DD'FOR.OLB
PIP 'DD'FOR.OLB/PU
LBR 'DD'ICP11M.OLB/CO='DD'ICP11M.OLB
PIP 'DD'ICP11M.OLB/PU
LBR 'DD'INI.OLB/CO='DD'INI.OLB
PIP 'DD'INI.OLB/PU
LBR 'DD'INS.OLB/CO='DD'INS.OLB
PIP 'DD'INS.OLB/PU
LBR 'DD'LAINIT.OLB/CO='DD'LAINIT.OLB
PIP 'DD'LAINIT.OLB/PU
LBR 'DD'LOA.OLB/CO='DD'LOA.OLB
PIP 'DD'LOA.OLB/PU
LBR 'DD'LPP.OLB/CO='DD'LPP.OLB
PIP 'DD'LPP.OLB/PU
LBR 'DD'MCR.OLB/CO='DD'MCR.OLB
PIP 'DD'MCR.OLB/PU
LBR 'DD'MLTUSR.OLB/CO='DD'MLTUSR.OLB
PIP 'DD'MLTUSR.OLB/PU
LBR 'DD'MTA.OLB/CO='DD'MTA.OLB
PIP 'DD'MTA.OLB/PU
LBR 'DD'PIPUTL.OLB/CO='DD'PIPUTL.OLB
PIP 'DD'PIPUTL.OLB/PU
LBR 'DD'PMD.OLB/CO='DD'PMD.OLB
PIP 'DD'PMD.OLB/PU
LBR 'DD'QMG.OLB/CO='DD'QMG.OLB
PIP 'DD'QMG.OLB/PU
LBR 'DD'QMGCLI.OLB/CO='DD'QMGCLI.OLB
PIP 'DD'QMGCLI.OLB/PU
LBR 'DD'RCT.OLB/CO='DD'RCT.OLB
PIP 'DD'RCT.OLB/PU
LBR 'DD'RMD.OLB/CO='DD'RMD.OLB
PIP 'DD'RMD.OLB/PU
LBR 'DD'RSX11M.OLB/CO='DD'RSX11M.OLB
PIP 'DD'RSX11M.OLB/PU
LBR 'DD'SAV.OLB/CO='DD'SAV.OLB
PIP 'DD'SAV.OLB/PU
LBR 'DD'TTDRV.OLB/CO='DD'TTDRV.OLB
PIP 'DD'TTDRV.OLB/PU
.AUTOP4:
PIP 'DD'/FR
SET /UIC=[5,10]
