Back To LeighWeb Mainframe Utilities Page

/**********************************************************************
/* UTILITY: GETOUTPT                                                  *
/* AUTHOR: DAVID LEIGH                                                *
/* FUNCTION: THIS CLIST READS THE SDSF HELD QUEUE FOR THE JOB NAME YOU*
/*           SPECIFY AND LOADS ALL THE SYSOUT FOR EACH JOB WITH THAT  *
/*           NAME, INTO A DATASET.                                    *
/**********************************************************************
PROC 1 JOBNAME PERMANENT EDIT BROWSE UTILITY(GETOUTPT)
/*** CHECK THE DEBUG SWITCH ***/
ISPEXEC VGET DBGSWTCH PROFILE
IF &DBGSWTCH = ON THEN +
    CONTROL MSG LIST CONLIST SYMLIST NOFLUSH NOPROMPT ASIS
ELSE +
    CONTROL NOMSG NOLIST NOFLUSH NOPROMPT ASIS


IF &PERMANENT = PERMANENT THEN SET VOLUME =
ELSE SET VOLUME = &STR(VOLUME(WRK$$$))
FREE DD(TEMPDD)
SET LP = &STR((
SET RP = &STR())
SET SYSOUTTRAP = 1000
CONTROL MSG
STATUS &JOBNAME
CONTROL NOMSG
SET SYSOUTTRAP = 0
SET X = &SYSOUTLINE
DO I = 1 TO &X
    SET SYSDVAL = &STR(&SYSNSUB(2,&&SYSOUTLINE&I))
    READDVAL PARM JOBNAME NULL
    IF &PARM = JOB THEN +
        DO
            SET A = &SYSINDEX(&STR(&LP),&STR(&JOBNAME))
            SET B = &SYSINDEX(&STR(&RP),&STR(&JOBNAME))
            SET NODEA = &SUBSTR(1:&A-1,&STR(&JOBNAME))
            SET NODEB = &SUBSTR(&A+1:&B-1,&STR(&JOBNAME))
            SET JOBDSN = &STR(&SYSUID..JES.SYSOUT.&NODEA..&NODEB)
            SET ZEDLMSG = &STR(*** LOADING "&JOBNAME" +
                               INTO "&JOBDSN" ***)
            ISPEXEC CONTROL DISPLAY LOCK
            ISPEXEC DISPLAY PANEL(MSGPANEL)
            DELETE '&JOBDSN'
            ALLOC DD(TEMPDD) DSN('&JOBDSN') +
                             NEW CATALOG &STR(&VOLUME) +
                             UNIT(SYSDA) &VOLUME +
                             SPACE(10,10) CYLINDERS RELEASE DSORG(PS) +
                             RECFM(F B A) LRECL(255) BLKSIZE(23460)
            FREE DD(TEMPDD)
            OUTPUT &JOBNAME PRINT('&JOBDSN') HOLD KEEP
        END
END

IF &EDIT = EDIT THEN ISPEXEC EDIT DATASET('&JOBDSN')
IF &BROWSE = BROWSE THEN ISPEXEC BROWSE DATASET('&JOBDSN')
EXIT