Interested to Buy Any Domain ? << Click Here >> for more details...
Write a JCL by using the below requirement:
File1 =1, File2 =11 and output needs to come as File3 =111?
- 8 Answers
- 19549 Views
- Saggezza, I also Faced
- E-Mail Answers
Answer Posted / msharib
One can try this
//STEP2 EXEC PGM=SORT
//IN1 DD *
1
/*
//IN2 DD *
111
/*
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS F1=IN1,FIELDS=(1,1,A)
JOINKEYS F2=IN2,FIELDS=(1,1,A)
REFORMAT FIELDS=(F1:1,1,F2:1,3)
OPTION COPY
/*
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
For what purpose steplib and joblib are used ?
Explain the purpose of dd dummy statement?
in a jcl, a large volume dataset is loaded to a table using bmcload in step1 and an image copy of the loaded table is taken using bmccopy in step2. Step2 abends because the image copy dataset cannot hold the volume of the table. How can this be rectified?
Give the syntax of job specifying jcl statement.
Name what parameter directs the output of the job log dataset?
Explain the function of dd disp parameter?
which parameter is use to declare the name of dataset in dd statement?
What do you understand by the term “keyword” with respect to jcl and what is the opposite of the term?
What is the use of symbol // in jcl?
What does a disposition of (new,catlg,keep) for a dsn mean?
Explain how can the disposition of sysout datasets be set for an entire jobstream?
what operation is performed by job statement?
What happens if both JOBLIB & STEPLIB is specified ?
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
//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 /*
