Back To LeighWeb Mainframe Utilities Page
View the documentation associated with this module
PROC 0 INIT HELP
/**********************************************************************
/* UTILITY: PRSCREEN *
/* AUTHOR: DAVID LEIGH *
/* FUNCTION: THIS CLIST ALLOWS THE USER TO SET UP A PF KEY LIKE: *
/* PRINT;TSO %PRSCREEN INIT;LIST KEEP;TSO %PRSCREEN *
/* AND HIT THAT PFKEY IN ISPF AND HAVE THEIR SCREEN PRINTED.*
/**********************************************************************
/*** CHECK THE DEBUG SWITCH ***/
ISPEXEC VGET DBGSWTCH PROFILE
IF &DBGSWTCH = ON THEN +
DO
SET DEBUG = DEBUG
CONTROL MSG LIST CONLIST SYMLIST NOFLUSH NOPROMPT ASIS
END
ELSE +
DO
SET DEBUG =
CONTROL NOMSG NOLIST NOFLUSH NOPROMPT ASIS
END
IF &HELP = HELP THEN GOTO HELPSEC
/**********************************************************************
/* INIT PROCESSING: GET THE CURRENT LIST DATASET NAME *
/**********************************************************************
IF &INIT = INIT THEN +
DO
ISPEXEC VGET ZLSTNAME SHARED
SET XLSTNAME = &STR(&ZLSTNAME)
ISPEXEC VPUT XLSTNAME SHARED
EXIT
END
/***********************************************************************
/* STANDARD PROCESSING: PRINT THE LIST DATASET *
/***********************************************************************
ISPEXEC VGET XLSTNAME SHARED
ISPEXEC SELECT CMD(%PRINTIT PDSN(&STR(&XLSTNAME)) BATCH &DEBUG)
EXIT
/***********************************************************************
/* HELP SECTION *
/***********************************************************************
HELPSEC: + 02480000
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL) 02490000
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR PRSCREEN UTILITY + 02490000
*** NO PROCESSING PERFORMED ***) 02490000
ISPEXEC SETMSG MSG(UTLZ000) 02490000
EXIT
|
