.TITLE	JOBSTR
	.IDENT	/1.02A/
;
; COPYRIGHT (C) 1980
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
; MODIFICATION:
;
;	1.02A -- DO FILE ACCESS CHECK
;
$$$=.
.=$$$+1252
	CALL	PAT1		; SAVE JOB UIC

	.PSECT	PAT1
PAT1:	MOV	FNCTN+2,R3	; GET JOB UIC
	MOV	R3,$JUIC	; AND SAVE IT FOR LATER
	RETURN
	.END