%Days Example

      * Program     :·DaysR
      * Description :·%Days() Example
      *
      * %Days(Input)
      *
      * Input       :·No. of Days
      *
      * Output      :·Days as a duration
      *==========================================================
      *
     D TodayDate       S               D   Datfmt(*USA)
     D TomorrowDate    S               D   Datfmt(*USA)

     C
      /Free
        // ------------------------------------------------------
        // Date from integer
        // ======================================================

           TodayDate = %Date() ;
           Dsply TodayDate ;

           TomorrowDate = TodayDate + %Days(1) ;
           Dsply TomorrowDate ;

      /End-Free
     C                   SetOn                                        LR