Answer Posted / anju

//step1 exec pgm=sort
//sortin dd dsn=file1,disp=shr
//sortout dd dsn=file2,disp=(new,catlg,delete),
// unit=disk,space=(cyl(20,10),rlse)
// dcb=(recfm=fb,lrecl=80,blksize=800)
//sortxsum dd dsn=file3,disp=(new,catlg,delete),
// unit=disk,space=(cyl(20,10),rlse)
// dcb=(recfm=fb,lrecl=80,blksize=800)
//sysin dd *
sortfields=none,xsum
/*
//step2 exec pgm=sort
//sortin dd dsn=*.step1.sortxsum
//sortof01 dd dsn=file4,disp=(new,catlg,delete),
// unit=disk,space=(cyl(20,10),rlse)
// dcb=(recfm=fb,lrecl=80,blksize=800)
//sortof02 dd dsn=file5,disp=(new,catlg,delete),
// unit=disk,space=(cyl(20,10),rlse)
// dcb=(recfm=fb,lrecl=80,blksize=800)
sysin dd *
sortfields=copy
outfil files=01,startrec=2,endrec=2
outfil files=02,startrec=3,ENDREC=5
/*


I did not test this. Hope this will work and file4 will give
the last but 1 duplicate record.

what is the compile process of cobol program expalin with code

2647

---

Explain the function of dd disp parameter?

1175

---

by using cond parameter maximum 8 cond can be coded in single cond means ?explain

1531

---

Is it possible to left uncode disp? If yes, how?

1230

---

how do you code a null statement?

1387

---

How to execute 2nd and 4th steps among 5 steps in jcl proc?

1409

---

what is the purpose of coding notify parameter in job statement?

1202

---

What dd statement is used to supply the name of a dataset?

1447

---

What is the purpose of dd?

1294

---

when can a job time-out occur? How to overcome that?

1350

---

My Question is 1. How to cound no. of records in JCL. Please explain with an example. 2. How to execute only odd steps in JCL? I know EDIT TYPE = Inculde, Step Name = 1,3,5 and COND code for all even step. Anyone knows other than this.

2516

---

How can a jobs execution priority be modified?

1343

---

how you can direct the data to spool using SYSOUT option?

1517

---

what is the JCL statement consists of?

1257

---

What are the parameter we cannot use in procedure?

1196

---