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
