Re: Arrays and Fields

[Gary Guthrie <garyguthrie@xxxxxxxxxxx>]

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

The array element has trailing blanks so there's no place for the part
you wish to concatenate. Trim off the trailing blanks as above.

Gary Guthrie


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.