Accessing DELTA IMS from an ISPF options menu

Accessing DELTA IMS 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 DELTA IMS:

Load library (ISPLLIB)
ISPF panel library (ISPPLIB)
ISPF message library (ISPMLIB)

Note

Consider the following points:
- Load modules DLATSS, DLAXTSO0, DLAXALB0, and DLASAUT0 can be invoked internally as unauthorized TSO commands. If you use a facility to restrict access to TSO commands, you need to add the restricted TSO commands to the appropriate tables or rules so that DELTA IMS users can access them.
- DELTA IMS supports the ISPF LIBDEF service for most functions. As a testing and migration aid, you can execute DLACI@00 in DLASAMP to dynamically invoke the ISPF interface without modifying your logon procedure.
There are additional tasks related to accessing DELTA IMS from an ISPF options menu. For more information, see Setting DELTA IMS default ISPF values.

The following figure shows a sample ISPF/PDF Primary Option Menu that has been modified to access DELTA IMS.

%-----------------------  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 IMS   - 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,'PANEL(DLAPI@00 NEWAPPL(DLA5)'
                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

Related topic

Adding DELTA IMS to TSO/ISPF

Accessing DELTA IMS from an ISPF options menu

Comments