RE: Date Printing

You could even add the format code as a second parameter:

Eval  PrintDate = %OutDate(DateField:'*MDY')

Ron

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Jim Langston
Sent: Wednesday, January 19, 2000 11:14 AM
To: RPG400-L@midrange.com
Subject: Re: Date Printing


Well, in this case I would probably write a service program,
that accepted a date field as a parameter, and returned a
character field.  As a Bif I could say:

Eval  PrintDate = %OutDate(DateField)

which would make it nice and clean.

Regards,

Jim Langston

Jon.Paris@halinfo.it wrote:

>  >> There's got to be a better way.  Any suggestions would be appreciated.
>
> I guess IBM haven't got round to implementing the MAPVAL on printer files
yet -
> haven't had time to check lately.
>
> To avoid indicators you can print the date as a Char field and do
something like
> :
>
> If   Datefield <> *LoVal
> Eval PrintDate = %Char(DateField)
> Else
> Eval PrintDate = *Blank
>
> Less than optimum but .......
>

+---
| 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
+---

+---
| 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
+---