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 file match logic help required

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

New User


Joined: 13 Oct 2003
Posts: 2

PostPosted: Sat Feb 07, 2009 8:06 am    Post subject: cobol file match logic help required
Reply with quote

Hi,
Could you please someone help me out to derive the below logic in cobol or either to solve this issue with the combination of sort and cobol.

In our project one of the program creates a change report. Basically do a match (typical cobol match logic) from the previous version of the insurance file and the current version of the insurance file.

find the below examle:

current file previous file

ACC-N0 SEC-NO ACC-NO SEC-NO
A A1,A2,A3 A A2
A A2 A A1
A B B1 B2 B3
B B1 C C1,C2
C C1 C C1
D D1 D D1

DO A MATCH IF THE ACCOUNT NUMBERS ARE MATCHING CHECK FOR THE SEC NUMBER MATCH

AS PER MY CURRENT LOGIC

F1 < F2
F1 IS ADDED

F1 = F2

IN MY CASE A=A SO LOOK FOR SEC NUMBER MATCH A1= A2

SO IT WRITES A1 ADDED AND A2 IS DELETED AND A3 IS ADDED

BUT COMES TO THE NEXT RECORD IT WRITES A2 ADDED AND A1 DELETED

F1 > F2
F2 IS DELETED

THE OUTPUT IS

A A1 ADDED
A A2 DELETED
A A3 ADDED
A A2 ADDED
A A1 DELETED

This is 100% wrong.
could you please help me to derive the logic.
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 Feb 07, 2009 8:50 am    Post subject:
Reply with quote

Hello,

Please re-post your data using the "Code" tag and the Preview feature to eusure proper alignment. Also, please use values that are not almost all the same (possibly using all numeric for the acc-no and alphas for the sec-no).

At/near the top of the COBOL part of the forum is working code that accomplishes a 2-file match/merge which is what i believe you want. Download the code and review it for use with your requirement.
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
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm
No new posts Updating a VSAM file with DISP=OLD sheersh JCL & VSAM 8 Tue Mar 14, 2017 6:14 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am


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