RE: Eval(?)

[Chris Bipes <rpg@xxxxxxxxxxxxxxx>]

The common mistake I see is trying to concat two character fields to one
where the sum of the length of the two is greater that the result field.

Try:

Eval    Result = %triml(source1) + ' ' + source2

where source1 = 30 char = 'This is                       '
      source2 = 30 char = 'the result                    '
      Result  = 40 Char

and you want
'This is the result             '

but get

'This is                       the result'

when you
Eval Result = source1 + source2

If your source strings are not left justified or you are unsure, use the
%trim() to get rid of all the leading and trailing blanks.  Warning, on
large strings the %trim can take a lot of CPU.

Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000


Curt Penland wrote:

>I'm trying to pad a field with blanks while I put 
>the value of one field into another using the 
>EVAL opcode.
>
>What extensions within the () can I use in the 
>"EVAL()" ?
>
>I was hoping to be able to use a "P" like the 
>MOVEL(P) opcode.
+---
| 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
+---