Unfortunately the sample in the book doesn't really do what it says that it does, it sets up and does the call but they left the processing logic out.
I wish I had z/XDC, but I don't think I can afford it. Brian On Sun, 3 Aug 2025 00:24:14 -0500, Jon Perryman <[email protected]> wrote: >On Sat, 2 Aug 2025 23:32:23 -0500, Brian Westerman ><[email protected]> wrote: > >>i "think" that SSI 80 (extended status) would allow me to go through by >>owner/JOBNAME/JOBID >> >>Does anyone have an assembler program they can share with me that will help >>me figure this out? > >The sample is in the doc. I suspect you will also find it in JES2 samplib >(search for IAZSSST). If not, then copy / paste from the doc. The doc is >located at >https://www.ibm.com/docs/en/zos/3.1.0?topic=sfcd-extended-status-function-call-ssi-function-code-80 > >With the new details, this could be the solution you desire. I'm still making >assumptions. I quickly scanned the doc and here are my comments: > >IAZSSST is the mapping macro for extended status (SSI function code 80). Doc >says it's in SYS1.MACLIB. > >I suspect verbose request gives you the desired information. > >The doc says don't use SSI broadcast but ISSUED TO says broadcast is processed >by the primary JES. Primary JES will be the first SSCT entry typically named >JES2 or JES3. If I couldn't test with a secondary JES running, then I would >probably opt for directed to the first SSCT. > >Review the IAZSSST mapping macro for requirements and useful information. E.g. >specify min JES version, include special dsects or ???. It should contain >"POINTED BY" lists that will help you understand the chains. I suggest >creating a simple diagram as a reference. > >The DSN is available but requires parsing. STVSPRCD has the proc name. >STVSSTPD has the step name. STVSDDND has the DDN. Various tokens are available. > >I suggest that you test with a proc within a proc within another proc using >same named steps and steps at each proc level. Call the first proc twice and >make sure you can locate the desired DD. > >If you have z/XDC, then #DIE after the IEFSSREQ because you can display the >chained control blocks to understand the structures. If not, then insert >x'00DEAD00' and capture the S0C1 abend dump allowing you to use IPCS. I >suggest you create IPCS mapping or REXX to format the control blocks. If you >don't have such a tool, let us know. > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
