Adding an ISPF Option to Invoke the BLSG Dialog Program

Figure 1 shows two lines added to the ISPF/PDF primary option menu, ISR@PRIM, to provide customized access to the IPCS primary option menu. The two lines are underlined in the figure to highlight their placement in the ISPF/PDF primary option menu. Note that the following selection is added to the part of the menu that ISPF displays on the user's screen:

%  I +IPCS        - IPCS problem analysis services

A corresponding line is added to the processing section of the menu. This line invokes the BLSG dialog program to start the IPCS dialog.

I,'PGM(BLSG) PARM(PANEL(BLSPPRIM)) NEWAPPL(BLSG) PASSLIB'

Figure 1. An ISPF Panel for Starting the IPCS Dialog through BLSG

%-----------------------  ISPF/PDF PRIMARY OPTION MENU  ------------------------
%OPTION  ===]_ZCMD                                                             +
%                                                          +USERID    - &ZUSER
%  0 +ISPF PARMS  - Specify terminal and user parameters   +T IME     - &ZTIME
%  1 +BROWSE      - Display source data or output listings +T ERMINAL - &ZTERM
%  2 +EDIT        - Create or change source data           +P F 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/E command or CLIST
%  7 +DIALOG TEST - Perform dialog testing
%  8 +
.LM UTILITIES- Perform library management utility functions
%  C +CHANGES     - Display summary of changes for this release
%  I +IPCS        - IPCS problem analysis services
%  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
  &ZSEL = TRANS( TRUNC (&ZCMD,'.')
                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)'
                C,'PGM(ISPTUTOR) PARM(ISR00005)'
                I,'PGM(BLSG) PARM(PANEL(BLSPPRIM)) NEWAPPL(BLSG) PASSLIB'
                T,'PGM(ISPTUTOR) PARM(ISR00000)'
              ' ',' '
                X,'EXIT'
                *,'?' )
  &ZTRAIL = .TRAIL
)END

After you have modified the panel, the user simply selects the option to invoke the IPCS dialog. See z/OS ISPF Planning and Customizing.