From 2e47dd726e694f32bfe85d12e5f125f693d60e1f Mon Sep 17 00:00:00 2001 From: perry.werneck@gmail.com Date: Wed, 31 Oct 2012 13:17:20 +0000 Subject: [PATCH] Incluindo tratamento da flag AS400 --- src/lib3270/kybd.c | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/src/lib3270/kybd.c b/src/lib3270/kybd.c index 41eb6bd..6b65c56 100644 --- a/src/lib3270/kybd.c +++ b/src/lib3270/kybd.c @@ -563,10 +563,21 @@ LIB3270_FKEY_ACTION( pfkey ) if (hSession->kybdlock & KL_OIA_MINUS) return -1; - else if (hSession->kybdlock) - enq_key(hSession,pf_xlate[key-1]); + + if (hSession->kybdlock) + { + if(hSession->options & LIB3270_OPTION_AS400) + enq_key(hSession,pa_xlate[0]); + + enq_key(hSession,pf_xlate[key-1]); + } else + { + if(hSession->options & LIB3270_OPTION_AS400) + key_AID(hSession,pa_xlate[0]); + key_AID(hSession,pf_xlate[key-1]); + } return 0; } -- libgit2 0.21.2