H/TITLE ** Function key definition module **
     H DEBUG(*YES)
     H nomain
      ****************************************************************
      * PROGRAM NAME - SC0070RM                                      *
      *                                                              *
      * FUNCTION     - This is a module designed to return the hex   *
      *                values for monitoring 5250 Function keys      *
      *                                                              *
      * PROGRAMMER   - STEVE CROY        08/14/09 iSoftwerks, Inc.   *
      ****************************************************************
      ****************************************************************
      *                   MODIFICATION LOG                           *
      *                                                              *
      *  DATE   PROGRAMMER      DESCRIPTION                          *
      *                                                              *
      ****************************************************************

      * Prototypes
      *---
     D FunctionKeys    PR            31A
      *---
      * Define function keys
      *---

     P FunctionKeys    B                   export
     D FunctionKeys    PI            31A
     D  Key          E DS                  EXTNAME(SCKEYSPF) qualified

      /free
         // Define key values
         key.enter = x'F1'                                 ;
         key.rollup = x'F5'                                ;
         key.rolldn = x'F4'                                ;
         key.help = x'F3'                                  ;
         key.print = x'F6'                                 ;
         key.bspace = x'F8'                                ;
         key.clear = x'BD'                                 ;
         key.F1 = x'31'                                    ;
         key.F2 = x'32'                                    ;
         key.F3 = x'33'                                    ;
         key.F4 = x'34'                                    ;
         key.F5 = x'35'                                    ;
         key.F6 = x'36'                                    ;
         key.F7 = x'37'                                    ;
         key.F8 = x'38'                                    ;
         key.F9 = x'39'                                    ;
         key.F10 = x'3A'                                   ;
         key.F11 = x'3B'                                   ;
         key.F12 = x'3C'                                   ;
         key.F13 = x'B1'                                   ;
         key.F14 = x'B2'                                   ;
         key.F15 = x'B3'                                   ;
         key.F16 = x'B4'                                   ;
         key.F17 = x'B5'                                   ;
         key.F18 = x'B6'                                   ;
         key.F19 = x'B7'                                   ;
         key.F20 = x'B8'                                   ;
         key.F21 = x'B9'                                   ;
         key.F22 = x'BA'                                   ;
         key.F23 = x'BB'                                   ;
         key.F24 = x'BC'                                   ;
         // key.AUTO = x'3F'                               ;
         return Key                                        ;
      /end-free

     P FunctionKeys    E