Count number of duplicate records

[go4romel]

Hi,

I have a file with following records:

S00000 E30000 ABCDE RPP50
S00000 E30001 ABCDE RPP48
S00000 E30001 ABCDE RPP49
S00001 C30000 ABCDE RPP62
S00001 C30000 ABCDE RPP63
S00001 E30000 ABCDE RPP51
S00001 E30001 ABCDE RPP44
S00001 E30001 ABCDE RPP45
S00001 E30001 ABCDE RPP46
S00001 H30000 ABCDE RPP57
S00001 H30000 ABCDE RPP58
S00001 H30000 ABCDE RPP59
S00001 H30000 ABCDE RPP60
S00001 H30000 ABCDE RPP61
S00001 H30001 ABCDE RPP52
S00001 H30001 ABCDE RPP53
S00001 H30001 ABCDE RPP54
S00001 H30001 ABCDE RPP55
S00001 H30001 ABCDE RPP56

I need to get the count in output file as follows:

S00000 E30000 1
S00000 E30001 2
S00001 C30000 2
S00001 E30000 1
S00001 E30001 3
S00001 H30000 5
S00001 H30001 5

please help!!

[DikDude]

What have you tried? What happened? Where are you stuck?

What are the recfm and lrecl of the files?

[go4romel]

I used the following but dont what the results in the header and trailer format.
in this case i have to add one more step to remove the headers and trailers,but i want to make it in a single step.

Code: Select all

                               
//STEP10   EXEC PGM=ICETOOL                                          
//TOOLMSG  DD SYSOUT=*                                               
//DFSMSG   DD SYSOUT=*                                               
//OUTFILE  DD DSN=...(FB\50)                                           
//INFILE   DD DSN=...(FB\279)                     
//TOOLIN   DD   *                                                    
  OCCUR FROM(INFILE) LIST(OUTFILE) -                                 
      HEADER('CAMP') ON(7,12,CH) -                                   
      HEADER('LANG') ON(19,1,CH) -                                   
      HEADER('ZIP')  ON(20,10,CH) -                                  
      HEADER('COUNT') ON(VALCNT,N05)                                 
/*

[Frank Yaeger]

If you don't want the headers, you can suppress them:

Code: Select all

  OCCUR FROM(INFILE) LIST(OUTFILE) -     
      NOHEADER NOCC-                    
      ON(7,12,CH) -                      
      ON(19,11,CH) -                     
      ON(VALCNT,N05)                     

However, this will result in an output file with RECFM=FB and LRECL=120. If you really need your output to be RECFM=FB and LRECL=50, let me know.

[go4romel]

Is is possible to have a LRECL = 28 for the output so that it is readable through a copybook?
12+1+10+5 = 28

[Frank Yaeger]

You can use a DFSORT job like the following:

Code: Select all

//S1   EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN  DD DSN=...  input file (FB/279)
//SORTOUT DD DSN=...  output file (FB/28)
//SYSIN    DD   *
  SORT FIELDS=(7,23,CH,A)
  OUTFIL REMOVECC,NODETAIL,
    BUILD=(28X),
    SECTIONS=(7,23,
      TRAILER3=(7,23,COUNT=(EDIT=(IIIIT))))
/*

[go4romel]

Thanks a lot Frank!!.