%LEN and *ZERO

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]


This question is for Hans or Barbara (or anyone else who knows):

Why does the RPG IV compiler reject the following line with RNF7563?

        C                       EVAL %LEN(cmdString) = *ZERO

when cmdString is defined as:

        D cmdString             S               5768    VARYING

I see the documentation says:

        "The parameter must not be a figurative constant."

but that suggests to me the parameter of the BIF cannot be a figurative 
constant (e.g., something stupid like x = %LEN(*HIVAL)) not that I can't used 
a figurative constant to assign the current length.

I want to know why they can't be used.  I can understand rejecting many of the 
figurative constants but rejecting *ZERO seems a bit short-sighted to me.  
What is the real difference between the failing line and the following:

        C                       EVAL %LEN(cmdString) = 0

which is accepted by the compiler.

Especially in view of the fact that the compiler is quite happy with a 
construct like:

        C                       IF      %LEN(cmdString) = *ZERO

I would expect %LEN(cmdString) = *ZERO to set the length to zero; 
%LEN(cmdString) = *HIVAL to set the length to 99999 since the length component 
is a BIN(2) and to generate an error if the declared length is less than 
99999; %LEN(cmdString) = *LOVAL to generate an error because you can't have a 
negative length -- although there is a reasonable argument that *LOVAL should 
be the same as *ZERO in this case because the smallest variable length value 
is zero.

In the words of a famous, now dead, Australian; Why is it so?

I can feel a PMR coming on ....

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| 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
+---