Wrete a JCL to compare two files and mached records move to
onc file & un mached rows wants to another file?
- 13 Answers
- 117099 Views
- CGI, DSRC, IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / kavya
It can be done using icetool.
//STEP001 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT.FILE1,
// DISP=SHR
// DD DSN=INPUT.FILE2,
// DISP=SHR
//NODUPES DD DSN=OUTPUT.NODUP,
// DISP=SHR
//DUPES DD DSN=OUTPUT.DUP,
// DISP=SHR
//TOOLIN DD *
SELECT FROM(SORTIN) TO(NODUPES) -
ON(x,y,CH) NODUPS
SELECT FROM(SORTIN) TO(DUPES) -
ON(x,y,CH) ALLDUPS
| Is This Answer Correct ? | 91 Yes | 27 No |
Answer / sachin borase
//JOBNAME
//S1 EXEC PGM=SORT
//SORTNJF1 DD DSN=FILE1
//SORTNJF2 DD DSN=FILE2
//SORTOUT DD DSN=O/P1
//SORTOF1 DD DSN =O/P2
//SYSIN DD *
JOIN KEYS = 01,FIELDS=(1,10,CH)
JOIN KEYS = 02,FIELDS=(1,11,CH)
REFORMAT FIELDS = (F1:1,80,F2:1,80)
SORT FIELDS = COPY
JOIN UNPAIRED,F1,F2
/*
IF YOU WANT EXACT SYSNTAX THEN TELL ME I WILL PROVIDE YOU.
| Is This Answer Correct ? | 62 Yes | 29 No |
Answer / rams
Every one answered well. I would like to emphasize on few
details.
SORTXSUM and ICETOOL are used to identify the duplicate
records Depending on what kind of SORT utitlity you are
using. SORTXSUM works in SYNCSORT. It does n't work in
DFSORT ( you can use ICETOOL in this case ).
If you use the above ICETOOL code for comparing 2 SORTIN
files, The results may not be accurate because the record
may be duplicated in the second file and does not exist in
the first one.
When you use SUM FIELDS=NONE, you need to specify a key
based on which the duplicated can be deleted, IF you use
SORT FIELDS=COPY it may not work ( or delete duplicates by
entire record...i am not sure though)
There is a small diff in the ICETOOL and SORTXSUM work. If
you have 1,2,3,4,4,4,5,5,6,7 in you i/p file.
The SORT ourfile will have 1,2,3,4,5,6,7 and SORTXSUM file
will have 4,4,5.
The ICETOOL ALLDUPS will have 4,4,4,5,5 and NODUPS file
will have 1,2,3,6,7.
| Is This Answer Correct ? | 20 Yes | 12 No |
Answer / balu
Hi
Can any one please provide the code for the below requirement.
there are 2 input files move the matched records in one file
and unmatched records in input file1 moves to outputfile1
and unmatched records in input file2 moves to output file2
| Is This Answer Correct ? | 6 Yes | 1 No |
Answer / 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 |
Answer / mainframeguru
can anyone tellme how to separate the duplicate records into the new dataset ,,, im not asking how to eliminate the duplicate records,,
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / pavan kumar ponnam
***********************************************************************
*****************.N.O.T E.A.S.Y S.E.R.I.O.U.S.L.Y. **************
***********************************************************************
Hi Team,
i am fighting for this solution.
***********************************************************************
Input file 1:
A
A
A
Input file 2:
A
Output Matched-file1:
A
Output Un-Matched-file2:
A
A
Without Any Program, With out any Sort-join Keys.Please let me know the solution with syntax.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / seetha
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. COBS.
000300 ENVIRONMENT DIVISION.
000400 INPUT-OUTPUT SECTION.
000500 FILE-CONTROL.
000600 SELECT INP-FILE ASSIGN TO DD1
000700 ORGANIZATION IS SEQUENTIAL
000800 ACCESS SEQUENTIAL.
000900 SELECT INP1-FILE ASSIGN TO DD2
001000 ORGANIZATION IS SEQUENTIAL
001100 ACCESS SEQUENTIAL.
001110 SELECT INP2-FILE ASSIGN TO DD3.
001120 SELECT INP3-FILE ASSIGN TO DD4.
001200 DATA DIVISION.
001300 FILE SECTION.
001400 FD INP-FILE.
001500 01 INP-REC.
001600 02 INP-EC PIC 9(4).
001700 02 F PIC X(1).
001800 02 INP-EN PIC X(4).
001900 02 F PIC X(71).
002000 FD INP1-FILE.
002100 01 INP1-REC.
002200 02 INP1-EC PIC 9(4).
002300 02 F PIC X(76).
002310 FD INP2-FILE.
002320 01 INP2-REC.
002330 02 INP2-EC PIC 9(4).
002340 02 F PIC X(1).
002350 02 INP2-EN PIC X(4).
002360 02 F PIC X(71).
002370 FD INP3-FILE.
002380 01 INP3-REC.
002390 02 INP3-EC PIC 9(4).
002391 02 F PIC X(1).
002392 02 INP3-EN PIC X(4).
002393 02 F PIC X(71).
002400 WORKING-STORAGE SECTION.
002410 77 FLAG PIC X(1) VALUE 'N'.
002500 77 EC PIC 9(4).
002600 77 EN PIC X(4).
002700 77 EF PIC X(1) VALUE 'N'.
002800 77 EF1 PIC X(1) VALUE 'N'.
002900 01 WS-REC.
003000 02 WS-ARR OCCURS 5 TIMES.
003100 06 ARRC PIC X(4).
003200 06 ARRN PIC X(4).
003300 01 WS-REC2.
003400 02 WS-ARR2 OCCURS 10 TIMES.
003500 06 ARRC2 PIC X(4).
003600 77 I PIC 9(1) VALUE 1.
003700 77 K PIC 9(2) VALUE 01.
003800 PROCEDURE DIVISION.
003900 100-MAIN-1.
004000 OPEN INPUT INP-FILE.
004100 OPEN INPUT INP1-FILE.
004110 OPEN OUTPUT INP2-FILE.
004120 OPEN OUTPUT INP3-FILE.
004200 INITIALIZE INP-REC INP1-REC INP2-REC
INP3-REC.
004300 PERFORM 100-IP-1 UNTIL EF = 'Y'
004400 PERFORM 200-IP-2 UNTIL EF1 = 'Y'
004500 PERFORM 300-DUMMY
004600 PERFORM 400-PROCESS-RTN
004700 STOP RUN.
004800 100-IP-1.
004900 READ INP-FILE AT END MOVE 'Y' TO EF
005000 CLOSE INP-FILE
005100 NOT AT END
005200 MOVE INP-EC TO ARRC(I)
005300 MOVE INP-EN TO ARRN(I)
005400 ADD 1 TO I
005500 END-READ.
005600 200-IP-2.
005700 READ INP1-FILE AT END MOVE 'Y' TO EF1
005800 CLOSE INP1-FILE
005900 NOT AT END
006000 MOVE INP1-EC TO ARRC2(K)
006100 ADD 1 TO K
006200 END-READ.
006300 300-DUMMY.
006400 DISPLAY WS-REC.
006500 DISPLAY WS-REC2.
006600 400-PROCESS-RTN.
006700 MOVE 1 TO I.
006800 MOVE 1 TO K.
006900 PERFORM VARYING I FROM 1 BY 1 UNTIL I >
5
007000 PERFORM VARYING K FROM 1 BY 1 UNTIL K >
10 OR FLAG = 'Y'
007100 IF ARRC(I) = ARRC2(K)
007200 MOVE WS-ARR(I) TO INP2-REC
007201 DISPLAY "INP2"
007210 WRITE INP2-REC
007220 MOVE 'Y' TO FLAG
007500 END-IF
007600 END-PERFORM
007610 IF FLAG NOT = 'Y'
007620 MOVE WS-ARR(I) TO INP3-REC
007630 WRITE INP3-REC
007650 END-IF
007660 MOVE 'N' TO FLAG
007700 END-PERFORM.
| Is This Answer Correct ? | 9 Yes | 11 No |
I have 10 steps, I want to run STEP1 TO STEP4 then I should not run STEP5 and STEP6. Aganin I want to execute from STEP7 to STEP10. ONLY using CONDITION CODES how can we execute this process? 1. Where we can set cond codes for STEP5 and STEP6? 2. How can we execute remaining steps from STEP7 to STEP10?
what is JCL?
Why do you want to specify the REGION parameter in a JCL step?
//ERFDS JOB //STEP1 //STEP2 //STEP3...COND=(4,LT) //STEP4 1.CONDITION IN STEP3 REFERS TO WHICH STEP'S RETURN CODE (STEP1 OR STEP2)? 2.IN ABOVE PROGRAM IF CONDITION SATISFIES IN STEP3 WHICH STEPS WILL EXECUTE?? AND WHY? IF CONDITION IN STEP3 SATISFIES
how many max steps can we use in a job? pls answer to my question
Using DELETE what type of file can you delete? a)SEQUENTIAL FILE B)INDEXED FILE C) D) Some options were there..i cant remember
What is the maximum length of a single line of jcl?
What do you understand by the term “keyword” with respect to jcl and what is the opposite of the term?
IF we are calling a PROC from Jcl...This Proc have 3 steps in it and we want to execute only the second step using the JCL, How to do it?? Please give the answer ASAP:)
I had Records in file Like this Company Code IBM 2 IBM 1 IBM 4 WIPRO 3 WIPRO 2 WIPRO 9 TCS 4 TCS 6 TCS 3 i want the record of every company with highest code How can i do that?
Is there a way to check for an empty file in JCL other than using IEBCOMPR and the command PRINT COUNT(1)?
What is RESTART? How is it invoked?
COBOL 
