Re: Passing By Reference

[Gary Guthrie <garyguthrie@xxxxxxxxxxx>]

F1 is a parameter. You don't use it on the Return op-code. It's returned
to the caller by virtue of the fact that it is a parameter passed by
reference.

Gary Guthrie



JJW wrote:
>
> Here's the code that has the problem with the pointer not
> set.
>
> H nomain
>
>   *
> --------------------------------------------------------------------
> H debug(*YES)
>
> H option(*SRCSTMT)
>
>   *
> --------------------------------------------------------------------
>   /COPY *libl/sanfords,elimpr
>
>   *
> --------------------------------------------------------------------
>   *     B E G I N    P R O C E D U R E
>
>   *
>
> P prREMOVE        B                   Export
>
>   *
> --------------------------------------------------------------------
> D prREMOVE        PI         32766    Opdesc
>
> D   F1                       32766    Options(*varsize)
>
> D   C1                           1    Const
>
>   *
> --------------------------------------------------------------------
> D CEEDOD          PR
> D   ParmNum                     10I 0 Const
> D                               10I 0
> D                               10I 0
> D                               10I 0
> D                               10I 0
> D                               10I 0
> D                               12A   Options(*omit)
>   * -------------------------------------------------
> D DataType        S             10I 0 Inz
> D DescInfo1       S             10I 0 Inz
> D DescInfo2       S             10I 0 Inz
> D DescType        S             10I 0 Inz
> D InLen           S             10I 0 Inz
>   * -------------------------------------------------
>
>   /free
>
>     CEEDOD(1:DescType:DataType:DescInfo1:DescInfo2:InLen:*omit);
>
>     If InLen <> *Zeros AND C1 <> *Blanks;
>
>        Dow (%scan(C1:F1) > *Zeros)  AND  (%scan(C1:F1) <=
> InLen);
>           F1 = %replace('':F1:%scan(C1:F1):1);
>
>        endDO;
>
>     endIF;
>
>     Return F1;
>
> /end-free
>
>   prREMOVE        E