TSO 3270 Data Stream question

[MichealButz]

Hi,

 

I am doing TSO TPUT’s in Full screen mode I copied some code from the
following URL www.tommysprinkle.com/mvs/P3270/sbaxlate.com

 

Which has code to translate a ROW and COLUMN into a sba (screen buffer
address) 

 

I have 10 lines which I try to TPUT in lines 1 – 10 using the following
codes X’11XXYY1DF8’ where XX and YY is the screen buffer address. I do fine
till row 5

 

After which my TSO terminal emulater gives me error invald buffer address
2260 as I have a 24 x 80 screen wih 1.920 postions the sba code is E3 D4

 

Listed below ithe code used to translate the the row and column 

 

 

Thanks

 

SET_BUF  DS   0H                           

         ST   XLNK,SAVE_BUF                

         L     R0,ROW                      

         L     R1,COL                      

         BCTR  R0,0                        

         BCTR  R1,0                        

         MH    R0,=H'80'                   

         AR    R1,R0                       

         SLL   R1,2                        

         STCM  R1,B'0010',SBACMD           

         SRL   R1,2                        

         STCM  R1,B'0001',SBACMD+1         

         NC    SBACMD(2),=X'3F3F'          

         TR    SBACMD(2),TABLE             

         L     XLNK,SAVE_BUF               

         BR    XLNK 

 

 

TABLE    DC    X'40C1C2C3C4C5C6C7C8C94A4B4C4D4E4F'   ABCDEFGHI¢.<(+|  

         DC    X'50D1D2D3D4D5D6D7D8D95A5B5C5D5E5F'  &JKLMNOPQR!$*);¬  

         DC    X'6061E2E3E4E5E6E7E8E96A6B6C6D6E6F'  -/STUVWXYZ¦,%_>?  

         DC    X'F0F1F2F3F4F5F6F7F8F97A7B7C7D7E7F'  0123456789:#@'="



----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN