Those are the EBCDIC equivalents of the BCD 64-character printable characters standard on IBM hardware of the time before EBCDIC.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Micheal Butz Sent: Thursday, May 15, 2014 5:53 PM To: [email protected] Subject: Re: TSO 3270 Data Stream question 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 -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
