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.

What is the use of symbol // in jcl?

1531

---

How to alter the parameters for the existing gdg?

1253

---

What is concatenating?

1138

---

I want to join to input files and write the matching fields on to an output file but i dont want the output file a sorted one

2515

---

Explain dfsort utility?

1401

---

Suppose there are 2 Input files Infile-1 and Infile-2. Both the Files contain Employee Records. You need to compare both the files and Write the Common Records in third file named Outfile. How can we do this using File-Aid?

2809

---

if we want to use a gdg which is already created by some job, then how to use the reference of the last generation in a jcl?

2349

---

How to pass the parameter in parm using linkage section ? (syntax)?

1182

---

What are hierarchy levels in jcl?

1569

---

What is the function of the steplib dd statement?

1248

---

Is automatic restart possible in jcl? If yes, how?

1168

---

What is jcl in mainframe, and how many types of jcl statements are there for a job?

1246

---

Give the syntax of job specifying jcl statement.

1200

---

How do you create a temporary dataset?

1241

---

How do you overcome this limitation ?

1246

---