Hi ,
I have a requirement where i need to count the records in a file based upon a field value.
My input record is 80 characters
the field that needs to be considered for counting is 21:2 (two bytes from 21 position)
example of input data
11111111111111111111EA
22222222222222222222EA
33333333333333333333IN
44444444444444444444IN
The output should be as
EA -- 2
IN -- 2
any option with icetool
Moderators: Frank Yaeger, Moderator Group
any option with icetool
thanks
Bobby
Bobby
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
You can use the OCCUR operator of DFSORT's ICETOOL for that. Here's an example:
OUT would have:
You can change the format of the report in various ways. For complete details, see:
http://publibz.boulder.ibm.com/cgi-bin/ ... 0527161936
Code: Select all
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//IN DD *
11111111111111111111EA
22222222222222222222EA
33333333333333333333IN
44444444444444444444IN
//OUT DD SYSOUT=*
//TOOLIN DD *
OCCUR FROM(IN) LIST(OUT) ON(21,2,CH) ON(VALCNT,U05) BLANK
/*
Code: Select all
(21,2,CH) VALUE COUNT
EA 2
IN 2
You can change the format of the report in various ways. For complete details, see:
http://publibz.boulder.ibm.com/cgi-bin/ ... 0527161936
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