Laufzeitfehler TSV_TNEW_PAGE_ALLOC_FAILED

Laufzeitfehler TSV_TNEW_PAGE_ALLOC_FAILED

Laufzeitfehler TSV_TNEW_PAGE_ALLOC_FAILED


Kurztext
Kein Speicher für Erweiterung einer internen Tabelle mehr verfügbar



Was ist passiert?
Eine programminterne Tabelle sollte erweitert werden. Der dafür
erforderliche Platz war aber nicht verfügbar.



Fehleranalyse
Die interne Tabelle "\PROGRAM=SAPMSSY0\DATA=%_LIST" konnte nicht mehr erweitert
werden. Um die
Fehlerbehandlung zu ermöglichen, mußte die Tabelle noch vor der
Aufbereitung dieses Protokolls gelöscht werden. Dies hat zur Folge, dass
die Tabelle weiter unten oder, wenn von hier aus in den ABAP-Debugger
gesprungen wird, mit 0 Zeilen angezeigt wird.

Zum Zeitpunkt des Abbruchs wurden für die betroffene interne Tabelle die
folgenden Kenndaten ermittelt:

Speicherort: "Session memory"
Zeilenbreite: 276
Zeilenanzahl: 4316848
Allokierte Zeilen: 4316848
Neu angeforderte Zeilen: 32 (in 1 Blöcken)

  109 *    CLEAR: lw_outtab.
  110     CLEAR: gw_zieltab.
  111 
  112 **** Felder der Zieltabelle bearbeiten 
  113     LOOP AT lt_indat ASSIGNING <l_indat>.
  114       ld_ix = sy-tabix + 1.
  115 
  116       READ TABLE st_dd03 ASSIGNING <l_dd03>
  117                  WITH KEY position = ld_ix.
  118       IF sy-subrc = 0. 
  119         IF <l_dd03>-fieldname(7) = 'FELDLEN'.
  120           ld_ix = ld_ix + 1.
  121           READ TABLE st_dd03 ASSIGNING <l_dd03> 
  122                 WITH KEY position = ld_ix.
  123         ENDIF.
  124         IF sy-subrc = 0. 
  125           CONCATENATE 'GW_ZIELTAB-' <l_dd03>-fieldname
  126                      INTO ld_fieldname.
  127           ASSIGN (ld_fieldname) TO <l_field>.
  128           IF  <l_dd03>-datatype(3) = 'DEC'.
  129             TRANSLATE <l_indat>-field USING ',.'.
  130           ENDIF. 
  131           IF <l_indat>-field(1) = '"'.
  132             SHIFT <l_indat>-field LEFT
  133             DELETING LEADING '"'.
  134             REPLACE c_anfstriche WITH c_hochkomma INTO <l_indat>-field.
  135           ENDIF.
  136 * 
  137           CATCH SYSTEM-EXCEPTIONS convt_no_number = 2.
>>>>>             WRITE: / ld_fieldname,<l_indat>-field,ld_tabname.
  139             IF ld_fieldname = 'GW_ZIELTAB-FIRNUM'.
  140               IF  <l_indat>-field = '999'.
  141                 ld_noimp = 'X'. 
  142               ENDIF.
  143 *              IF  <l_indat>-field = '000'. 
  144 *                ld_noimp = 'X'.
  145 *              ENDIF.
  146             ENDIF.
  147             <l_field> = <l_indat>-field.
  148           ENDCATCH.
  149 *   
  150           IF sy-subrc = 2.
  151             CLEAR: <l_field>.
  152             WRITE: / 'CONVT_NO_NUMBER : ' , ld_inrec-rec.
  153           ENDIF.
  154         ENDIF.
  155       ENDIF.
  156     ENDLOOP.