small small concepts in ABAP

1. REPLACE

 REPLACE ALL OCCURRENCES OF ',' IN l_fieldcontent WITH space.

2.CONDENSE

CONDENSE l_fieldcontent NO-GAPS.

3.Modify

 MODIFY ct_mapping_result INDEX sy-tabix FROM ca_mapping_result.


4. SPlit

DATA : lv_date     TYPE char2,
        lv_month    TYPE char2,
        lv_year     TYPE char4,

        l_fieldcontent      TYPE string.

SPLIT lv_date_field AT '/' INTO lv_month lv_date lv_year.



5. Move

MOVE ls_state_text-sp_st_code TO ca_mapping_result-infty_field_value.

6. To find  string  length and concatenate

    data: lv_date_no  TYPE i,
           lv_mon_no   TYPE i.


lv_date_no = strlen( lv_date ).
      lv_mon_no = strlen( lv_month ).
       

if lv_date_no eq 1.
               CONCATENATE '0' lv_date INTO lv_date.
        endif.
        if lv_mon_no eq 1.
               CONCATENATE '0' lv_month INTO lv_month.
        endif.


7. Delete Zeros
data : var(10) type c.

move profit_center to var.

shift var left deleting leading '0'.

8. Obligatory default

parameters: p_date type bsid-budat DEFAULT sy-datum obligatory.

9. Translate

TRANSLATE gs_h_det-name1 TO UPPER CASE.

10. Contains any (string Operations).

 IF wa_bsik-zuonr IS NOT INITIAL AND ( wa_bsik-zuonr CA '0123456789' AND wa_bsik-zuonr CA '.' ).
          CONCATENATE wa_bsik-zuonr+6(4) wa_bsik-zuonr+3(2) wa_bsik-zuonr+0(2) INTO wa_final-bldat.
          if wa_final-bldat ca  '!@#$%^&*(){[]}\|;:",<>/?' .
            wa_final-bldat = wa_bsik-bldat.
          endif.
        ELSE.
          wa_final-bldat = wa_bsik-bldat.
        ENDIF.

11. No intervals and No extensions

select-options: s_oi for plogi-objid no INTERVALS no-EXTENSION.