)ATTR DEFAULT(%+_)
/***************************  REXX  ***************************/
/*     (c)  Copyright   Roger Lacroix   1995                  */
/*                                                            */
/* Designed, developed and programmed by Roger Lacroix        */
/**************************************************************/
/*  % TYPE(TEXT) INTENS(HIGH)      defaults displayed for     */
/*  + TYPE(TEXT) INTENS(LOW)       information only           */
/*  _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT)            */
  ! TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) CAPS(OFF)
  $ TYPE(TEXT) INTENS(HIGH) COLOR(PINK)
  @ TYPE(TEXT) INTENS(LOW) color(turq)
  ª TYPE(TEXT) INTENS(HIGH) COLOR(BLUE)
  } area(dynamic)
    ~ type(dataout) intens(low) COLOR(GREEN)
    = type(dataout) intens(high)
    { type(dataout) intens(high) hilite(reverse)
)BODY EXPAND(||)
%-|-| ISPF/PDF Primary Option Panel |-|-
%OPTION  ===>_ZCMD                                                             +
%
%   0 +ISPF PARMS   - Specify terminal and user parms.      @Userid   -+&ZUSER
%   1 +BROWSE       - Display source data or listings       @Sysid    -+&ZSYSID
%   2 +EDIT         - Create or change source data          @Time     -+&ZTIME
%   3 +UTILITIES    - Perform utility functions             @Julian   -+&ZJDATE
%   4 +FOREGROUND   - Invoke lang. processor in foreground
%   5 +BATCH        - Submit job for language processing  !tmonth   +     !year
%   6 +COMMAND      - Enter TSO command or CLIST          $Su Mo Tu We Th Fr Sa
%   7 +DIALOG TEST  - Perform dialog testing              }outmonth           }
%   8 +SDSF%(S)+    - System Display and Search Facility  }                   }
%   T +TUTORIAL     - Display information about ISPF/PDF  }                   }
%   X +EXIT         - Terminate ISPF                      }                   }
%                                                         }                   }
%   A +Application  - Application Products                }                   }
%   G +General Util - General Utility Products
%   SY+Systems      - Systems Support Products
+
)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
  &tmonth='January'
  if (&outdate ª= &zdate)
     &zcmd = 'calendar'
     .resp = enter
  if (&month = 1)
     &tmonth='January'
  else
     if (&month = 2)
        &tmonth='February'
     else
        if (&month = 3)
           &tmonth='March'
        else
           if (&month = 4)
              &tmonth='April'
           else
              if (&month = 5)
                 &tmonth='May'
              else
                 if (&month = 6)
                    &tmonth='June'
                 else
                    if (&month = 7)
                       &tmonth='July'
                    else
                       if (&month = 8)
                          &tmonth='August'
                       else
                          if (&month = 9)
                             &tmonth='September'
                          else
                             if (&month = 10)
                                &tmonth='October'
                             else
                                if (&month = 11)
                                   &tmonth='November'
                                else
                                   if (&month = 12)
                                      &tmonth='December'
)reinit
  refresh outmonth
)PROC
&ZQ = &Z
  IF (&ZCMD ª= ' ')
    &ZQ = TRUNC(&ZCMD,'.')
  &ZISF = .TRAIL
  &ZSEL = TRANS( &ZQ
                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(ISPYXDR) PARM(ISR) NOCHECK'
                8,'PGM(ISFISP) NEWAPPL(ISF) NOCHECK PARM(&ZISF)'
                S,'PGM(ISFISP) NEWAPPL(ISF) NOCHECK PARM(&ZISF)'
                I,'PGM(TSUTINM) PARM(SESS(00))'
                A,'PANEL(xxxAPPLS)'
                G,'PANEL(xxxUTILS)'
                SY,'PANEL(xxxSYSTM)'
                T,'PGM(ISPTUTOR) PARM(ISR00000)'
                X,'EXIT'
            CALENDAR,'CMD(%CALENDAR)'
                ' ',' '
                *,'?' )
  &ZTRAIL = .TRAIL
)END