Hilfe ich komme einfach nicht weiter

Code: Alles auswählen.

TYPES: BEGIN OF l_ordertab,
*              locid TYPE /tab1/locid,
*              matid TYPE /tab1/matid,
              matnr TYPE /tab1/v_matloc-matnr,
              locno TYPE /tab1/v_matloc-locno,
             orderid TYPE /tab1/ORDERID,
              cat TYPE /tab1/ATPCAT,
              locfr TYPE /tab1/LOCID,
              locto TYPE /tab1/LOCID,

       END OF l_ordertab.

TYPES: BEGIN OF l_eorder,
*              locid TYPE /tab1/locid,
*              matid TYPE /tab1/matid,
             matnr TYPE /tab1/v_matloc-matnr,
              locno TYPE /tab1/v_matloc-locno,
             orderid TYPE /tab1/ORDERID,
              cat TYPE /tab1/ATPCAT,
              locfr TYPE /tab1/LOCID,
              locto TYPE /tab1/LOCID,
       END OF l_eorder.
* Tabellen
DATA: lt_matloc TYPE /tab1/v_matloc OCCURS 0,
     wa_matloc TYPE /tab1/v_matloc,
      lt_eorder TYPE STANDARD TABLE OF l_eorder ,
      wa_eorder TYPE l_eorder.

* Variablen
DATA: locno TYPE /tab1/loc-locno,
      matnr TYPE /tab1/matnr,
      datefr TYPE /tab1/SNPTSTMP,
      dateto TYPE /tab1/SNPTSTMP.


DATA: lt_ordertab TYPE STANDARD TABLE OF l_ordertab,
      wa_ordertab TYPE l_ordertab.

DATA: i TYPE l_ordertab,
      itab TYPE l_ordertab,
      x TYPE l_eorder,
      xtab TYPE l_eorder.


* Lokation
SELECTION-SCREEN BEGIN OF BLOCK loc WITH FRAME TITLE text-002.
SELECT-OPTIONS s_locno FOR locno.
SELECT-OPTIONS s_matno FOR matnr.
PARAMETERS: s_datefr LIKE datefr.
PARAMETERS: s_dateto LIKE dateto.

SELECTION-SCREEN END OF BLOCK loc.


START-OF-SELECTION.

  SELECT * FROM /tab1/V_MATLOC INTO CORRESPONDING FIELDS OF TABLE lt_matloc WHERE locno in s_locno AND matnr in s_matno.

 LOOP AT lt_matloc into wa_matloc.
    CALL FUNCTION 'Z_READ_ORDER'

    EXPORTING
    I_MATID               = wa_matloc-matnr
    I_LOCID               = wa_matloc-locno
    I_TSTFROM             = datefr
    I_TSTTO               = dateto
*     I_CATGR               =
    I_VERSIO              = '000'
    I_CAT                 = 'EP'
*     I_DET                 = ''
   IMPORTING
     E_ORDER_TAB           = lt_eorder
*     E_ORDKEYS_TAB         =
*     E_ORDERMAP_TAB        =
*   EXCEPTIONS
*     ORDER_NOT_FOUND       = 1
*     OTHERS                = 2
          .
    IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

LOOP AT lt_eorder into lt_ordertab.

move wa_eorder-cat  to wa_ordertab-cat.
move wa_eorder-locfr  to wa_ordertab-locfr.
move wa_eorder-locto  to wa_ordertab-locto.
move wa_matloc-matnr   to wa_ordertab-matnr.
move wa_matlich-locno  to wa_ordertab-locno.

APPEND lt_ordertab from wa_ordertab.

ENDLOOP.