IRXJCL did not work.
The problem is, I will have to have ISPF because I will be using
the ISPF Library management routines. This is why I have been
working with the TSO BATCH environment.
At another site where I worked, I wrote a system for generating
JCL to do compiles and deal with DB2 BIND, the translators, CICS,
DB2, PROCOBOL, IDMS, and COBOL, HLASM, C++, EZTRV, Linkedit(s) etc.
So this is not my first time doing this stuff.
Since I got the same -3 when I attempted to do a "LINK" within
REXX and the STEPLIB was missing the library that had the program
we wanted linked to, I figured that I must be missing a library
that contains LISTDSI.
So in Reading The Fine Manual (I went to a church college), I
removed the ADDRESS TSO and this is what we get:
34 *-* listdsi ('SYSUT1 FILE')
>>> "LISTDSI SYSUT1 FILE"
COMMAND LISTDSI NOT FOUND
+++ RC(-3) +++
Tomorrow is another day.
Steve Thompson
On 2/20/2023 4:10 PM, Mike Shaw wrote:
Steve,
If you change the EXEC statement to use PGM=IRXJCL instead of PGM=IKJEFT01
does the result change?
Mike Shaw
QuickRef Support
On Mon, Feb 20, 2023, 2:53 PM Steve Thompson <ste...@wkyr.net> wrote:
Thankfully this time I can show the code. One needs to
understand, sometimes I'm working on something for a client that
goes ape if I show their code without getting it in writing.
This is how the second step in a PROC is being done which is
where this code gets invoked:
//..... EXEC PGM=IKJEFT01,......
This is a capture of the code leading into the failure:
ADDRESS LINKMVS 'ISPQRY' /* Verify the ISPF environ */
xx = RC
IF xx > 0 THEN DO
SAY "ISPQRY did not find a valid ISPF envi
SAY "Migration System will terminate with
EXIT xx
END ; ELSE DO
SAY "ISPQRY found valid ISPF environment."
SAY "Migration System continues."
END
PARSE ARG UPPER COMMAND_LINE EXCESS
SAY "COMMAND_LINE=" COMMAND_LINE
SAY "EXCESS PARM =" EXCESS
ADDRESS TSO
listdsi 'SYSUT1 FILE'
XX = RC /* capture RC */
*XX is -3 when done. *
Meanwhile, anyone have a contact for the TSO-REXX list -- Any
email to any address at Marist for me is being rejected.
Steve Thompson
On 2/20/2023 12:29 PM, ITschak Mugzach wrote:
Show us you code.
בתאריך יום ב׳, 20 בפבר׳ 2023 ב-19:28 מאת Binyamin Dissen <
bdis...@dissensoftware.com>:
Does it work out of live ISPF?
If so, try running it with TRACE in both environments.
On Mon, 20 Feb 2023 11:30:27 -0500 Steve Thompson <ste...@wkyr.net>
wrote:
:>Interesting. I have started ISPF, and I have checked that ISPF is
:>active from my REXX code via ISPQRY and comes back with RC=0
:>(active).
:>
:>Later in REXX code I attempt to get INFO on a DD and that is when
:>LISTDSI returns -3.
:>
:>So apparently I need to concatenate some library and I don't have
:>any of the install stuff for this environment....
:>
:>I'm not sure that I have access to the CSIs because this is a
:>cloned system.
:>
:>Regards,
:>Steve Thompson
:>
:>On 2/20/2023 11:16 AM, Lars Höglund wrote:
:>> You have to start ISPF
:>>
:>> //BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128,
:>> // PARM='ISPSTART CMD(&ISPFREX &ISPFPRM)'
:>>
:>> //Lasse
:>>
:>> -----Ursprungligt meddelande-----
:>> Från: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> För
Steve Thompson
:>> Skickat: den 20 februari 2023 17:09
:>> Till: IBM-MAIN@LISTSERV.UA.EDU
:>> Ämne: Q: Where is LISTDSI kept?
:>>
:>> I'm trying to build a TSO BATCH environment and it needs to have the
ISPF Library functions in it.
:>>
:>> So I copied all the DDs that I needed via TSO ISRDDN against my TSO
address space.
:>>
:>> What I am now running into is REXX is giving me a -3 for LISTDSI!!
:>>
:>> Reminds me of the topic: How long for an experienced z/OS
sysprog...
:>>
:>> I do not have any documentation for this environment. It was thought
that I wouldn't need it. And it surprised me when using LISTDSI in batch
that it failed. So I've been trying to SRCHFOR LISTDSI under ISRDDN and
I
find text fields, nothing in alias...
:>>
:>> And since my IP address for my email is still being blocked at
Marist
(I have a call into them, have no idea when they will call back, and I
did
send an email to someone off line -- I'm wondering if they got that
email,
for running MTAs.... they will know what this is about).
:>>
:>> Bottom line is, I can't use TSO-REXX list for now.
:>>
:>> Steve Thompson
:>>
:>>
----------------------------------------------------------------------
:>> For IBM-MAIN subscribe / signoff / archive access instructions, send
email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
:>>
:>>
----------------------------------------------------------------------
:>> For IBM-MAIN subscribe / signoff / archive access instructions,
:>> send email to lists...@listserv.ua.edu with the message: INFO
IBM-MAIN
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
Regards, Steve Thompson
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
Regards, Steve Thompson
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
