.ENABLE SUBSTITUTION
.; P1=full .OLB spec	 P2=3letter group name	P3=/DEB or null
.; will add 'P2' modules to 'P1' which must already exist
.;									B4S
DONT 'P2'OLBB4S.CMD 'P2'OLB.LIS ?TYP`M=?/B4S/`IT`
B4S @'P2'OLBB4S
PIP 'P2'OLBB4S.CMD;*/DE
.;									BP2
DONT 'P2'OLBBP2.CMD 'P2'OLB.LIS ?TYP`M=?/B4S/OLD `IT`|COM/DOU/NOLIN'P3'
DONT +'P2'OLBBP2.CMD 'P2'OLB.LIS ?TYP`M=?/BP2/OLD `IT`|COM/DOU/NOLIN'P3'
BP2 @'P2'OLBBP2
PIP 'P2'OLBBP2.CMD;*/DE
.;									MAC
DONT 'P2'OLBMAC.CMD 'P2'OLB.LIS ?TYP`M=?/MAC/ `IT`=`IT`
MAC @'P2'OLBMAC
PIP 'P2'OLBMAC.CMD;*/DE
.;									LBR
.TESTFILE 'P1'
.IF <FILERR> <> 1 LBR 'P1'/CR
DONT 'P2'OLBLBR.CMD 'P2'OLB.LIS 'P1'/RP=`IT`.OBJ
LBR @'P2'OLBLBR.CMD
PIP 'P2'OLBLBR.CMD;*/DE
.;									DEL
DONT 'P2'OLBPIP.CMD 'P2'OLB.LIS `IT`.OBJ;*/DE
.IF P3 <> "/DEB" DONT +'P2'OLBPIP.CMD 'P2'OLB.LIS ?TYP`M=?/B4S/`IT`.B2S;*/DE
PIP @'P2'OLBPIP.CMD
PIP 'P2'OLBPIP.CMD;*/DE
