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
 

 

Handling three files in cobol program simultaneously

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Nandakumar.B

New User


Joined: 09 Oct 2005
Posts: 1

PostPosted: Sun Oct 09, 2005 12:17 pm    Post subject: Handling three files in cobol program simultaneously
Reply with quote

hi,

I have a doubt regarding handling three files simultaneously inside a cobol program.The program has to generate a report using the three files and these files have the same key.But the records in the files do not have a one to one correspondence.How can we handle them efficiently outside the program ie in a JCl so as to minimize the complexity of the logic?
Back to top
View user's profile Send private message

Sridevi_C

Active User


Joined: 22 Sep 2005
Posts: 104
Location: Concord, New Hampshire, USA.

PostPosted: Sun Oct 09, 2005 10:16 pm    Post subject: Re: Handling three files in cobol program simultaneously
Reply with quote

Hi,
You can SORT and MERGE in JCL. Duplicates, if any and if you need to eliminate SUM FIELDS = NONE can be used.
Regards,
Sridevi.
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Oct 09, 2005 11:40 pm    Post subject:
Reply with quote

You didn't say how the rpt was to be written. If all 3 recs are needed to generate a rpt line you can do something like this, provided all 3 files are sorted on the same key.
Code:

Do a priming read of all 3 files.
Perf process-rpt until eof on any file

In process-rpt:
    check for all 3 keys equal and save hi key
    evaluate true
    when 3 keys equal
             perf print rpt line
             perf read 3 files     
    when key1 < hi key
            perf read file1   
    when key2 < hi key
            perf read file2
    when key3 < hi key
            perf read file2
    end-eval

P.S. This approach will work for 3 or more IP files.
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 -> COBOL Programming 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. Full Time COBOL Software Development ... shally Mainframe Jobs 0 Fri Jan 20, 2017 5:24 am
This topic is locked: you cannot edit posts or make replies. COBOL Software Development Lead at Fi... shally Mainframe Jobs 0 Fri Jan 20, 2017 5:21 am
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm


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