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 <[email protected]> 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 <[email protected]> För Paul
> Gilmartin
> Skickat: den 11 januari 2021 17:07
> Till: [email protected]
> Ä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 [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
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
