eigener FuBa globale Daten ???

Code: Alles auswählen.

DATA: BEGIN OF g_buffer_line.
        INCLUDE STRUCTURE pa0002.
DATA: END OF g_buffer_line,
      g_buffer LIKE STANDARD TABLE
               OF g_buffer_line.

Code: Alles auswählen.

FUNCTION /xxxx/yaacr_export.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     REFERENCE(IS_PERSO) TYPE  PA0002
*"----------------------------------------------------------------------

  MOVE is_perso TO g_buffer_line.

  INSERT g_buffer_line INTO TABLE g_buffer.


ENDFUNCTION.

Code: Alles auswählen.

FUNCTION /xxxx/yaacr_import.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  EXPORTING
*"     REFERENCE(ES_PERSO) TYPE  PA0002
*"  EXCEPTIONS
*"      NOT_FOUND
*"----------------------------------------------------------------------
  DATA: buffer_line LIKE LINE OF g_buffer.

  READ TABLE g_buffer INTO buffer_line INDEX 1.
  es_perso = buffer_line.


ENDFUNCTION.

Code: Alles auswählen.

Submit Report2.

Code: Alles auswählen.

  CALL FUNCTION '/XXXX/YAACR_EXPORT'
       EXPORTING
            is_perso = gs_personal.

  IF chk_back = gc_x.
    SUBMIT /xxxx/sapmyaacps03 AND RETURN.
  ELSE.
    SUBMIT /xxxx/sapmyaacps03.
  ENDIF.

Code: Alles auswählen.

START-OF-SELECTION.

  CALL FUNCTION '/XXXX/YAACR_IMPORT'
   IMPORTING
     es_perso        = pa0002.


  APPEND pa0002 TO gt_pa02.

  CALL SCREEN 100.