Hello everyone,
I'm making an outrec sentence and at the end of the record i'm leaving space for a 15 elements table with the next structure:
PackedA PD 7
PackedB PD 7
StringC A2
PackedD PD 11
and my outrec looks like this.....
OPTION COPY
OUTREC FIELDS=(1,23,31X,C'0',37,12,86X,130,207,342,24,24,7,
32,3,588,4,4X,601,5,607,5,614,1,1X,
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'000000000C',21X)
As you can see there is a horrible 15 times line repetition...my question is if there is any form to do the same with only 1 line
Thank you very much in advance....
Sentence repetition......
Moderators: Frank Yaeger, Moderator Group
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
Here's a DFSORT OUTREC statement that will do what you asked for:
Code: Select all
OUTREC FIELDS=(1,23,31X,C'0',37,12,86X,130,207,342,24,24,7,
32,3,588,4,4X,601,5,607,5,614,1,1X,
15X'0000000C0000000C404000000000000C',
2X'000000000C',21X)
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