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
- 19535 Views
- Saggezza, I also Faced
- E-Mail Answers
Answer Posted / mdv
Step 1.
Add SEQNUM for both the files @ positions 3 to 8 and 2 to 7
respectively.
Step 2.
Join based on key and reformat as needed.
// SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(3,6,A)
JOINKEYS FILE=F2,FIELDS=(2,6,A)
REFORMAT FIELDS=(F1:1,2,F2:1,1)
SORT FIELDS=COPY
/*
Note: Not tested.
| Is This Answer Correct ? | 2 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
How to do automated restart when a job abend?
what are the various stages of job processing?
when can a job time-out occur? How to overcome that?
What is the difference between run mode and addressing mode?
How to override a dsn that is contained in a proc called by another proc? I need to do the override in the calling jcl?
How does jcl act on a cobol code?
Explain how can a stopped job be started again?
Can an individual step be restricted from using all the jobs allowed cpu time?
How can a fb file convert to vb file using sort program?
What are the rules employed while naming the steps in a job?
1) SORT FIELDS=(20,4,CH,D,10,3,CH,D) OUTREC FIELDS=(7:20,4,C' FUTURE ',20,2,10,3,1Z,1,9,13,7, 24,57,TRAN=LTOU,6X'FF') This example illustrates how a fixed-length input data set can be sorted and reformatted for output. The SORTIN LRECL is 80 bytes. The reformatted output records are fixed length with a record size of 103 bytes. SOLRF (the IBM-supplied default) is in effect, so unless the SORTOUT LRECL is specified or available, it will automatically be set to the reformatted record length of 103. in the above example i have some doubts that a) sort fields=(20,4,CH,D,10,3,CH,D) -what exactly it does and this fields related to output record fields or input record fields b)outrec used to refprmat the records after sorting that means could please reply me as soon as possible Thanks. Venkat
which utility is used to run a cobol-db2 program?
What is Cataloged Procedures?
What is the purpose of dd?
