!*** MODULE $JPIDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! ! Get Job Process Information Data Identifier Definitions ! ! **** NOTE **** ! ! New items must always be added to the END of each item list ! (preceeding the ENDlistname item) so that users will not have ! to relink. ! - ! Scheduler policy definitions PARAMETER JPI$K_DEFAULT_POLICY = '00000000'X ! Native VMS scheduling policy PARAMETER JPI$K_PSX_FIFO_POLICY = '00000001'X ! POSIX fifo policy PARAMETER JPI$K_PSX_RR_POLICY = '00000002'X ! POSIX round-robbin policy PARAMETER JPI$K_ALL_THREADS = '80000000'X ! policy affectsall kernel threads ! DEFINE TABLE NUMBERS ! STRUCTURE CODES MUST START AT 1 PARAMETER JPI$C_ADRTYPE = '00000001'X ! ITEM IS ADDRESS OF DATA PARAMETER JPI$C_CTLTYPE = '00000002'X ! ITEM IS IN CONTROL REGION PARAMETER JPI$C_PCBTYPE = '00000003'X ! ITEM IN PCB PARAMETER JPI$C_PHDTYPE = '00000004'X ! ITEM IN PHD PARAMETER JPI$C_PCBFLDTYPE = '00000005'X ! ITEM IS BIT FIELD PARAMETER JPI$C_PHDFLDTYPE = '00000006'X ! ITEM IS BIT FIELD PARAMETER JPI$C_JIBTYPE = '00000007'X ! ITEM IN JIB (SUBTYPE) ! NOTE: The PSB replaces the ARB within this context! PARAMETER JPI$C_PSBTYPE = '00000008'X ! ITEM IN PSB (SUBTYPE) PARAMETER JPI$C_KTBTYPE = '00000009'X ! ITEM IN KTB (SUBTYPE) PARAMETER JPI$C_MAXSTRUC = '00000006'X ! TOTAL OF 6 TABLES PARAMETER JPI$C_LISTEND = '00000000'X ! DEFINE ITMLST TERMINATOR PARAMETER JPI$_CHAIN = -1 ! CHAIN INDICATOR PARAMETER JPI$_GETJPI_CONTROL_FLAGS = -2 ! SPECIAL CONTROL ITEMS PARAMETER JPI$M_NO_TARGET_INSWAP = '00000001'X PARAMETER JPI$M_NO_TARGET_AST = '00000002'X PARAMETER JPI$M_IGNORE_TARGET_STATUS = '00000004'X PARAMETER JPI$M_THREAD = '00000008'X PARAMETER JPI$M_NATURAL_PERSONA = '00000010'X PARAMETER JPI$M_FILL1 = '00007FE0'X PARAMETER JPI$M_NEED_THREAD_CAP = '00008000'X STRUCTURE /JPICTLDEF/ UNION MAP INTEGER*4 %FILL ! Control item flags END MAP MAP PARAMETER JPI$S_NO_TARGET_INSWAP = 1 PARAMETER JPI$V_NO_TARGET_INSWAP = 0 ! Do not inswap the target process, (do deliver ! Do not inswap the target process, (do deliver ASTs if it is PARAMETER JPI$S_NO_TARGET_AST = 1 PARAMETER JPI$V_NO_TARGET_AST = 1 ! Do not send AST to target PARAMETER JPI$S_IGNORE_TARGET_STATUS = 1 PARAMETER JPI$V_IGNORE_TARGET_STATUS = 2 ! Don't check target state PARAMETER JPI$S_THREAD = 1 PARAMETER JPI$V_THREAD = 3 ! Return information about each thread for multithreaded ! Return information about each thread for multithreaded proc PARAMETER JPI$S_NATURAL_PERSONA = 1 PARAMETER JPI$V_NATURAL_PERSONA = 4 ! Select natural persona when processing security ! Select natural persona when processing security profile ite PARAMETER JPI$S_FILL1 = 10 PARAMETER JPI$V_FILL1 = 5 ! Filler so NEED_THREAD_CAP bit is in bit 15 ! NOTE: This bit is used internally by $GETJPI in cluster environments. It is not specified by the ! NOTE: This bit is used internally by $GETJPI in cluster env PARAMETER JPI$S_NEED_THREAD_CAP = 1 PARAMETER JPI$V_NEED_THREAD_CAP = 15 ! Indicates that target node in a cluster needs ! Indicates that target node in a cluster needs to know about ! threads BYTE %FILL (2) END MAP END UNION END STRUCTURE ! JPICTLDEF ! NOTE: the following constants must match values in $JIBDEF! PARAMETER JPI$K_OTHER = '00000000'X ! JPI$_Mode values PARAMETER JPI$K_NETWORK = '00000001'X ! JPI$_Mode values PARAMETER JPI$K_BATCH = '00000002'X ! JPI$_Mode values PARAMETER JPI$K_INTERACTIVE = '00000003'X ! JPI$_Mode values PARAMETER JPI$K_DETACHED = '00000000'X ! JPI$_JOBTYPE values PARAMETER JPI$K_LOCAL = '00000003'X ! JPI$_JOBTYPE values PARAMETER JPI$K_DIALUP = '00000004'X ! JPI$_JOBTYPE values PARAMETER JPI$K_REMOTE = '00000005'X ! JPI$_JOBTYPE values ! (also BATCH & INTERACTIVE) PARAMETER JPI$M_NEW_MAIL_AT_LOGIN = '00000001'X PARAMETER JPI$M_PASSWORD_CHANGED = '00000002'X PARAMETER JPI$M_PASSWORD_EXPIRED = '00000004'X PARAMETER JPI$M_PASSWORD_WARNING = '00000008'X PARAMETER JPI$M_PASSWORD2_CHANGED = '00000010'X PARAMETER JPI$M_PASSWORD2_EXPIRED = '00000020'X PARAMETER JPI$M_PASSWORD2_WARNING = '00000040'X STRUCTURE /JPILGIDEF/ UNION MAP INTEGER*4 %FILL ! Miscellaneous LOGIN flags END MAP MAP PARAMETER JPI$S_NEW_MAIL_AT_LOGIN = 1 PARAMETER JPI$V_NEW_MAIL_AT_LOGIN = 0 ! User had new MAIL message(s) PARAMETER JPI$S_PASSWORD_CHANGED = 1 PARAMETER JPI$V_PASSWORD_CHANGED = 1 ! Primary password changed PARAMETER JPI$S_PASSWORD_EXPIRED = 1 PARAMETER JPI$V_PASSWORD_EXPIRED = 2 ! Primary password expired on login PARAMETER JPI$S_PASSWORD_WARNING = 1 PARAMETER JPI$V_PASSWORD_WARNING = 3 ! Primary password expiration imminent PARAMETER JPI$S_PASSWORD2_CHANGED = 1 PARAMETER JPI$V_PASSWORD2_CHANGED = 4 ! Secondary password changed PARAMETER JPI$S_PASSWORD2_EXPIRED = 1 PARAMETER JPI$V_PASSWORD2_EXPIRED = 5 ! Secondary password expired on login PARAMETER JPI$S_PASSWORD2_WARNING = 1 PARAMETER JPI$V_PASSWORD2_WARNING = 6 ! Secondary password expiration imminent BYTE %FILL (1) END MAP END UNION END STRUCTURE ! JPILGIDEF ! ITEM IDENTIFIERS FOR PCB PARAMETER JPI$_ASTACT = '00000300'X ! ACCESS MODES WITH ACTIVE ASTS PARAMETER JPI$_ASTEN = '00000301'X ! ACCESS MODES WITH ASTS ENABLED PARAMETER JPI$_PRI = '00000302'X ! CURRENT PROCESS PRIORITY PARAMETER JPI$_OWNER = '00000303'X ! Epid of owner process, if this is a subprocess PARAMETER JPI$_UIC = '00000304'X ! UIC OF PROCESS PARAMETER JPI$_STS = '00000305'X ! PROCESS STATUS PARAMETER JPI$_STATE = '00000306'X ! PROCESS STATE PARAMETER JPI$_MEM = '00000307'X ! MEMBER FIELD OF UIC PARAMETER JPI$_GRP = '00000308'X ! GROUP FIELD OF UIC PARAMETER JPI$_PRIB = '00000309'X ! PROCESS BASE PRIORITY PARAMETER JPI$_APTCNT = '0000030A'X ! ACTIVE PAGE TABLE COUNT PARAMETER JPI$_TMBU = '0000030B'X ! TERMINATION MAILBOX UNIT PARAMETER JPI$_GPGCNT = '0000030C'X ! GLOBAL PAGE COUNT IN WORKING SET PARAMETER JPI$_PPGCNT = '0000030D'X ! PROCESS PAGE COUNT IN WORKING SET PARAMETER JPI$_ASTCNT = '0000030E'X ! AST COUNT REMAINING PARAMETER JPI$_BIOCNT = '0000030F'X ! BUFFERED I/O COUNT REMAINING PARAMETER JPI$_BIOLM = '00000310'X ! BUFFERED I/O LIMIT PARAMETER JPI$_BYTCNT = '00000311'X ! BYTE COUNT REMAINING FOR BUFFERED I/O PARAMETER JPI$_DIOCNT = '00000312'X ! DIRECT I/O COUNT REMAINING PARAMETER JPI$_DIOLM = '00000313'X ! DIRECT I/O COUNT LIMIT PARAMETER JPI$_FILCNT = '00000314'X ! COUNT REMAINING OF OPEN FILES PARAMETER JPI$_TQCNT = '00000315'X ! COUNT REMAINING OF TIMER QUEUE ENTRIES PARAMETER JPI$_EFWM = '00000316'X ! EVENT FLAG WAIT MASK PARAMETER JPI$_EFCS = '00000317'X ! LOCAL EVENT FLAGS 0-31 PARAMETER JPI$_EFCU = '00000318'X ! LOCAL EVENT FLAGS 32-63 PARAMETER JPI$_PID = '00000319'X ! PROCESS IDENTIFICATION PARAMETER JPI$_BYTLM = '0000031A'X ! BUFFERED I/0 BYTE COUNT LIMIT PARAMETER JPI$_PRCCNT = '0000031B'X ! SUBPROCESS COUNT PARAMETER JPI$_PRCNAM = '0000031C'X ! PROCESS NAME PARAMETER JPI$_TERMINAL = '0000031D'X ! LOGIN TERMINAL NAME PARAMETER JPI$_JOBPRCCNT = '0000031E'X ! TOTAL COUNT OF SUBPROCESSES IN A JOB PARAMETER JPI$_ENQCNT = '0000031F'X ! ENQUEUE COUNT REMAINING PARAMETER JPI$_ENQLM = '00000320'X ! ENQUEUE COUNT LIMIT PARAMETER JPI$_SWPFILLOC = '00000321'X ! SWAP FILE BACKING STORE ADDRESS PARAMETER JPI$_MODE = '00000322'X ! MODE VALUE (FROM STS) - DEFINED ABOVE PARAMETER JPI$_JOBTYPE = '00000323'X ! JOB TYPE CODE PARAMETER JPI$_PROC_INDEX = '00000324'X ! PROCESS INDEX PARAMETER JPI$_MASTER_PID = '00000325'X ! MASTER PROCESS PID PARAMETER JPI$_RIGHTSLIST = '00000326'X ! PSB composite rights PARAMETER JPI$_CPU_ID = '00000327'X ! CPU ID PARAMETER JPI$_STS2 = '00000328'X ! Second process status longword PARAMETER JPI$_NODENAME = '00000329'X ! Name of node on which process is running PARAMETER JPI$_NODE_CSID = '0000032A'X ! CSID of node on which process is running PARAMETER JPI$_NODE_VERSION = '0000032B'X ! VMS version of node on which process is running PARAMETER JPI$_TT_PHYDEVNAM = '0000032C'X ! Physical device name of terminal PARAMETER JPI$_TT_ACCPORNAM = '0000032D'X ! Access port name of terminal PARAMETER JPI$_PROCESS_RIGHTS = '0000032E'X ! PSB persona rights PARAMETER JPI$_SYSTEM_RIGHTS = '0000032F'X ! PSB system rights PARAMETER JPI$_IMAGE_RIGHTS = '00000330'X ! PSB protected sub-system rights PARAMETER JPI$_RIGHTS_SIZE = '00000331'X ! Approximate size (in bytes) of all PSB rights lists PARAMETER JPI$_CLASSIFICATION = '00000332'X ! PSB current MAC classification PARAMETER JPI$_SCHED_POLICY = '00000333'X ! Scheduler policy PARAMETER JPI$_RMS_FILEPROT = '00000334'X ! Process default file protection for RMS PARAMETER JPI$_MULTITHREAD = '00000335'X ! Kernel threads - max thread count PARAMETER JPI$_KT_COUNT = '00000336'X ! Kernel threads - thread count PARAMETER JPI$_INITIAL_THREAD_PID = '00000337'X ! Kernel threads - initial thread PID PARAMETER JPI$_THREAD_INDEX = '00000338'X ! Kernel threads - thread index PARAMETER JPI$_CURRENT_USERCAP_MASK = '00000339'X ! KTB current user capabilities mask PARAMETER JPI$_PERMANENT_USERCAP_MASK = '0000033A'X ! KTB permanent user capabilities mask PARAMETER JPI$_CURRENT_AFFINITY_MASK = '0000033B'X ! KTB current affinity mask PARAMETER JPI$_PERMANENT_AFFINITY_MASK = '0000033C'X ! KTB permanent affinity mask PARAMETER JPI$_PERSONA_ID = '0000033D'X ! Persona (PSB) id PARAMETER JPI$_PERSONA_AUTHPRIV = '0000033E'X ! PSB authorized privilege mask PARAMETER JPI$_PERSONA_PERMPRIV = '0000033F'X ! PSB permanent (default) privilege mask PARAMETER JPI$_PERSONA_WORKPRIV = '00000340'X ! PSB working (active) privilege mask PARAMETER JPI$_IMAGE_WORKPRIV = '00000341'X ! PSB installed image working (active) privilege mask PARAMETER JPI$_PERSONA_RIGHTS_SIZE = '00000342'X ! Approximate size (in bytes) of PSB persona rig PARAMETER JPI$_PERSONA_RIGHTS = '00000343'X ! PSB persona rights PARAMETER JPI$_SUBSYSTEM_RIGHTS_SIZE = '00000344'X ! Approximate size (in bytes) of PSB protected ! Approximate size (in bytes) of PSB protected sub-system rig PARAMETER JPI$_SUBSYSTEM_RIGHTS = '00000345'X ! PSB protected sub-system rights PARAMETER JPI$_INSTALL_RIGHTS_SIZE = '00000346'X ! Approximate size (in bytes) of PSB installed i PARAMETER JPI$_INSTALL_RIGHTS = '00000347'X ! PSB installed image rights PARAMETER JPI$_SYSTEM_RIGHTS_SIZE = '00000348'X ! Approximate size (in bytes) of PSB system rights PARAMETER JPI$_CURRENT_CAP_MASK = '00000349'X ! KTB current capabilities mask PARAMETER JPI$_PERMANENT_CAP_MASK = '0000034A'X ! KTB permanent capabilities mask PARAMETER JPI$_SCHED_CLASS_NAME = '0000034B'X ! Scheduling class name PARAMETER JPI$_HOME_RAD = '0000034C'X ! KTB Home RAD PARAMETER JPI$_POSIX_SID = '0000034D'X ! Session ID for POSIX and COE PARAMETER JPI$_POSIX_PGID = '0000034E'X ! Process Group ID for POSIX and COE PARAMETER JPI$_CREATOR = '0000034F'X ! Epid of creator process (Unix-style parent) PARAMETER JPI$_KRNLTIM = '00000350'X ! Kernel mode cpu time PARAMETER JPI$_EXECTIM = '00000351'X ! Executive mode cpu time PARAMETER JPI$_SUPRTIM = '00000352'X ! Supervisor mode cpu time PARAMETER JPI$_USERTIM = '00000353'X ! User mode cpu time PARAMETER JPI$_ORG_BYTLM = '00000354'X ! Original buffered I/O byte count limit PARAMETER JPI$_DEADLOCK_WAIT = '00000355'X ! Per-process sub-second deadlock wait value PARAMETER JPI$_KT_LIMIT = '00000356'X ! Per-process multiple kernel threads limit ! ADD NEW ITEM-CODES BEFORE THIS COMMENT PARAMETER JPI$_LASTPCB = '00000357'X ! MAX INDEX IN PCB TABLE ! ITEM IDENTIFIERS FOR PHD PARAMETER JPI$_CURPRIV = '00000400'X ! CURRENT PROCESS PRIVILEGE MASK PARAMETER JPI$_WSAUTH = '00000401'X ! AUTHORIZED WORKING SET SIZE PARAMETER JPI$_WSQUOTA = '00000402'X ! QUOTA ON WORKING SET SIZE PARAMETER JPI$_DFWSCNT = '00000403'X ! DEFAULT WORKING SET SIZE PARAMETER JPI$_FREP0VA = '00000404'X ! FIRST FREE VIRTUAL ADDR. AT END OF P0 SPACE PARAMETER JPI$_FREP1VA = '00000405'X ! FIRST FREE ADDR. AT END OF P1 SPACE PARAMETER JPI$_DFPFC = '00000406'X ! DEFAULT PAGE FAULT CLUSTER PARAMETER JPI$_CPUTIM = '00000407'X ! ACCUMULATED CPU TIME PARAMETER JPI$_PRCLM = '00000408'X ! SUBPROCESS QUOTA PARAMETER JPI$_ASTLM = '00000409'X ! AST LIMIT PARAMETER JPI$_PAGEFLTS = '0000040A'X ! COUNT OF PAGE FAULTS PARAMETER JPI$_DIRIO = '0000040B'X ! PROCESS DIRECT I/O OPERATIONS PARAMETER JPI$_BUFIO = '0000040C'X ! PROCESS BUFFERED I/O OPERATIONS PARAMETER JPI$_CPULIM = '0000040D'X ! LIMIT ON CPUTIM FOR PROCESS PARAMETER JPI$_PGFLQUOTA = '0000040E'X ! MAX. VIRTUAL PAGE COUNT PARAMETER JPI$_FILLM = '0000040F'X ! OPEN FILE LIMIT PARAMETER JPI$_TQLM = '00000410'X ! TIMER QUEUE LIMIT PARAMETER JPI$_WSSIZE = '00000411'X ! CURRENT WORKING SET SIZE PARAMETER JPI$_AUTHPRIV = '00000412'X ! PSB authorized privilege mask PARAMETER JPI$_IMAGPRIV = '00000413'X ! PHD installed image permanent (default) privilege mask PARAMETER JPI$_PAGFILCNT = '00000414'X ! Remaining paging file quota of the process PARAMETER JPI$_FREPTECNT = '00000415'X ! ROOM FOR EXPANSION OF P0 OR P1 SPACE PARAMETER JPI$_WSEXTENT = '00000416'X ! EXTENT OF WORKING SET SIZE PARAMETER JPI$_WSAUTHEXT = '00000417'X ! MAX EXTENT OF WORKING SET SIZE PARAMETER JPI$_AUTHPRI = '00000418'X ! AUTHORIZED PRIORITY FOR $SETPRI PARAMETER JPI$_PAGFILLOC = '00000419'X ! PAGE FILE BACKING STORE ADDRESS PARAMETER JPI$_IMAGECOUNT = '0000041A'X ! IMAGE COUNTER (CLOCKED BY RUNDOWN) PARAMETER JPI$_PHDFLAGS = '0000041B'X ! PROCESS HEADER FLAGS WORD PARAMETER JPI$_VP_CPUTIM = '0000041C'X ! VECTOR CPU TIME PARAMETER JPI$_VP_CONSUMER = '0000041D'X ! Flag -- is this process a vector consumer? PARAMETER JPI$_P0_FIRST_FREE_VA_64 = '0000041E'X ! First free VA in P0 space PARAMETER JPI$_P1_FIRST_FREE_VA_64 = '0000041F'X ! First free VA in P1 space PARAMETER JPI$_P2_FIRST_FREE_VA_64 = '00000420'X ! First free VA in P2 space PARAMETER JPI$_IMAGE_AUTHPRIV = '00000421'X ! PHD installed image authorized privilege mask PARAMETER JPI$_IMAGE_PERMPRIV = '00000422'X ! PHD installed image permanent (default) privilege m ! ADD NEW ITEM-CODES BEFORE THIS COMMENT PARAMETER JPI$_LASTPHD = '00000423'X ! MAX INDEX IN PROCESS HEADER ! ITEM IDENTIFIERS FOR CONTROL REGION PARAMETER JPI$_VIRTPEAK = '00000200'X ! PEAK VIRTUAL SIZE PARAMETER JPI$_WSPEAK = '00000201'X ! PEAK WORKING SET SIZE PARAMETER JPI$_USERNAME = '00000202'X ! PSB username string PARAMETER JPI$_ACCOUNT = '00000203'X ! PSB account name string PARAMETER JPI$_PROCPRIV = '00000204'X ! PSB permanent (default) privilege mask PARAMETER JPI$_VOLUMES = '00000205'X ! VOLUMES MOUNTED PARAMETER JPI$_LOGINTIM = '00000206'X ! TIME OF LOGIN OR PROCESS CREATION PARAMETER JPI$_IMAGNAME = '00000207'X ! CURRENT IMAGE FILE NAME PARAMETER JPI$_SITESPEC = '00000208'X ! PER-PROCESS SITE-SPECIFIC CELL PARAMETER JPI$_MSGMASK = '00000209'X ! PROCESS DEFAULT MESSAGE FLAGS PARAMETER JPI$_CLINAME = '0000020A'X ! COMMAND LANGUAGE INTERPRETER NAME PARAMETER JPI$_TABLENAME = '0000020B'X ! COMMAND LANGUAGE INTERPRETER TABLE NAME PARAMETER JPI$_CREPRC_FLAGS = '0000020C'X ! $CREPRC FLAGS USED TO CREATE THIS PROCESS PARAMETER JPI$_UAF_FLAGS = '0000020D'X ! FLAGS FROM UAF RECORD PARAMETER JPI$_MAXDETACH = '0000020E'X ! MAXIMUM DETACHED PROCESSES FOR SINGLE USER PARAMETER JPI$_MAXJOBS = '0000020F'X ! MAXIMUM ACTIVE PROCESSES FOR SINGLE USER PARAMETER JPI$_SHRFILLM = '00000210'X ! MAXIMUM OPEN SHARED FILES PARAMETER JPI$_FAST_VP_SWITCH = '00000211'X ! NUMBER OF FAST VECTOR CONTEXT SWITCHES PARAMETER JPI$_SLOW_VP_SWITCH = '00000212'X ! NUMBER OF SLOW VECTOR CONTEXT SWITCHES PARAMETER JPI$_LAST_LOGIN_I = '00000213'X ! Last interactive login PARAMETER JPI$_LAST_LOGIN_N = '00000214'X ! Last non-interactive login PARAMETER JPI$_LOGIN_FAILURES = '00000215'X ! Number of login failures at login PARAMETER JPI$_LOGIN_FLAGS = '00000216'X ! Miscellaneous login flags PARAMETER JPI$_RMS_DFMBC = '00000217'X ! RMS default: multi-block count PARAMETER JPI$_RMS_DFMBFSDK = '00000218'X ! " " multi-buffer count for disk (SEQ) PARAMETER JPI$_RMS_DFMBFSMT = '00000219'X ! " " multi-buffer count for tape PARAMETER JPI$_RMS_DFMBFSUR = '0000021A'X ! " " multi-buffer count for unit record PARAMETER JPI$_RMS_DFMBFREL = '0000021B'X ! " " multi-buffer count for REL files PARAMETER JPI$_RMS_DFMBFIDX = '0000021C'X ! " " multi-buffer count for ISAM files PARAMETER JPI$_RMS_PROLOGUE = '0000021D'X ! " " prolog PARAMETER JPI$_RMS_EXTEND_SIZE = '0000021E'X ! " " file extend quantity PARAMETER JPI$_RMS_DFNBC = '0000021F'X ! " " network block count PARAMETER JPI$_RMS_DFLRL = '00000220'X ! " " Heuristic default LRL PARAMETER JPI$_RMS_HEURISTIC = '00000221'X ! " " Heuristic enable/disable setting PARAMETER JPI$_PARSE_STYLE_PERM = '00000222'X ! Parse style for life of process PARAMETER JPI$_PARSE_STYLE_IMAGE = '00000223'X ! Parse style for life of image PARAMETER JPI$_RMSD6 = '00000224'X ! RMS dynamic parameter RMSD6 PARAMETER JPI$_RMS_QUERY_LOCK = '00000225'X ! RMS QUERY_LOCK enable/disable setting PARAMETER JPI$_CASE_LOOKUP_PERM = '00000226'X ! Case lookup mode for life of process PARAMETER JPI$_CASE_LOOKUP_IMAGE = '00000227'X ! Case lookup mode for life of image PARAMETER JPI$_UNITS = '00000228'X ! Bytes or Blocks PARAMETER JPI$_TOKEN = '00000229'X ! Small or Large Token ! ADD NEW ITEM-CODES BEFORE THIS COMMENT PARAMETER JPI$_LASTCTL = '0000022A'X ! MAX INDEX IN CONTROL REGION ! ITEM IDENTIFIERS FOR ADDRESS DATA PARAMETER JPI$_EXCVEC = '00000100'X ! ADDRESS OF "EXCEPTION VECTOR" VECTOR PARAMETER JPI$_FINALEXC = '00000101'X ! ADDRESS OF LAST CHANCE EXCEPTION VECTORS ! ADD NEW ITEM-CODES BEFORE THIS COMMENT PARAMETER JPI$_LASTADR = '00000102'X ! MAX INDEX IN ADDRESS TABLE ! ITEM IDENTIFIERS FOR PCBFLD ! ADD ITEM-CODES BEFORE THIS COMMENT PARAMETER JPI$_LASTPCBFLD = '00000500'X ! MAX INDEX IN PCBFLD TABLE ! ITEM IDENTIFIERS FOR PHDFLD ! ADD ITEM-CODES BEFORE THIS COMMENT PARAMETER JPI$_LASTPHDFLD = '00000600'X ! MAX INDEX IN PHDFLD TABLE !DEC$ END OPTIONS