Mark, Thanks for the info!!
Respectfully, Willie C. Rouse Senior Mainframe Consultant Prince George's County, Maryland Office of Information Technology 9201 Basil Court/ Room B8 Largo, MD 20774 Voice: 301-883-7189 Fax: 301-883-3790 -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mark Zelden Sent: Tuesday, October 01, 2013 1:23 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DSLIST in BATCH On Tue, 1 Oct 2013 16:29:15 +0000, Rouse, Willie <wro...@co.pg.md.us> 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:m...@mzelden.com 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 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
