I am getting the below run time error when access the transaction code IB52
Category ABAP Programming Error
Runtime Errors UNCAUGHT_EXCEPTION
Except. CX_IBASE_ERROR
ABAP Program CL_IBASE_STRUC_SERVICE========CP
Application Component AP-MD-IBA
Date and Time 09/29/2014 16:54:31
Short text
An exception occurred that was not caught.
What happened?
The exception 'CX_IBASE_ERROR' was raised, but it was not caught anywhere along
the call hierarchy.
Since exceptions represent error situations and this error was not
adequately responded to, the running ABAP program
'CL_IBASE_STRUC_SERVICE========CP' has to be
terminated.
Error analysis
An exception occurred which is explained in detail below.
The exception, which is assigned to class 'CX_IBASE_ERROR', was not caught and
therefore caused a runtime error.
The reason for the exception is:
An exception occurred
Missing Handling of Application Exception
Program SAPLIBOF
Trigger Location of Exception
Program CL_IBASE_STRUC_SERVICE========CP
Include CL_IBASE_STRUC_SERVICE========CM005
Row 27
Module type (METHOD)
Module Name SORT_HIERARCHY
Source Code Extract (Source code has changed)
Line SourceCde
1 method SORT_HIERARCHY.
2 data:
3 ls_ibst type ibst_s_ibst,
4 ls_sort type gt_s_sort,
5 lts_sort type gt_ts_sort,
6 lts_sort_top type gt_ts_sort,
7 ls_conv type ibco_inst_recno_rec,
8 ls_inst type ibco1_inst_rec1,
9 ls_ibco_struc type ibco1_struc_rec1,
10 l_index type i.
11 field-symbols:
12 <ls_sort> type ibco1_struc_rec1.
13
14 loop at it_ibst into ls_ibst.
15 clear ls_sort.
16 move-corresponding ls_ibst-ibst to ls_sort.
17 move-corresponding ls_ibst-add to ls_sort.
18 * get parent recno
19 if not ls_ibst-ibst-parent is initial.
20 read table it_conv into ls_conv with table key instance = ls_ibst-ibst-parent.
21 if sy-subrc is initial.
22 ls_sort-par_recno = ls_conv-recno.
23 endif.
24 endif.
25 * get instance recno
26 read table it_conv into ls_conv with table key instance = ls_ibst-ibst-instance.
>>>>> if not sy-subrc is initial. raise exception type cx_ibase_error. endif.
28 ls_sort-son_recno = ls_conv-recno.
29
30 * get sort-field and object-id
31 read table it_inst into ls_inst with table key in_recno = ls_sort-son_recno.
32 if not sy-subrc is initial. raise exception type cx_ibase_error. endif.
33 ls_sort-sortf = ls_inst-com-sortf.
34 ls_sort-objid = ls_inst-object->get_appl_id( ).
35 ls_sort-objtyp = ls_inst-objtyp.
36
37 if ls_sort-ind_top = ibxx_true.
38 insert ls_sort into table lts_sort_top.
39 else.
40 insert ls_sort into table lts_sort.
41 endif.