doubt

[manu_mf]

I Have a file namely file1 in which some records are present (Note:Some of the duplicate records are also present i mean some records are repeating ) I want to copy the records from this file(file1) to other file namely(file2) which are repeating more than thrice means to copy the records repeating more than three times .How i acn achieve this using JCL ?

Thanks in Advance.

[dbzTHEdinosauer]

use iebgener and concatenate the same ds in sysut1, 2 times. (total of 3 dd statements for sysut1 with same DSN)

[manu_mf]

thanks for u r reply

but i did not get u .. can u please explain me clearly wat that means and how that happens ?

[dbzTHEdinosauer]

Code: Select all

//STEP1    EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DSN=TTGI.ASTEX79.AMBXREF,
//             DISP=SHR
//         DD  DSN=TTGI.ASTEX79.AMBXREF,
//             DISP=SHR
//         DD  DSN=TTGI.ASTEX79.AMBXREF,
//             DISP=SHR
//SYSUT2   DD  DSN=TTGI.ASTEX79.AMBXREF.COPY,
//             DISP=(NEW,CATLG,CATLG),
//             UNIT=SYSDA,SPACE=(CYL,(10,5),RLSE),
//             DCB=(RECFM=FB,LRECL=40,BLKSIZE=0)
//SYSIN    DD  DUMMY

ask someone at your shop if you have questions on the JCL

[Frank Yaeger]

manu mf,

I don't think Dick understood your question. (If he did, I don't understand his answer.)

You can use a DFSORT/ICETOOL job like the following:

Code: Select all

//S1   EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN DD DSN=...  input file
//OUT DD DSN=...  output file
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(p,m,f) HIGHER(3)
/*

p,m,f describes the field you want to use to check for duplicates. p is the starting position of the field, m is the length of the field and f is the format of the field. Example:

ON(1,20,CH)

If you need more specific help, provide more details such as an example of your input records and what you expect for output, p,m,f for the ON field you want to use, the RECFM and LRECL of the input file, etc.

For complete details on the SELECT operator of DFSORT's ICETOOL, see:

http://publibz.boulder.ibm.com/cgi-bin/ ... 0615185603