How to fetch even records from one file to another file by
using ICETOOL in JCL?
Answer Posted / harsha
//STEP1 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT.DATA,DISP=SHR
//OUTDATA DD DSN=OUTPUT.DATA,DISP=(NEW,CATLG,DELETE)
.
.
.
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUTDATA,SAMPLE=2
THIS WILL COPY ALL EVEN RECORDS
-------------------------------------------
FOR ODD RECORDS
OUTFIL FNAMES=OUTDATA,STARTREC=1,SAMPLE=2
Is This Answer Correct ? | 5 Yes | 0 No |
Post New Answer View All Answers
WORKING-STORAGE SECTION. 01 GROSS-PAY. 05 BASIC-PAY PIC 9(5). 05 ALLOWENCES PIC 9(3). PROCEDURE DIVISION. MOVE 1000 TO BASIC-PAY. MOVE 250 TO ALLOWENCES. DISPLAY GROSS-PAY. STOP RUN. 77 W-A PIC 9(3)V99 VALUE 23.75 77 W-B PIC ZZ9V99 VLAUE 123.45 after the statement MOVE W-A TO W-B what will be W-B's value? a.123.75 b.b23.75 (where b indicates space) c.023.75 d.invalid move
what are JCLLIB and STEPLIB in JCL?
Differentiate between addressing mode and run mode.
What is condition checking in jcl? Is this possible?
How to alter the parameters for the existing gdg?
What is the job entry system used in your project? based on what criteria the sequence of jobs are picked if priority is not mentioned in the job card?
Can an individual step be restricted from using all the jobs allowed cpu time?
List the different jcl statements that are not permitted in the procedures?
what happens in execution stage in job processing?
Where can program checkpoints be stored for use in a restart?
State the uses of syspring, sysin, sort fields, sum fields and dummy.
What do you understand by the term job time – out and how can you overcome that?
How can the disposition of sysout datasets be set for an entire jobstream?
What statement marks the beginning of a job step; assigns a name to the step; identifies the program or catalogued or in-stream procedure to be executed in the step?
What is the function of job statement in jcl?