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
