EM3270 Manual

Color-Mapping and Function-Key Mapping
Tandem EM3270 Manual—110332 E-9
Alternate Function-Key Mapping
! PF23 SF11 j(%152) 27
! PF24 SF12 k(%153) 28
! ATTN SF13 l(%154) -9(SNA only)
! ERASE INPUT SF15 n(%156) -2
! SYS REQ SF16 0(%157) -3(SNA only)
! DUP PREV PAGE S(%123) -4
! FM ROLL DOWN Q(%121) -5
! PRINT ROLL UP P(%120) -6
! n/a SHIFTED p(%160) -10(perform
! ROLL UP host switch)
! FORCED SPACE SHIFTED q(%161) -12(space)
! ROLL DOWN
! SCREEN
! RECOVERY SHIFTED s(%163) -11(screen
! PREV PAGE recovery)
! ERASE to EOF LINE T(%124) -13
! INS/DEL
! undefined SHIFTED t(%164) -1(ignore)
! LINE INS/DEL
! undefined BREAK U(%125) -1(ignore)
! undefined SHIFTED BREAK u(%165) -1(ignore)
! ENTER RETURN V(%126) 0
! ENTER SHIFTED RETURN v(%166) 0
! N/A NEXT PAGE R(%122) -7(switch context)
! N/A SHIFTED NEXT PAGE r(%162) -8(terminate
session)
BEGIN
LITERAL f1 = %100,
f^return = %126,
sf1 = %140,
sf^return = %166;
INT f^to^aid [0:45] = 'p' :=
[ 5, 6, 7, 8, 9, 10, 11, 12, ! F1 - F8
13, 14, 15, 16, 1, 2, 3, 0, ! F9 - F16
-6, -5, -7, -4, -13, -1, 0, ! ROLL UP - RETURN
17, 18, 19, 20, 21, 22, 23, 24, ! SF1 - SF8
25, 26, 27, 28, -9, 4, -2, -3, ! SF9 - SF16
-10, -12, -8, -11, -1, -1, 0 ]; ! SROLL UP - SRETURN
IF key^value >= f1 AND key^value <= f^return THEN
key^index := f^to^aid[key^value - %100]
ELSE IF key^value >= sf1 AND key^value <= sf^return THEN
key^index := f^to^aid[key^value - %111]
ELSE key^index := -1; !Invalid key^value
END;
Figure E-5. Procedure for Terminal Function-Key Mapping (page 2 of 2)