!*** MODULE PPL$DEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 !  Definitions for RTL Parallel Processing Facility - PPL
 ! 
 !  Pre-defined event ids.
 ! 
	PARAMETER PPL$K_ABNORMAL_EXIT = -2	 !  abnormal participant termination
	PARAMETER PPL$K_NORMAL_EXIT = -1	 !  normal participant termination
 ! 
 !  Shared memory options flags.
 ! 
	PARAMETER PPL$M_NOZERO = '00000001'X
	PARAMETER PPL$M_NOWRT = '00000002'X
	PARAMETER PPL$M_FLUSH = '00000004'X
	PARAMETER PPL$M_NOUNI = '00000008'X
	PARAMETER PPL$m_mopt_spare = 'FFFFFFF0'X
	STRUCTURE /mem_options/
	    PARAMETER PPL$S_NOZERO = 1
	    PARAMETER PPL$V_NOZERO = 0		 !  not demand-zero
	    PARAMETER PPL$S_NOWRT = 1
	    PARAMETER PPL$V_NOWRT = 1		 !  read-only
	    PARAMETER PPL$S_FLUSH = 1
	    PARAMETER PPL$V_FLUSH = 2		 !  write to disk
	    PARAMETER PPL$S_NOUNI = 1
	    PARAMETER PPL$V_NOUNI = 3		 !  non-unique name not requested
	    PARAMETER PPL$S_mopt_spare = 28
	    PARAMETER PPL$V_mopt_spare = 4
	    BYTE %FILL (4)				 !  extra bits
	END STRUCTURE	! mem_options
 ! 
 !  Processing options flags.
 ! 
	PARAMETER PPL$M_INIT_SYNCH = '00000001'X
	PARAMETER PPL$M_NODEBUG = '00000002'X
	PARAMETER PPL$M_STOP_CHILDREN = '00000004'X
	PARAMETER PPL$M_NON_BLOCKING = '00000008'X
	PARAMETER PPL$M_NOTIFY_ONE = '00000010'X
	PARAMETER PPL$M_SPIN_WAIT = '00000020'X
	PARAMETER PPL$M_FORMONLY = '00000040'X
	PARAMETER PPL$M_JOINONLY = '00000080'X
	PARAMETER PPL$M_PERM = '00000100'X
	PARAMETER PPL$M_SYSTEM = '00000200'X
	PARAMETER PPL$M_DELETEALL = '00000400'X
	PARAMETER PPL$M_TAILFIRST = '00000800'X
	PARAMETER PPL$M_ATHEAD = '00001000'X
	PARAMETER PPL$M_FROMTAIL = '00002000'X
	PARAMETER PPL$M_FORCEDEL = '00004000'X
	PARAMETER PPL$M_NOCLISYM = '00008000'X
	PARAMETER PPL$M_NOLOGNAM = '00010000'X
	PARAMETER PPL$M_NOKEYPAD = '00020000'X
	PARAMETER PPL$M_NOTIFY = '00040000'X
	PARAMETER PPL$M_NOCONTROL = '00080000'X
	PARAMETER PPL$M_CALL_UNIQUE = '00100000'X
	PARAMETER PPL$M_PROC_UNIQUE = '00200000'X
	PARAMETER PPL$M_SPIN_COUNTED = '00400000'X
	PARAMETER PPL$M_NOSAVE_PROC_INFO = '00800000'X
	PARAMETER PPL$M_IGNORE_EXITS = '01000000'X
	PARAMETER PPL$m_popt_spare = 'FE000000'X
	STRUCTURE /proc_options/
	    PARAMETER PPL$S_INIT_SYNCH = 1
	    PARAMETER PPL$V_INIT_SYNCH = 0		 !  parent blocks until children init
	    PARAMETER PPL$S_NODEBUG = 1
	    PARAMETER PPL$V_NODEBUG = 1		 !  disable DEBUG
	    PARAMETER PPL$S_STOP_CHILDREN = 1
	    PARAMETER PPL$V_STOP_CHILDREN = 2	 !  stop children of terminating process
	    PARAMETER PPL$S_NON_BLOCKING = 1
	    PARAMETER PPL$V_NON_BLOCKING = 3	 !  don't block if semaphore unavailable
	    PARAMETER PPL$S_NOTIFY_ONE = 1
	    PARAMETER PPL$V_NOTIFY_ONE = 4		 !  notify only one enabler for event
	    PARAMETER PPL$S_SPIN_WAIT = 1
	    PARAMETER PPL$V_SPIN_WAIT = 5		 !  spin rather than $HIBER
	    PARAMETER PPL$S_FORMONLY = 1
	    PARAMETER PPL$V_FORMONLY = 6		 !  Only form (do not join) a new appl.
	    PARAMETER PPL$S_JOINONLY = 1
	    PARAMETER PPL$V_JOINONLY = 7		 !  Only join (do not form) a new appl.
	    PARAMETER PPL$S_PERM = 1
	    PARAMETER PPL$V_PERM = 8		 !  Create a permanent application
	    PARAMETER PPL$S_SYSTEM = 1
	    PARAMETER PPL$V_SYSTEM = 9		 !  Create a system-wide application
	    PARAMETER PPL$S_DELETEALL = 1
	    PARAMETER PPL$V_DELETEALL = 10		 !  Delete all corresponding work items
	    PARAMETER PPL$S_TAILFIRST = 1
	    PARAMETER PPL$V_TAILFIRST = 11		 !  Delete from tail of queue
	    PARAMETER PPL$S_ATHEAD = 1
	    PARAMETER PPL$V_ATHEAD = 12		 !  Insert at the head of queue
	    PARAMETER PPL$S_FROMTAIL = 1
	    PARAMETER PPL$V_FROMTAIL = 13		 !  Remove from tail of queue
	    PARAMETER PPL$S_FORCEDEL = 1
	    PARAMETER PPL$V_FORCEDEL = 14		 !  Force deletion of work queue
	    PARAMETER PPL$S_NOCLISYM = 1
	    PARAMETER PPL$V_NOCLISYM = 15		 !  Do not inherit parent's CLI symbols
	    PARAMETER PPL$S_NOLOGNAM = 1
	    PARAMETER PPL$V_NOLOGNAM = 16		 !  Do not inherit parent's logicals
	    PARAMETER PPL$S_NOKEYPAD = 1
	    PARAMETER PPL$V_NOKEYPAD = 17		 !  Inherit parent's keypad state & defs
	    PARAMETER PPL$S_NOTIFY = 1
	    PARAMETER PPL$V_NOTIFY = 18		 !  Broadcast message on child terminate
	    PARAMETER PPL$S_NOCONTROL = 1
	    PARAMETER PPL$V_NOCONTROL = 19		 !  No carriage control prefix on prompt
	    PARAMETER PPL$S_CALL_UNIQUE = 1
	    PARAMETER PPL$V_CALL_UNIQUE = 20	 !  Request call unique name
	    PARAMETER PPL$S_PROC_UNIQUE = 1
	    PARAMETER PPL$V_PROC_UNIQUE = 21	 !  Request process unique name
	    PARAMETER PPL$S_SPIN_COUNTED = 1
	    PARAMETER PPL$V_SPIN_COUNTED = 22	 !  Spin for counted period before hiber
	    PARAMETER PPL$S_NOSAVE_PROC_INFO = 1
	    PARAMETER PPL$V_NOSAVE_PROC_INFO = 23
	    PARAMETER PPL$S_IGNORE_EXITS = 1
	    PARAMETER PPL$V_IGNORE_EXITS = 24
	    PARAMETER PPL$S_popt_spare = 7
	    PARAMETER PPL$V_popt_spare = 25
	    BYTE %FILL (4)				 !  extra bits
	END STRUCTURE	! proc_options
!DEC$ END OPTIONS