Page 1 of 1

Help to perform delete for COMP-3

Posted: Tue Oct 21, 2014 6:27 pm
by jxsrini
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.

Posted: Tue Oct 21, 2014 7:00 pm
by jxsrini
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

Posted: Wed Oct 22, 2014 5:38 pm
by NicC
Is this a sort question, a cobol question, a pl/1 question or what? It isn't a question on Abends or error codes.

By 'low values' do you mean x'00'?

Topic deleted by Admin

Posted: Thu Jan 21, 2016 11:13 am
by academyindia4
<< Content deleted By Admin >>