Re: Re[2]: "extract" command enhancement

[bmorris@xxxxxxxxxx]

>Date: Tue, 21 Sep 1999 12:11:13 -0400
>From: dhandy@isgroup.net (Douglas Handy)
>...
>You can come close enough.  Just code procedures like
>  SetMonth( DateField: Month )
>or whatever.  Its arguably not quite the same as being able to write
>left-hand side expressions, but it gets the job done.
>...
>The only problem with doing your own SetXXX procedures for d/t/z parts
>is you must know the field format.  This is because you can't use
>VALUE or CONST on the d/t/z field since you need to pass it by
>reference.
>...

Write your procedure like this:

D SetMonth     PR       D   DATFMT(*ISO)
D   InMonth             D   VALUE DATFMT(*ISO)
D   NewMonth          10I 0 VALUE

C   EVAL  DateField = SetMonth( DateField: Month )

Barbara Morris


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---