SAP Note 22923 - 'Internal table STACK ..' for routing data transfer

Symptom:

When transferring routings into the SAP System by means of batch input, error message V0050 'System: Internal table STACK not filled' can be displayed when processing sessions that were created with report RCPTRA01.

Cause and prerequisites

Program error in RCPTRA01.

Solution
Release 2.2E
Correction P22K007121
*----------------------------------------------------------------------*
* FORM BUILD_BTCI_FROM_TABLES *
*----------------------------------------------------------------------*
* Batch-Input-Mappen erzeugen zum Einspielen der Pläne *
*----------------------------------------------------------------------*
FORM BUILD_BTCI_FROM_TABLES.

IF NOT FLG-FIRST_BATCH_INPUT IS INITIAL.
BI000 = CURRENT_HEAD.
PERFORM OPEN_BATCH_INPUT.
CLEAR FLG-FIRST_BATCH_INPUT.
CLEAR FLG-PRT. <--- insert
ENDIF.
:::
:::
:::
---------------------------------------------------------------------*
*----------------------------------------------------------------------* * FORM BUILD_BTCI_REF
*----------------------------------------------------------------------*
* Batch-Input-Mappen erzeugen für Standardarbeitspläne
*----------------------------------------------------------------------*
FORM BUILD_BTCI_REF.

* Einstiegsbild ausgeben beim ersten LOOP-Durchlauf PLKO_TAB
FLG-FIRST_SCREEN = CONST-FLG_YES.

* Plankopf
LOOP AT PLKO_TAB.
PERFORM PROCESS_HEADER.
FLG-FIRST_OPER = CONST-FLG_YES.
CLEAR FLG-PRT. <--- insert
* Vorgang
LOOP AT PLPO_TAB.
CHECK PLPO_TAB-PLNAL = PLKO_TAB-PLNAL.
PERFORM PROCESS_OPERATION.
CLEAR FLG-FIRST_OPER.
CLEAR FLG-PRT. <--- insert
* Materialkomponenten
LOOP AT PLMZ_TAB.
CHECK PLMZ_TAB-PLNAL = PLPO_TAB-PLNAL
AND PLMZ_TAB-VORNR = PLPO_TAB-VORNR.
PERFORM PROCESS_COMPONENT.
CLEAR FLG-FIRST_OPER. <--- insert
CLEAR FLG-PRT. <--- insert
ENDLOOP.
* Fertigungshilfsmittel
FLG-FIRST_PRT = CONST-FLG_YES.
LOOP AT PLFH_TAB.
CHECK PLFH_TAB-PLNAL = PLPO_TAB-PLNAL
AND PLFH_TAB-VORNR = PLPO_TAB-VORNR.
PERFORM PROCESS_PRT.
FLG-PRT = CONST-FLG_YES. <--- insert
ENDLOOP.
ENDLOOP.
ENDLOOP.

* Sichern!!!
PERFORM PROCESS_SAVING.

ADD 1 TO CNT-BDC_OUT.

ENDFORM.

----------------------------------------------------------------------* FORM BUILD_BTCI_STD * ----------------------------------------------------------------------* Batch-Input-Mappen erzeugen für Normalarbeitspläne * *----------------------------------------------------------------------* FORM BUILD_BTCI_STD.

* Einstiegsbild ausgeben beim ersten LOOP-Durchlauf PLKO_TAB FLG-FIRST_SCREEN = CONST-FLG_YES.

* Plankopf
LOOP AT PLKO_TAB.
PERFORM PROCESS_HEADER.
CLEAR FLG-PRT. <--- insert * Folge
:::
:::
:::
ENDFORM.

Release 21G
Korrektur P21K900207
*----------------------------------------------------------------------*
* FORM BUILD_BTCI_FROM_TABLES *
*----------------------------------------------------------------------*
* Batch-Input-Mappen erzeugen zum Einspielen der Pläne *
*----------------------------------------------------------------------*
FORM BUILD_BTCI_FROM_TABLES.

IF NOT FLG-FIRST_BATCH_INPUT IS INITIAL.
BI000 = CURRENT_HEAD.
PERFORM OPEN_BATCH_INPUT.
CLEAR FLG-FIRST_BATCH_INPUT.
CLEAR FLG-PRT. <--- insert
ENDIF.
:::
:::
:::
*----------------------------------------------------------------------*
* FORM BUILD_BTCI_REF *
*----------------------------------------------------------------------*
* Batch-Input-Mappen erzeugen für Standardarbeitspläne
*----------------------------------------------------------------------*
FORM BUILD_BTCI_REF.

* Einstiegsbild ausgeben beim ersten LOOP-Durchlauf PLKO_TAB
FLG-FIRST_SCREEN = CONST-FLG_YES.

* Plankopf
LOOP AT PLKO_TAB.
PERFORM PROCESS_HEADER.
FLG-FIRST_OPER = CONST-FLG_YES.
CLEAR FLG-PRT. <--- insert
* Vorgang
LOOP AT PLPO_TAB.
CHECK PLPO_TAB-PLNAL = PLKO_TAB-PLNAL.
PERFORM PROCESS_OPERATION.
CLEAR FLG-FIRST_OPER.
CLEAR FLG-PRT. <--- insert
* Materialkomponenten
LOOP AT PLMZ_TAB.
CHECK PLMZ_TAB-PLNAL = PLPO_TAB-PLNAL
AND PLMZ_TAB-VORNR = PLPO_TAB-VORNR.
PERFORM PROCESS_COMPONENT. <--- insert
CLEAR FLG-PRT.
ENDLOOP.
* Fertigungshilfsmittel
FLG-FIRST_PRT = CONST-FLG_YES.
LOOP AT PLFH_TAB.
CHECK PLFH_TAB-PLNAL = PLPO_TAB-PLNAL
AND PLFH_TAB-VORNR = PLPO_TAB-VORNR.
PERFORM PROCESS_PRT.
FLG-PRT = CONST-FLG_YES. <--- insert
ENDLOOP.
ENDLOOP.
ENDLOOP.

* Sichern!!!
PERFORM PROCESS_SAVING.

* ADD 1 TO CNT-BDC_OUT.

ENDFORM.

*----------------------------------------------------------------------*
* FORM BUILD_BTCI_STD *
*----------------------------------------------------------------------*
* Batch-Input-Mappen erzeugen für Normalarbeitspläne *
*----------------------------------------------------------------------*
FORM BUILD_BTCI_STD.

* Einstiegsbild ausgeben beim ersten LOOP-Durchlauf PLKO_TAB
FLG-FIRST_SCREEN = CONST-FLG_YES.

* Plankopf
LOOP AT PLKO_TAB.
PERFORM PROCESS_HEADER.
CLEAR FLG-PRT. <--- insert
* Folge
:::
:::
:::
ENDFORM.