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
 

 

COBOL APP to fetch data from FLAT FILE and ISRT/REPL IMS DB

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
star_dhruv2000

New User


Joined: 03 Nov 2006
Posts: 87
Location: Plymouth, MN USA

PostPosted: Sat May 17, 2008 4:57 pm    Post subject: COBOL APP to fetch data from FLAT FILE and ISRT/REPL IMS DB
Reply with quote

Hi all, I am writing a COBOL APP to fetch data from FLAT FILE and ISRT/REPL IMS DB. Following is structure for the IMS-DB

...................................................ROOT
..........................______________l______________
.........................l...........................l.............................l
....................CHILD1...............CHILD2...................CHILD3

NOTE:
1. CHILD2 is TWIN segment and can contain upto 5 twins with no key.
2. CHILD3 is TWIN segment and can contain upto 3 twins with no key.

My logic is as follows:

1. Read the I/P File and use GHU on parent using the key obatined.
2. If match found then REPL else ISRT.

Following are my queries:
1. For ISRT i.e. new segement if I will ISRT ROOT then do I need to set perentage for following ISRT in CHILD segments or I can simply carry on ISRT on CHILD with QUAL-SSA of ROOT and UNQAL-SSA of CHILD?

2. For REPL since CHILD2 & CHILD3 are TWIN segments how I will check that no more twins are present in respective CHILD? I thought of a PERFORM until 'GE' with UNQAL-SSA of CHILD and REPL new data.

Please let me know your views on the logic and queries. Viewers ideas are most welcome.

Thank in advance.

Cheers!
Happy coding icon_biggrin.gif
Back to top
View user's profile Send private message

Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Tue May 20, 2008 5:30 pm    Post subject:
Reply with quote

Hello Star,

How do you determine the logic child segments? Can we see the DBD?
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 -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Sorting group data rajella DFSORT/ICETOOL 4 Sun Jan 22, 2017 11:32 pm
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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts Storing huge volume of data, compare ... Pradeep K M All Other Mainframe Topics 3 Mon Jan 16, 2017 5:08 pm


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