Dump while Log Entry(LBK1) creation : Exception condition "APPL_OBJ_INITIAL" raised.

To create log entry we implemented BADI ‘LGETY_SUVSCR_ACL’ and attached program and subscreen which contains details of Log Entry. Along with this we appended Structure ‘ZDIACL_LGE_S’ in structure ‘DIACL_LGE_S’.

When we execute LBK1, and pass equipment/ functional location and press on create log entry it shows sub-screen but while we enter details ,

it show DUMP.

Information on where terminated

Termination occurred in the ABAP program "CL_GUI_BROWSER_OHFW===========CP" -

in "ADD_NODE_TO_TREE".

The main program was "SAPLDIACL_GUI ".

In the source code you have the termination point in line 71

of the (Include) program "CL_GUI_BROWSER_OHFW===========CM00K".

Source Code Extract

Line SourceCde

41 nodeid = ls_node-nodeid INTO ls_node

42 BINARY SEARCH.

43

44 IF sy-subrc = 0.

45 RAISE node_already_inserted.

46 ENDIF.

47

48 * Get node attributes

49 CALL METHOD r_ex_gui_appl_obj->get_node_attributes

50 EXPORTING

51 flt_val = l_node_type

52 i_node = ir_node

53 IMPORTING

54 e_node_text = l_node_text

55 e_node_icon = l_node_icon

56 e_disabled = l_disabled

57 es_node_fields = ls_node_fields.

58

59 ls_node_layout-n_image = l_node_icon.

60 ls_node_layout-exp_image = l_node_icon.

61 ls_node_layout-disabled = l_disabled.

62 * Do not get change indicators for archived objects

63 IF l_node_type NE 'ALN'.

64

65 * Get application object

66 TRY.

67 if_appl_obj = ir_node->get_appl_obj( ).

68 * Get change indicators

69 l_chgind_app = if_appl_obj->get_chg_ind( ).

70 CATCH cx_appl_obj_crea_error_ohfw.

>>> RAISE appl_obj_initial.

72 ENDTRY.

73 endif.

74 l_chgind_node = ir_node->get_chg_ind( ).

75

76 * Set style

77 IF l_chgind_app = ohfwa_chgind-d OR "Deleted

78 l_chgind_node = ohfwa_chgind-d OR

79 l_chgind_app = ohfwa_chgind-x OR

80 l_chgind_node = ohfwa_chgind-x.

81 * Set style for deleted nodes

82 ls_node_layout-style = cl_tree_model=>style_inactive.

83

84 ELSEIF l_chgind_app = ohfwa_chgind-c OR "Created

85 l_chgind_node = ohfwa_chgind-c.

86 * Set style for created nodes

87 ls_node_layout-style = cl_tree_model=>style_intensified.

88

89 ELSEIF l_chgind_app = ohfwa_chgind-u OR "Updated

90 l_chgind_node = ohfwa_chgind-u.

Regards,

Sandeep Theurkar.