|
Texto breve:
The current application triggered a termination with a short dump.
Que ha sucedido?
The current application program detected a situation which really
should not occur. Therefore, a termination with a short dump was
triggered on purpose by the key word MESSAGE (type X).
!!!!La linea de programa donde se cae se muestra a continuacion !!!!
************************************
* Column per Fieldcat Entry
************************************
ls_lvc_data-value = space.
clear ls_lvc_data-style.
loop at it_fcat_local assigning <ls_fcat>
where tech ne 'X' and no_out ne 'X'.
if l_invisible eq 'X'.
clear l_invisible.
if <ls_fcat>-do_sum is initial.
continue.
else.
clear ls_lvc_data-col_pos.
endif.
endif.
add 1 to ls_lvc_data-col_pos.
assign component <ls_fcat>-fieldname
of structure <ls_data> to <l_field_value>.
if sy-subrc ne 0.
message x000(0k).
endif.
*... work on average
if <ls_fcat>-do_sum eq 'C'.
clear l_entries.
assign space to <l_unit>.
if not <ls_fcat>-cfieldname is initial.
assign component <ls_fcat>-cfieldname
of structure <ls_data> to <l_unit>.
endif.
if not <ls_fcat>-qfieldname is initial.
assign component <ls_fcat>-qfieldname
of structure <ls_data> to <l_unit>.
endif.
l_from = ls_grpl-index_from.
l_to = ls_grpl-index_to.
if ls_grpl-index_from is initial and
|