.ENABLE ESCAPE
;
;	PAT.CMD - LIBRARY MODULE PATCH PROCEDURE
;
	.SETF LBR
	.IFINS LBR .SETT LBR
	.IFF LBR INS $LBR
	.SETF PAT
	.IFINS PAT .SETT PAT
	.IFF PAT INS $PAT
.10:	.ASKS LBNAM WHICH LIBRARY
	.IFT <ESCAPE> .GOTO 60
	.IF LBNAM EQ "" .GOTO 60
	.TESTFILE 'LBNAM'.OLB
	.IF <FILERR> NE 1 .GOTO 10
	.IF LBNAM EQ "BRU" .GOTO 20
	.IF LBNAM EQ "CRF" .GOTO 20
	.IF LBNAM EQ "IDX" .GOTO 20
	.IF LBNAM EQ "LPP" .GOTO 20
	.IF LBNAM EQ "QMG" .GOTO 20
	.IF LBNAM EQ "QMGCLI" .GOTO 20
	.IF LBNAM EQ "TKB" .GOTO 20
	.IF LBNAM EQ "VMLIB" .GOTO 20
	.SETS SW ""
	.GOTO 30
.20:	.SETS SW "/-EP"
.30:	.ASKS MDNAM WHICH MODULE
	.IFT <ESCAPE> .GOTO 60
	.IF MDNAM EQ "" .GOTO 50
	MAC 'MDNAM'.POB,'MDNAM'/-SP='MDNAM'.PAT
	.IF <EXSTAT> NE 1 .GOTO 30
	.TESTFILE 'MDNAM'.VIR
	.IF <FILERR> EQ 1 .GOTO 40
	LBR 'MDNAM'.VIR='LBNAM'/EX:'MDNAM'
	PIP 'MDNAM'.VIR/TR
	.IF <EXSTAT> NE 1 .GOTO 30
.40:	PAT 'MDNAM'='MDNAM'.VIR/CS,'MDNAM'.POB/CS
	LBR 'LBNAM'/RP='MDNAM''SW'
	PIP 'MDNAM'.OBJ;*/DE,'MDNAM'.POB;*
	.GOTO 30
.50:	LBR 'LBNAM'/CO='LBNAM'
	PIP 'LBNAM'.OLB/TR
	LBR 'LBNAM'/CO='LBNAM'
	PIP 'LBNAM'.OLB/PU
.60:	.IFF LBR REM LBR
	.IFF PAT REM PAT
/