Add Header and Trailer record also display the recod Count

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

Moderators: Frank Yaeger, Moderator Group

Post Reply
mots
Member
Posts: 1
Joined: Fri Dec 24, 2010 10:02 pm

Add Header and Trailer record also display the recod Count

Post by mots » Fri Dec 24, 2010 10:13 pm

I have Input file with below 2 types of records (02 and 03).
I would like to copy these records into output file and add the header as
'01 Details' then display all records from input file and add trailer as
'04 XXYYZZ'
Where XX - in trailer represents the number/count of 02 type record and
YY - in trailer represents the number/count of 03 type record and
ZZ - in trailer represents the total number/count of 02 and 03 type record

Input file (80 bytes of record length) -

02ABC
02ABC
02ABC
03XYZ
03XYZ
03XYZ
03XYZ
03XYZ

Output File (80 bytes of record length) -

01 Details
02ABC
02ABC
02ABC
03XYZ
03XYZ
03XYZ
03XYZ
03XYZ
04 030508

Could you please let me know the syntax for this using SORT utility.
Thank you,
Mots

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Fri Dec 24, 2010 10:44 pm

Here's a DFSORT job that will do what you asked for:

Code: Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file (FB/80)
//SORTOUT DD DSN=...  output file (FB/80)
//SYSIN DD *
  OPTION COPY
  INREC IFTHEN=(WHEN=(1,2,CH,EQ,C'02'),OVERLAY=(81:C'101')),
   IFTHEN=(WHEN=(1,2,CH,EQ,C'03'),OVERLAY=(81:C'011'))
  OUTFIL REMOVECC,
    HEADER1=('01 Details'),
    BUILD=(1,80),
    TRAILER1=('04 ',
      TOT=(81,1,ZD,EDIT=(TT)),
      TOT=(82,1,ZD,EDIT=(TT)),
      TOT=(83,1,ZD,EDIT=(TT)))
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

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