View previous topic :: View next topic
|
Author |
Message |
amitava Warnings : 1 Active User
Joined: 30 Oct 2005 Posts: 186 Location: India
|
|
|
|
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.
TBSCAN :- "tbscan" flxref "arglist(flxref)"
TBGET :- "tbget" flxref
Where flxref is the table-name.
Please help me....
Regards
Amitava |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, 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
|
|
|
Back to top |
|
|
amitava Warnings : 1 Active User
Joined: 30 Oct 2005 Posts: 186 Location: India
|
|
|
|
Thanx a lot superk..... You dnt know how much u have helped me. |
|
Back to top |
|
|
|