.title	getusr
	.ident	/v1.0/

	$jpidef

;
;	allocate storage for job/process information
;

jpides:	.word	12
	.word	jpi$_username
ubuf:	.long	0
ulen:	.long	0
	.word	4
	.word	jpi$_pid
pbuf:	.long	0
	.long	0
	.long	0			;end of list

;
;	arguements
;
pid	= 4
procnam	= 8
proclen	= 12

;
;	subroutine: to return the PID and username 
;

	.entry	getusr,^m<>
	movl	proclen(ap),ulen
	movl	procnam(ap),ubuf
	movl	pid(ap),pbuf
	$getjpi_s itmlst=jpides

error:	ret

	.end