Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

Module PIDID (
		ident = 'X01000'
		) =
begin

!
!                    COPYRIGHT (c) 1980, 1981, 1982
!                    DIGITAL EQUIPMENT CORPORATION
!                        Maynard, Massachusetts
!
!     This software is furnished under a license and may  be  used
!     and copied only in accordance with the terms of such license
!     and with the inclusion of the above copyright notice.   This
!     software  or any other copies thereof may not be provided or
!     otherwise made available to any other person.  No  title  to
!     and ownership of the software is hereby transferred.
!
!     The information  in  this  software  is  subject  to  change
!     without  notice  and should not be construed as a commitment
!     by DIGITAL EQUIPMENT CORPORATION.
!
!     DIGITAL assumes no responsibility for the use or reliability
!     of  its  software  on  equipment  which  is  not supplied by
!     DIGITAL.
!

!++
!
! FACILITY:	NRM NRD
!
! ABSTRACT:	This module gets the process indexes from CEXCOM
!
!
! ENVIRONMENT:	MCB
!
! AUTHOR:	Ron Platukis		CREATION DATE: 9-june-81
!
! MODIFIED BY:
!
!
!--

!
! INCLUDE FILES:
!
library
	'mcb:XPORTx';
library
	'MCB:MCBLIB';

LINKAGE
	register_0 = JSR( register = 0);

!
! TABLE OF CONTENTS:
!
forward routine
	PIDID: register_0;

!
! MACROS:
!
!
! EQUATED SYMBOLS:
!

!
! OWN STORAGE:
!
!
! EXTERNAL REFERENCES:

global routine PIDID (name) : register_0  =	!

!++
! FUNCTIONAL DESCRIPTION:
!	This routine gets the process indexes from MCB
!
! FORMAL PARAMETERS:
!	name = radix 50 process name
!
! IMPLICIT INPUTS:
!
!
! IMPLICIT OUTPUTS:
!	None
!
! ROUTINE VALUE:
! COMPLETION CODES:
!	None
!
! SIDE EFFECTS:
!	None
!--

	begin
	stacklocal x;

	if not $MCB_GET_PROCESS_HANDLE( .name, x)
	then
		x = 0;
	return .x
	end;

end

eludom