Hallo Herr Bender,

ich möchte aber ein "autarkes Modul" davon bauen. Mit LikeDs ginge es im gleichen Programm, wo auch die Datei deklariert ist.

Soweit bin ich derzeit:


Code:
 
Das Programm 
 
     FMWKCRELU  IF   E           K DISK    rename (FKCREZO:LogRec)
      *
     D/COPY PGMSRC/QRPGLESRC,MOD_GBUD_P
     D   L             DS                  LikeRec(LogRec) INZ
     D   A             DS                  LikeRec(LogRec) INZ
      *
     C     REDKEY        KLIST
     C                   KFLD                    MANDANT           3
     C                   KFLD                    KTR               4 0
     C
     C
     C                   movel     '100'         mandant
     C                   movel     '0687'        ktr
     C                   movel     *zeros        x_gew            15 2
     C                   movel     *zeros        x_gew2           15 2
     C
     C     redkey        setll     mwkcrelu
     C                   DOU       %EOF(mwkcrelu)
     C     redkey        reade     mwkcrelu
     C                   IF        NOT %EOF(mwkcrelu)
     C                    
     C                   callp     GET_BED_GEW(L:x_gew:x_gew2)
     C
     C                   ENDIF
     C                   ENDDO
     C
     C*‚--------------------------------------------------------------------
     C                   eval      *inlr = *on
Code:
 
Der Prototyp
 
     P GET_BED_GEW     B                   EXPORT
     D GET_BED_GEW     PI
     D   PADS        e ds                  ExtName(MWKCREL1)
     D   PAGEW                       15  2
     D   PAREW                       15  2
     D*---------------------------------------------------------------------
      *
     C
      *
     C                   RETURN
     D*---------------------------------------------------------------------
     P GET_BED_GEW     E

Bei der Umwandlung gibts einen Fehler, dass mehr Parameter übergeben werden, als die Prozedur es zulässt.

Wahrscheinlich beißen sich die LikeRec und die Deklaration des Parameters im Protoyp (ExtName(MWKCREL1) )

Wo liegt der Fehler ?

Gruß
Bratmaxxe