RPGLE - Six decimal date *MDY converted to *ISO

RPGLE  - Six decimal date *MDY converted to *ISO

C*
     C* must cerify that this is a correct date
     C*
     C                   Move      ShipDateTxt   Dec6
     C     *MDY          Test(de)                Dec6
     C                   If        %Error
     C                   Eval      ShipDate = %Date()
     C                   Else
     C     *MDY          Move      Dec6          ShipDate
     C                   Endif
     C*