Hi,
I have a input data field which is PIC 9(10)V99. This value needs to be populated in output file with 13 bytes.
Input file is
9999991000014000001272098060276000000000000000186718771
OUTREC FIELDS=(1:C'AB',
3:C'XXXXXXXX',
11:9X,
20:6X,
26:C'A',
27:14,8,
35:32,12,
48:44,12,
61:10Z)
I need output as below:
ABXXXXXXXX A0000012700000000000000000186718771
Can you please help me?
Outrec - move 12 byte data to occupy 13 bytes
Moderators: Frank Yaeger, Moderator Group
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