Unterprogramm erstellen - Abweichende Parameteranzahl

Code: Alles auswählen.

Form f_nast 
 using p_table type STANDARD TABLE ty_vbrk changing p_nast.

Code: Alles auswählen.

TYPES:
 ty_vbrk TYPE TABLE OF vbrk.

DATA:
  tab_sap TYPE STANDARD TABLE OF vbrk,
  tab_nast TYPE STANDARD TABLE OF nast.

Perform f_nast using tab_sap changing tab_nast.



Form f_nast
 using p_table type ty_vbrk changing p_nast.

  SELECT objky,kschl,erdat, vstat,parnr
         INTO CORRESPONDING FIELDS OF TABLE @p_nast
         FROM nast FOR ALL ENTRIES IN @p_table
         WHERE objky EQ @p_table-vbeln AND
                     @kschl EQ 'X'.

endform.

Code: Alles auswählen.

perform f_nast using CORRESPONDING ty_objky(gt_sap mapping objky = vbeln) changing gt_nast.

Code: Alles auswählen.

types: BEGIN OF ty_nast,
         objky      TYPE c LENGTH 50,
         kschl      TYPE nast-kschl,
         erdat      TYPE nast-erdat,
         vstat      TYPE nast-vstat,
         parnr      TYPE c LENGTH 10,
        END OF ty_nast,

 BEGIN OF ty_vbrk,
         vbeln TYPE c LENGTH 30,
         fkart TYPE vbrk-fkart,
         fkdat TYPE vbrk-fkdat,
         rfbsk TYPE vbrk-rfbsk,
       END OF ty_vbrk.

data: gt_sap type Standard table of ty_vbrk, 
        gt_nast type Standard table of ty_nast. 

perform f_nast using gt_sap changing gt_nast. 

form f_nast

  using p_table type ty_vbrk changing p_nast type ty_nast.

  SELECT objky kschl erdat vstat parnr
         INTO CORRESPONDING FIELDS OF table p_nast
         FROM nast FOR ALL ENTRIES IN p_table
         WHERE objky EQ p_table-vbeln AND
               kschl EQ 'x'.

endform.