D nextd7          s              8  0
     D dmydt1          s               d   datfmt(*dmy) inz
     d msgtxt          s             32
     d Resp            s              1
     C
     c                   eval      nextd7 =  20391230
     c     *iso          move      nextd7        dmydt1
           msgtxt =  'Test Case is 20391230 + 1 day';
           DSPLY     msgtxt '' Resp;
     c     dmydt1        adddur(E) 1:*d          dmydt1
     c                   if        %error()
           DSPLY     'Test failed : *DMY' '' Resp;
     C                   else
           msgtxt =  'Test passed : ' + %char(dmydt1);
           DSPLY     msgtxt '' Resp;
     c                   endif
     C
     c                   eval      nextd7 =  20391231
     c     *iso          move      nextd7        dmydt1
           msgtxt =  'Test Case is 20391231 + 1 day';
           DSPLY     msgtxt '' Resp;
     c     dmydt1        adddur(E) 1:*d          dmydt1
     c                   if        %error()
           DSPLY     'Test failed : *DMY' '' Resp;
     C                   else
           msgtxt =  'Date passed : ' + %char(dmydt1);
           DSPLY     msgtxt '' Resp;
     c                   endif
     C
     C
     C                   eval      *inlr = '1'
     C
     C*--------------------------------------------- END OF CODING --*