Interested to Buy Any Domain ? << Click Here >> for more details...
Wrete a JCL to compare two files and mached records move to
onc file & un mached rows wants to another file?
- 13 Answers
- 121817 Views
- CGI, DSRC, IBM, I also Faced
- E-Mail Answers
Answer Posted / ashish uplenchwar
ID DIVISION.
PROGRAM-ID. COMP1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT F1 ASSIGN TO DD1
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS FS1.
SELECT F2 ASSIGN TO DD2
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS FS2.
SELECT F3 ASSIGN TO DD3
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS FS3.
SELECT F4 ASSIGN TO DD4
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS FS4.
DATA DIVISION.
FILE SECTION.
FD F1.
01 FILE1.
02 F1EID PIC X(2).
02 FNAME PIC X(5).
02 FILLER PIC X(73).
FD F2.
01 FILE2.
02 F2EID PIC X(2).
02 LNAME PIC X(5).
02 FILLER PIC X(73).
FD F3.
01 FILE3.
02 F3EID PIC X(2).
02 FNAME1 PIC X(5).
02 LNAME1 PIC X(5).
02 FILLER PIC X(68).
FD F4.
01 FILE4.
02 F4EID PIC X(2).
02 FNAME3 PIC X(5).
02 LNAME3 PIC X(5).
02 FILLER PIC X(68).
WORKING-STORAGE SECTION.
77 FS1 PIC 9(2).
77 FS4 PIC 9(2).
77 FS2 PIC 9(2).
77 FS3 PIC 9(2).
01 TABLE1.
02 TAB1 OCCURS 5 TIMES INDEXED BY A1.
03 EID1 PIC X(2).
03 FNAME2 PIC X(5).
01 TABLE2.
02 TAB2 OCCURS 5 TIMES INDEXED BY A2.
03 EID2 PIC X(2).
03 LNAME12 PIC X(5).
PROCEDURE DIVISION.
OPEN INPUT F1.
OPEN INPUT F2.
OPEN OUTPUT F3.
OPEN OUTPUT F4.
PERFORM UNTIL FS1 = 10
READ F1
IF FS1 = 00 THEN
MOVE F1EID TO EID1(A1)
MOVE FNAME TO FNAME2(A1)
END-IF
SET A1 UP BY 1
END-PERFORM.
CLOSE F1.
PERFORM UNTIL FS2 = 10
READ F2
IF FS2 = 00 THEN
MOVE F2EID TO EID2(A2)
MOVE LNAME TO LNAME12(A2)
END-IF
SET A2 UP BY 1
END-PERFORM.
CLOSE F2.
SET A1 TO 1.
OPEN INPUT F2.
PERFORM UNTIL FS2 = 10
SET A1 TO 1
READ F2
IF FS2 = 00 THEN
SEARCH TAB1 AT END PERFORM P1
WHEN EID1(A1) = F2EID PERFORM P2
END-SEARCH
END-IF
END-PERFORM.
SET A2 TO 1.
OPEN INPUT F1.
PERFORM UNTIL FS1 = 10
SET A2 TO 1
READ F1
IF FS1 = 00 THEN
SEARCH TAB2 AT END PERFORM P3
WHEN EID2(A2) = F1EID PERFORM P4
END-SEARCH
END-IF
END-PERFORM.
CLOSE F2 , F3 ,F4.
STOP RUN.
P1.
MOVE FILE2 TO FILE4.
WRITE FILE4.
P2.
MOVE EID1(A1) TO F3EID.
MOVE FNAME2(A1) TO FNAME1.
MOVE LNAME TO LNAME1.
WRITE FILE3.
P3.
MOVE FILE1 TO FILE4.
WRITE FILE4.
P4.
MOVE EID2(A2) TO F3EID.
MOVE FNAME2(A2) TO FNAME1.
MOVE LNAME TO LNAME1.
WRITE FILE3.
| Is This Answer Correct ? | 1 Yes | 1 No |
Post New Answer View All Answers
Name the parameters which can be used to limit the number of records written to a sysout dataset?
how do you create a dataset in a jcl with the same file organisation as that of another existing dataset?
Is condition checking possible in jcl? If yes, how?
Mention the types of job control statements?
what EXEC statement is and what is the syntax of EXEC statement used in JCL?
What are steplib and joblib? What for they are used?
what happens when COND is coded in JOB statement and when COND is coded inside EXEC statement?
which utility is used a dummy utility?
What does a disposition of (new,catlg,keep) for a dsn mean?
what is “Cond= even” and “Cond=only”?
Explain how can an in-stream dataset be terminated?
What are hierarchy levels in jcl?
How does jcl specify the job to the operating system?
what operation is performed by job statement?
We can use PASS with permanent datasets also. THEN Which is the condition in which we may use PASS (instead of KEEP) with permanent data sets, while there is no need to specify UNIT and VOL for them like temporary data sets (in cas we use KEEP for permanent data sets) ?
