%¯¯¯¯¯¯¯¯¯¯¯  ISPF/PDF PRIMARY OPTION MENU  ¯¯¯¯¯¯¯¯¯¯¯¯
%OPTION  ===>_ZCMD                       			                                  +
++¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯***********************+
%   ISPF TOOLS+   % CA PRODUCTS+   % OTHER PRODUCTS+    +*                   +*
                                                        * USERID  - &ZUSER   +*
% 0+ISPF PARMS   %CA1+CA-1          %ST+STORGARD        * TIME    - &ZTIME   +*
% 1+BROWSE        %11+CA-11         %PR+PROWL           * DATE    - &ZDATE   +*
% 2+EDIT          % A+CA-ACTIVATOR  % $+$AVRS           * JULIAN  - &ZJDATE  +*
% 3+UTILITIES     %OP+CA-OPTII      %IP+IPCS            * TERMINAL- &ZTERM   +*
% 6+COMMAND       %PS+POOLDASD SIM  % P+PDS             * PF KEYS - &ZKEYS   +*
% 7+DIALOG TEST   % D+CA-DISPATCH   %FA+File-AID       +***********************+
% X+EXIT          %DA+CA-DASDCHECK  % V+VER MERGER     
% T+TUTORIAL      % J+JCL-CHECK     % O+OPS/MVS        
+                 % L+LIBRARIAN     %XP+XPEDITER 6.1   
+                 % M+MANAGER       %XX+ISMF           
                  %DV+docview                                                                                   
+¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯-
+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
&PROWL = ‘EX ‘’SYS2.PROWL.PAS.CLIST(PAS6)’’’
&STORGARD = ‘EX ‘’SYS1.STORGARD.EXECLIB2(STORGARD)’’’
&PLDSIM = ‘EX ‘’SYS2.PLDR331.SPFLIB(PLDC1000)’’’
&XPEDIT61 = ‘EX ‘’SYS2.XPEDITER.V6R1M0.CLIST(XPLIBDEF)’’’
&XPEDIT53 = ‘EX ‘’SYS1.XPEDITER.CLIST(XPLIBDEF)’’’

&ZQ = &Z
  IF (&ZCMD ^= ‘ ‘)
    &ZQ = TRUNC(&ZCMD,’.’)
    IF (&ZQ = ‘ ‘)
      .MSG = ISRU000
  &ZSEL = TRANS( &ZQ
      0,’PANEL(ISPOPTA)’                              /* ISPF PARMS  */
      1,’PGM(ISRBRO) PARM(ISRBRO01)’                  /* ISPF BROWSE */
     PR,’CMD(&PROWL)’
     ST,’CMD(&STORGARD)’
     PS,’CMD(&PLDSIM)’                               /* PLD SIMULATOR*/
     DV,’CMD(EX A143500.CLIST(DOCVIEW))’                 /* DOCVIEW  */
     XP,’CMD(&XPEDIT61)’                               /* XPEDITER   */
     XX,’PANEL(DGTSMMD2)’                              /*            */
      2,’PGM(ISREDIT) PARM(P,ISREDM01)’                 /* ISPF EDIT */
      3,’PANEL(ISRUTIL)’                           /* ISPF UTILITIES */
      4,’PANEL(ISRFPA)’             /* FORGROUND LANGUAGE PROCESSORS */
      5,’PGM(ISRJB1) PARM(ISRJPA) NOCHECK’    /*BATCH LANGUAGE PROC. */
      6,’PGM(ISRPTC)’                                /* TSO COMMANDS */
      7,’PGM(ISpYXDR) NOCHECK’                     /* DIALOG TESTING */
      8,’PANEL(ISRLPRIM)’                   /* LIBRARY ADMINISTRATER */
      9,’PANEL(ISRDIIS)’                             /* IBM PRODUCTS */
    CA1,’PGM(TMSIOPRI) NEWAPPL(TMS) NOCHECK ‘
     11,’PANEL(C11IMSTR)’                                 /* CA-11   */
      $,’PGM(ISP$AVRS) PARM(&ZCMD) NOCHECK NEWAPPL($AVR)’ /* $AVERS  */
      A,’PGM(CACTVATE) NEWAPPL(CACT)’                   /* ACTIVATOR */
  /* AP,’CMD(%APCDOC)’                                       APCDOC  */
      B,’CMD(BMSTART) NEWAPPL(BMII)’                      /* BLKMSTR */
     OP,’PANEL(CAOPNL00) NEWAPPL(CAOX)’                   /* OPTII   */
      D,’PANEL(UCFMENU) NEWAPPL(UCF)’                    /* DISPATCH */
     DA,’PANEL(DCR@PRIM)’                               /* DASDCHECK */
      F,’CMD(%L8DYN)’                                    /* FASTDASD */
     FA,’PANEL(DXSMAIN) NEWAPPL(DXP)’                    /* File-AID */
      I,’PANEL(CMO) NEWAPPL(CMO)’                         /* CMO     */
      IOF,’PGM(IOFSPF) PARM(&ZCMD) NEWAPPL(IOF) NOCHECK’  /* IOF     */
      IP,’CMD(%BLSCLIBD) NEWAPPL(BLSG) PASSLIB’           /* IPCS    */
      J,’CMD(%JCKSPF)’                                   /* JCLCHECK */
      L,’PANEL(LIBRPDF) newappl(lib@)’                  /* LIBRARIAN */
      M,’PGM(VOSSOP) NEWAPPL(VOS)’                        /* MANAGER */
      O,’CMD(SYS)’                               /*Prevail Automation*/
      P,’PANEL(PDS@PRIM)’                                 /* PDS 73  */
      S,’PGM(ZSDSFOPT2) NEWAPPL(ISF)’                     /* SDSF    */
      T,’PGM(ISPTUTOR) PARM(ISR00000)’                    /* TUTOR   */
      V,’PGM(PSVP0000) NEWAPPL(PSVM) NOCHECK PARM(Z=&ZCMD)’ /*VER MER*/
   VCFL,’PGM(VCF003IS) NEWAPPL(VCF)’                        /* VCF/L */
   VCFM,’PGM(VCF005ML) NEWAPPL(VCF)’                        /* VCF/M */
     XP,’PGM(ADSIS000)’                                 /* EXPEDITER */
              ‘ ‘,’ ‘
                X,’EXIT’
                *,’?’ )
 IF (&ZCMD = ‘S’)
     &ZSEL = ‘PGM(ISFISP) NOCHECK NEWAPPL(ISF)’
 IF (&ZCMD = ‘S.’)
     &ZSEL = ‘PGM(ISFISP) NOCHECK NEWAPPL(ISF)’
   &ZTRAIL = .TRAIL
)END