;RENBRSTART(PPNU/RETURN PROJECT AND PROGRAMMER NUMBER)
	TITLE PPNU
;
;THIS FILE CONTAINS THE FOLLOWING ENTRY POINT
;
;SUBROUTINE PPNU(PROJCT,PRGRMR)
;     PROJCT = RETURNED WITH OCTAL PROJECT NUMBER RUNNING CURRENT JOB
;     PRGRMR = RETURNED WITH OCTAL PROGRAMMER NUMBER RUNNING CURRENT JOB
;
	ENTRY PPNU
;
PPNU:	CALLI	1,24
	JFCL
	HLRZM	1,@(16)
	HRRZM	1,@1(16)
	POPJ	17,0		;RETURN TO CALLING PROGRAM
;
	END