Group multiple headers into one header

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

Post Reply
zigbee
Member
Posts: 1
Joined: Wed Nov 05, 2014 11:20 pm

Group multiple headers into one header

Post by zigbee » Wed Nov 05, 2014 11:30 pm

Hi,
I am seeking help on how to use DFSORT/ICETOOL on a weird requirement. Below is the input file

H00000015511
D00000015511 XXXXXXXXXXXXX1
D00000015511 XXXXXXXXXXXXX2
D00000015511 XXXXXXXXXXXXX3
D00000015511 XXXXXXXXXXXXX4
D00000015511 XXXXXXXXXXXXX5
H00000012222
D00000012222 XXXXXXXXXXXXX1
D00000012222 XXXXXXXXXXXXX2
D00000012222 XXXXXXXXXXXXX3
H00000015511
D00000015511 XXXXXXXXXXXXX6
H00000012222
D00000012222 XXXXXXXXXXXXX4
H00000014444
D00000014444 XXXXXXXXXXXXX1
H00000012222
D00000012222 XXXXXXXXXXXXX5

Required output

H00000015511
D00000015511 XXXXXXXXXXXXX1
D00000015511 XXXXXXXXXXXXX2
D00000015511 XXXXXXXXXXXXX3
D00000015511 XXXXXXXXXXXXX4
D00000015511 XXXXXXXXXXXXX5
D00000015511 XXXXXXXXXXXXX6
H00000012222
D00000012222 XXXXXXXXXXXXX1
D00000012222 XXXXXXXXXXXXX2
D00000012222 XXXXXXXXXXXXX3
D00000012222 XXXXXXXXXXXXX4
D00000012222 XXXXXXXXXXXXX5
H00000014444
D00000014444 XXXXXXXXXXXXX1

The 11 bytes after the header are not constant, they will vary.
Thanks for your help.

User avatar
Gurugars
Active Member
Posts: 107
Joined: Sat Oct 23, 2010 2:17 pm
Location: Chennai,India.

Post by Gurugars » Thu Nov 06, 2014 7:35 pm

Hi zigbee,

Welcome to the forum.

If the recoders starting with H (header record) can be re-ordered by ascending/descending, below solution is the easiest one you could find. Please ignore my suggestion if the order of the H record shouldn't be altered.

Sort card:

Code: Select all

----+----1----+----2----+----3----+----4
//SORT     EXEC PGM=SORT,COND=(4,LE)    
//SORTIN   DD  *                        
H00000015511                            
D00000015511 XXXXXXXXXXXXX1             
D00000015511 XXXXXXXXXXXXX2             
D00000015511 XXXXXXXXXXXXX3             
D00000015511 XXXXXXXXXXXXX4             
D00000015511 XXXXXXXXXXXXX5             
H00000012222                            
D00000012222 XXXXXXXXXXXXX1             
D00000012222 XXXXXXXXXXXXX2             
D00000012222 XXXXXXXXXXXXX3             
H00000015511                            
D00000015511 XXXXXXXXXXXXX6             
H00000012222                            
D00000012222 XXXXXXXXXXXXX4             
H00000014444                            
D00000014444 XXXXXXXXXXXXX1             
H00000012222                 
D00000012222 XXXXXXXXXXXXX5  
//SORTOUT  DD  SYSOUT=*      
//SYSIN    DD  *             
  SORT FIELDS=(2,26,CH,A)    
  SUM FIELDS=NONE            
/*                           
//SYSOUT   DD  SYSOUT=*      

SORTOUT:

Code: Select all

H00000012222               
D00000012222 XXXXXXXXXXXXX1
D00000012222 XXXXXXXXXXXXX2
D00000012222 XXXXXXXXXXXXX3
D00000012222 XXXXXXXXXXXXX4
D00000012222 XXXXXXXXXXXXX5
H00000014444               
D00000014444 XXXXXXXXXXXXX1
H00000015511               
D00000015511 XXXXXXXXXXXXX1
D00000015511 XXXXXXXXXXXXX2
D00000015511 XXXXXXXXXXXXX3
D00000015511 XXXXXXXXXXXXX4
D00000015511 XXXXXXXXXXXXX5
D00000015511 XXXXXXXXXXXXX6
Guru:-)

You're never fully dressed without a smile :)

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Fri Nov 07, 2014 12:59 am

We need more information. You are going to have to SORT to get records together. Do you want the output file in the sequence of the original input? Does it matter which header is retained? Does it matter the order of the detail records within the header?

Terrymusicy
Member
Posts: 2
Joined: Tue Dec 09, 2014 8:54 am

Post by Terrymusicy » Tue Dec 09, 2014 9:21 am

We are very pleased to have come into the web of it.

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others