xcall PLYJOB, jobno, job'stats
PLYJOB is similar to GETJTB in that it returns most of the information related to your job in a single operation. The main reason it is included in addition to GETJTBxs is for PolyTrack programmers who may already be using the routine, and for anyone who may be using the MicroSabio routine JOBPARxs (which is basically the same thing and can be aliased to PLYJOB using the alias facility in miame.ini). PLYJOBxs does have one feature that GETJTBxs does not: the ability to retrieve information about a job other than the current one. The amount of information that can be retrieved in this way is limited to job name, program name, ppn, and username, but that is still very useful in situations where you want to match a job number up with a job name.
Parameters
jobno (2-byte binary) [in/out]
If zero, information is returned about the current job, otherwise about the job whose number is specified.
job'stats
mapped as follows:
MAP1 JOB'TABLE ! 87 byte area
MAP2 LOG'DEV,s,3 ! Device name
MAP2 LOG'LUN,s,3 ! Logical unit
MAP2 PROJECT,s,3 ! Project number (p,pn)
MAP2 PROGRMR,s,3 ! Programmer number
MAP2 PARTITION,s,6 ! Job name
MAP2 PROG'ID,s,6 ! Program name
MAP2 TERM'NAME,s,6 ! Trmdef name
MAP2 TERM'DRVR,s,6 ! Terminal driver
MAP2 INTERFACE,s,6 ! IDV name
MAP2 JOB'NBR,s,3 ! Job number
MAP2 JOB'TYPE,b,2 ! Job type flags
MAP2 CMDFIL,b,2 ! Nonzero=command file
MAP2 JOBPPN,b,2 ! P,PN as binary
MAP2 JOBEXP,b,1 ! Job experience
MAP2 JOBLVL,b,1 ! Job level
MAP2 JOBUID,s,3 ! Numeric portion of username
MAP2 JOBUSN,s,20 ! Job user name
MAP2 JOBCPU,b,4 ! CPU time
MAP2 JOBDSR,b,4 ! Disk reads
MAP2 JOBDSW,b,4 ! Disk writes
MAP2 JOBATT,s,6 ! Parent job name
MAP2 JOBSTS,b,2 ! Job status
MAP2 TRKVER,s,3 ! Tracker version [22C]
Several of the fields above are only applicable under the AMOS version of PLYJOB, including JOBCPU, JOBDSR, JOBDSW, JOBATT, JOBEXP, and JOBLVL.
