sap Note 12973 - Batch input for release order: infinite loop

Symptom:

Program : SAPMM06E
Error ID: 06042
Release orders involving an overrun beyond the target value of the contract get stuck in BTCI, although only a warning message is issued.

Cause and prerequisites

This is caused by a problem with the ENTER key. CONTINUE is assigned
to the ENTER key --> BDC cannot cope with this properly.

Solution
This error has been eliminated completely as of Release 3.0I. Some of the changes are already included in Releases 3.0A to 3.0F.
This concrete error situation can be dealt with as described below.
Programm MM06EF0L Routine LESEN_KONTRAKT_KOPF.
*eject
*-----------------------------------------------
* Kontraktkopf lesen und pruefen
*-----------------------------------------------
FORM LESEN_KONTRAKT_KOPF USING LKK_CHECK.
...
PERFORM ENACO(SAPFMMEX) USING '06' '039'.
IF SY-SUBRC EQ 1.
IF SY-BINPT EQ SPACE. "INSERT-NOTE 12973
MESSAGE W039 WITH KEKKO-EKORG.
ENDIF. "INSERT-NOTE 12973
ENDIF.
...
...
.Beginn/Ende
IF KEKKO-KDATB NE 0 AND EKKO-BEDAT < KEKKO-KDATB.
PERFORM ENACO(SAPFMMEX) USING '06' '040'.
CASE SY-SUBRC.
WHEN 1.
IF SY-BINPT EQ SPACE. "INSERT-NOTE 12973
MESSAGE W040 WITH KEKKO-KDATB.
ENDIF. "INSERT-NOTE 12973
WHEN 2.
PERFORM ENTSPERREN_EKKO(SAPFMMEX) USING EKKO-KONNR.
MESSAGE E040 WITH KEKKO-KDATB.
ENDCASE.
ENDIF.

IF KEKKO-KDATE NE 0 AND EKKO-BEDAT > KEKKO-KDATE.
PERFORM ENACO(SAPFMMEX) USING '06' '041'.
CASE SY-SUBRC.
WHEN 1.
IF SY-BINPT EQ SPACE. "INSERT-NOTE 12973
MESSAGE W041 WITH KEKKO-KDATE.
ENDIF. "INSERT-NOTE 12973
WHEN 2.
PERFORM ENTSPERREN_EKKO(SAPFMMEX) USING EKKO-KONNR.
MESSAGE E041 WITH KEKKO-KDATE.
ENDCASE.
ENDIF.
...
...
IF LKK_CHECK NE SPACE.
IF KEKKO-KTWRT NE 0.
IF H-SUWRT = KEKKO-KTWRT.
PERFORM ENACO(SAPFMMEX) USING '06' '155'.
CASE SY-SUBRC.
WHEN 1.
IF SY-BINPT EQ SPACE. "INSERT-NOTE 12973
MESSAGE W155.
ENDIF. "INSERT-NOTE 12973
WHEN 2.
PERFORM ENTSPERREN_EKKO(SAPFMMEX) USING EKKO-KONNR.
MESSAGE E155.
ENDCASE.
ENDIF.
IF H-SUWRT > KEKKO-KTWRT.
HELP-SUWRT = H-SUWRT.
HELP-SUWRT = HELP-SUWRT - KEKKO-KTWRT.
WRITE HELP-SUWRT TO MSGWRT1 CURRENCY EKKO-WAERS.
PERFORM ENACO(SAPFMMEX) USING '06' '042'.
CASE SY-SUBRC.
WHEN 1.
IF SY-BINPT EQ SPACE. "INSERT-NOTE 12973
MESSAGE W042 WITH MSGWRT1 KEKKO-WAERS.
ENDIF. "INSERT-NOTE 12973
WHEN 2.
PERFORM ENTSPERREN_EKKO(SAPFMMEX) USING EKKO-KONNR.
MESSAGE E042 WITH MSGWRT1 KEKKO-WAERS.
ENDCASE.
...
...


FORM LESEN_KONTRAKT_POS_ALL.
...
...
DESCRIBE TABLE ABT LINES A-MAXIND.

READ TABLE ABT INDEX 1.
IF SY-SUBRC NE 0.
IF REFXBER NE SPACE.
CLEAR REFXBER.
MESSAGE E237.
ELSE.
MESSAGE E005.
ENDIF.
ENDIF.
IF REFXBER NE SPACE.
CLEAR REFXBER.
if sy-binpt eq space. "INSERT 12973
MESSAGE I238.
endif. "INSERT 12973
ENDIF.
...
...

FORM LESEN_REFERENZ USING LRF_EBELN.
...
...
IF EKKO-LIFNR NE SPACE.
IF EKKO-LIFNR NE REKKO-LIFNR.
IF SY-BINPT EQ SPACE. "INSERT 12973
MESSAGE W030 WITH REKKO-LIFNR EKKO-LIFNR.
ENDIF. "INSERT 12973
ENDIF.
ENDIF.

IF EKKO-EKORG NE SPACE.
IF EKKO-EKORG NE REKKO-EKORG.
IF SY-BINPT EQ SPACE. "INSERT 12973
MESSAGE W029 WITH REKKO-EKORG EKKO-EKORG.
ENDIF. "INSERT 12973
ENDIF.
ENDIF.

ENDFORM.

Additional key words

06039, 06040, 06041, 06042, 06155, 06029, 06030

Key word: ME21 BDC