.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS COMMA ","
	.SETS TEN "10"
;
.; -------------------------------
.; DETERMINE IF USER IS PRIVILEGED
	.IF COMMA EQ UIC[5:5] .GOTO 10
	.IF COMMA NE UIC[4:4] .GOTO 20
	.IF TEN EQ UIC[2:3] .GOTO 20
.10:	;
	; Sorry, but you must be logged-in
	; privileged to run this command file.
	.GOTO 200
.;
.; ---------------------------------
.; DETERMINE IF UCC-APT IS EXECUTING
.20:	.IFACT UNC    .GOTO 100
	.IFACT UNC100 .GOTO 100
	.IFACT UNCMON .GOTO 100
	.IFACT UNC110 .GOTO 100
	.IFACT UNC120 .GOTO 100
	.IFACT UNC122 .GOTO 100
	.IFACT UNC124 .GOTO 100
	.IFACT UNC130 .GOTO 100
	.IFACT UNCLNK .GOTO 100
	.IFACT UNCLK1 .GOTO 100
	.IFACT UNCREF .GOTO 100
.;
	SET /UIC=[100,001]
	PIP NC00:[100,000]UNC.QUE;*/DE/NM,.SYS;*
	PIP NC00:[100,000]UNC.QUE=NC00:[100,000]UNCQUE.SAV
	PIP NC00:[100,000]UNC.SYS=NC00:[100,000]UNCSYS.SAV
	PIP NC00:[100,000]UNC.QUE/PR/WO:RWE
	PIP NC00:[100,000]UNC.SYS/PR/WO:RWE
	SET /UIC='UIC'
	.GOTO 200
.100:	;
	; Sorry, but UCCAPT must be aborted
	; before running this command file.
.200:	;