Re: Passing By Reference

["JJW" <rpgilejjw@xxxxxxxxxxx>]

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