%IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF ! + ! ! 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. ! - ! DEFINE TABLE NUMBERS ! STRUCTURE CODES MUST START AT 1 DECLARE LONG CONSTANT JPI$C_ADRTYPE = 1 ! ITEM IS ADDRESS OF DATA DECLARE LONG CONSTANT JPI$C_CTLTYPE = 2 ! ITEM IS IN CONTROL REGION DECLARE LONG CONSTANT JPI$C_PCBTYPE = 3 ! ITEM IN PCB DECLARE LONG CONSTANT JPI$C_PHDTYPE = 4 ! ITEM IN PHD DECLARE LONG CONSTANT JPI$C_PCBFLDTYPE = 5 ! ITEM IS BIT FIELD DECLARE LONG CONSTANT JPI$C_PHDFLDTYPE = 6 ! ITEM IS BIT FIELD DECLARE LONG CONSTANT JPI$C_JIBTYPE = 7 ! ITEM IN JIB ( SUBTYPE ) DECLARE LONG CONSTANT JPI$C_ARBTYPE = 8 ! ITEM IN ARB ( SUBTYPE ) DECLARE LONG CONSTANT JPI$C_MAXSTRUC = 6 ! TOTAL OF 6 TABLES DECLARE LONG CONSTANT JPI$C_LISTEND = 0 ! DEFINE ITMLST TERMINATOR DECLARE LONG CONSTANT JPI$_CHAIN = -1 ! CHAIN INDICATOR DECLARE LONG CONSTANT JPI$_GETJPI_CONTROL_FLAGS = -2 ! SPECIAL CONTROL ITEMS DECLARE LONG CONSTANT JPI$M_NO_TARGET_INSWAP = x'00000001' DECLARE LONG CONSTANT JPI$M_NO_TARGET_AST = x'00000002' DECLARE LONG CONSTANT JPI$M_IGNORE_TARGET_STATUS = x'00000004' DECLARE LONG CONSTANT JPI$S_JPICTLDEF = 4 record JPICTLDEF group JPI$r_fill_45 variant case LONG JPI$L_JPICTLFLGS ! Control item flags case group JPI$r_fill_46 ! Do not inswap the target process, (do deliver ASTs if it is resident) ! Do not send AST to target ! Don't check target state BYTE NO_TARGET_INSWAP_bits ! COMMENT ADDED BY SDL - NO_TARGET_INSWAP_bits contains bits NO_TARGET_INSWAP & ! through fill_47 end group JPI$r_fill_46 end variant end group JPI$r_fill_45 end record JPICTLDEF ! NOTE: the following constants must match values in $JIBDEF? DECLARE LONG CONSTANT JPI$K_OTHER = 0 ! JPI$_Mode values DECLARE LONG CONSTANT JPI$K_NETWORK = 1 ! JPI$_Mode values DECLARE LONG CONSTANT JPI$K_BATCH = 2 ! JPI$_Mode values DECLARE LONG CONSTANT JPI$K_INTERACTIVE = 3 ! JPI$_Mode values DECLARE LONG CONSTANT JPI$K_DETACHED = 0 ! JPI$_JOBTYPE values DECLARE LONG CONSTANT JPI$K_LOCAL = 3 ! JPI$_JOBTYPE values DECLARE LONG CONSTANT JPI$K_DIALUP = 4 ! JPI$_JOBTYPE values DECLARE LONG CONSTANT JPI$K_REMOTE = 5 ! JPI$_JOBTYPE values ! (also BATCH ? INTERACTIVE) DECLARE LONG CONSTANT JPI$M_NEW_MAIL_AT_LOGIN = x'00000001' DECLARE LONG CONSTANT JPI$M_PASSWORD_CHANGED = x'00000002' DECLARE LONG CONSTANT JPI$M_PASSWORD_EXPIRED = x'00000004' DECLARE LONG CONSTANT JPI$M_PASSWORD_WARNING = x'00000008' DECLARE LONG CONSTANT JPI$M_PASSWORD2_CHANGED = x'00000010' DECLARE LONG CONSTANT JPI$M_PASSWORD2_EXPIRED = x'00000020' DECLARE LONG CONSTANT JPI$M_PASSWORD2_WARNING = x'00000040' DECLARE LONG CONSTANT JPI$S_JPILGIDEF = 4 record JPILGIDEF group JPI$r_fill_48 variant case LONG JPI$L_JPILGIFLGS ! Miscellaneous LOGIN flags case group JPI$r_fill_49 ! User had new MAIL message(s) ! Primary password changed ! Primary password expired on login ! Primary password expiration imminent ! Secondary password changed ! Secondary password expired on login ! Secondary password expiration imminent BYTE NEW_MAIL_AT_LOGIN_bits ! COMMENT ADDED BY SDL - NEW_MAIL_AT_LOGIN_bits contains bits & ! NEW_MAIL_AT_LOGIN through fill_50 end group JPI$r_fill_49 end variant end group JPI$r_fill_48 end record JPILGIDEF ! ITEM IDENTIFIERS FOR PCB DECLARE LONG CONSTANT JPI$_ASTACT = 768 ! ACCESS MODES WITH ACTIVE ASTS DECLARE LONG CONSTANT JPI$_ASTEN = 769 ! ACCESS MODES WITH ASTS ENABLED DECLARE LONG CONSTANT JPI$_PRI = 770 ! CURRENT PROCESS PRIORITY DECLARE LONG CONSTANT JPI$_OWNER = 771 ! Epid of owner process, if this is a subprocess DECLARE LONG CONSTANT JPI$_UIC = 772 ! UIC OF PROCESS DECLARE LONG CONSTANT JPI$_STS = 773 ! PROCESS STATUS DECLARE LONG CONSTANT JPI$_STATE = 774 ! PROCESS STATE DECLARE LONG CONSTANT JPI$_MEM = 775 ! MEMBER FIELD OF UIC DECLARE LONG CONSTANT JPI$_GRP = 776 ! GROUP FIELD OF UIC DECLARE LONG CONSTANT JPI$_PRIB = 777 ! PROCESS BASE PRIORITY DECLARE LONG CONSTANT JPI$_APTCNT = 778 ! ACTIVE PAGE TABLE COUNT DECLARE LONG CONSTANT JPI$_TMBU = 779 ! TERMINATION MAILBOX UNIT DECLARE LONG CONSTANT JPI$_GPGCNT = 780 ! GLOBAL PAGE COUNT IN WORKING SET DECLARE LONG CONSTANT JPI$_PPGCNT = 781 ! PROCESS PAGE COUNT IN WORKING SET DECLARE LONG CONSTANT JPI$_ASTCNT = 782 ! AST COUNT REMAINING DECLARE LONG CONSTANT JPI$_BIOCNT = 783 ! BUFFERED I/O COUNT REMAINING DECLARE LONG CONSTANT JPI$_BIOLM = 784 ! BUFFERED I/O LIMIT DECLARE LONG CONSTANT JPI$_BYTCNT = 785 ! BYTE COUNT REMAINING FOR BUFFERED I/O DECLARE LONG CONSTANT JPI$_DIOCNT = 786 ! DIRECT I/O COUNT REMAINING DECLARE LONG CONSTANT JPI$_DIOLM = 787 ! DIRECT I/O COUNT LIMIT DECLARE LONG CONSTANT JPI$_FILCNT = 788 ! COUNT REMAINING OF OPEN FILES DECLARE LONG CONSTANT JPI$_TQCNT = 789 ! COUNT REMAINING OF TIMER QUEUE ENTRIES DECLARE LONG CONSTANT JPI$_EFWM = 790 ! EVENT FLAG WAIT MASK DECLARE LONG CONSTANT JPI$_EFCS = 791 ! LOCAL EVENT FLAGS 0-31 DECLARE LONG CONSTANT JPI$_EFCU = 792 ! LOCAL EVENT FLAGS 32-63 DECLARE LONG CONSTANT JPI$_PID = 793 ! PROCESS IDENTIFICATION DECLARE LONG CONSTANT JPI$_BYTLM = 794 ! BUFFERED I/0 BYTE COUNT LIMIT DECLARE LONG CONSTANT JPI$_PRCCNT = 795 ! SUBPROCESS COUNT DECLARE LONG CONSTANT JPI$_PRCNAM = 796 ! PROCESS NAME DECLARE LONG CONSTANT JPI$_TERMINAL = 797 ! LOGIN TERMINAL NAME DECLARE LONG CONSTANT JPI$_JOBPRCCNT = 798 ! TOTAL COUNT OF SUBPROCESSES IN A JOB DECLARE LONG CONSTANT JPI$_ENQCNT = 799 ! ENQUEUE COUNT REMAINING DECLARE LONG CONSTANT JPI$_ENQLM = 800 ! ENQUEUE COUNT LIMIT DECLARE LONG CONSTANT JPI$_SWPFILLOC = 801 ! SWAP FILE BACKING STORE ADDRESS DECLARE LONG CONSTANT JPI$_MODE = 802 ! MODE VALUE ( FROM STS ) - DEFINED ABOVE DECLARE LONG CONSTANT JPI$_JOBTYPE = 803 ! JOB TYPE CODE DECLARE LONG CONSTANT JPI$_PROC_INDEX = 804 ! PROCESS INDEX DECLARE LONG CONSTANT JPI$_MASTER_PID = 805 ! MASTER PROCESS PID DECLARE LONG CONSTANT JPI$_RIGHTSLIST = 806 ! PSB composite rights DECLARE LONG CONSTANT JPI$_CPU_ID = 807 ! CPU ID DECLARE LONG CONSTANT JPI$_STS2 = 808 ! Second process status longword DECLARE LONG CONSTANT JPI$_NODENAME = 809 ! Name of node on which process is running DECLARE LONG CONSTANT JPI$_NODE_CSID = 810 ! CSID of node on which process is running DECLARE LONG CONSTANT JPI$_NODE_VERSION = 811 ! VMS version of node on which process is running DECLARE LONG CONSTANT JPI$_TT_PHYDEVNAM = 812 ! Physical device name of terminal DECLARE LONG CONSTANT JPI$_TT_ACCPORNAM = 813 ! Access port name of terminal DECLARE LONG CONSTANT JPI$_PROCESS_RIGHTS = 814 ! PSB persona rights DECLARE LONG CONSTANT JPI$_SYSTEM_RIGHTS = 815 ! PSB system rights DECLARE LONG CONSTANT JPI$_IMAGE_RIGHTS = 816 ! PSB protected sub-system rights DECLARE LONG CONSTANT JPI$_RIGHTS_SIZE = 817 ! Approximate size ( in bytes ) of all PSB rights lists DECLARE LONG CONSTANT JPI$_CLASSIFICATION = 818 ! PSB current MAC classification DECLARE LONG CONSTANT JPI$_RMS_FILEPROT = 820 ! Process default file protection for RMS DECLARE LONG CONSTANT JPI$_MULTITHREAD = 821 ! Kernel threads - max thread count DECLARE LONG CONSTANT JPI$_KT_COUNT = 822 ! Kernel threads - thread count DECLARE LONG CONSTANT JPI$_INITIAL_THREAD_PID = 823 ! Kernel threads - initial thread PID DECLARE LONG CONSTANT JPI$_THREAD_INDEX = 824 ! Kernel threads - thread index DECLARE LONG CONSTANT JPI$_SCHED_CLASS_NAME = 843 ! Scheduling class name DECLARE LONG CONSTANT JPI$_CREATOR = 847 ! Epid of creator process ( Unix-style parent ) ! ADD NEW ITEM-CODES BEFORE THIS COMMENT DECLARE LONG CONSTANT JPI$_LASTPCB = 848 ! MAX INDEX IN PCB TABLE ! ITEM IDENTIFIERS FOR PHD DECLARE LONG CONSTANT JPI$_CURPRIV = 1024 ! CURRENT PROCESS PRIVILEGE MASK DECLARE LONG CONSTANT JPI$_WSAUTH = 1025 ! AUTHORIZED WORKING SET SIZE DECLARE LONG CONSTANT JPI$_WSQUOTA = 1026 ! QUOTA ON WORKING SET SIZE DECLARE LONG CONSTANT JPI$_DFWSCNT = 1027 ! DEFAULT WORKING SET SIZE DECLARE LONG CONSTANT JPI$_FREP0VA = 1028 ! FIRST FREE VIRTUAL ADDR. AT END OF P0 SPACE DECLARE LONG CONSTANT JPI$_FREP1VA = 1029 ! FIRST FREE ADDR. AT END OF P1 SPACE DECLARE LONG CONSTANT JPI$_DFPFC = 1030 ! DEFAULT PAGE FAULT CLUSTER DECLARE LONG CONSTANT JPI$_CPUTIM = 1031 ! ACCUMULATED CPU TIME DECLARE LONG CONSTANT JPI$_PRCLM = 1032 ! SUBPROCESS QUOTA DECLARE LONG CONSTANT JPI$_ASTLM = 1033 ! AST LIMIT DECLARE LONG CONSTANT JPI$_PAGEFLTS = 1034 ! COUNT OF PAGE FAULTS DECLARE LONG CONSTANT JPI$_DIRIO = 1035 ! PROCESS DIRECT I/O OPERATIONS DECLARE LONG CONSTANT JPI$_BUFIO = 1036 ! PROCESS BUFFERED I/O OPERATIONS DECLARE LONG CONSTANT JPI$_CPULIM = 1037 ! LIMIT ON CPUTIM FOR PROCESS DECLARE LONG CONSTANT JPI$_PGFLQUOTA = 1038 ! MAX. VIRTUAL PAGE COUNT DECLARE LONG CONSTANT JPI$_FILLM = 1039 ! OPEN FILE LIMIT DECLARE LONG CONSTANT JPI$_TQLM = 1040 ! TIMER QUEUE LIMIT DECLARE LONG CONSTANT JPI$_WSSIZE = 1041 ! CURRENT WORKING SET SIZE DECLARE LONG CONSTANT JPI$_AUTHPRIV = 1042 ! PSB authorized privilege mask DECLARE LONG CONSTANT JPI$_IMAGPRIV = 1043 ! PHD installed image permanent ( default ) privilege mask DECLARE LONG CONSTANT JPI$_PAGFILCNT = 1044 ! PAGES CHARGED TO PAGE FILE QUOTA DECLARE LONG CONSTANT JPI$_FREPTECNT = 1045 ! ROOM FOR EXPANSION OF P0 OR P1 SPACE DECLARE LONG CONSTANT JPI$_WSEXTENT = 1046 ! EXTENT OF WORKING SET SIZE DECLARE LONG CONSTANT JPI$_WSAUTHEXT = 1047 ! MAX EXTENT OF WORKING SET SIZE DECLARE LONG CONSTANT JPI$_AUTHPRI = 1048 ! AUTHORIZED PRIORITY FOR $SETPRI DECLARE LONG CONSTANT JPI$_PAGFILLOC = 1049 ! PAGE FILE BACKING STORE ADDRESS DECLARE LONG CONSTANT JPI$_IMAGECOUNT = 1050 ! IMAGE COUNTER ( CLOCKED BY RUNDOWN ) DECLARE LONG CONSTANT JPI$_PHDFLAGS = 1051 ! PROCESS HEADER FLAGS WORD DECLARE LONG CONSTANT JPI$_VP_CPUTIM = 1052 ! VECTOR CPU TIME DECLARE LONG CONSTANT JPI$_VP_CONSUMER = 1053 ! Flag -- is this process a vector consumer? ! ADD NEW ITEM-CODES BEFORE THIS COMMENT DECLARE LONG CONSTANT JPI$_LASTPHD = 1059 ! MAX INDEX IN PROCESS HEADER ! ITEM IDENTIFIERS FOR CONTROL REGION DECLARE LONG CONSTANT JPI$_VIRTPEAK = 512 ! PEAK VIRTUAL SIZE DECLARE LONG CONSTANT JPI$_WSPEAK = 513 ! PEAK WORKING SET SIZE DECLARE LONG CONSTANT JPI$_USERNAME = 514 ! PSB username string DECLARE LONG CONSTANT JPI$_ACCOUNT = 515 ! PSB account name string DECLARE LONG CONSTANT JPI$_PROCPRIV = 516 ! PSB permanent ( default ) privilege mask DECLARE LONG CONSTANT JPI$_VOLUMES = 517 ! VOLUMES MOUNTED DECLARE LONG CONSTANT JPI$_LOGINTIM = 518 ! TIME OF LOGIN OR PROCESS CREATION DECLARE LONG CONSTANT JPI$_IMAGNAME = 519 ! CURRENT IMAGE FILE NAME DECLARE LONG CONSTANT JPI$_SITESPEC = 520 ! PER-PROCESS SITE-SPECIFIC CELL DECLARE LONG CONSTANT JPI$_MSGMASK = 521 ! PROCESS DEFAULT MESSAGE FLAGS DECLARE LONG CONSTANT JPI$_CLINAME = 522 ! COMMAND LANGUAGE INTERPRETER NAME DECLARE LONG CONSTANT JPI$_TABLENAME = 523 ! COMMAND LANGUAGE INTERPRETER TABLE NAME DECLARE LONG CONSTANT JPI$_CREPRC_FLAGS = 524 ! $CREPRC FLAGS USED TO CREATE THIS PROCESS DECLARE LONG CONSTANT JPI$_UAF_FLAGS = 525 ! FLAGS FROM UAF RECORD DECLARE LONG CONSTANT JPI$_MAXDETACH = 526 ! MAXIMUM DETACHED PROCESSES FOR SINGLE USER DECLARE LONG CONSTANT JPI$_MAXJOBS = 527 ! MAXIMUM ACTIVE PROCESSES FOR SINGLE USER DECLARE LONG CONSTANT JPI$_SHRFILLM = 528 ! MAXIMUM OPEN SHARED FILES DECLARE LONG CONSTANT JPI$_FAST_VP_SWITCH = 529 ! NUMBER OF FAST VECTOR CONTEXT SWITCHES DECLARE LONG CONSTANT JPI$_SLOW_VP_SWITCH = 530 ! NUMBER OF SLOW VECTOR CONTEXT SWITCHES DECLARE LONG CONSTANT JPI$_LAST_LOGIN_I = 531 ! Last interactive login DECLARE LONG CONSTANT JPI$_LAST_LOGIN_N = 532 ! Last non-interactive login DECLARE LONG CONSTANT JPI$_LOGIN_FAILURES = 533 ! Number of login failures at login DECLARE LONG CONSTANT JPI$_LOGIN_FLAGS = 534 ! Miscellaneous login flags DECLARE LONG CONSTANT JPI$_RMS_DFMBC = 535 ! RMS default: multi-block count DECLARE LONG CONSTANT JPI$_RMS_DFMBFSDK = 536 ! " " multi-buffer count for disk ( SEQ ) DECLARE LONG CONSTANT JPI$_RMS_DFMBFSMT = 537 ! " " multi-buffer count for tape DECLARE LONG CONSTANT JPI$_RMS_DFMBFSUR = 538 ! " " multi-buffer count for unit record DECLARE LONG CONSTANT JPI$_RMS_DFMBFREL = 539 ! " " multi-buffer count for REL files DECLARE LONG CONSTANT JPI$_RMS_DFMBFIDX = 540 ! " " multi-buffer count for ISAM files DECLARE LONG CONSTANT JPI$_RMS_PROLOGUE = 541 ! " " prolog DECLARE LONG CONSTANT JPI$_RMS_EXTEND_SIZE = 542 ! " " file extend quantity DECLARE LONG CONSTANT JPI$_RMS_DFNBC = 543 ! " " network block count DECLARE LONG CONSTANT JPI$_RMS_DFLRL = 544 ! " " Heuristic default LRL DECLARE LONG CONSTANT JPI$_RMS_HEURISTIC = 545 ! " " Heuristic enable/disable setting ! ADD NEW ITEM-CODES BEFORE THIS COMMENT DECLARE LONG CONSTANT JPI$_LASTCTL = 552 ! MAX INDEX IN CONTROL REGION ! ITEM IDENTIFIERS FOR ADDRESS DATA DECLARE LONG CONSTANT JPI$_EXCVEC = 256 ! ADDRESS OF "EXCEPTION VECTOR" VECTOR DECLARE LONG CONSTANT JPI$_FINALEXC = 257 ! ADDRESS OF LAST CHANCE EXCEPTION VECTORS ! ADD NEW ITEM-CODES BEFORE THIS COMMENT DECLARE LONG CONSTANT JPI$_LASTADR = 258 ! MAX INDEX IN ADDRESS TABLE ! ITEM IDENTIFIERS FOR PCBFLD ! ADD ITEM-CODES BEFORE THIS COMMENT DECLARE LONG CONSTANT JPI$_LASTPCBFLD = 1280 ! MAX INDEX IN PCBFLD TABLE ! ITEM IDENTIFIERS FOR PHDFLD ! ADD ITEM-CODES BEFORE THIS COMMENT DECLARE LONG CONSTANT JPI$_LASTPHDFLD = 1536 ! MAX INDEX IN PHDFLD TABLE