.ENABLE SUBSTITUTION
.SETS MYUIC <UIC>
.ASK LIST DO YOU WANT THE LISTINGS
.ASK INDEX DO YOU WANT THE LIBRARY INDICES
.IFT LIST ASN SY:=LS:
.IFF LIST ASN NL:=LS:
.IFT INDEX ASN SY:=IX:
.IFF INDEX ASN NL:=IX:
PIP *.OLB;*/DE,*.OBJ;*,*.LST;*,*.COB;*
MAC RMSOPE,LS:RMSOPE=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSOPE
MAC RMSCLO,LS:RMSCLO=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSCLO
MAC RMSCON,LS:RMSCON=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSCON
MAC RMSDIS,LS:RMSDIS=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSDIS
MAC RMSGET,LS:RMSGET=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSGET
MAC RMSPUT,LS:RMSPUT=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSPUT
MAC RMSFND,LS:RMSFND=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSFND
MAC RMSUPD,LS:RMSUPD=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSUPD
MAC RMSDEL,LS:RMSDEL=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSDEL
MAC RMSRWD,LS:RMSRWD=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSRWD
MAC RMSRAC,LS:RMSRAC=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSRAC
MAC RMSKEY,LS:RMSKEY=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSKEY
MAC RMSFRE,LS:RMSFRE=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSFRE
MAC RMSFLS,LS:RMSFLS=LB:[1,1]RMSMAC/ML,SY:'MYUIC'RMSERS/PA:1,RMSFLS
MAC ZECB,LS:ZECB=ZECB
PIP RMSFTN.COB=*.OBJ
PIP *.OBJ;*/DE
LBR RMSFTN/CR:30.:64.:64.:OBJ,IX:RMSFTN.LST/LE/FU=RMSFTN.COB
PIP *.COB;*/DE
ASN =LS:
ASN =IX:
;!!!<DONE>!!!