xcall GETJOB, jobnam {,progrm}
xcall GETJOB, jobnam {,ppn, jobnum}
GETJOB retrieves the jobname, plus optionally the program name or the PPN and job number.
Parameters
jobnam (String, 6)
program (String, 6)
ppn (B,2)
jobnum (B, any size 1-5)
Comments
Note that ppn can be mapped either as above or as:
MAP1 PPN
MAP2 P,B,1 ! project
MAP2 PN,B,1 ! programmer number
or
MAP1 PPN
MAP2 PROJ,S,3 ! for example, "001"
MAP2 PROG,S,3 ! for example, "004"
The latter format is preferable, since A-Shell supports decimal PPNs up to 999,999. If you use the B,1 format, you will be limited to octal PPNs update to 377,377.