Hi!
I'm trying to redisplay a table at a certain row? The table is showing a certain row. If the user presses ENTER the table is erased and recreated. I want it to be at the same row as before erasure. I tried that by using ZTDSCRP and got stuck because I can't bring it into main program.
Best regards,
Jaka
I'm trying to redisplay a table at a certain row? The table is showing a certain row. If the user presses ENTER the table is erased and recreated. I want it to be at the same row as before erasure. I tried that by using ZTDSCRP and got stuck because I can't bring it into main program.
Code:
DO WHILE RC=0
CALL getlines
address ISPEXEC
/*get row value
"TBERASE TAB1"
"TBCREATE TAB1 NAMES(linet) NOWRITE REPLACE"
address TSO
DO num=1 TO QUEUED()
PARSE PULL qline
linet=qline
address ISPEXEC "TBADD TAB1"
END
address ISPEXEC "TBTOP TAB1"
/*here i need to set row number*/
address ISPEXEC "TBDISPL TAB1 PANEL(DTAB)"
Best regards,
Jaka