SAP String Operations

Hello SAP Lovers,

:-) Welcome to SAPWorldPark Blog. :-)

This blog is completely about SAP basics on String Operations.

DATA : lv_string    TYPE string,
       lv_string2   TYPE string,
       lv_slength   TYPE i.

START-OF-SELECTION.
* All String Operators.

**...
* 1. String Length.
  WRITE / : '1. String Length.'.
  lv_string = 'This is my String'.
  WRITE / : lv_string.
  lv_slength = strlen( lv_string ).
  WRITE : / 'lv_lenth = strlen(This is my String) :',lv_slength.
  CLEAR lv_string.
  SKIP 2.
**...

**...
* 2. Concatenate.
  WRITE / : '2. Concatenate.'.
  lv_string  = 'String1'.
  lv_string2 = 'String2'.
  WRITE / : lv_string, lv_string2.
  CONCATENATE lv_string lv_string2
          INTO lv_string SEPARATED BY ','.
  WRITE / : lv_string.
  CLEAR : lv_string, lv_string2.
  SKIP 2.
**...

**...
* 3. Condense.
  WRITE / : '3. Condense.'.
  lv_string = '    Condense     String'.
  WRITE : / lv_string.
  CONDENSE lv_string.
  WRITE : / lv_string.
  CLEAR lv_string.
  SKIP 2.
**...

**...
* 4. Condense With No-gaps.
  WRITE / : '4. Condense With No-gaps.'.
  lv_string = 'Condense with No-Gaps'.
  WRITE : / lv_string.
  CONDENSE lv_string NO-GAPS.
  WRITE : / lv_string.
  CLEAR lv_string.
  SKIP 2.
**...

**...
* 5. Split String
  WRITE / : '5. Split String'.
  lv_string = 'Thisis split'.
  WRITE : / lv_string.
  SPLIT lv_string AT '' INTO lv_string lv_string2.
  WRITE / : lv_string, lv_string2.
  CLEAR : lv_string, lv_string2.
  SKIP 2.
**...

**...
* 6. Replace
  WRITE / : '6. Replace'.
  lv_string = 'Replace with String'.
  lv_string2 = 'Replaced'.
  WRITE / : lv_string.
  REPLACE FIRST OCCURRENCE OF 'Replace'
          IN lv_string WITH lv_string2.
  WRITE : / lv_string.
  CLEAR : lv_string, lv_string2.
  SKIP 2.
**...

**...
* 7. Translate
  WRITE / : '7. Translate'.
  lv_string = 'Translate'.
  WRITE / : lv_string.
  TRANSLATE lv_string TO UPPER CASE.
  WRITE : / lv_string.
  CLEAR : lv_string, lv_string2.
  SKIP 2.
**...

**...
* 8. Shift
  WRITE / : '8. SHIFT'.
  lv_string = '00000005214'.
  WRITE / : lv_string.
  SHIFT lv_string LEFT DELETING LEADING '0'.
  WRITE / : lv_string.
  CLEAR lv_string.
  SKIP 2.
**...

**...
* 9. Search
  WRITE / : '9. Search'.
  lv_string  = 'This is Search String'.
  lv_string2 = 'Search'.
  WRITE / : lv_string, lv_string2.
  SEARCH lv_string FOR lv_string2.
  WRITE : / 'SY-SUBRC = ', sy-subrc.
  WRITE : / 'SY-FDPOS = ', sy-fdpos.
  CLEAR : lv_string, lv_string2.
  SKIP 2.
**...

**...
* 10. String Comparision Operators
  WRITE / : '10. String Comparision Operators'.
  lv_string  = 'ABcDE F'.
  lv_string2 = 'ABcDE F'.
  WRITE / : lv_string, lv_string2.
  IF lv_string CO lv_string2.
    WRITE : / 'Contains Only :',lv_string, ',',
               lv_string2, '- are Same'.
    WRITE : / 'SY-SUBRC = ', sy-subrc.
    WRITE : / 'SY-FDPOS = ', sy-fdpos.
  ENDIF.
  CLEAR lv_string2.
  SKIP 2.
  lv_string2 = 'ABcDEF'.
  WRITE / : lv_string, lv_string2.
  IF lv_string CN lv_string2.
    WRITE : / 'Contains Not :',lv_string, ',',
               lv_string2, '- are Not Same'.
    WRITE : / 'SY-SUBRC = ', sy-subrc.
    WRITE : / 'SY-FDPOS = ', sy-fdpos.
  ENDIF.
  CLEAR lv_string2.
  SKIP 2.
  lv_string2 = 'abcdefghijB'.
  WRITE / : lv_string, lv_string2.
  IF lv_string CA lv_string2.
    WRITE : / 'Contains Any :',lv_string, ',',
               lv_string2, '- Found similar Char'.
    WRITE : / 'SY-SUBRC = ', sy-subrc.
    WRITE : / 'SY-FDPOS = ', sy-fdpos.
  ENDIF.
  CLEAR lv_string2.
  SKIP 2.
  lv_string2 = 'abdefghij'.
  WRITE / : lv_string, lv_string2.
  IF lv_string NA lv_string2.
    WRITE : / 'Contains Not Any :',lv_string, ',',
               lv_string2, '- No similar Char'.
    WRITE : / 'SY-SUBRC = ', sy-subrc.
    WRITE : / 'SY-FDPOS = ', sy-fdpos.
  ENDIF.
  CLEAR lv_string2.
  SKIP 2.
  lv_string2 = 'cd'.
  WRITE / : lv_string, lv_string2.
  IF lv_string CS lv_string2.
    WRITE : / 'Contains String :',lv_string, ',',
               lv_string2, '- Found similar String'.
    WRITE : / 'SY-SUBRC = ', sy-subrc.
    WRITE : / 'SY-FDPOS = ', sy-fdpos.
  ENDIF.
  SKIP 2.                                                                           "Similarly NS
  lv_string2 = '*#D*'.
  WRITE / : lv_string, lv_string2.
  IF lv_string CP lv_string2.
    WRITE : / 'Contains Pattern :',lv_string, ',',
               lv_string2, '- Found similar Pattern'.
    WRITE : / 'SY-SUBRC = ', sy-subrc.
    WRITE : / 'SY-FDPOS = ', sy-fdpos.
  ENDIF.                                                                            "Similarly NP
**...
END-OF-SELECTION.



Thanks.