Press n or j to go to the next uncovered block, b, p or k for the previous block.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 | 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x | CLASS zcl_abapgit_sots_handler DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_sots,
header TYPE sotr_headu,
entries TYPE sotr_textl_tt,
END OF ty_sots.
TYPES:
ty_sots_tt TYPE STANDARD TABLE OF ty_sots WITH DEFAULT KEY.
TYPES:
ty_sots_use_tt TYPE STANDARD TABLE OF sotr_useu WITH DEFAULT KEY.
CLASS-METHODS read_sots
IMPORTING
!iv_pgmid TYPE tadir-pgmid DEFAULT 'R3TR'
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
!io_xml TYPE REF TO zif_abapgit_xml_output OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params
EXPORTING
!et_sots TYPE ty_sots_tt
!et_sots_use TYPE ty_sots_use_tt
RAISING
zcx_abapgit_exception.
CLASS-METHODS create_sots
IMPORTING
!iv_package TYPE devclass
!io_xml TYPE REF TO zif_abapgit_xml_input OPTIONAL
RAISING
zcx_abapgit_exception.
CLASS-METHODS create_sots_from_data
IMPORTING
!iv_package TYPE devclass
!it_sots TYPE ty_sots_tt OPTIONAL
!it_sots_use TYPE ty_sots_use_tt OPTIONAL
RAISING
zcx_abapgit_exception.
CLASS-METHODS delete_sots
IMPORTING
!iv_pgmid TYPE tadir-pgmid DEFAULT 'R3TR'
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
CLASS-METHODS get_sots_usage
IMPORTING
!iv_pgmid TYPE tadir-pgmid
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
RETURNING
VALUE(rt_sots_use) TYPE ty_sots_use_tt.
CLASS-METHODS get_sots_4_concept
IMPORTING
!iv_concept TYPE sotr_conc
RETURNING
VALUE(rs_sots) TYPE ty_sots.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_SOTS_HANDLER IMPLEMENTATION.
METHOD create_sots.
DATA:
lt_sots TYPE ty_sots_tt,
lt_sots_use TYPE ty_sots_use_tt.
io_xml->read( EXPORTING iv_name = 'SOTS'
CHANGING cg_data = lt_sots ).
io_xml->read( EXPORTING iv_name = 'SOTS_USE'
CHANGING cg_data = lt_sots_use ).
create_sots_from_data(
iv_package = iv_package
it_sots = lt_sots
it_sots_use = lt_sots_use ).
ENDMETHOD.
METHOD create_sots_from_data.
DATA:
lt_objects TYPE sotr_objects,
lv_object LIKE LINE OF lt_objects,
lv_subrc TYPE sy-subrc,
ls_header TYPE btfr_head,
lt_text_tab TYPE sotr_text_tt,
lt_string_tab TYPE sotr_textl_tt,
ls_entry LIKE LINE OF lt_string_tab,
lv_concept TYPE sotr_conc,
lv_concept_default TYPE sotr_conc.
FIELD-SYMBOLS <ls_sots> LIKE LINE OF it_sots.
LOOP AT it_sots ASSIGNING <ls_sots>.
CALL FUNCTION 'SOTR_OBJECT_GET_OBJECTS'
EXPORTING
object_vector = <ls_sots>-header-objid_vec
IMPORTING
objects = lt_objects
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_objects INDEX 1 INTO lv_object.
ASSERT sy-subrc = 0.
" Reimplementation of SOTR_STRING_CREATE_CONCEPT because we can't supply
" concept and it would then be generated.
LOOP AT <ls_sots>-entries INTO ls_entry.
ls_entry-langu = <ls_sots>-header-crea_lan.
ls_entry-concept = <ls_sots>-header-concept.
INSERT ls_entry INTO TABLE lt_string_tab.
ENDLOOP.
MOVE-CORRESPONDING <ls_sots>-header TO ls_header.
ls_header-paket = iv_package.
lv_concept = <ls_sots>-header-concept.
PERFORM btfr_create IN PROGRAM saplsotr_db_string
USING lv_object
sy-langu
abap_false
abap_true
CHANGING lt_text_tab
lt_string_tab
ls_header
lv_concept
lv_concept_default
lv_subrc.
CASE lv_subrc.
WHEN 1.
MESSAGE e100(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 2.
MESSAGE e101(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 3.
MESSAGE i305(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 4.
" The concept will be created in the non-original system (not an error)
WHEN 5.
MESSAGE e504(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 6.
MESSAGE e035(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 7.
MESSAGE e170(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 9.
MESSAGE e102(sotr_mess) INTO zcx_abapgit_exception=>null.
ENDCASE.
IF lv_subrc <> 0 AND lv_subrc <> 4.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
CALL FUNCTION 'SOTR_USAGE_STRING_MODIFY'
EXPORTING
sotr_usage = it_sots_use.
ENDMETHOD.
METHOD delete_sots.
DATA lt_sots_use TYPE ty_sots_use_tt.
FIELD-SYMBOLS <ls_sots_use> LIKE LINE OF lt_sots_use.
lt_sots_use = get_sots_usage( iv_pgmid = iv_pgmid
iv_object = iv_object
iv_obj_name = iv_obj_name ).
" Remove any usage to ensure deletion, see function module BTFR_CHECK
DELETE sotr_useu FROM TABLE lt_sots_use ##SUBRC_OK.
LOOP AT lt_sots_use ASSIGNING <ls_sots_use> WHERE concept IS NOT INITIAL.
CALL FUNCTION 'BTFR_DELETE_SINGLE_TEXT'
EXPORTING
concept = <ls_sots_use>-concept
flag_string = abap_true
EXCEPTIONS
text_not_found = 1 "ok
invalid_package = 3
text_not_changeable = 4
text_enqueued = 5
no_correction = 6
parameter_error = 7
OTHERS = 8.
IF sy-subrc > 2.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD get_sots_4_concept.
DATA: ls_header TYPE ty_sots-header,
lt_entries TYPE ty_sots-entries.
FIELD-SYMBOLS <ls_entry> LIKE LINE OF lt_entries.
CALL FUNCTION 'SOTR_STRING_GET_CONCEPT'
EXPORTING
concept = iv_concept
IMPORTING
header = ls_header
entries = lt_entries
EXCEPTIONS
no_entry_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
RETURN.
ENDIF.
CLEAR: ls_header-paket,
ls_header-crea_name,
ls_header-crea_tstut,
ls_header-chan_name,
ls_header-chan_tstut,
ls_header-system_id.
LOOP AT lt_entries ASSIGNING <ls_entry>.
CLEAR: <ls_entry>-version,
<ls_entry>-crea_name,
<ls_entry>-crea_tstut,
<ls_entry>-chan_name,
<ls_entry>-chan_tstut.
ENDLOOP.
rs_sots-header = ls_header.
rs_sots-entries = lt_entries.
ENDMETHOD.
METHOD get_sots_usage.
DATA: lv_obj_name TYPE trobj_name.
lv_obj_name = iv_obj_name.
" Objects with multiple components
IF iv_pgmid = 'LIMU' AND ( iv_object CP 'WDY*' OR iv_object = 'WAPP' ).
lv_obj_name+30 = '%'.
ENDIF.
CALL FUNCTION 'SOTR_USAGE_STRING_READ'
EXPORTING
pgmid = iv_pgmid
object = iv_object
obj_name = lv_obj_name
IMPORTING
sotr_usage = rt_sots_use
EXCEPTIONS
no_entry_found = 1
error_in_pgmid = 2
OTHERS = 3.
IF sy-subrc = 0.
SORT rt_sots_use.
ENDIF.
ENDMETHOD.
METHOD read_sots.
FIELD-SYMBOLS <ls_sots_use> LIKE LINE OF et_sots_use.
DATA ls_sots TYPE ty_sots.
" OTR long text (string) usage: see TABLE BTFR_OBJ_IDS
" LIMU: CPUB, WAPP
" R3TR: ENHO, ENHS, SICF, SMIF, WEBI, XSLT
et_sots_use = get_sots_usage( iv_pgmid = iv_pgmid
iv_object = iv_object
iv_obj_name = iv_obj_name ).
LOOP AT et_sots_use ASSIGNING <ls_sots_use> WHERE concept IS NOT INITIAL.
ls_sots = get_sots_4_concept( <ls_sots_use>-concept ).
IF io_i18n_params->ms_params-main_language_only = abap_true.
DELETE ls_sots-entries WHERE langu <> io_i18n_params->ms_params-main_language.
CHECK ls_sots-entries IS NOT INITIAL.
ENDIF.
INSERT ls_sots INTO TABLE et_sots.
ENDLOOP.
IF io_xml IS BOUND.
io_xml->add( iv_name = 'SOTS'
ig_data = et_sots ).
io_xml->add( iv_name = 'SOTS_USE'
ig_data = et_sots_use ).
ENDIF.
ENDMETHOD.
ENDCLASS.
|