RE: Program performance incease ideas

Brian, 

You need to remove the trim(ivptcl).  That prevents an index from being used 
for that field.



Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Brian Piotrowski
> Sent: Tuesday, July 19, 2005 12:44 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Program performance incease ideas
> 
> 
> By the way, here's the modified code I am now using for the 
> same routine:
> 
>       /free
>          read sswihi;
>          dow not %eof(sswihi);
>       /end-free
>      C*
>      c/exec SQL
>      c+    select sum(ivpqty) into :IRGLINV
>      c+    from sst37t2
>      c+    where ivptno= :ihptno
>      c+      and trim(ivptcl)= :ihptcl
>      c/end-exec
>      C*
>       /free
>            // Check the in-house inventory - it should not be 
> less than zero.
>            // If it is, reset it to zero.
>            IHQTY = IHQTY - irglinv;
>            If IHQTY < 0;
>              IHQTY = 0;
>            Endif;
>            update dihi_fmt;
>            read sswihi;
>          enddo;
> 
> Many thanks to all who pointed out I don't need a cursor for 
> my statements!
> 
> Brian.
>