Hi Team,
I have a situation where need to perform deletion of COMP-3 field data from FILE#1 that are present in File#2 but in Numeric value.
Please suggest a logic to perform the same, this has to be done in a faster way to avoid any delay.. as the FILE#1 is allocated to Online.
Any help will be appreciated.
Thanks,
Jaya
Background of the issue :
We have two files to be compared and found unmatched records. File-A and File-B. Both the files were SORTED to convert COMP-3 to Numeric and then performed compare. Now I have File-C with Unmatched records from File-B (This is in Numeric Format) Now I delete File-C records from File-B. But how do I do?
File-B has the field in COMP-3
File-C has the field in Numeric format.
Help to perform delete for COMP-3
Moderator: Moderator Group
Field is declared as : PIC 9(7) COMP-3
For compare converted them as below :
File-A
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,34,2X,
40:35,4,PD,EDIT(TTTTTTTC),2X)
File-B
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,4,PD,EDIT(TTTTTTTC),2X,
15:5,500,2X)
File-C is like below :
0147458 .ÀØ|
0210000 .Ä..
0210001 .Ä..
0210002 .Ä..
Which has to be deleted from file which looks like :
.....Ä..
.....Ä..
.....Ä..
.....Ä..
Thanks,
Jaya
For compare converted them as below :
File-A
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,34,2X,
40:35,4,PD,EDIT(TTTTTTTC),2X)
File-B
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,4,PD,EDIT(TTTTTTTC),2X,
15:5,500,2X)
File-C is like below :
0147458 .ÀØ|
0210000 .Ä..
0210001 .Ä..
0210002 .Ä..
Which has to be deleted from file which looks like :
.....Ä..
.....Ä..
.....Ä..
.....Ä..
Thanks,
Jaya
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