Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 8620
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: 2088
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: 8620
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
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
This topic is locked: you cannot edit posts or make replies. Rexx to Grab ISMF Information. upendrasri All Other Mainframe Topics 16 Sun Nov 26, 2017 12:35 am
No new posts Rexx to send an email without SMTP Se... upendrasri All Other Mainframe Topics 12 Sun Nov 19, 2017 7:59 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us