Accessing LOCAL COPY PLUS from an ISPF options menu

Accessing LOCAL COPY PLUS 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 LOCAL COPY PLUS:

Load library (ISPLLIB)
Panel library (ISPPLIB)
Message library (ISPMLIB)

Note

There are additional tasks related to accessing LOCAL COPY PLUS from an ISPF options menu. For more information, see Setting-LOCAL-COPY-PLUS-default-ISPF-values and Setting-LOCAL-COPY-PLUS-default-ISPF-IMSID-values.

The following figure shows a sample ISPF/PDF Primary Option Menu that has been modified to access LOCAL COPY PLUS.

%----------------------- 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
%   L +LOCAL COPY - IMS Broadcast, News and Copy 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)'
                L,'PANEL(LCPPS@00) NEWAPPL(LCP2)'
                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

Accessing LOCAL COPY PLUS from an ISPF options menu

On this page