Re: Passing Parameters

[Adam Glauser <adamglauser@xxxxxxxxxxxx>]

Don Wereschuk wrote:
> < How is the code inside the procedure supposed to know how long the field
> < is that you are passing?
>
> Again I'm not passing actual data since I haven't read the file yet.

Oh, now I think I get what you're trying to do.  Maybe you want 
something more like this:

      P FillArrayAll    B
      D FillArrayAll    PI
      D  FieldToCheck                   *
      D  lenFieldToCheck...
      D                                5P 0 const
      D  CheckValue                   50A
      D  ArrayValue                   50A
      D*
      DCheckField       S          65535A   based(FieldToCheck)
      D
      D

       /FREE
        COUNT = 1;
        read input filerec;
        dow %subst(CheckField : 1 : lenFieldToCheck) < CheckValue;
           read input filerec;
        enddo;
        dow not %eof(input) and
            %subst(CheckField : 1 : lenFieldToCheck) = CheckValue and
            COUNT < 9999;
               WrkSupp(COUNT)  = ArrayValue;
               COUNT += 1;
            read input filerec;
        enddo;
       /END-FREE
      P FillArrayAll    E

and you would call it like this:
fillArrayAll(%addr(filerec.PLCD) : %size(filerec.PLCD) : 
'thisRecordNeedsAction' : 'I want this is my array');

As an aside, you seem to be using a global variable (WrkSupp) inside 
your subprocedure.  This is not a very good practice, and can lead to 
some really frustrating bugs.

HTH,
Adam