Local Variables in a Subprocedure?

["Joe D" <nike@xxxxxxxxxxxxxx>]

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