Hi, I've been using the below codes for sometime but recently discovered some issue which am not able to understand why. Something to do with the data (only happens for some records in the year 2000 - 2010).
Code:
* IF YY > 49, CONVERT Z'YYDDD' TO X'00YYDDDC'
INREC IFTHEN=(WHEN=(26,2,ZD,GT,+49,OR,34,2,ZD,GT,+49,OR,54,2,ZD,GT,
+49),
BUILD=(1,23,X'00',26,5,ZD,TO=PD,LENGTH=3,31,1,X'00',34,5,ZD,TO=PD,
LENGTH=3,39,13,X'00',54,5,ZD,TO=PD,LENGTH=3,59,13)),
* IF YY <= 49, CONVERT Z'YYDDD' TO X'01YYDDDC'
IFTHEN=(WHEN=NONE,
BUILD=(1,23,X'01',26,5,ZD,TO=PD,LENGTH=3,31,1,X'01',34,5,ZD,TO=PD,
LENGTH=3,39,13,X'01',54,5,ZD,TO=PD,LENGTH=3,59,13))
* CONVERT X'00YYDDDC' TO Z'19YYMMDD'.
* CONVERT X'01YYDDDC' TO Z'20YYMMDD'.
* OUTREC IFTHEN=(WHEN=INIT,BUILD=(1,23,24,4,DT1,28,1,29,4,DT1,33,13,
* 46,4,DT1,50,13)),
* CONVERT Z'CCYYMMDD' TO C'DDMMCCYY'.
* IFTHEN=(WHEN=INIT,
* BUILD=(1,23,24,8,32,1,33,8,41,13,54,8,62,13))
* END
Input Data :
xxx;xxxxxxxxxxxxxxxx;x;2000026;2000080;xxxxxxxxxxx;1999364;xxxxxxxxxxx;
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
Shanthi Jayaraman,
Syncsort topics are discussed in the JCL forum.
Looks like you could make use of the DTNS parameter to make this work for input years in a century window of your choice. I have chosen the CENTWIN parameter as 1980 which works for years 1980 - 2079. You can modify this if needed.
