/* SK  Set Standard & Customized PF Key Commands  11/21/1989-11/19/1998
/* --------------------------------------------------------------------
/* Enter  KEYLIST OFF  cmnd once  (crucial for global key availability)

   PROC 0 X,  /* Set PF1-PF24 key commands for Xpediter session      */+
              /* Otherwise set PF1-PF24 key commands for ISPF/PDF    */+
              /* (PF1-12 - Standard, PF13-PF24 - Customized keys)    */+
          C,  /* Set PF1-PF4 for COBOL src conversion to mixed case  */+
          P   /* Set PF1-PF4 for PL/I  src conversion to mixed case  */+
              /* Otherwise set standard ISPF/PDF PF1-PF4 key commands

   CONTROL NOCAPS
/* CONTROL SYMLIST,CONLIST,LIST,MSG

/* Set PF1-PF24 Key Commands for Xpediter session ---------------------

   IF (&X=X) +
      THEN DO
              SET ZPF01=HELP
              SET ZPF02=MENU
              SET ZPF03=END
              SET ZPF04=EXIT
              SET ZPF05=RFIND
              SET ZPF06=LOCATE
              SET ZPF07=UP
              SET ZPF08=DOWN
              SET ZPF09=GO 1
              SET ZPF10=LEFT
              SET ZPF11=RIGHT
              SET ZPF12=GO
              SET ZPF13=SOURCE
              SET ZPF14=MEMORY
              SET ZPF15=SELECT
              SET ZPF16=WS
              SET ZPF17=TRACE
              SET ZPF18=LIST 3270
              SET ZPF19=UP MAX
              SET ZPF20=DOWN MAX
              SET ZPF21=FILE
              SET ZPF22=SRCLESS
              SET ZPF23=ABEND-AID
              SET ZPF24=RETP
              GOTO Save_Keys
           END

/* Set PF1-PF24 Key Commands for ISPF/PDF -----------------------------

   SELECT(&P&C)
         WHEN (C)  DO /* Set PF1-PF4 for COBOL src conv to mixed case
                      SET ZPF01=%CCX            /* COMM line to Mx case
                      SET ZPF02=%CLL            /* Line TAIL to Lw case
                      SET ZPF03=&STR(%CW U)     /* WORD      to Up case
                      SET ZPF04=&STR(%CNX - G)  /* Cmpd NAME to Mx case
                   END
         WHEN (P)  DO /* Set PF1-PF4 for PL/I src conv to mixed case
                      SET ZPF01=&STR(%CCX -)    /* COMM line to Mx case
                      SET ZPF02=%CLL            /* Line TAIL to Lw case
                      SET ZPF03=&STR(%CW U)     /* WORD      to Up case
                      SET ZPF04=&STR(%CNX - G)  /* Cmpd NAME to Mx case
                   END
         OTHERWISE DO /* Set standard PF1-PF4 key commands
                      SET ZPF01=HELP    /* (PF1)
                      SET ZPF02=NS      /* (PF2)  New Session (preset)
                   /* SET ZPF02=START   /* (PF2)  New Session (primary)
                   /* SET ZPF02=SPLIT   /* (PF2)  Split screen
                      SET ZPF03=END     /* (PF3)  End curr level (1 up)
                      SET ZPF04=RETURN  /* (PF4)  Return to prim menu
                   END
   END

   SET ZPF05=RFIND        /* (PF5)   Repeat last FIND   command
   SET ZPF06=RCHANGE      /* (PF6)   Repeat last CHANGE command
   SET ZPF07=UP           /* (PF7)   Scroll up
   SET ZPF08=DOWN         /* (PF8)   Scroll down
   SET ZPF09=SWAP         /* (PF9)   Swap logical session / split scrn
   SET ZPF10=LEFT         /* (PF10)  Scroll left
   SET ZPF11=RIGHT        /* (PF11)  Scroll right
   SET ZPF12=RETRIEVE     /* (PF12)  Retrieve exec cmds (last to first)

   SET ZPF13=%SPLTJOIN    /* (Shift)+(PF1)   Split/Join line at scr pos
/* SET ZPF13=:TS          /* (Shift)+(PF1)   Split line at cursor pos
   SET ZPF14=COPY         /* (Shift)+(PF2)
   SET ZPF15=SUB          /* (Shift)+(PF3)   Submit current job 4 exec
   SET ZPF16=RESET        /* (Shift)+(PF4)
   SET ZPF17=CUT REPLACE  /* (Shift)+(PF5)   Copy  to   PDF clipboard
   SET ZPF18=PASTE KEEP   /* (Shift)+(PF6)   Paste from PDF clipboard
   SET ZPF19=UP MAX       /* (Shift)+(PF7)   Scroll to text top
   SET ZPF20=DOWN MAX     /* (Shift)+(PF8)   Scroll to text bottom
   SET ZPF21=SAVE         /* (Shift)+(PF9)   Save current text
   SET ZPF22=UP HALF      /* (Shift)+(PF10)  Scroll half screen up
   SET ZPF23=DOWN HALF    /* (Shift)+(PF11)  Scroll half screen down
   SET ZPF24=RETP         /* (Shift)+(PF12)  Display list of exec cmnds

   Save_Keys: +
      ISPEXEC VPUT (ZPF01,ZPF02,ZPF03,ZPF04,ZPF05,ZPF06, +
                    ZPF07,ZPF08,ZPF09,ZPF10,ZPF11,ZPF12, +
                    ZPF13,ZPF14,ZPF15,ZPF16,ZPF17,ZPF18, +
                    ZPF19,ZPF20,ZPF21,ZPF22,ZPF23,ZPF24)
