xcall GETJOB, jobnam {,progrm}

xcall GETJOB, jobnam {,ppn, jobnum}

GETJOB.SBR 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.