Re: Going Nuts

[Joel Cochran <jrc@xxxxxxxxxx>]

Mark,

I'm having a little trouble relating the snippet you sent to your
message, so I'm going to focus on your message:

First, you cannot have setgt, eof, or other file processing code in an
SQL procedure, it is either SQL of File processing.

Second, X is obviously defined, but where is it being used?  It could be
something as simple as a missing semi-colon.

Third, the actual physical order of the source lines DOES matter in an
SQL program, so you may be on to something there.

I don't know if any of this helps or not.  You can send me more code if
you want and I'll look at it.

Thanks,

Joel
http://www.rpgnext.com


On Thu, 2003-07-31 at 10:36, MWalter@xxxxxxxxxxxxxxx wrote:
> OK, maybe someone can tell me why this is happening. Here is the code
> snippet:
> 
>  DstrDate          S             14  0
>  DendDate          S             14  0
> 
>  DsqlStmt          S            500    varying
>  Dx                S              3  0
>  Dcodes            DS             5    DIM(10)  qualified
>  Dhours            DS             5    dim(10)  qualified
> 
>   /free
> 
>     reset dsHrs;
>     reset Hours;
>     reset Codes;
> 
>     // get date range. the previous saturday to the previous saturday
>     setgt chkdate Kalendl8;
>     dou %eof(Kalendl8);
>        readp Kalendl8;
>        if %eof(Kalendl8);
>           return;
> 
> 
> Firstly the compiler tells me that x is not defined (It is used farther
> down the program)
> Then it tells me that Kalendl8 is not defined. for the 'dou %eof(Kalendl8);
> 
> This code is in a subprocedure that contains SQL. Don't know if that has
> anything to do with it or not.
> 
> 
> 
> Thanks,
> 
> Mark
> 
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.