|
Errores tiempo ejecució SYSTEM_CANCELED
ocurrido el 06.01.2009 a 19:50:58
The program "ZFIRF_0102COPIA1 " was terminated manually.
¿ Qué sucedió ?
The current program "ZFIRF_0102COPIA1 " has been terminated by another mode.
¿ Qué se puede hacer ?
This is not a program error, so no action is necessary.
Análisis error
The current program has been terminated by another mode, e.g. by
transaction SM50.
Notas para corregir errores
No error elimination is necessary.
Screen line......... 6
Informaciones lugar terminación
The termination occurred in the ABAP/4 program "ZFIRF_0102COPIA1 " in
"CDATOS1".
The main program was "ZFIRF_0102COPIA1 ".
The termination occurred in line 519
of the source code of program "ZFIRF_0102_FORCOPIA1 " (when calling the editor
5190).
The program "ZFIRF_0102COPIA1 " was started as a background job.
Detalle código source
Atención Programa modificado entretanto.
Atención La source activa en el instante de cancelación ya no existe.
004890 ? * append it_prov1 to it_prov.
004900 ? * endselect.
004910 ?
004920 ? SELECT SPRAS SAKNR TXT20 TXT50
004930 ? FROM SKAT
004940 ? INTO TABLE IT_SKAT
004950 ? * into it_skat1
004960 ? FOR ALL ENTRIES IN A_ITBSEG
004970 ? WHERE SAKNR = A_ITBSEG-HKONT AND
004980 ? SPRAS = 'S'.
004990 ? * append it_skat1 to it_skat.
005000 ? * endselect.
005010 ? SELECT LIFNR NAME1
005020 ? FROM LFA1
005030 ? INTO TABLE IT_LFA1
005040 ? FOR ALL ENTRIES IN IT_BSEGCO
005050 ? WHERE LIFNR = IT_BSEGCO-LIFNR.
005060 ?
005070 ? SELECT KUNNR NAME1
005080 ? FROM KNA1
005090 ? INTO TABLE IT_KNA1
005100 ? FOR ALL ENTRIES IN IT_BSEGCO
005110 ? WHERE KUNNR = IT_BSEGCO-KUNNR.
005120 ?
005130 ?
005140 ? *endloop.
005150 ? SORT A_ITBSEG ASCENDING BY BELNR.
005160 ? ENDIF.
005170 ? * sort it_bseg ascending by belnr.
005180 ? LOOP AT A_ITBSEG.
> ? CLEAR IT_REPO.
00520 0 ? CODCTA = A_ITBSEG-HKONT+8(2). " hkont+8(2)
005210 ? * IF codcta NE '00'. "'100'
005220 ? *datos bkpf
005230 ? READ TABLE IT_BKPF WITH KEY BELNR = A_ITBSEG-BELNR.
005240 ? IT_REPO-BELNR = IT_BKPF-BELNR.
005250 ? IT_REPO-BLDAT = IT_BKPF-BLDAT.
005260 ? A_BKTXT = IT_BKPF-XBLNR+0(1).
005270 ? SELECT SINGLE ZTIPA INTO IT_REPO-ZTIPA
005280 ? FROM ZFITF_0102
005290 ? WHERE ZCOPA = A_BKTXT. "+0(1).
005300 ? * endselect.
005310 ? IF SY-SUBRC NE 0.
005320 ? IT_REPO-ZTIPA = '999'.
005330 ? ENDIF.
005340 ? *datos lifnr
005350 ? * read table it_prov with key belnr = a_itbseg-belnr.
005360 ? * if sy-subrc = 0.
005370 ? * if it_prov-lifnr ne ''.
005380 ? * if a_itbseg-lifnr ne ''.
|