FOR EACH S_Artikel
  WHERE S_Artikel.Artikel = '00000000001'
    AND S_Artikel.Firma = '100':
  S_Artikel.LagerME = 100.

END.


FOR EACH V_BelegKopf
  WHERE V_BelegKopf.BelegDatum > 12.06.2010,
EACH V_BelegPos
  WHERE V_BelegPos.ReferenzNr = V_BelegKopf.ReferenzNr,
FIRST S_Artikel
  WHERE S_Artikel.Artikel = V_BelegPos.Artikel:


  MESSAGE V_BelegKopf.BelegNummer SKIP
          V_BelegPos.BelegArt SKIP
          S_Artikel.Artikel.


END.






DEFINE VARIABLE ReturnedValue AS INTEGER       NO-UNDO.

{mawi/lager/proc/custom2.p}

RUN myProcedure(OUTPUT ReturnedValue).

RUN mySecondProcedure(100, OUTPUT ReturnedValue).

ReturnedValue = MyFunction(100).


// tylko odczyt tabeli
FOR EACH S_Artikel
  NO-LOCK:

  MESSAGE S_Artikel.Artikel.


END.


// Odczyt i zapis
FOR EACH S_Artikel
  exclusive-lock:

    S_Artikel.archiviert = FALSE.
    MESSAGE S_Artikel.AnlageBenutzer.

END.



// Znalezienie jednoego rekordu

FIND FIRST S_Artikel
  WHERE S_Artikel.Firma = '200'.




//// PLIK CUSTOM2.p /////

/* ************************  Function Prototypes ********************** */



FUNCTION MyFunction RETURNS INTEGER
  ( MyInput AS INTEGER ) forward.



/* ***************************  Main Block  *************************** */

PROCEDURE myProcedure:

  DEFINE       OUTPUT PARAMETER MyVar AS INTEGER       NO-UNDO.

  MyVar = 123.

END.

PROCEDURE mySecondProcedure:

  DEFINE INPUT        PARAMETER myInput AS INTEGER       NO-UNDO.
  DEFINE       OUTPUT PARAMETER myOutput AS INTEGER       NO-UNDO.

  myOutput = myInput * myInput.

END.


FUNCTION MyFunction RETURNS INTEGER
  ( MyInput AS INTEGER ):

  RETURN MyInput * MyInput.

END FUNCTION. /* MyFunction */