.ENABLE SUBSTITUTION
.SETS MCR ""
.IF <CLI> <> "MCR" .SETS MCR "MCR "
.ASK YN LIST
.SETS LIST ""
.IFT YN .SETS LIST ",CAT/-SP"
@DL:[200,203]TKMP
'MCR'MAC CATCHALL'LIST'=LB:[11,10]RSXMC/PA:1,[1,1]RUNMAC/ML,SY:'<UIC>'CATCHALL
.IF <EXSTAT> <> 1 .EXIT
TKB @CATBLD
.IF <EXSTAT> <> 1 .EXIT
PIP TI:=MP:[1,34]CATCHALL.MAP
REM ...CA.
INS TK:$CATCHALL
PURGE CATCHALL.*
PURGE CATCHALL.OBJ
SDE TK:[1,54]CATCHALL.TSK
SED MP:[1,34]CATCHALL.MAP
.IFT YN LP0 CAT.LST
/
