Problem mit Pointern und Procedure

[Rainer Ross]

Hallo Forum,

ich arbeite sehr gerne mit Pointern und free RPG und habe zwei Ideen zum obigen Programm.

- im Header arbeite ich mit der Option *teraspace.
- es wäre auch möglich, das ArtikelArray als Adresse an die Prozedur zu übergeben

Herzliche Grüße

Rainer

         ctl-opt dftactgrp(*no) alloc(*teraspace) option(*nounref);

         dcl-pr getArtikel;
                 Mat              char(10) const;
                 Array_p          pointer  const;
         end-pr;

         dcl-s   ArtikelArray     char(10) dim(999);

           getArtikel('MATERIAL':%addr(ArtikelArray));

           *inlr = *on;
      //------------------------------------------------------------------//
      // Procedure - getArtikel                                           //
      //------------------------------------------------------------------//
         dcl-proc getArtikel export;
         dcl-pi *n;
                 ##Einsatz   char(10)     const;
                 ##array_p   pointer      const;
         end-pi;

         dcl-s   arrArtikel  like(ArtikelArray) based(##array_p);

         dcl-s   arrEins     char(10) dim(999) inz(*hival);
         dcl-s   ax          uns(10) inz(0);

         end-proc;
      //------------------------------------------------------------------//