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
