What about this: //JS010 EXEC PGM=SDSF //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //SYSIN DD DUMMY //FILEOUT DD DSN=xxxx.xxxx.SEARCH,DISP=(,CATLG,DELETE), // UNIT=3390,SPACE=(CYL,(10,1)), // DCB=(RECFM=FB,LRECL=134,BLKSIZE=0) //*ISFOUT DD SYSOUT=* //ISFOUT DD DUMMY //ISFIN DD * PREFIX CICS* DA F 'CICSPXX1' ++? F 'JESMSGLG' ++S PRINT FILE FILEOUT PRINT DA F 'CICSPXX2' ++? F 'JESMSGLG' ++S PRINT FILE FILEOUT PRINT DA F 'CICSPXX3' ++? F 'JESMSGLG' ++S PRINT FILE FILEOUT PRINT DA F 'CICSPXX4' ++? F 'JESMSGLG' ++S PRINT FILE FILEOUT PRINT DA F 'CICSPXX5' ++? F 'JESMSGLG' ++S PRINT FILE FILEOUT PRINT DA F 'CICSPXX6' ++? F 'JESMSGLG' ++S PRINT FILE FILEOUT PRINT PRINT CLOSE //*
This prints the JESMSGLG put you could change that to JESJCL. Thanks -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Thursday, August 16, 2018 9:21 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES2 Spool Data Set Browse (SDSB) sample A short answer is check out the SSI (Subsystem Interface) manual. Not for the feint-hearted. Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Chris Cantrell Sent: Thursday, August 16, 2018 8:45 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: JES2 Spool Data Set Browse (SDSB) sample Does anyone have a somple program which reads the currently running jobs JCL using the Spool Data Set Browse (SDSB) function? I would be extremely greatful in anyone could post a sample! Thanks! ---------------------------------------------------------------------- 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 *** Disclaimer *** This communication (including all attachments) is solely for the use of the person to whom it is addressed and is a confidential AAA communication. If you are not the intended recipient, any use, distribution, printing, or copying is prohibited. If you received this email in error, please immediately delete it and notify the sender. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
