Thanks for the info. The place where this program is called is inside what used to be a package in the early 90′s. We have heavily modified the code and it is all ours now. The package uses *LDA, sets its own libl, tons of multimember files, and a lot of other stuff I have to deal with.

I will add the code suggestion. Also thanks for giving me the details on where it should go too. I really appreciate the help.

Gail

We have Aldon so the compile option is stored automatically for future recompiles. But you are correct, I should document the special compile in the program source as well.

I am not familiar with the set option statement. Where does it go and what is the syntax?

Thanks for your help. Gail

That fixed it.
I set the CLOSQLCSR to *ENDMOD…

I don’t know if that’s the “correct” fix. It may depend on how the module will be used in the future. The idea is that future performance/efficiency can be influenced by how the module is used in different activation group settings.

For now, your best course is probably to put a SET OPTION statement in the source itself to set — and document! — the setting that is being used. That way, as you possibly develop the module further, you won’t need to remember how to compile it. And a future developer will be able to see the explicit setting.

Tom

Thanks!!!! Gail

I should have said I used RPG Free. The 1st SQL statement is below. The second is similiar:

Exec SQL
select count(*) into :blnkcnt from artran
where shipto = :blkacct and act = ’1100′;

I did not execute in my example but if the user chooses to print or view the records the programs does this SQL. fledata is a work file to hold the records.

Eval where = ‘select * from artran where shipto = custno for fetch only’;

Exec Sql
prepare pick from :where;
Exec Sql
declare A1 cursor for pick;
Exec Sql
open A1;
Exec Sql
fetch next from A1 into :fledata;

Also not exceuted in my example if the user chooses to update the file this is used
Exec SQL
update artran set shipto = :newship, billto = :newbill
where shipto = :custno;

Tom