Hi,
I have below requirement, I'm kind of lost of how to start a group and end it when trailer record do not exist and group should end based off of next groups start.
XXX 08
DATA1
DATA2
DATA3
XXX 10
DATA 1
DATA2
DATA3
XXX 08
DATA 1
DATA 2
DATA 3
XXX 08
DATA 1
DATA 2
DATA 3
XXX 10
DATA 1
DATA 2
DATA 3
Output should be in two different files based on XXX record's 5-6 pos - either 08 or 10
File 1:
XXX 08
DATA1
DATA2
DATA3
XXX 08
DATA 1
DATA 2
DATA 3
XXX 08
DATA 1
DATA 2
DATA 3
File 2:
XXX 10
DATA 1
DATA2
DATA3
XXX 10
DATA 1
DATA 2
DATA 3
Any suggestions/ ideas greatly appreciated..
SORT - Ifthen, when group question
Moderators: Frank Yaeger, Moderator Group
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
You just need to use BEGIN for the XXX record. You don't need END. You can use a DFSORT job like the following. I assumed your input file has RECFM=FB and LRECL=80, but you can change the job appropriately for other attributes.
Code: Select all
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
XXX 08
DATA1
DATA2
DATA3
XXX 10
DATA 1
DATA2
DATA3
XXX 08
DATA 1
DATA 2
DATA 3
XXX 08
DATA 1
DATA 2
DATA 3
XXX 10
DATA 1
DATA 2
DATA 3
//OUT08 DD SYSOUT=*
//OUT10 DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'XXX'),PUSH=(81:5,2))
OUTFIL FNAMES=OUT08,INCLUDE=(81,2,CH,EQ,C'08'),BUILD=(1,80)
OUTFIL FNAMES=OUT10,INCLUDE=(81,2,CH,EQ,C'10'),BUILD=(1,80)
/*
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
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
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
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page