'"ISPEXEC CONTROL ERRORS RETURN"' is just 'address ISPEXEC "CONTROL ERRORS RETURN"' with more overhead.
'"ADDRESS ISPEXEC CONTROL ERRORS RETURN"" is wrong because there is no ADDRESS command. '"CONTROL ERRORS RETURN"' is only valid in the ISPEXEC environment, which requires that you be running under ISPF. For debugging, display the environment. Any further analysis would require seeing your JCL and code. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Sean Gleann [sean.gle...@gmail.com] Sent: Monday, January 11, 2021 11:36 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members Jeremy - I tried variants of what you suggest, but all to no avail. "ISPEXEC CONTROL ERRORS RETURN" appears to be OK - at least, there's no error message. "ADDRESS ISPEXEC CONTROL ERRORS RETURN" results in IKJ56500I COMMAND ADDRESS NOT FOUND +++ RC(-3) +++ Splitting the command into two gives "ADDRESS ISPEXEC" IKJ56500I COMMAND ADDRESS NOT FOUND +++ RC(-3) +++ "CONTROL ERRORS RETURN" IKJ56500I COMMAND CONTROL NOT FOUND +++ RC(-3) +++ So I'm at a bit of a loss, really. RC(-3) is an environment problem, no? I'm trying to run the REXX in in a batch job with IKJEFT01. I've got DD statements for ISP[M,P,S,T,]LIB pointing at relevant datasets and a (now corrected) DD for ISPPROF, referring to a temporary file. A SYSEXEC DD points to the PDS containing my REXX program. For the SYSTSIN, I've got ISPSTART CMD(<name of rexx>) The next command in the REXX is "ISREDIT MACRO", but that leads back to the RC(20) situation "ISPEXEC CONTROL ERRORS RETURN" "ISREDIT MACRO" +++ RC(20) +++ Regards Sean On Mon, 11 Jan 2021 at 16:18, Lars Höglund <lars.hogl...@alecta.se> wrote: > Example of ISPF-proc > > //* PROC ISPFBAT > //ISPFBAT PROC > //* > //*-------------------------------------------------------------- > //* STEPNAME: CREPROF > //* STEPINFO: CREATE ISPPROF > //*-------------------------------------------------------------- > //CREPROF EXEC PGM=IEFBR14 > //ISPTLIB DD DISP=(NEW,PASS), > // SPACE=(TRK,(15,15,5)), > // LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB, > // DSN=&&ISPTLIB > //ISPTABL DD DISP=(NEW,PASS), > // SPACE=(TRK,(15,15,5)), > // LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB, > // DSN=&&ISPTABL > //* > //*-------------------------------------------------------------- > //* STEPNAME: BATCHPDF > //* STEPINFO: EXECUTE ISPF IN BATCH > //*-------------------------------------------------------------- > //BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128, > // PARM='ISPSTART CMD(&ISPFREX &ISPFPRM)' > //SYSEXEC DD DISP=SHR,DSN=YOUR.ISPEXEC <--- > // DD DISP=SHR,DSN=ISP.SISPEXEC > //SYSPROC DD DISP=SHR,DSN=ISP.SISPCLIB > //ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU > //ISPSLIB DD DISP=SHR,DSN=YUOR.ISPSLIB <--- > // DD DISP=SHR,DSN=ISP.SISPSLIB > // DD DISP=SHR,DSN=ISP.SISPSENU > //ISPMLIB DD DISP=SHR,DSN=YOUR.ISPMLIB <--- > // DD DISP=SHR,DSN=ISP.SISPMENU > // DD DISP=SHR,DSN=ISF.SISFMLIB > // DD DISP=SHR,DSN=SYSU.XMITIP.MSGS > //ISPLLIB DD DUMMY > //ISPPROF DD UNIT=WORK,SPACE=(TRK,(9,1,4)), > // LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PO > //ISPTABL DD DISP=(OLD,DELETE),DSN=&&ISPTABL > > Use of proc > > //S010 EXEC ISPFBAT, > // ISPFREX=ACCTCHGN, > // ISPFPRM='' > //BATCHPDF.SYSTSIN DD DUMMY > > > -----Ursprungligt meddelande----- > Från: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> För Paul > Gilmartin > Skickat: den 11 januari 2021 17:07 > Till: IBM-MAIN@LISTSERV.UA.EDU > Ämne: Re: Request for help with removing sequence numbers from PDS members > > On Mon, 11 Jan 2021 15:37:55 +0000, Sean Gleann wrote: > > >Many thanks to all who responded. > >I opted to adapt and (try to) use the REXX that Andy Styles gave, but > >I'm tripping up over something that has to be one of those 'simple, basic' > >things. > >The "ISPEXEC CONTROL ERRORS RETURN" command gives me RC(20) as a result. > >I think I've got to use an 'ADDRESS ISPEXEC' command or something like > >that at the start of the REXX, but attempts at variants of this give > >the same result. > > > You need to run your Rexx under ISPF, which implies you need to run under > TSO. > This can all be done in batch, with suitably complex DD statements. > > Otherwise, RC(20) > > -- gil > > ---------------------------------------------------------------------- > 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 > ---------------------------------------------------------------------- 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
