Back To LeighWeb Mainframe Utilities Page

/**********************************************************************
/* UTILITY: PRINTQ                                                    *
/* AUTHOR: DAVID LEIGH                                                *
/* FUNCTION: GO INTO SDSF AND LOOK AT THE OUTPUT QUEUE FOR A SPECIFIC *
/*           CLASS AND PRESET THE PREFIX TO "*"                       *
/**********************************************************************
PROC 1 SDSF_OUTPUT_CLASS
/*** 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 &STR(&SDSF_OUTPUT_CLASS) = HELP THEN GOTO HELPSEC
IF &STR(&SDSF_OUTPUT_CLASS) = ALL  THEN +
    SET SDSF_OUTPUT_CLASS =

ISPEXEC SELECT CMD(%SETVAR ISFPREFX ISF *)
ISPEXEC SELECT PGM(ISFISP) NOCHECK NEWAPPL(ISF) +
               PARM(O&SDSF_OUTPUT_CLASS)
ISPEXEC SELECT CMD(%SETVAR ISFPREFX ISF &STR(&SYSUID.*))

EXIT

HELPSEC: +
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL)
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR PRINTQ UTILITY +
                   *** NO PROCESSING PERFORMED ***)
ISPEXEC SETMSG MSG(UTLZ000)
EXIT