Include '($JPIDEF)' INTEGER SYS$GETJPI INTEGER SS$_NOMOREPROC /Z09A8/ INTEGER PCB$M_BATCH/Z00004000/ INTEGER PCB$M_NETWRK/Z00200000/ INTEGER PID_WILDCARD/-1/ INTEGER PIDinput INTEGER 1 CPUTIM, LOGINTIM(2), 2 PID, 3 STS, 4 GRP, 5 OWNER, 6 STATE, 7 GPGCNT, PPGCNT CHARACTER 3 PRCNAM*15, 4 TERMINAL*8, 5 USERNAME*12, 6 IMAGNAME*64 INTEGER 1 L_LOGINTIM /8/, 2 L_CPUTIM /8/, 3 L_PID /4/, 4 L_PRCNAM /15/, 5 L_STS /4/, 6 L_TERMINAL /8/, 7 L_GRP /4/, 8 L_USERNAME /12/, 9 L_IMAGNAME /64/, 1 L_OWNER /4/, 2 L_STATE /4/, 3 L_GPGCNT /4/, 4 L_PPGCNT /4/ INTEGER 1 RL_LOGINTIM, 2 RL_CPUTIM, 3 RL_PID, 4 RL_PRCNAM, 5 RL_STS, 6 RL_TERMINAL, 7 RL_GRP, 8 RL_USERNAME, 9 RL_IMAGNAME, 1 RL_OWNER, 2 RL_STATE, 3 RL_GPGCNT, 4 RL_PPGCNT INTEGER BL/0/, IC/1/, BA/1/, RL/2/ INTEGER*2 ITEM_LIST2(80) INTEGER ITEM_LIST(40) EQUIVALENCE (ITEM_LIST,ITEM_LIST2)