Six decimal date *MDY converted to *ISO

Unknown Tuesday, 28 May 2013
RPGLE Programs
Edit

    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*
Posted by Unknown at
Labels:

No comments

Subscribe to: Post Comments ( Atom )