On Tue, 1 Oct 2013 16:29:15 +0000, Rouse, Willie <[email protected]> wrote:
>Hello All, > >Is there a simple way to run ISPF DSLIST as a batch TSO job? > You can use this JCL as a template: (from http://www-01.ibm.com/support/docview.wss?uid=swg21023990) //USERAA JOB (ISPF),'ISPF USER',MSGCLASS=X, // CLASS=A,NOTIFY=&SYSUID //* //ISPFSTP EXEC PGM=IKJEFT01,DYNAMNBR=30,REGION=32M //ISPPROF DD RECFM=FB,LRECL=80,SPACE=(TRK,(2,2,2)) //ISPLLIB DD DSN=USERA.LOADLIB,DISP=SHR //ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR //ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR //ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR // DD DSN=ISP.SISPSLIB,DISP=SHR //ISPTLIB DD RECFM=FB,LRECL=80,SPACE=(TRK,(1,0,1)) // DD DSN=ISP.SISPTENU,DISP=SHR //ISPCTL1 DD SPACE=(CYL,1),RECFM=FB,LRECL=80 //ISPLOG DD SYSOUT=*,RECFM=FB,LRECL=133 //SYSEXEC DD DSN=ISP.SISPEXEC,DISP=SHR //SYSPROC DD DSN=ISP.SISPCLIB,DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSIN DD * ISPSTART CMD(ISPFCMD) Concatenate a PDS to SYSPROC and create a member with a CLIST similar to this one below and replace the CMD with the member name you create. I call mine DSLISTSV. Example - ISPSTART CMD(DSLISTSV L(hlq1.lvl2)) The list will be saved in userid.SAVE.DATASETS unless you change "G" from the sample CLIST below. PROC 0 L(&SYSUID) G(SAVE) /* */ /* Quick ISPF save of data set names. This is much quicker */ /* than using OPT 3.4, because it does not do an obtain */ /* for each data set in the list because of STATS(NO). */ /* The dsn created will be USERID.SAVE.DATASETS */ /* */ ISPEXEC CONTROL ERRORS RETURN ISPEXEC LMDINIT LISTID(LISTID) LEVEL(&L) ISPEXEC LMDLIST LISTID(&LISTID) OPTION(SAVE) STATS(NO) GROUP(&G) WRITE COMPLETE!! RETURN CODE WAS &LASTCC ISPEXEC LMDFREE LISTID(&LISTID) Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:[email protected] ITIL v3 Foundation Certified 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
