AW: Local Variables in a Subprocedure?

you forget the S for a stand alone field/variable. 

D   OrderNum        S             7A

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im 
Auftrag von Joe D
Gesendet: Freitag, 19. Januar 2007 08:26
An: RPG programming on the AS400 / iSeries
Betreff: Local Variables in a Subprocedure?

Hi All,

Been trying to force myself to use more ILE, even though I am in a RPG/400 
shop.  I also program in Delphi and VB and the concept of procedures, service 
programs, etc really is enticing.

Anyhow.  So tonight I have run into a problem that Google could not help me 
with.

I have a subprocedure that I pass one string and it returns another.  I wanted 
to declare some local variables in the procedure, but when I do the compiler 
acts like the declarations are for the passed in parameters.   The code is 
below.  Only one parm is really being passed in, and I want the other 3 to be 
local.  

How do I declare a local parameter in a subprocedure?

Obviously missing something again,
JD


Code:
     P GetDocType      B
     D GetDocType      PI            50A
     D   Doc                         30A

        // Local Parms
     D   OrderNum                     7A
     D   PickNum                      3S 0
     D   Count                        4S 0