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
