PARM NAME="!HPJOBNAME"
##  KEYS.XEQ - SETS FUNCTION KEYS
##  TIM ERICSON
SETVAR ESC CHR(27)
SETVAR K "!ESC" + "&f2a"
SETVAR Y "k16d34L"
SETVAR UP "!ESC" + "A"
ECHO !"K"1!"Y" HELLO   ACCT   HELLO !NAME,USER.ACCT               !UP
ECHO !"K"2!"Y" HELLO   SHIP   HELLO !NAME,USER.SHIP               !UP
ECHO !"K"3!"Y" HELLO   SALES  HELLO !NAME,USER.SALES              !UP
ECHO !"K"4!"Y"SHOWTIME        SHOWTIME                            !UP
ECHO !"K"5!"Y"  BYE           BYE                                 !UP
ECHO !"K"6!"Y"  EXIT          EXIT                                !UP
ECHO !"K"7!"Y"  QUIT          QUIT                                !UP
ECHO !"K"8k16d2L   //           // !UP
ECHO !"ESC"&jB !UP
DELETEVAR ESC, K, Y, UP