ISPFPAP-n-CLGLST

Overview

The CLGLST (ISPF v2.2 LOG / LIST alternative add-on) requires a task to execute after an ISPF user session is terminated (e.g. =X from ISPF) to process LOG and LIST datasets based on user set defaults.

With the introduction of ISPFPAP (ISPF Autoexec-type alternative add-on), the application offers consolidated launch (trigger) points for pre-ISPF and post-ISPF processing.

The CLGLST post-ISPF requirement can optionally be integrated into the ISPFPAP application.

This post illustrates the CLGLST post-ISPF integration details.

Set the Stage

Assumptions:

• MVS 3.8J TSO utilizes a logon procedure (e.g. TSOLOGON on TK3 and TK4- system versions)
• Additional logon processing is nested from the TSOLOGON procedure (e.g. USRLOGON, REVINIT )
• ISPF v2.2 runs under TSO
• ISPF v2.2 requires allocated datasets before invoking ISPF. Those allocation tasks and ISPF start-up command may be within the TSOLOGON procedure flow or a separate stand-alone procedure flow.

Integration Details

ISPF

-or-

CALL 'ISP.V2R2M0.LLIB(ISPF)

Whether using ISP.V2R2M0.CLIB(ISPLOGON) from ISPF v2.2 Installation Tape or your specific LOGON-type CLIST to initiate ISPF user sessions under MVS 3.8J TSO, eventually one of two commands are used to start ISPF under MVS 3.8J TSO.

ISPF is the word!

The use of ISPF offers more flexibility as it will not require modification when a new version of ISPF is installed.

Using the CALL command version requires a change to the PDS load library name when a new version of ISPF is installed.

With ISPFPAP, the original ISPF v2.2 start-up line command transforms into a series of three commands as shown below. The three highlighted ISPFPAP commands provide a facility for Pre-ISPF, ISPF startup, and Post-ISPF processing launch points. Each CLIST launch point can house commands to be executed at the select execution stage for ISPF v.2.2!

Snippet of ISPF Start-up Procedure





.
.
/********************************************************************/
/* Start ISPF V2.2                                                  */
/********************************************************************/
ISPF
.
.

Snippet of revised ISPF Start-up Procedure
.
. 
/********************************************************************/
/* Pre-ISPF Trigger                                                 */
/********************************************************************/
ISPF CMD(%ISPFPRE$ DOIT($#B))
 
/********************************************************************/
/* Start ISPF V2.2                                                  */
/********************************************************************/
ISPF
 
/********************************************************************/
/* Post-ISPF Trigger                                                */
/********************************************************************/
ISPF CMD(%ISPFPST$ DOIT($#E))
.
. 

As previously mentioned, CLGLST has a post-ISPF requirement to process user LOG and LIST datasets per installation instructions as shown in the following snippet.

Snippet of CLGLST Installation Document (README)
.
.
    b) Place the following command statements after the invocation of ISPF  
       as depicted below:
     
 
       1       10        20        30        40        50        60        70 
       ----+----+----+----+----+----+----+----+----+----+----+----+----+----+-
       /********************************************************************/
       /* POST-ISPF Processing                                             */
       /********************************************************************/
       /**********************************************/                        
       /* Process LOG and LIST Data sets             */                        
       /**********************************************/                        
       ISPF CMD(%CLOGLSTX)
.
.

ISPFPAP member ISPFPST$ (Post-ISPF Processing CLIST) is modified to include execution of %CLOGLSTX as shown in the below snippet. Note, the ISPEXEC SELECT service is utilized instead of command ISPF CMD as ISPF initiated command ISPFPST$ which now has access to TSO and ISPF services.

Snippet of member ISPFPST$
.
.
/*------------------------------------------------------------------*/
/* Place ISPF POST-processing commands after here...                */
/*------------------------------------------------------------------*/

                                                                      
/**********************************************/                      
/* Process LOG and LIST Data sets             */                      
/**********************************************/                      
/*ISPF CMD(%CLOGLSTX)                                                 
ISPEXEC SELECT CMD(%CLOGLSTX)                                         


/*------------------------------------------------------------------*/
/* Place ISPF POST-processing commands before here...               */
/*------------------------------------------------------------------*/
.
.

That’s it!

Closing

Please use the comment box below or the contact us link on the menu bar to communicate any suggestions, improvements, corrections or issues regarding this post.

Good luck,
Larry Belmontes