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 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 Compare yesterday's date to the one o... migusd SYNCSORT 4 Fri Sep 22, 2017 11:35 pm
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Skip file from delete pema_yozer All Other Mainframe Topics 3 Tue Aug 29, 2017 3:19 pm

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