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
