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
 

 

need help in easytrieve-multiple reading of sequential file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Wed Jun 04, 2008 12:07 pm    Post subject: need help in easytrieve-multiple reading of sequential file
Reply with quote

i have a situation like, there are 2 files A and B(BOTH ARE PS). For each record in A the FILE B has to be read for the some condition.
for the above logic i tried 2 ways.
1.)job input A
GET B
CHECK LOGIC
PRINT O/P
IF i am doing this then the FILE B is reaching the end of file and giving the logical error.can u help me by saying how can i make the pointer go the first record of B after each record in A is processes.
2.)i tried IF MATCHED(FILEA(KEY) FILEB(KEY))
But it is only reading the file B ONLY ONCE.

CAN AMYONE SUGGEST A SOLUTION FOR THIS.BOTH FILES ARE PS
Back to top
View user's profile Send private message

Manuneedhi K

Active User


Joined: 07 May 2008
Posts: 115
Location: Chennai

PostPosted: Wed Jun 04, 2008 3:54 pm    Post subject:
Reply with quote

If FILEB is relatively try declaring it as a TABLE and do a search.

Thanks
Manu
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 Jun 04, 2008 7:58 pm    Post subject:
Reply with quote

Hello Chandra and welcome to the forums,

Quote:
how can i make the pointer go the first record of B after each record in A is processes.
You can't - easytrieve does not do this.

You need to use a 2-file match/merge to do what you need.

Easytrieve has a match function (documented in the ezt manual) od you could use cobol. There is a "Sticky" near the top of the COBOL section of the forum that contains working sample code for what i believe is your requirement.

Download and review the sample code and post back here if there is something you do not understand. I have not done so, but i believe the same logic could be used in ezt if tyhe ezt match does not do what you need.
Back to top
View user's profile Send private message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Thu Jun 05, 2008 1:23 pm    Post subject:
Reply with quote

hi
thanks for ur reply, and i have some questions about a table which i thought can be helped by u.
1.)my sequential file has around 600 rceords.so its an external table
2.)do i have to get the records sorted in ALPHABATECIAL ORDER IN THE PS to declare it as a table.
3.)file inpfile table {literal-10}
arg 1 16 a desc 17 44 a

this is the decleration i have to give for external table decleration.
if my file size is not variable can i declare it to have an approximate size.

if i am mistaken pls correct me.
Back to top
View user's profile Send private message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Thu Jun 05, 2008 10:12 pm    Post subject:
Reply with quote

hi
thanks for the reply.
wat my inclination towards "if matched " was
if FILEA has no dups FILEB has dups and
now for every record in FILEB, FILEA has to be searched.

so

job input(filea(key1) -
fileb(key2))

if matched
{process}
goto job

i was thinking that for if matched the FILEA is not bieng searched every time fileb is read.
our requirement is it should be read multiple times.so after every job input will the filea be read from the top again.
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: Fri Jun 06, 2008 2:09 am    Post subject:
Reply with quote

Hello,

Quote:
our requirement is it should be read multiple times
If both files are in the proper sequence, i believe there is no need to read either file multiple times.

If the build-in easytrieve "match" does not do what you need, i'd suggest using the above mentioned cobol code or converting that code to easytrieve if there is some need to use easytrieve.

A properly coded "match" will only process each record of each file one time.

Unless there is something in the requirement that i do not yet understand.
Back to top
View user's profile Send private message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Fri Jun 06, 2008 12:04 pm    Post subject:
Reply with quote

i tried using "matched" and found that
both the files should be soted before using "matched"

FILEA - HAS NO DUPS(THINK ITS THE MASTER)
FILEB - HAS DUPS

BOTH FILES SHOULD BE SORTED BEFORE USING MATCHED

NOW MY REQUIREMENT IS GETTING SATISFIED WHEN I USE "IF MATCHED (FILEA(KEY1)+
(FILEB(KEY2)) "
FOR EVERY KEY IN FILEB WE HAVE MANY DUP KEYS IN FILEB.
SO ITS ABLE TO MATCH WHEN USING THE ABOVE LOGIC.

EVEN IF THE FILE ORDER IN "IF MATCHED()()" IS CHANGED ITS NOT ABLE TO DO IT.
Back to top
View user's profile Send private message
Manuneedhi K

Active User


Joined: 07 May 2008
Posts: 115
Location: Chennai

PostPosted: Fri Jun 06, 2008 2:55 pm    Post subject:
Reply with quote

Can you try using the Search TABLE and then using the IF MATCHED. This might not be efficient method but it works.

Mods,

There are two topics running for the same issue i guess.

Other one is http://ibmmainframes.com/viewtopic.php?p=136824#136824

Can we merge these two or close one of them
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: Fri Jun 06, 2008 7:43 pm    Post subject:
Reply with quote

Hello,

This topic and one titled "Processing table in eastrieve " are the same. I am closing the other topic as we don't need the same discussion 2 places.

I suggest you try the previously mentioned match/merge code. It should only take a short amount of time and you will have another "tool" that you will be able to use over and over for other requirements.
Back to top
View user's profile Send private message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Fri Jun 06, 2008 11:10 pm    Post subject:
Reply with quote

thank u for ur suggestion,i will try that
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: Sat Jun 07, 2008 12:34 am    Post subject: Reply to: need help in easytrieve-multiple reading of sequen
Reply with quote

You're welcome - good luck icon_smile.gif

Someone will be here if there are questions.

d
Back to top
View user's profile Send private message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Mon Jun 09, 2008 12:36 pm    Post subject:
Reply with quote

hi this is working gr8

JOB INPUT SAM2
W-COUNTER = 0
MOVE SAM2-FIRST TO W-SAM2-FIRST
SEARCH SAM1 WITH W-SAM2-FIRST GIVING W-DESCRIPTION
IF SAM1
W-FLAG = W-FLAG + 1
DISPLAY 'FOUND'
W-COUNTER = W-COUNTER + 1
DISPLAY W-FLAG
GO TO JOB
END-IF
IF W-COUNTER EQ 0
DISPLAY 'NOTFOUND' W-SAM2-FIRST
END-IF
GOTO JOB
the sequential table is the only thing thats sorted the other sequential file need not be sorted.

thanks
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: Mon Jun 09, 2008 7:36 pm    Post subject:
Reply with quote

Hello,

Well, hopefully, the volume will be very small and the process will run very seldom. While that code may work it will waste an incredable amount of system resources (the larger the run, the more waste). I suppose this could be a good thing if your family sells hardware. . .
Back to top
View user's profile Send private message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Tue Jun 10, 2008 11:20 am    Post subject:
Reply with quote

but what can be done if not a table, sequential processing is itself resource consuming.
we have to use vsams instead.but our requirement is not the same.
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: Tue Jun 10, 2008 1:27 pm    Post subject:
Reply with quote

Hello,

Have you yet downloaded and used the 2-file match/merge code? Do so and i believe you will see a reduction in resources used.

Reading 2 files sequentionally uses less resources than running back and forth thru some table/array.
Back to top
View user's profile Send private message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Wed Jun 11, 2008 12:51 pm    Post subject:
Reply with quote

ya i downloaded that code given and i will see the feasibility of implementing it.


thats a gr8 suggestion

thank u
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 Jun 12, 2008 3:29 am    Post subject: Reply to: need help in easytrieve-multiple reading of sequen
Reply with quote

Hello,

Quote:
ya i downloaded that code given and i will see the feasibility of implementing it.
Good luck - someone will be here if there are questions icon_smile.gif

d
Back to top
View user's profile Send private message
chandrarkar

New User


Joined: 27 May 2008
Posts: 24
Location: india

PostPosted: Fri Jun 13, 2008 12:17 pm    Post subject:
Reply with quote

hi

i have a scenario like i have to insert records in a table that has been defined by me

the layout of table is

inpfile
arg 1 21 A
desc 22 44 A

WHEN I AM TRYING TO INSERT RECORDS IN THIS TABLE USING ARG AND DESC ITS SAYING *******B082 NAME IS UNDEFINED - ARG
*******B082 NAME IS UNDEFINED - DESC
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: Fri Jun 13, 2008 1:22 pm    Post subject:
Reply with quote

Hello,

Please post the problem code and the associated info from the sysout=.
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


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