Re: Using the Test Opcode in Free Format

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

On Wednesday, February 11, 2004, at 11:03  AM, Bill wrote:

>  Test (ED) *MDY0 scrDate ;
>
> And the compiler is giving the following:
> "Factor One operand is not valid, defaults to blanks."  Pointing out 
> the
> left parenthesis.
> "A semi-colon is not specified at the end of a free-format 
> specification."
> Pointing out the right parenthesis.
> "Either the error indicator or the E operation extender must be 
> specified
> for the TEST operation."
>
> scrDate is a 6 digit numeric field.  We are on V5R2.  Is the syntax
> incorrect?

Of course, that's why the compiler is complaining. In free-form RPG you 
cannot have any space between the op-code and the op-code extender. 
Thus:

	Test(ED) *MDY0 scrDate ;

Further, the 0 separator form is not allowed with a numeric field.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------