Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!gatech!cwjcc!tut.cis.ohio-state.edu!ucbvax!ODUVM.BITNET!NAD100T From: NAD100T@ODUVM.BITNET ("Nicholas A. D'Amato, Jr.", Tony) Newsgroups: comp.lang.asm370 Subject: Where is the job number? Message-ID: <8907171711.AA00950@lilac.berkeley.edu> Date: 17 Jul 89 17:13:23 GMT Sender: daemon@ucbvax.BERKELEY.EDU Reply-To: IBM 370 Assembly Programming Discussion List Distribution: inet Organization: The Internet Lines: 36 I'm trying to write a routine to return the current user's job name, job number, procedure and step names. I am able to find all but the job number with the following: L R4,16 CVT POINTER (CVTPTR) L R4,0(R4) NEXT AND CURR TCB (CVTTCBP) L R4,4(R4) CURRENT TCB USING TCB,R4 L R5,TCBTIO GET THE TIOT L R6,TCBJSCB GET THE JSCB USING TIOT,R5 USING JSCB,R6 MVC JOBNAME,TIOCNJOB CLC =CL8' ',TIOCSTEP+8 BLANKS? BE MVCSTEP THIS IS JOB STEP MVC PROCNAME(8),TIOCSTEP MVC STEPNAME(8),TIOCSTEP+8 B SKIP MVCSTEP DS 0H MVC STEPNAME(8),TIOCSTEP MVC PROCNAME(8),=CL8' ' SKIP DS 0H Is there anyone out there who can tell me where MVS stores the job number, if anywhere? I am willing to bounce down JES control blocks, if necessary. Thanks in advance! |========================================================================| | Nicholas A. (Tony) D'Amato, Jr. | Snail-Mail: Old Dominion University | | Computer Systems Engineer | Technical Support Group | | E-Mail: NAD100T@ODUVM.BITNET | Computer Services | | -or- nad100t@oduvm.cc.odu.edu | 128 Hughes Hall | | AT&T : (804) 683-3189 | Norfolk, VA 23529-0227 | | | Disclaimer: "I know nothing!" | |========================================================================|