Return to Mainframe Utilities Page
Module
/********************************************************************** /* 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
Documentation
The PRINTQ utility accepts an argument of a 1 character output class and then takes you into the SDSF output ("O") screen for that specific class, with a job prefix of "*". When you "END" out of SDSF, it resets your SDSF job prefix to "youruserid*".