Frank,
I am getting an error while identifying updated records. The process is working properly while identifying newly inserted records and existing deleted data.
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=FLE2.IND.TEST.KX090SS.INPUT8,DISP=SHR
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYM DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//TOOLIN DD *
COPY FROM(IN) TO(T1) USING(CTL1)
COPY FROM(T1) TO(SYM) USING(CTL2)
//CTL1CNTL DD *
OPTION STOPAFT=1
OUTFIL FTOV
//CTL2CNTL DD *
* SET UP LRECL AS 5,5,ZD
INREC BUILD=(1,4,5:1,2,BI,SUB,+4,TO=ZD,LENGTH=5)
* USE LRECL IN 5,5,ZD TO CREATE NEEDED SYMBOLS
OUTFIL FNAMES=SYM,VTOF,
BUILD=(C'LRECL,',5,5,80:X,/,
C'RFFLD,1,',5,5,80:X,/,
C'DATAL,',(5,5,ZD),SUB,+68,TO=ZD,LENGTH=5,/,
C'INC1,',(5,5,ZD,MUL,+2),ADD,+1,TO=ZD,LENGTH=5,C',1,CH',/,
C'BLD1,',(5,5,ZD),ADD,+1,TO=ZD,LENGTH=5,C',11',/,
C'BLD2,',(5,5,ZD),ADD,+19,TO=ZD,LENGTH=5,C',50',/,
C'BLD3,',(5,5,ZD),ADD,+69,TO=ZD,LENGTH=5,C',',
(5,5,ZD),SUB,+68,TO=ZD,LENGTH=5,/,
C'BLD4,69,',(5,5,ZD),SUB,+68,TO=ZD,LENGTH=5)
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SYMNOUT DD SYSOUT=*
//IN1 DD DSN=INPUT8,DISP=SHR
//IN2 DD DSN=INPUT9,DISP=SHR
//OUT3 DD DSN=UPDATE9,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// LIKE=INPUT8
//OUT6 DD DSN=UPDCOUN9,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// LIKE=INPUT8
//OUT7 DD DSN=NOUPD9,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// LIKE=INPUT8
//SYSIN DD *
JOINKEYS F1=IN1,FIELDS=(19,50,A),SORTED
JOINKEYS F2=IN2,FIELDS=(19,50,A),SORTED
JOIN UNPAIRED,F1,F2
JOIN UNPAIRED,F1,F2
REFORMAT FIELDS=(F1:RFFLD,F2:RFFLD,?)
OPTION COPY
OUTFIL FNAMES=OUT3,INCLUDE=(INC1,EQ,C'B',AND,
(BLD4,BI,NE,BLD3,BI)),
BUILD=(1:BLD1,16:C'UPD',19:BLD2,69:BLD3)
OUTFIL FNAMES=OUT6,INCLUDE=(INC1,EQ,C'B',AND,
(BLD4,BI,NE,BLD3,BI)),
BUILD=(1:DATE,14:1,11,25:C'UPD',29:SEQNUM,6,ZD,69:BLD3)
OUTFIL FNAMES=OUT7,INCLUDE=(INC1,EQ,C'B',AND,
(BLD4,BI,EQ,BLD3,BI)),
BUILD=(1:DATE,14:1,11,29:SEQNUM,6,ZD,69:BLD4)
/*
SYMNOUT
------------------ SYMBOL TABLE -----------------
LRECL,665
RFFLD,1,665
DATAL,597
INC1,1331,1,CH
BLD1,666,11
BLD2,684,50
BLD3,734,597
BLD4,69,597
SYSOUT
1ICE270I 0 PROCESSING SYMNAMES STATEMENTS
ICE280I 1 ORIGINAL STATEMENTS FROM SYSIN FOLLOW
JOINKEYS F1=IN1,FIELDS=(19,50,A),SORTED
JOINKEYS F2=IN2,FIELDS=(19,50,A),SORTED
JOIN UNPAIRED,F1,F2
JOIN UNPAIRED,F1,F2
REFORMAT FIELDS=(F1:RFFLD,F2:RFFLD,?)
OPTION COPY
OUTFIL FNAMES=OUT3,INCLUDE=(INC1,EQ,C'B',AND,
(BLD4,BI,NE,BLD3,BI)),
BUILD=(1:BLD1,16:C'UPD',19:BLD2,69:BLD3)
OUTFIL FNAMES=OUT6,INCLUDE=(INC1,EQ,C'B',AND,
(BLD4,BI,NE,BLD3,BI)),
BUILD=(1:DATE,14:1,11,25:C'UPD',29:SEQNUM,6,ZD,69:BLD3)
OUTFIL FNAMES=OUT7,INCLUDE=(INC1,EQ,C'B',AND,
(BLD4,BI,EQ,BLD3,BI)),
BUILD=(1:DATE,14:1,11,29:SEQNUM,6,ZD,69:BLD4)
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE002I 0 DUPLICATE OR CONFLICTING JOIN STATEMENT
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR IN1 - SEE JNF1JMSG
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR IN2 - SEE JNF2JMSG
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=1331
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE805I 1 JOBNAME: TMPCMP7 , STEPNAME: S1
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT
http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EX
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 23:27
JOINKEYS F1=IN1,FIELDS=(19,50,A),SORTED
JOINKEYS F2=IN2,FIELDS=(19,50,A),SORTED
JOIN UNPAIRED,F1,F2
JOIN UNPAIRED,F1,F2
ICE002I 0 DUPLICATE OR CONFLICTING JOIN STATEMENT
REFORMAT FIELDS=(F1:1,665,F2:1,665,?)
OPTION COPY
OUTFIL FNAMES=OUT3,INCLUDE=(1331,1,CH,EQ,C'B',AND,(69,597,BI,NE,734,59*
7,BI)),BUILD=(1:666,11,16:C'UPD',19:684,50,69:734,597)
OUTFIL FNAMES=OUT6,INCLUDE=(1331,1,CH,EQ,C'B',AND,(69,597,BI,NE,734,59*
7,BI)),BUILD=(1:DATE,14:1,11,25:C'UPD',29:SEQNUM,6,ZD,69*
:734,597)
OUTFIL FNAMES=OUT7,INCLUDE=(1331,1,CH,EQ,C'B',AND,(69,597,BI,EQ,734,59*
7,BI)),BUILD=(1:DATE,14:1,11,29:SEQNUM,6,ZD,69:69,597)
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR IN1 - SEE JNF1JMSG
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR IN2 - SEE JNF2JMSG
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=1331
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE221A 1 INVALID FIELD OR CONSTANT IN OUT3 IFTHEN 0 CONDITION 2
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K90026 E9-K60824 E7-K90026
ICE052I 3 END OF DFSORT
Input File 8:
JD100-FILE 6460698 001 ª001ÿ001CTM-CD CTM 6460698 0002000120010010001
JD100-FILE 6460698 004 ª004ÿÿÿÿCTM-JKL CTM 6460698 0002000120010010002
JD100-FILE 6460698 005 ª005ÿÿÿÿCTM-NEP CTM 6460698 0002002120010010002
JD100-FILE 6460698 006 ª006ÿÿÿÿCTM-YWQ CTM 6460698 0002000120010010002
JD100-FILE 6460701 001 ª001ÿ001CTM-CD CTM 6460701 0002002220010010001
JD100-FILE 6460701 004 ª004ÿÿÿÿCTM-LMN CTM 6460701 0002002320010010002
JD100-FILE 6460701 005 ª005ÿÿÿÿCTM-YWQ CTM 6460701 0002002320010010002
JD100-FILE 6460701 006 ª006ÿÿÿÿCTM-XBM CTM 6460701 0002002320010010002
JD100-FILE 6460702 001 ª001ÿ001CTM-CD CTM 6460702 0002000120010010001
JD100-FILE 6460702 004 ª004ÿÿÿÿCTM-NEP CTM 6460702 0002002320010010002
JD100-FILE 6460702 005 ª005ÿÿÿÿCTM-YWQ CTM 6460702 0002000120010010002
Input File 9:
JD100-FILE 6460698 001 ª001ÿ001CTM-CD CTM 6460698 0002000120010010001
JD100-FILE 6460698 004 ª004ÿÿÿÿCTM-JKL CTM 6460698 0002000120010010002
JD100-FILE 6460698 005 ª005ÿÿÿÿCTM-NEP CTM 6460698 0002002120010010002
JD100-FILE 6460698 006 ª006ÿÿÿÿCTM-YWQ CTM 6460698 0002123450010010002
JD100-FILE 6460701 001 ª001ÿ001CTM-CD CTM 6460701 0002002220010010001
JD100-FILE 6460701 004 ª004ÿÿÿÿCTM-LMN CTM 6460701 0002002320010010002
JD100-FILE 6460701 005 ª005ÿÿÿÿCTM-YWQ CTM 6460701 0002002320010010002
JD100-FILE 6460701 006 ª006ÿÿÿÿCTM-XBM CTM 6460701 0002002320010010002
JD100-FILE 6460702 001 ª001ÿ001CTM-CD CTM 6460702 0002000120010010001
JD100-FILE 6460702 004 ª004ÿÿÿÿCTM-NEP CTM 6460702 0005662320010010002
JD100-FILE 6460702 005 ª005ÿÿÿÿCTM-YWQ CTM 6460702 0002000120010010002
I am not sure why it is showing an error.