Re: Free form SQL

No, I don't think so. Here is a sample statement from something that compiles on the other box:

if table = 'T'; exec sql update posting set otppdt = :NewYYMMDD, otplin = 1 + GetMxLne(otpssn,otpjob,:NewYYMMDD) where otppdt between :OldYYMMDD1 and :OldYYMMDD2 and otpssn between :ssn1 and :ssn2 and otpcus between :usr1 and :usr2 and otpjob between :job1 and :job2 and otpxjb between :act1 and :act2; ENDIF;
The whole thing is read as one statement, up to the semicolon. I think I'll check the PTF numbers and figure out if they have been applied yet.

Thanks

Pete

Roger Harman wrote:

Missing the semi-colon at the end of "exec sql"??

Pete@xxxxxxxxxx 10/05/2007 4:59:58 PM >>>

I have applied (I think) the correct PTF's on my V5R3M0 270 and I am attempting to compile an SQLRPGLE source member that has free format SQL

in it and it is acting like it doesn't know what to do with it.

The error is:

6161 exec sql ======> aaa *RNF5347 30 a 368388 An assignment operator is expected with the EVAL operation.

The actual code from the member is:

c/free
if Mode = 'I';
exec sql
insert into pasa408a
values(:ID,:ADate,:Line1,:Line2);
endif;

It throws the RNF5347 error just after the exec sql.

I have some similar code on another V5R3M0 machine that compiles so I think this machine must be missing some PTF's or perhaps they were applied delayed?

Can't remember the PTF numbers although I think I found them on this list (somewhere). How can I tell if the PTF's are applied (or waiting as delayed)? Or, is there some syntax issue?

Thanks,

Pete Helgren