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
 
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
This topic is locked: you cannot edit posts or make replies. Cobol to fetch the content by using s... arunc55 COBOL Programming 4 Fri Nov 17, 2017 1:25 pm
No new posts Extract Record using range of Data scorp_rahul23 DFSORT/ICETOOL 3 Wed Nov 15, 2017 11:54 pm
No new posts VBS and VB, COBOL syntax is the same ... natt.sut COBOL Programming 3 Sun Nov 12, 2017 6:36 am
No new posts Updating data from one file to other!!! Vignesh Sid SYNCSORT 1 Mon Nov 06, 2017 2:42 pm
This topic is locked: you cannot edit posts or make replies. Need help how to pass the ESP variabl... Venkichaitu JCL & VSAM 12 Thu Nov 02, 2017 3:53 am

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