Hi All,
I am thinking of retrieving all the data I have stored in an ISPF table. For that I used TBSCAN and TBGET also. But I am nt getting any row. Look I want to retrieve all the data from that ISPF table.
I am attaching the sample statement I used for TBSCAN or TBGET. Please help me to say how to retrieve all the data from the ISPF table.
Joined: 26 Apr 2004 Posts: 3296 Location: Charlotte,NC USA
I would do this:
Code:
Pseudo-code
TBOPEN flxref NOWRITE SHARE
TBTOP flxref
Do Until return-code is not equal to zero
TBSKIP flxref NUMBER(+1) POSITION(tbcrp)
TBGET flxref POSITION(tbcrp)
Set the return-code value to the success of the TBGET
VGET the row variables and process as needed
End the loop
TBCLOSE flxref
