Re: Arrays and Fields

[Raul A Jager <raul@xxxxxxxxxx>]

How long is MESSGE?  If it is 78, add a %trim like this:

C                   EVAL      MESSAGE = %trim(ARMSG01(6)) + ' ' + %CHAR(TOTALHOURS)




fkany@averittexpress.com wrote:

> I want MESSAGE field to be populated with "Excluded Time Exceeds Hours:
> 12".
> Only "Excluded Time Exceeds Hours:" is populating the MESSAGE field.
> Can anyone see why this line of code will not work?  I've been looking at this too long and
> can't see the problem.  Need a fresh pair of eyes =).
>
> =============================================================================
> D ARMSG01         S             78    DIM(6) CTDATA PERRCD(1)
>
> C                   EVAL      MESSAGE = ARMSG01(6) + ' ' + %CHAR(TOTALHOURS)
>
> ** ARMSG01
> You Must Enter a Valid Service Center
> You Have Entered an Invalid Service Center
> You Must Enter a Valid Date
> You Have Entered an Invalid Date
> You Must Use .00, .25, .50, or .75 -> Example: 1.50 NOT 1.30 for 1 hour 30 min
> Excluded Time Exceeds Hours:
> ==============================================================================
>
> TIA,
>
> Frank
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.