Converting JD Edwards dates

// Deriving a Date from a J.D. Edwards (CYYJJJ) Date // Convert JDE date to *iso date D Resultddate S D DATFMT(*ISO) ResultDate = %date(JDEDate + 1900000 : *longjul); // Deriving a J.D. Edwards Date from a true Date field // Convert an *ISO date to JDE date (CYYJJJ) D iGlDgj S D DATFMT(*ISO) GlDgj = %int(%char(iGlDgj:*longjul0)) - 1900000;

[report a broken link by clicking here]