Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Matching values form the ISPF Tables using REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
malathy_tv

New User


Joined: 29 May 2007
Posts: 34
Location: chennai

PostPosted: Wed Sep 10, 2008 3:21 pm    Post subject: Matching values form the ISPF Tables using REXX
Reply with quote

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
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Sep 10, 2008 3:48 pm    Post subject:
Reply with quote

How about TBSARG & TBSCAN?

O.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Sep 10, 2008 3:51 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Sep 10, 2008 7:49 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2038
Location: Silicon Valley

PostPosted: Wed Sep 10, 2008 9:42 pm    Post subject: Reply to: Matching values form the ISPF Tables using REXX
Reply with quote

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
View user's profile Send private message
malathy_tv

New User


Joined: 29 May 2007
Posts: 34
Location: chennai

PostPosted: Thu Sep 11, 2008 11:46 am    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Sep 11, 2008 12:25 pm    Post subject:
Reply with quote

malathy_tv

Have you actually read any of the comments made previously ?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Sep 11, 2008 7:32 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Compare two files and subtract values ameetmund DFSORT/ICETOOL 7 Fri Mar 31, 2017 3:35 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us