Silly me In Panel )Proc &cursor = .cusor VPUT(CURSOR)
In Rexx "DISPLAY PANEL(TCBCHAIN)" "VGET(CURSOR)" If cursor = "TCB" -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Rob Scott Sent: Friday, July 29, 2011 12:11 PM To: IBM-MAIN@bama.ua.edu Subject: Re: ISPF TLD control block lookup Z/OS 1.12 ISPF 6.1 That looks very similar to something written by Doug Nadel (IBMer in ISPF team) many moons ago. It comes with disclaimers about not being supported - however the logic has worked for many years. Since the REXX was originally written ISPF has been enhanced to return the screen image info in ISPF system variables ZSCREENI and ZSCREENC if requested - can you convert your code to use that instead? Rob Scott Lead Developer Rocket Software 275 Grove Street * Newton, MA 02466-2272 * USA Tel: +1.617.614.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of michealbutz Sent: 29 July 2011 16:07 To: IBM-MAIN@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
