Re: A bug?

["Paul Morgan" <pmorgan@xxxxxxxxxxxxxx>]

Marco,

If you have a data structure defined in the program right before the /COPY
then this wouldn't be an error.  Your copy book would be adding fields to
the data structure.  I'd bet your service program (with the data structure)
was the RPGLE program and your calling program (without the data structure)
was the SQLRPGLE program that caught the error.

Paul

-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

Marco wrote

> I made a service program with this prototype:
>
>  /IF NOT DEFINED(SERVICE)
> d xnamfields                    10    dim(500)
> d xposfields                     5i 0 dim(500)
> d xlenfields                     5i 0 dim(500)
> d xnbrfields                    10i 0 inz
>  /ENDIF
> d mgetfields      pr            10i 0 extproc('MGETFIELDS')
>
> d xnomefile                     10    const
> d xnomelibr                     10    const
> d xnamfields                    10    dim(500)
> options(*OMIT:*NOPASS)
> d xposfields                     5i 0 dim(500)
> options(*OMIT:*NOPASS)
> d xlenfields                     5i 0 dim(500)
> options(*OMIT:*NOPASS)
>
> and the RPG compiler didn't notice that I forgot the S in
> the field definitions between the IF DEFINED and ENDIF, the
> RPG/SQL compiler spotted the error.
>
> Marco