MVSFORUMS.com

vsathya

How can we get the Jobname within a program being executed by the job. Is there any registers that will hold his information and accessible by the program ?

The use of JCL parm or symbolics is ruled out for my specification.

bablack · Posted: Wed Aug 03, 2005 1:59 pm Post subject:

In assembler, it is very easy to get the jobname, but I have no idea how to get it in another language.

In assem, it is in the TIOT, which is pointed to by your TCB, which you can get from the PSA (low storage). Here is a code snip without macros, but I included the field names in case you want to include the proper IBM DSECTs.

L Rx,X'021C' L Rx,PASTOLD GET TCB ADDRESS
L Rx,12(Rx) L Rx,TCBTIO GET TIOT ADDRESS
MVC JOBNAME,0(Rx) MVC JOBNAME,TIOTNJOB GET JOBNAME
_________________
Bruce A. Black
Senior Software Developer
Innovation Data Processing

Bithead · Posted: Wed Aug 03, 2005 2:18 pm Post subject:

Perform a search on this site for "Gilbert Saint-Flour" and you will find this link

http://mvsforums.com/helpboards/viewtopic.php?t=1657&highlight=jobname