On 5/20/2011 3:37 PM, Phil Smith wrote:
From a program, how can I find out the SYSOUT class of a JES-owned data set?
For example, given:
SYSOUT DD SYSOUT=x
How can a program find out what "x" is?
I'm including a copy of some code I've had for a while. It uses
local macros and subroutines, but should be pretty obvious.
LTCB R3,USE=YES
ICM R3,15,TCBJSCB
BZ POPNJCT
USING IEZJSCB,R3
ICM R3,15,JSCBJCT GET SVA ADDRESS OF JCT
DROP R3
SERVICE SWARL,(R3) GET THE SWA ADDRESS OF JCT
LR R3,R1 SAVE FOR LATER
MODESET KEY=ZERO GET AROUND FETCH PROTECT
LTR R3,R3 ANY JCT ADDRESS ?
BZ POPMNJCT NO
USING INJMJCT,R3 DECLARE IT
MVC PWSOUTCL,JCTJMGPO COPY MESSAGE CLASS
DROP R3
POPMNJCT SERVICE TIODD,PWDDNAM LOOK FOR DD CARD
BXH R15,R15,POPCSIOT NO SIOT
LR R1,R0 COPY TIOT ENTRY ADDRESS
SERVICE SIOTE,(R1) GET MATCHING SIOT ENTRY
BXH R15,R15,POPCSIOT
USING INDMSIOT,R1 DECLARE IT
MVC PWSOUTWT,SCTOUTNM COPY WRITER NAME
MVC PWSOUTFM,BLANKS PREPARE TRAILING BLANK FILL
MVC PWSOUTFM(L'SCTOUTNO),SCTOUTNO COPY FORM 'NUMBER'
CLI SCTOUTPN,C'*' USE MSGCLASS ?
BE POPMSIOT YES
MVC PWSOUTCL,SCTOUTPN COPY SYSOUT CLASS
POPMSIOT DS 0H
Gerhard Postpischil
Bradford, VT
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
