Probably. But, try it out and find out! - Ted MacNEIL [email protected] Twitter: @TedMacNEIL
-----Original Message----- From: michealbutz <[email protected]> Sender: IBM Mainframe Discussion List <[email protected]> Date: Fri, 29 Jul 2011 11:06:51 To: <[email protected]> Reply-To: IBM Mainframe Discussion List <[email protected]> Subject: ISPF TLD control block lookup Z/OS 1.12 ISPF 6.1 Hi, Found this snipet of code to get the ISPF TLD Would anyone know if still valid in IPSF 6.1 * */ /* RETRIEVE LINE ADDRESS AND CURSOR POSITION */ /* */ /*--------------------------------------------------------------------*/ find_cursor_position: tcb = PTR(540) /* TCB (EXEC command) PSATOLD */ tcb = PTR(tcb+132) /* TCB (ISPTASK) TCBOTC */ fsa = PTR(tcb+112) /* first save area TCBFSA */ r1 = PTR(fsa+24) /* ISPTASK's R1 */ tld = PTR(r1) /* TLD address */ tls = PTR(tld+096) /* screen buffer TLDTLSP */ csr = PTR(tld+164) /* relative cursor pos. TLDCSR */ scrw = PTR(tld+192) /* screen width TLDCLSWD */ offl = scrw * TRUNC(csr/scrw) /* offset to current line */ csrp = csr-offl+1 /* cursor position */ linead = D2X(tls+offl) /* current line address */ line = STORAGE(linead,scrw) /* text of current line */ RETURN Joseph Reichman Joe Reichman 5420 15TH AVE APT 2B Brooklyn NY 11219 Hone (718) 851 - 8712 Work ( (914) 921 - 7360 Cell (917) 748 - 9693 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
