How to retain the Duplicates in the one records?
Answer Posted / kk
Hi,
Using sort Utilities,
some fields=None,xsum
//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TEST.XSUM.INPUT,DISP=SHR
//SORTOUT DD DSN=TEST.XSUM.OUTPUT,DISP=SHR
//SORTXSUM DD DSN=TEST.XSUM.OUTPUT.XSUM,DISP=SHR
//SYSIN DD *
SORT FIELDS=(2,10,CH,A)
SUM FIELDS=NONE,XSUM
Is This Answer Correct ? | 15 Yes | 4 No |
Post New Answer View All Answers
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
How do you reference the following file formats from cobol programs?
What is the difference between goback, stop run and exit program in cobol?
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
How do you define a variable of comp-1 and comp-2?
) what is the difference between AID and HANDLE AID?
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?
What rules are followed by the search verb.
how can i see junk values in dclgen or in hostvariable of comp ?
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
Explain how to differentiate call by context by comparing it to other calls?
Write some characteristics of cobol as means of business language.
Write a cobol program making use of the redefine clause.
)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?