View previous topic :: View next topic
|
Author |
Message |
malathy_tv
New User
Joined: 29 May 2007 Posts: 34 Location: chennai
|
|
|
|
hi,
can any one tell me how do we get the matching records form the tables using rexx there may be billinon of records in the table i need tio retrive the records matching the input given by the user
policy number = ab001 and Cn = aaa then i need to retrive all teh records having these combinations i used
address ispexec
tbl = "TAA.TEST.TBL"
tbl_nm = "polinv"
"LIBDEF ISPTLIB DATASET ID('"tbl"')"
"LIBDEF ISPTABL DATASET ID('"tbl"')"
"tbopen "tbl_nm
str = "'tbscan "tbl_nm" arglist("
IF POL \= '' THEN DO
str = str || "pol)'"
interpret str
say rc
END
IF CN \= '' THEN DO
str = str || "cn)'"
interpret str
say rc
END
scan_rc = 0
k = 0
SAY 'str' STR
do until scan_rc > 0
interpret str
if rc = 0 then say 'pol='pol 'rcd='rcd
scan_rc = rc
k = k + 1
REQ = STRIP(REQ)
IN.CNT = pol||cn
CNT = CNT+1
end
"tbclose "tbl_nm
suggestions please |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
How about TBSARG & TBSCAN?
O. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Is this a new TSO application being designed ?
If so, please do not use ISPF tables for such a large number of records if it is to be accessed via the terminal.
If you do, YOU WILL GET PROBLEMS which your sysprogs / TSO administrators will not let you get away with.
I had problems from an inherited system where the TSO region size had to be 14Mb to allow the use of large tables, approx 250,000 records, so I can not see every user of this application beiing able to allocate 20Mb or higher for each TSO session. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
This REXX requirement needs to be reviewed and modified. Indeed, even doing this in tso is questionable. . .
Something to be aware of very early on is that all of the code may test well with very small amounts of data, but a full volume run may not even have a chance. When this happens, all of the investment developing this set of REXX will basically be wasted as some other implementation will be needed. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Quote: |
how do we get the matching records form the tables |
Use a real database instead of an ISPF table
Quote: |
there may be billinon of records in the table |
The rule-of-thumb I have been using for the last 20 years is that ISPF tables are only useful until about 10,000 records. Beyond that, the performance will be too slow. |
|
Back to top |
|
|
malathy_tv
New User
Joined: 29 May 2007 Posts: 34 Location: chennai
|
|
|
|
am not able to load around 1000000 of records to a table at once,
is that possible that we split and load 500000 records two times to the same table will that apeend from the last |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
malathy_tv
Have you actually read any of the comments made previously ? |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
am not able to load around 1000000 of records to a table at once,
|
And you should not be able. . . .
Quote: |
is that possible that we split and load 500000 records two times to the same table will that apeend from the last |
Hopefully not.
You need to find another way to implement. What you are trying to do is wrong. . . |
|
Back to top |
|
|
|