Setting up the ISPF interface for DB Historical Data Analyzer

The ISPF interface of the DB Historical Data Analyzer utility must be customized before it can be used.

Procedure

Complete these steps to set up the DB Historical Data Analyzer ISPF interface:

Modify the logon procedure.
1. Ensure that the Graphical Data Display Manager (GDDM) library can be accessed as a PDS library by the TSO terminal user.
  Unless the GDDM target library is specified as a link library, you must change the existing, or define a new, TSO logon procedure to contain a STEPLIB DD statement that refers to the GDDM program library (GDDMLOAD). For more information, see the GDDM products documentation.
2. Concatenate the IMS HP Pointer Checker data sets for panels and messages with the corresponding ISPF/PDF data sets. Also, allocate the IMS HP Pointer Checker data set for programs in the ISPF link library (ddname ISPLLIB) in your TSO logon procedure.
  For example, specify as follows:
```
//ISPMLIB   DD DSN=HPS.SHPSMLIB,DISP=SHR
//             DSN=ISP.SISPMENU,DISP=SHR
//ISPPLIB   DD DSN=HPS.SHPSPLIB,DISP=SHR
//             DSN=ISP.SISPMENU,DISP=SHR
//ISPLLIB   DD DSN=HPS.SHPSLMD0,DISP=SHR 
```
3. If you use ISPPALT and ISPMALT for DBCS, allocate the IMS HP Pointer Checker data set to ISPPALT and ISPMALT.
For more information about ISPF, see the z/OS® ISPF User's Guide, Volume 1.

You can also allocate these data sets by coding appropriate TSO ALLOCATE commands. By using this method, you do not need to modify your TSO logon procedure. In this case, you must allocate the data sets before you invoke ISPF.
Modify the command list (CLIST).
DB Historical Data Analyzer provides a sample command list (CLIST) to allocate data sets and to invoke DB Historical Data Analyzer. This sample CLIST is named FABGCMD0 and is provided in the SHPSCLIB data set. For FABGCMD0, see Figure 1. You might need to copy this sample CLIST to your command procedure data set, and modify it to meet your installation requirements.

Modify the ISPF/PDF Primary Option Menu panel.

You can modify the ISPF Primary Option Menu panel (ISR@PRIM) to add an entry so that you can invoke DB Historical Data Analyzer by a selection code.

The following sample ISPF Primary Option Menu has been modified to invoke DB Historical Data Analyzer by selecting option D. This option starts processing by invoking a command procedure. The FABGCMD0 CLIST can be used to start the dialog processing.

%-----------------------  ISPF/PDF PRIMARY OPTION MENU  ------------------------
%OPTION  ===>_ZCMD                                                             +
%                                                           +USERID   - &ZUSER
%   0 +ISPF PARMS  - Specify terminal and user parameters   +TIME     - &ZTIME
%   1 +BROWSE      - Display source data or output listings +TERMINAL - &ZTERM
%   2 +EDIT        - Create or change source data           +PF KEYS  - &ZKEYS
%   3 +UTILITIES   - Perform utility functions
%   4 +FOREGROUND  - Invoke language processors in foreground
%   5 +BATCH       - Submit job for language processing
%   6 +COMMAND     - Enter TSO command or CLIST
%   7 +DIALOG TEST - Perform dialog testing
%   8 +LM UTILITIES- Perform library administrator utility functions
%   9 +IBM PRODUCTS- Additional IBM program development products
%   C +CHANGES     - Display summary of changes for this release 
%   D +DBHDA       - Invoke DB Historical Data Analyzer dialog 
%   T +TUTORIAL    - Display information about ISPF/PDF
%   X +EXIT        - Terminate ISPF using log and list defaults
%
+Enter%END+command to terminate ISPF.
%
)INIT
  .HELP = ISR00003
  &ZPRIM = YES        /* ALWAYS A PRIMARY OPTION MENU      */
  &ZHTOP = ISR00003   /* TUTORIAL TABLE OF CONTENTS        */
  &ZHINDEX = ISR91000 /* TUTORIAL INDEX - 1ST PAGE         */
  VPUT (ZHTOP,ZHINDEX) PROFILE
)PROC
&ZQ = &Z
  IF (&ZCMD ¬= ’ ’
    &ZQ = TRUNC(&ZCMD,’.’)
    IF (&ZQ = ’ ’
      .MSG = ISRU000
   &ZSEL = TRANS( &ZQ
                 0,’PANEL(ISPOPTA)’
                 1,’PGM(ISRBRO) PARM(ISRBRO01)’
                 2,’PGM(ISREDIT) PARM(P,ISREDM01)’
                 3,’PANEL(ISRUTIL)’
                 4,’PANEL(ISRFPA)’
                 5,’PGM(ISRJB1) PARM(ISRJPA) NOCHECK’
                 6,’PGM(ISRPTC)’
                 7,’PGM(ISRYXDR) NOCHECK’
                 8,’PANEL(ISRLPRIM)’
                 9,’PANEL(ISRDIIS)’
                 C,’PGM(ISPTUTOR) PARM(ISR00005)’
                 D,’CMD(FABGCMD0)’
                 T,’PGM(ISPTUTOR) PARM(ISR00000)’
               ’ ’,’ ’
                 X,’EXIT’
                 *,’?’ )
   &ZTRAIL = .TRAIL 
 )END