SAP 解读 T130R_ARRAY_READ_PTAB

FUNCTION T130R_ARRAY_READ_PTAB.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"             VALUE(HERKUNFT) LIKE  T130R-TBHER
*"             VALUE(KZPFLICHT) LIKE  T130F-KZREF DEFAULT ' '
*"       TABLES
*"              TT130R STRUCTURE  T130R OPTIONAL
*"              MTAB STRUCTURE  SPTAP
*"----------------------------------------------------------------------
* mk/23.01.95: Kein Zurücksetzen des Puffers - da reine Steuerungstab.
*

DATA: INDEX_ITAB LIKE SY-TABIX.

  READ TABLE IT130R WITH KEY MANDT = SY-MANDT
                             TBHER = HERKUNFT
                    BINARY SEARCH.
  IF SY-SUBRC NE 0.
    CALL FUNCTION 'T130R_ARRAY_READ'
         EXPORTING
              HERKUNFT = HERKUNFT.
*        TABLES
*             TT130R
* Tabelle IT130R liegt im Puffer
  ENDIF.

* Outputparameter füllen
  REFRESH TT130R.
  CLEAR   TT130R.
  IF KZPFLICHT IS INITIAL.
* alle Einträge zur MTAB
    LOOP AT MTAB.
      READ TABLE IT130R INTO TT130R
                        WITH KEY MANDT = SY-MANDT
                                 TBHER = HERKUNFT
                                 TBNAM = MTAB-TBNAM
                        BINARY SEARCH.
      IF SY-SUBRC EQ 0.
        INDEX_ITAB = SY-TABIX.
        DO.
          APPEND TT130R.
          INDEX_ITAB = INDEX_ITAB + 1.
          READ TABLE IT130R INTO TT130R INDEX INDEX_ITAB.
          IF SY-SUBRC NE 0 OR
             TT130R-TBHER NE HERKUNFT OR
             TT130R-TBNAM NE MTAB-TBNAM.
            EXIT.
          ENDIF.
        ENDDO.
      ENDIF.
    ENDLOOP.
  ELSE.
* nur fehlende Pflichttabellen zur MTAB
    LOOP AT MTAB WHERE RCODE NE 0.
      LOOP AT IT130R WHERE
           TBHER = HERKUNFT AND TBNAM = MTAB-TBNAM AND
           NOT KZERR IS INITIAL.
        TT130R = IT130R.
        APPEND TT130R.
      ENDLOOP.
    ENDLOOP.
  ENDIF.

ENDFUNCTION.