procedure name not available but
*------------------------------------------------
GET_SSIBJBID DS 0H jobnumber
L R1,16 -->CVT
USING CVT,R1
L R1,CVTTCBP -->TCB words
DROP R1
L R1,4(R1) -->current TCB
USING TCB,R1
L R1,TCBJSCB -->JSCB
DROP R1
USING IEZJSCB,R1
L R1,JSCBSSIB -->SSIB
DROP R1
USING SSIB,R1
LA R15,SSIBJBID
DROP R1
LA R0,L'SSIBJBID
BR R14
*------------------------------------------------
GET_TIOCNJOB DS 0H jobname
ICM R1,15,@TIOT
JNZ GET_TIOCNJOB1
EXTRACT MF=(E,@EXTRACT)
L R1,@TIOT
GET_TIOCNJOB1 DS 0H
USING TIOT1,R1
LA R15,TIOCNJOB
DROP R1
LA R0,L'TIOCNJOB
BR R14
*-----------------------------------------------------
GET_TIOCSTEP1 DS 0H stepname if no proc
ICM R1,15,@TIOT procstepname
JNZ GET_TIOCSTEP1A
EXTRACT MF=(E,@EXTRACT)
L R1,@TIOT
GET_TIOCSTEP1A DS 0H
USING TIOT1,R1
LA R15,TIOCSTEP
DROP R1
LA R0,8
BR R14
*-----------------------------------------------------
GET_TIOCSTEP2 DS 0H stepname if proc
ICM R1,15,@TIOT
JNZ GET_TIOCSTEP2A
EXTRACT MF=(E,@EXTRACT)
L R1,@TIOT
GET_TIOCSTEP2A DS 0H
USING TIOT1,R1
LA R15,TIOCSTEP+8
DROP R1
LA R0,8
BR R14
******************************************************
From: Elardus Engelbrecht <elardus.engelbre...@sita.co.za>
To: IBM-MAIN@bama.ua.edu
Date: 07/29/2010 03:12 PM
Subject: Re: Finding the procedure name from a program
Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
Bruce Richardson wrote:
>I'm looking for the control block and field name that contains the name
of the
procedure (or the member name of the PROCLIB) used in a step.
>I have an assemble program that displays the following for a job step:
>JobName, StepName, ProcStep, ProgramName, UserID
JobName - From SMF Common Area
UserID - From ACEEUSRI
The rest I *think* you would have to look at JES2 macros. I'm not sure.
ProgramName - Please clarify this one? From JCL or from the very first
module
in the address space?
>And I would really like to round out the information with the ProcName.
Interesting. Tell us if you get some info about this one.
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
-----------------------------------------
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom
it is addressed. If the reader of this message is not the intended
recipient or an agent responsible for delivering it to the intended
recipient, you are hereby notified that you have received this
communication in error and that any review, dissemination, copying,
or unauthorized use of this information, or the taking of any
action in reliance on the contents of this information is strictly
prohibited. If you have received this communication in error,
please notify us immediately by e-mail, and delete the original
message. Thank you
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
