Accessing the products from an ISPF options menu

Accessing the products from an ISPF options menu requires that you pre-allocate the necessary ISPF data sets to the user.

You must add the following libraries to the TSO logon procedure for each user who requires access to the product(s):

  • Load library (ISPLLIB)

  • ISPF panel library (ISPPLIB)

  • ISPF message library (ISPMLIB)

  • ISPF table library (ISPTLIB)

The products contain a hidden panel that allows you to specify many ISPF default product values. The panel is located in member DLPZUSER of the DLPPLIB library. Review the member to customize the ISPF interface default values for the product. Comments are included in the member to assist you.

Note

You must change DLPZUSER if you are a licensed ETA customer and want to invoke the ETA CLIST from within DELTA PLUS. For the specific variable that you must change in DLPZUSER.

The following figure shows a sample ISPF/PDF Primary Option Menu with the modifications that are required to access DELTA PLUS or DELTA PLUS VIRTUAL TERMINAL.

Sample modifications to ISPF/PDF Primary Option Menu

%-----------------------  ISPF/PDF PRIMARY OPTION MENU  -----------------
%OPTION  ===>                                                           +
%
%   0 +ISPF PARMS  - Specify terminal and user parameters
%   1 +BROWSE      - Display source data or output listings
%   2 +EDIT        - Create or change source data
%   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
%   C +CHANGES     - Display summary of changes for this release
%   D +DELTA PLUS-   IMS DYNAMIC CHANGE FACILITY
%   Q +SDSF        - Spool Display and Search Facility
%   S +SMP/E       - New Version of SMP
%   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         */
)PROC
  &ZSEL = TRANS( TRUNC (&ZCMD,'.')
                0,'PANEL(ISPOPTA)'
                1,'PGM(ISRBRO)'
                2,'PGM(ISREDIT)'
                3,'PANEL(ISRUTIL)'
                4,'PANEL(ISRFPA)'
                5,'PGM(ISRJB1) PARM(ISRJPA) NOCHECK'
                6,'PANEL(ISRTSOT)'
                7,'PGM(ISRYXDR) NOCHECK'
                C,'PGM(ISPTUTOR) PARM(ISR00005)'
                D,'CMD(DLPEXEC MAIN) NEWAPPL(DLP) PASSLIB'      (DELTA PLUS)
OR
                D,'CMD(DLPEXEC MAIN DBCTL) NEWAPPL(DLP) PASSLIB'  (DELTA PLUS for DBCTL)
OR
                D,'CMD(DLPEXEC MAIN VT) NEWAPPL(DLP) PASSLIB   (DELTA PLUS VIRTUAL TERMINAL)
                Q,'PANEL(ZSDSFOPT) NEWAPPL(ISF)'
                S,'PGM(GIMISCV) PARM(&ZCMD) NEWAPPL(SMP2)'
                T,'PGM(ISPTUTOR) PARM(ISR00000)'
              ' ',' '
                X,'EXIT'
                *,'?' )
  &ZTRAIL = .TRAIL
  IF (&OPT = 'Q')


      &ZSEL = 'PGM(ISFISP) NOCHECK NEWAPPL(ISF)'
)END

Was this page helpful? Yes No Submitting... Thank you

Comments