Mainframe Utility: PRSCREEN

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
            

1. Set up a PF key to the following string:

   PRINTLHI;TSO %PRSCREEN INIT;LIST KEEP;TSO %PRSCREEN

Note: Every environment in ISPF which maintains a separate profile
pool (e.g. FILE-AID, SDSF, etc.) will need to have this PF key set
individually.  I'm working on a way to update all of those
simultaneously, but have not written it yet.

2. Set up the PRINTIT utility for yourself.  The PRINTIT utility is
used by PRSCREEN to print your ISPF "list" dataset which contains
your screen image.  To set this up, type TSO PRINTIT on an ISPF
command line and press ENTER.  You will be presented with a screen
where you need to enter some information.

- There is some job card type information (e.g. Job Suffix, Job Type,
Job Class, etc.) which you need to fill in.  Once filled-in, it will
remain in your profile.
- Then you need to specify where you want your screen prints to be
sent.  By placing an "L" next to the destination you desire on the
PRINTIT screen and pressing ENTER, that will also be stored in your
profile.  You'll want to send it to an Landscape-oriented printer or
print form since the ISPF list dataset is wider than 80 characters. I
suggest the LOCIMPACT print configuration listed on the PRINTIT

screen, as this will give you "hilighting" as well.

Note: You'll have to do this in every environment as well, just like
the PF keys because of the different profile pools maintained by
products like SDSF and FILE-AID.

Ok, that's it.  Now, when you press the PF key you set above in ISPF,
your screen will be sent to your ISPF list dataset and your list
dataset will be sent to a printer.