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
 
Merging 2 records at multiple rows with no key fields

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Bijesh

New User


Joined: 05 Dec 2017
Posts: 1
Location: USA

PostPosted: Wed Dec 06, 2017 1:50 am    Post subject: Merging 2 records at multiple rows with no key fields
Reply with quote

Hi,

My requirement is as below. There are two records shown below starting with Line 1 as rec 1 and next Line 1 as rec 2. Each Line 1 is the beginning of a record. I need to take 3 bytes from the row starting with REPORT (20:3) and merge with DATA rows(only if the fields from 78:20 in the DATA row is having a certain value).
INPUT
Code:
Line 1
Line 2
 REPORT: XXXXXX-YY CAY M#$
 ROW 1                                                   
 ROW 2                                                   
 ROW 3                                                   
 HEADER                                                   
 BLANK                                                   
 DATA1(120 LENGTH- IDENTIFIER FIELD 78:20 )       
 DATA2(120 LENGTH- IDENTIFIER FIELD 78:20 )       
 ...                                   

Line 1
Line 2                   
 REPORT: XXXXXX-YY WIX M#$                               
 ROW 1                                                   
 ROW 2                                                   
 ROW 3                                                   
 HEADER                                                   
 BLANK                                                   
 DATA(120 LENGTH- IDENTIFIER FIELD 78:20 )     


OUT Put needs to be

Code:
CAYDATA1     
CAYDATA2
WIXDATA


We can do it via a cobol program but would it be feasible via a sort or ice tool ? Please let me know.

EDIT: Code'd
Back to top
View user's profile Send private message

sergeyken

Active User


Joined: 29 Apr 2008
Posts: 471
Location: Maryland

PostPosted: Wed Dec 06, 2017 1:57 am    Post subject: Re: Merging 2 records at multiple rows with no key fields
Reply with quote

Bijesh wrote:
Hi,

We can do it via a cobol program but would it be feasible via a sort or ice tool ? Please let me know.

FYI: Yes, it is possible.

1) RTFM, and/or search in Forum/Google
2) Try
3) Post your results
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Tue Dec 12, 2017 6:55 pm    Post subject:
Reply with quote

Bijesh,

Welcome to the forums. Look for 'WHEN=GROUP' examples here. You could OMIT unwanted records and use WHEN=GROUP to identify the 'groups' starting with 'REPORT' and PUSH the 3-byte field across the group. INCLUDE only the 'DATA' records in your OUTFIL and rearrange the fields as needed in your BUILD.

Use Code tags(Code button in the editor) and do a Preview before posting code/data. Good luck!
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Sort records within a data block rajiv rengasamy DFSORT/ICETOOL 0 Fri Jul 12, 2019 3:25 pm
No new posts Deleting rows using utility from DB2 ... manugeorge2004 DB2 2 Tue Jun 25, 2019 6:41 pm
No new posts Need to get the SUM of two fields usi... Poha Eater DFSORT/ICETOOL 7 Tue Jun 18, 2019 1:27 pm
No new posts Summing records conditional statements. chillmo SYNCSORT 13 Wed May 15, 2019 2:12 am
No new posts Compare fields with decimal chandan.inst SYNCSORT 6 Thu Apr 04, 2019 5:29 pm

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