re: two RPGLE questions

["Hans Boldt" <hboldt@xxxxxxxxxxxx>]

boothm@earth.goddard.edu wrote:
> In RPGLE:
>
> 1) can an RPGLE program be run in debug mode?

Yes.  Compile with option DBGVIEW(*SOURCE) or DBGVIEW(*LIST) for easier
debugging.  Start debugging with STRDBG.

>
> 2) How do I move today's date into a field name DateISO, described as
> DATFMT(*ISO)?  I need to do this repeatedly so initializing the value
> isn't an answer.

If you are using V3R7, use the TIME opcode with the date field in the
Result-Field entry.  V3R7  was enhanced to allow date, time, and
timestamp fields with opcode TIME.

Prior to V3R7, you have two steps: 1) Code a 14 digit numeric
field as the result of TIME;  2) MOVE the 14 digit field to field
DateISO.  (Hmmm, this is easier than I first expected!)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  D DateISO         s               d   datfmt(*iso)
  D Num14           s             14s 0

   * V3R7 technique:
  C                   time                    DateISO
  C     DateISO       dsply

   * Prior to V3R7 technique:
  C                   time                    Num14
  C                   move      Num14         DateISO
  C     DateISO       dsply

  C                   seton                                        lr
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, hboldt@vnet.ibm.com
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *