An example of a procedure I'm using when "advanced" ISPF is needed in batch:
//TSOICP PROC X=,S='*',S2='P',CMD='TIME',SYSPROC='SYSX.Y.CEXEC ', // STEPLIB='XXX.YYY.LOAD ',STEPLIB2='XXX.YYY.LOAD ',CMD2= //* //********************************************************************* //ALLOCI EXEC PGM=IEFBR14 //ISPPROF DD DSN=&&ISPPROF,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,1) //ISPPROF2 DD DSN=&&ISPPROF2,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,1) //SYSTSIN DD DSN=&&SYSTSIN,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,1) //CRETSIN EXEC PGM=SSPARM2, <== NOTE - a homegrown program to copy parm to a file // PARM='*ISPSTART LANG(CREX) BDISPMAX(99999) NEWAPPL(ISR) +*' //PARMSUT DD DSN=&&SYSTSIN,DISP=(,PASS), // DCB=(RECFM=FB,LRECL=80),SPACE=(TRK,(1)) //CRETSIN2 EXEC PGM=SSPARM2, // PARM=&X'¤CMD(&CMD&CMD2)¤' //PARMSUT DD DSN=&&SYSTSIN,DISP=(MOD,PASS) //CREPROF EXEC PGM=IEBCOPY //SYSUT2 DD DSN=&&ISPPROF,DISP=(,PASS), // DCB=(XXX.ISPF.ISPPROF,DSORG=PO), // SPACE=(CYL,(1,5,30)),DSNTYPE=PDS //SYSUT1 DD DISP=SHR,DSN=XXX.ISPF.ISPPROF <== NOTE //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,5)) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(5,5)) //SYSPRINT DD SYSOUT=&S2 //CREPROF2 EXEC PGM=IEBCOPY //SYSUT2 DD DSN=&&ISPPROF2,DISP=(,PASS), // LRECL=80,RECFM=FB,DSORG=PO, // SPACE=(CYL,(1,5,30)),DSNTYPE=PDS //SYSUT1 DD DISP=SHR,DSN=XXX.ISPF.ISPPROF <== NOTE //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,5)) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(5,5)) //SYSPRINT DD SYSOUT=&S2 //********************************************************************* //GO EXEC PGM=IKJEFT01,DYNAMNBR=1100 //STEPLIB DD DISP=SHR,DSN=&STEPLIB..A.TSOLOAD // DD DISP=SHR,DSN=&STEPLIB2..A.LOAD // DD DISP=SHR,DSN=XXX.YYY.LOAD //SYSPROC DD DISP=SHR,DSN=&SYSPROC..EXEC.REXX // DD DISP=SHR,DSN=SYSX.Y.CEXEC // DD DISP=SHR,DSN=SYSX.Y.REXX // DD DISP=SHR,DSN=ZZZ.Y.CEXEC // DD DISP=SHR,DSN=ZZZ.Y.REXX // DD DISP=SHR,DSN=ZZZ.Y.CLIB // DD DISP=SHR,DSN=ISP.Y.REXX // DD DISP=SHR,DSN=ISP.Y.CLIB //SYSEXEC DD DISP=SHR,DSN=&SYSPROC..EXEC.REXX // DD DISP=SHR,DSN=SYSX.Y.CEXEC // DD DISP=SHR,DSN=SYSX.Y.REXX // DD DISP=SHR,DSN=ZZZ.Y.CEXEC // DD DISP=SHR,DSN=ZZZ.Y.REXX // DD DISP=SHR,DSN=ISP.Y.REXX //ISPPROF DD DSN=&&ISPPROF,DISP=(OLD,DELETE) <== NOTE //ISPTLIB DD DSN=&&ISPPROF2,DISP=(OLD,DELETE) <== NOTE - different // DD DISP=SHR,DSN=ZZZ.Y.TLIB // DD DISP=SHR,DSN=ISP.Y.TLIB //ISPPLIB DD DISP=SHR,DSN=ZZZ.Y.PLIB // DD DISP=SHR,DSN=ISP.Y.PLIB //ISPMLIB DD DISP=SHR,DSN=ISP.Y.MLIB //ISPSLIB DD DISP=SHR,DSN=ZZZ.Y.SLIB // DD DISP=SHR,DSN=ISP.Y.SLIB //ISPLOG DD SYSOUT=&S2,DCB=(RECFM=VA,LRECL=125,BLKSIZE=129) //ISPLIST DD SYSOUT=&S2,DCB=(RECFM=FA,LRECL=121,BLKSIZE=121) //SYSOUT DD SYSOUT=&S //SYSTSPRT DD SYSOUT=&S //SYSTSIN DD DSN=&&SYSTSIN,DISP=(OLD,DELETE) //SYSUDUMP DD SYSOUT=8,HOLD=YES The members in XXX.ISPF.ISPPROF: ISPPROF ISPSPROF ISRJLIST ISRLLIST ISRPLIST ISRPROF ISRRLIST Best Regards, Thomas Berg ___________________________________________________________________ Thomas Berg Specialist zOS/RQM/IT Delivery Swedbank AB (Publ) > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of > Charles Mills > Sent: Saturday, December 13, 2014 1:37 AM > To: [email protected] > Subject: Re: IKJ56500I COMMAND OPUTX NOT FOUND > > Grrr. No effect. > > Charles > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Throckmorton, Scott S [IT] > Sent: Friday, December 12, 2014 4:25 PM > To: [email protected]<mailto:[email protected]> > Subject: Re: IKJ56500I COMMAND OPUTX NOT FOUND > > Add ISPTABL alloc also? > > //ISPTABL DD UNIT=VIO,SPACE=(TRK,(5,5,3)), > // DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000) > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected]<mailto:[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
