INIT_SS_KEY:
METHOD INIT_SS_KEY .
DATA lo_nd_time TYPE REF TO if_wd_context_node.
DATA lo_el_time TYPE REF TO if_wd_context_element.
DATA ls_time TYPE wd_this->element_time.
lo_nd_time = wd_context->get_child_node( name = wd_this->wdctx_time ).
DATA: l_node_info TYPE REF TO if_wd_context_node_info.
l_node_info = lo_nd_time->get_node_info( ).
DATA: lt_value_set TYPE wdy_key_value_table,
ls_value_set TYPE wdy_key_value.
DATA lt(2) TYPE c VALUE '00'.
DO 60 TIMES .
IF lt LT 10.
CONCATENATE '0' lt INTO lt.
ENDIF.
ls_value_set-key = lt.
ls_value_set-value = lt.
APPEND ls_value_set TO lt_value_set.
CLEAR ls_value_set.
lt = sy-index.
ENDDO.
l_node_info->set_attribute_value_set( name = 'ZSS' value_set = lt_value_set ).
ENDMETHOD.