CVTDAT Question

Hi Folks, Merry Christmas/Happy Hannukah...etc. and Happy New Year to all.

My company runs a CL pgm that has been running for many years that reads a date file and converts it to julian but when converting 123110 the pgm is returning CPF0555 due to 123110 being converted to invalid julian date 2010366. Has anyone seen this type of behavior b4 and how is it best resolved?

Thanks, Frank


Display Spooled File
File . . . . . : QPJOBLOG Page/Line 3/11

*NONE Command 12/30/09 05:00:00.292320 QCADRV QSYS 03B7 T2817C ASA2TOPGM 004F
Message . . . . : 8500 - CVTDAT DATE('122410') TOVAR(&HOLJUL)
FROMFMT(*MDY) TOFMT(*LONGJUL) TOSEP(*NONE)
*NONE Command 12/30/09 05:00:00.292360 QCADRV QSYS 03B7 T2817C ASA2TOPGM 006A
Message . . . . : 9000 - CVTDAT DATE('2010359') TOVAR(&CAL_HOLDAT)
FROMFMT(*LONGJUL) TOFMT(*MDY) TOSEP(*NONE)
*NONE Command 12/30/09 05:00:00.292384 QCLDMIO QSYS 026F T2817C ASA2TOPGM 003D
Message . . . . : 7200 - RCVF DEV(*FILE) RCDFMT(*FILE) WAIT(*YES)
OPNID(CAL) /* File name is T2687PF. */
*NONE Command 12/30/09 05:00:00.292424 QCADRV QSYS 03B7 T2817C ASA2TOPGM 004F
Message . . . . : 8500 - CVTDAT DATE('123110') TOVAR(&HOLJUL)
FROMFMT(*MDY) TOFMT(*LONGJUL) TOSEP(*NONE)
*NONE Command 12/30/09 05:00:00.292464 QCADRV QSYS 03B7 T2817C ASA2TOPGM 006A
Message . . . . : 9000 - CVTDAT DATE('2010366') TOVAR(&CAL_HOLDAT)
FROMFMT(*LONGJUL) TOFMT(*MDY) TOSEP(*NONE)
CPF0555 Escape 40 12/30/09 05:00:00.304040 QCLCNVDT QSYS 01ED T2817C ASA2TOPGM 006A
Message . . . . : Date not in specified format or date not valid.
Cause . . . . . : The date is not valid. Attempt to convert the date has
failed. Recovery . . . : Correct the syntax of the date field. More
information on date fields can be found in the CL Reference manual.
*NONE Command 12/30/09 05:00:00.304144 QCADRV QSYS 03B7 T2817C ASA2TOPGM 008A
Message . . . . : 11500 - OVRPRTF FILE(QPQUPRFIL) OUTQ(SICASA1)
FORMTYPE('D-499') HOLD(*NO)
*NONE Command 12/30/09 05:00:00.304248 QCADRV QSYS 03B7 T2817C ASA2TOPGM 008E
Message . . . . : 11800 - OVRPRTF FILE(QPUSRPRF) PRTTXT('*** DELIVER TO
STEVEN LUKE ***') OUTQ(EMAILSIC1) FORMTYPE('D-499') HOLD(*NO)
*NONE Command 12/30/09 05:00:00.304312 QCADRV QSYS 03B7 T2817C ASA2TOPGM 0092
Message . . . . : 12200 - CRTPF FILE(QTEMP/T2817TMP) RCDLEN(132)
CPC7301 Completion 00 12/30/09 05:00:00.339192 QDDCPF QSYS 0567 T2817C ASA2TOPGM 0092
Message . . . . : File T2817TMP created in library QTEMP.
CPC7305 Completion 00 12/30/09 05:00:00.379520 QDDCPFM QSYS 005B T2817C ASA2TOPGM 0092