Interested to Buy Any Domain ? << Click Here >> for more details...
how to write a jcl prog to copy alternate recs from ps1 to
another ps2,suppose ps1 having 10 recs?
- 2 Answers
- 9945 Views
- Steria, TCS, I also Faced
- E-Mail Answers
Answer Posted / vaneesh khurana
To do so we require OUTFIL and SPLIT option of DFSORT.
//STEPNAME EXEC PGM=SORT
//SORTIN DD DSN=SORTIN.INPUT.FILE.TO.SPLIT,DISP=SHR
//PS1 DD DSN=PS1.FILE,DISP=SHR
//PS2 DD DSN=PS2.FILE,DISP=SHR
//SYSIN DD *
OUTFIL FNAMES=(PS1,PS2),SPLIT
/*
This will write 1st, 3rd,5th ....record in the PS1 and
2nd,4th,6th ....record in ps2 file.
| Is This Answer Correct ? | 14 Yes | 3 No |
Post New Answer View All Answers
have in 100 records in a file i want to read first 3 records and skip next 3 records and agan i want to read 3 records and again i want to skip 3 records... run a loop from record one to 10 evaluate i/3 if comes even then skip else write to output file
which utility is used a dummy utility?
I have 60 steps in the JCL and want to Execute Only First from PROC by overriding in JCL ?
How is the record format of an output dataset specified?
What do you understand by the terms: joblib and steplib?
Why include statement is used in a jcl?
Does jcl support automatic restart?
List in order the hierarchical levels of jcl?
What is 'mounting' of volumes ? Is there anything that a programmer can do in it ? How to find currently mounted volume ?
what are the statements that are not valid to be included in an include statement?
//S10 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //CON DD DSN=VAR.INPUT1,DISP=SHR // DD DSN=VAR.INPUT2,DISP=SHR //OUT DD DSN=VAR.OUTPUT,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(5,5)),UNIT=SYSDA //TOOLIN DD * * Splice the needed data from the two VB files together SPLICE FROM(CON) TO(OUT) ON(5,5,CH) WITHALL - WITH(12,5) WITH(22,20) VLENMAX /*
How does jcl act on a cobol code?
which utility is used to run a cobol-db2 program?
what disp parameter we mention for creation of temporary dataset so that we can use it in later steps?
What do you understand by the term job time – out and how can you overcome that?
