× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. November 2002

Re: Passing By Reference

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.