DEFINE KEY FUNCTION 5 AS "(-22L)."		   ! Prev Screen
DEFINE KEY FUNCTION 6 AS "(+22L)."		   ! Next Screen
DEFINE KEY FUNCTION 19 AS "EXIT."		   ! Cancel
DEFINE KEY FUNCTION 20 AS "EXT EXIT."		   ! Main Screen
DEFINE KEY FUNCTION 21 AS "EXIT."		   ! Exit
DEFINE KEY FUNCTION 26 AS "EXT ?'Command: '."	   ! Addtnl Options
DEFINE KEY GOLD FUNCTION 2 AS "EXT INC ?'File: '." ! PF1 Insert Here
DEFINE KEY GOLD FUNCTION 5 AS "(-PAGETOP)."	   ! PF1 Prev Screen
DEFINE KEY GOLD FUNCTION 6 AS "(+PAGETOP)."	   ! PF1 Next Screen
!
define key gold M as 'xlateMAI.' ! Mail JMS002
define key gold P as 'xlatePHO.' ! Phone JMS002
define key gold $ as 'xlate$$$.' ! DCL JMS002
!
SET MODE CHANGE
SET COMMAND EDTINI