;
; [1,2]RJEINS.CMD
;
.ENABLE SUBSTITUTION
.SETS UIC <UIC>
	CHD 1 54
.IFLOA XJ: .GOTO NOLOA
	ASN LB:=SY:
	LOA XJ:/HIGH/VEC
;
	CON ONLINE XJA,XJ0:
.NOLOA:
	INS STPROC
	INS QRJ
	INS XJP	!TASKET HETER XJP0
	INS RJE
;
	SET /UIC='UIC'
	ASN =LB:
;
; <EOF> RJEINS.CMD
;