I have a File that has duplicate records. I need only those
records that occur more than thrice.
Answer Posted / pradip anand
//USERIDR JOB (M,92950000,,9999),'N=TSO.ICETOOL',MSGCLASS=M,
// CLASS=M,NOTIFY=USERID
//*
//STEP001 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=INPUT.FILE1,DISP=SHR
// DD DSN=INPUT.FILE2,DISP=SHR
//*
//EQDUPES DD DSN=OUTPUT.FILE.REC,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// DCB=(LRECL=200,RECFM=FB,BLKSIZE=0,DSORG=PS),
// SPACE=(CYL,(30,30),RLSE)
//TOOLIN DD
*
SELECT FROM(SORTIN) TO(EQDUPES) -
ON(4,4,CH) EQUAL(N)
/*
Example:
Input File1:
000 1111 12356908
001 1212 54321234
002 1323 78654323
003 5656 98765456
Input File2:
000 1000 12356908
001 1212 99999999
002 1323 77777777
003 5656 88888888
Output File:
When EQUAL(1)
000 1000 12356908
000 1111 12356908
When EQUAL(2)
001 1212 54321234
001 1212 99999999
002 1323 78654323
002 1323 77777777
003 5656 98765456
003 5656 88888888
mail me if still have any doubt.
| Is This Answer Correct ? | 3 Yes | 0 No |
Post New Answer View All Answers
in order to execute step2 a job after a return code of 8 in step1, what condition you will code in step2?
How can a fb file convert to vb file using sort program?
What are steplib and joblib? What for they are used?
How can a jobs execution priority be modified?
Which statement is used to identify the private libraries in job?
write a jcl to execute a job by 7:00 am on jan 20,1986?
What is concatenating?
What are the difference between jcl and jes?
by using cond parameter maximum 8 cond can be coded in single cond means ?explain
What is catelog procedure and how many catelog procedure to use in one job?
Step 1 RC 4 Step 2 Step 3 I want to know the COND parameter which can be coded in step 2 or 3. Step 2 should be executed based on Step 1 RC and Step 3 should not be executed based on step 1's RC
why should SYSIN DD * statement should not be included inside a PROCedure snippet??? please answer this.. i need to know.
What is the function of dd name parameter with a 2 part structure; audit.report?
Name the statement which can be used to send data to another mvs jes3 node?
Explain the purpose of the dd keylen parameter?