midrange.com code scratchpad
Name:
RPG program to pass one date prior to current date
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
01/25/2021 11:56:10 am
IP:
Logged
Description:
RPG program to pass one date prior to current system date.
Code:
  1. DToday                         s                              d
  2. DPrevday                      s                              d
  3. c                                   eval    Today   = %date()
  4. c                                   eval  Prevday  = Today  - %days(1)
  5. c                                  call          'DT7BK'
  6. C                                PARM                    Prevday
  7. C                               SETON                                                                      LR
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css