RE: BIF's question.

My mistake, I apologize, WrkStr would equal '123'.

See...

   |
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++
| 
   |    *
| 
   |   D city            S             40A   VARYING INZ('North York')
| 
   |
| 
   |
CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq..
| 
   |
CL0N01Factor1+++++++Opcode(E)+Extended-factor2+++++++++++++++++++++++++++
| 
   |    *
| 
   |    * %LEN used to set the current length of a variable-length field:
| 
   |   C                   EVAL      %LEN(city) = 5
| 
   |    * city = 'North' (length is 5)


courtesy of ILE RPG for AS/400 Reference.

> Regards,
> Jon A. Erickson
> Sr. Programmer Analyst
> 800.COM Inc.
> 1516 NW Thurman St
> Portland, OR  97209-2517
> 
> Direct: 503.944.3613
> Fax: 503.944.3690
> Web: http://800.com
> 


-----Original Message-----
From: Jon Erickson 
Sent: Wednesday, May 24, 2000 9:35 AM
To: 'RPG400-L@midrange.com'
Subject: RE: BIF's question.


WrkStr='12345'

and I believe you'll receive a compliation error, the %len BIF RETURNS the
length of the field, not assign it.



-----Original Message-----
From: Fabrizio Gurrieri [mailto:fabrizio.gurrieri@bartolini.it]
Sent: Wednesday, May 24, 2000 8:06 AM
To: 'RPG400-L@midrange.com'
Subject: BIF's question.


The question is this:



D WksStr             s                     5        VARYING INZ('12345')




C                        EVAL               %len(WrkStr)=3



What is the WrkStr value????

Is      '345'
Or         '123'




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