.ENABLE SUBSTITUTION
.ASK RES RESIDENT LIBRARY (FCSRES)
.ASK SPOOL SPOOL LISTINGS
.ASK SEQ SEQ NUM CHECK
.ASK PUR PURGE DIRECTORY
.IFF SEQ .SETS SN "/-SN"
.IFT SEQ .SETS SN "/SN"
.IFT SPOOL .SETS SP "/SP"
.IFF SPOOL .SETS SP "/-SP"
MET BTA,BTA.MLS'SP'=BTA
FOR BTA'SN',BTA.FLS'SP'=BTA
.IFF RES TKB @BTABLD
.IFT RES TKB @BTARESBLD
.IFT PUR PIP *.*/PU/LD