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
No new posts TRAILER3 is creating blank record in ... kodeesm DFSORT/ICETOOL 3 Fri May 18, 2018 5:45 pm
No new posts Cobol program till a given time or fo... ankita agarwal COBOL Programming 7 Fri May 18, 2018 2:24 pm
No new posts Transfer of mainframe file to PC in Z... maxsubrat JCL & VSAM 4 Thu May 17, 2018 11:35 am
No new posts Rexx command to open an another text ... Bharath Vikraman PC Guides & IT News 7 Sat May 12, 2018 4:34 pm
No new posts Compute statement with Cobol Z/os 5.2 Chetan Kumar COBOL Programming 2 Fri May 11, 2018 8:02 pm

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