la verdad, he adjuntado el archivo, pero no sé dónde ha ido a parar; me ha dado una opción de subir el fichero pero ahora no se donde está...
No obstante, pego lo siguiente, por si os puede valer, pq son 70 páginas de dump (o si no, decidme qué parte os valdría más)...:
Info posición de cancelación
----------------------------
The termination occurred in the ABAP/4 program "AL01100R " in
"BOOK_COEP".
The main program was "AL01100R ".
The termination occurred in line 417
of the source code of program "MKGALFO3 " (when calling the editor 4170).
The program "AL01100R " was started as a background job.
---------------------
Detalle código fuente
---------------------
003870 ICOEP-PERIO = PERIO.
003880 ELSE.
003890 ICOEP-PERIO = RKGA2U2-REBOOKPER.
003900 ICOEP-GJAHR = RKGA2U2-REBOOKGJHR.
003910 ENDIF.
003920
003930 *.....fill pointer table to cobk
003940 COBK_I-I = J.
003950 APPEND COBK_I.
003960 *.....modify number of lines in head
003970 READ TABLE ICOBK INDEX J.
003980 ADD 1 TO ICOBK-SUMBZ.
003990 * MODIFY ICOBK INDEX J. jetzt nach BOOK_COEPL
004000 *.....fill internal table
004010 ICOEP-BUZEI = ICOBK-SUMBZ.
004020 IF SGTXT-USERFIELD(8) EQ '00000000'.
004030 SGTXT-USERFIELD = ICOBK-BUDAT.
004040 ICOEP-SGTXT = SGTXT.
004050 ENDIF.
004060 *.....add BW_REFBZ if necessary
004070 *.....precondition of this solution: the very first record has VERSN 000
004080 *.....and after this record all other valuation VERSNs will follow
004090 *.....->see APPEND_OLDKEYS in MKGALF60
004100 IF GD_TPRICE_ACTIVE = TRUE.
004110 IF ICOEP-VERSN = TP_BASIC_VERSN.
004120 BW = ICOEP-BUZEI.
004130 ENDIF.
004140 ICOEP-BW_REFBZ = BW.
004150 ENDIF.
004160
-----> APPEND ICOEP.
004180 * CLEAR ICOBK-SUMBZ. jetzt nach BOOK_COEPL
004190 *.....Inverse Calculation of Activities: if quantities are really deter-
004200 *.....mined by inverse calculation, COSL has to be updated for SENDER
004210 IF INVERSE_ACTIVITY_ALLOCATION = TRUE AND
004220 OLDKEYS-TYPE = 'S'.
004230 PERFORM BOOK_COEPL USING ICOEP.
004240 ENDIF.
004250 *.....store COBK modification
004260 MODIFY ICOBK INDEX J.
004270 CLEAR ICOBK-SUMBZ.
004280 ENDIF.
004290 ENDDO.
004300 *.notice position of single in oldkeys
004310 DESCRIBE TABLE ICOEP LINES OLDKEYS-EPOS_L.
004320 IF OLDKEYS-EPOS_L < OLDKEYS-EPOS_F.
004330 CLEAR: OLDKEYS-EPOS_F,
004340 OLDKEYS-EPOS_L.
004350 ENDIF.
004360 *.health check!!
------------------------
Contenido campos sistema
------------------------
Campo SY Contenido.................... Campo SY Contenido....................
-------- ----------------------------- -------- -----------------------------
SY-SUBRC 0 SY-INDEX 2
SY-TABIX 902 SY-DBCNT 1
SY-FDPOS 6 SY-LSIND 0
SY-PAGNO 0 SY-LINNO 1
SY-COLNO 1
-----------------------
Variables seleccionadas