Yes but why these printable ebcdic codes Sent from my iPhone
> On May 15, 2014, at 3:02 PM, Alan Field <[email protected]> wrote: > > Perhaps this will help: > > /*rexx*/ > /* Generate 3270 codes for cursor positioning */ > arg row column scrwidth > if scrwidth = '' then scrwidth = 80 > codes = "40 C1 C2 C3 C4 C5 C6 C7 C8 C9 4A 4B 4C 4D 4E 4F", > "50 D1 D2 D3 D4 D5 D6 D7 D8 D9 5A 5B 5C 5D 5E 5F", > "60 61 E2 E3 E4 E5 E6 E7 E8 E9 6A 6B 6C 6D 6E 6F", > "F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 7A 7B 7C 7D 7E 7F" > sba = (row*scrwidth)+(column)-(scrwidth+1) > sba = d2x(sba,4) > sba = x2b(sba) > sba1 = x2d(b2x(substr(sba,5,6)))+1 > sba2 = x2d(b2x(substr(sba,11,6)))+1 > sba1 = word(codes,sba1) > sba2 = word(codes,sba2) > say "DC X'11,"sba1","sba2"'" > > Alan Field > Technical Engineer Principal > BCBS Minnesota > > Phone: 651.662.3546 Mobile: 651.428.8826 > > > > > > From: "Micheal Butz" <[email protected]> > To: [email protected], > Date: 05/15/2014 13:59 > Subject: Re: TSO 3270 Data Stream question > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > Can anyone give me an idea of how to make sense of the table > > E.G pos 1 or O is X'40' > > Sent from my iPhone > >>> On May 15, 2014, at 2:47 PM, Gerhard Postpischil <[email protected]> >> wrote: >> >>> On 5/15/2014 2:33 PM, Micheal Butz wrote: >>> Yes I have as I was running under TESTAUTH >> >> E3D4 gives me row 29 column 21, not what you wanted. >> Row 5 column 1 is C540 >> >> So either your conversion doesn't work, or your buffer is getting > clobbered. >> >> >> Gerhard Postpischil >> Bradford, Vermont >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
