IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Matching values form the ISPF Tables using REXX


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
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
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: 2358
Location: Israel

PostPosted: Wed Sep 10, 2008 3:48 pm
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: 8797
Location: Welsh Wales

PostPosted: Wed Sep 10, 2008 3:51 pm
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

Moderator Emeritus


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

PostPosted: Wed Sep 10, 2008 7:49 pm
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

Global Moderator


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

PostPosted: Wed Sep 10, 2008 9:42 pm
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
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: 8797
Location: Welsh Wales

PostPosted: Thu Sep 11, 2008 12:25 pm
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

Moderator Emeritus


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

PostPosted: Thu Sep 11, 2008 7:32 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top