FWIW You can specify ISPPROF as either
'//ISPPROF DD SPACE=(TRK,(1,1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)'
or as
'//ISPPROF DD LIKE=userid.ISPF.ISPPROF'
without preallocating and then deleting it.
Mark Zelden wrote:
On Thu, 24 Jul 2014 19:36:30 +0000, Nims,Alva John (Al) <[email protected]> wrote:
Originally I was going to say use Mark's MVS Utility (http://mzelden.com/mvsutil.html) , FINDMOD, but it requires ISPF.
You could get from the CBTTAPE (www.cbttape.org) FILE 311, there is a FINDMOD assembler program that will do the search.
Running ISPF in batch is simple. Best to allocate a temp profile...
//ALOCPROF EXEC PGM=IEFBR14
//PROFILE DD UNIT=SYSALLDA,DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1,5)),DCB=(LRECL=80,
// BLKSIZE=0,DSORG=PO,RECFM=FB),
// DSN=userid.ISPF.TEMPPROF
//*-------------------------------------------------------------------*
//* Invoke ISPF *
//*-------------------------------------------------------------------*
//BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128
//ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSLIB
// DD DISP=SHR,DSN=ISP.SISPSENU
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPROF DD DSN=userid.ISPF.TEMPPROF,DISP=(OLD,DELETE)
//ISPTABL DD DSN=userid.ISPF.TEMPPROF,DISP=OLD
//ISPTLIB DD DSN=userid.ISPF.TEMPPROF,DISP=OLD
// DD DISP=SHR,DSN=ISP.SISPTENU
//ISPLOG DD SYSOUT=*,DCB=(LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//SYSEXEC DD DISP=SHR,DSN=ISP.SISPEXEC
//SYSPROC DD DISP=SHR,DSN=ISP.SISPCLIB
// DD DISP=SHR,DSN=userid.SYSPROC
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE PREFIX(userid)
ISPSTART CMD(%FINDMOD abc*) NEWAPPL(ISR)
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:[email protected]
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
Systems Programming expert at http://search390.techtarget.com/ateExperts/
----------------------------------------------------------------------
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
