Placing Hyphen(-) between the characters


DATA:gv_string       TYPE string VALUE 'DM999999999999',

     gv_string_final TYPE string,
     lv_mod          TYPE i,
     gv_length       TYPE i,
     gv_offset       TYPE i.

gv_length = strlen( gv_string ).

DO gv_length TIMES.
  CONCATENATE gv_string_final gv_string+gv_offset(1) INTO gv_string_final.
  IF sy-index = gv_length.  "exit on reaching last caracter
    EXIT.
  ENDIF.
  IF sy-index = 2.
    CONCATENATE gv_string_final '-' INTO gv_string_final.
  ELSEIF sy-index = 8.
    CONCATENATE gv_string_final '-' INTO gv_string_final.
  ELSEIF sy-index = 9.
    CONCATENATE gv_string_final '-' INTO gv_string_final.
  ELSEIF sy-index = 11.
    CONCATENATE gv_string_final '-' INTO gv_string_final.
  ENDIF.
  gv_offset = gv_offset + 1.
ENDDO.
WRITE:/ 'Input string: ', gv_string .
WRITE:/ 'Result: ', gv_string_final.

 Output:

 

 

 

Comments

Post a Comment

Popular posts from this blog

CDS Views: Table Functions with Example

Image
1.Which supports the additional functionalities which are not supported by CDS. 2.SQL statements will written and will use SQL functions and methodologies. 3.Table function has optional input parameters and return parameters. 4.Needs class and method to define. -Class:Public, Method:Static 5.The statement Interface:IF_AMDP_MARKER_HDB must be use. 1.Creation of Table Function: Create a Data Definition and select template 'Define Table Function with Parameters' @EndUserText.label: 'Prod Order TF' define table function ZVB_TF_PROD_ORD //with parameters parameter_name : parameter_type returns { client : abap . clnt ; Prod_order : aufnr ; order_type : auart ; } implemented by method zvb_class_tf => get_ord_details ;   2.Creation of Class: CLASS zvb_class_tf DEFINITION PUBLIC . PUBLIC SECTION. CLASS-METHODS: get_ord_details FOR TABLE FUNCTION ZVB_TF_PROD_ORD . INTERFACES: IF_AMDP_MARKER_HDB . PROTECTED SECTION. PRIVATE SECTION. ENDCLASS. ...
Read more

ABAP-Managed Database Procedures (AMDP) with Example

Image
  Syntax of AMDP Classes An AMDP is implemented in an AMDP class with a regular static method or instance method in any visibility section. CLASS <my_amdp_class> DEFINITION . PUBLIC SECTION . * Marker interface with SAP HANA DB as database type INTERFACES IF_AMDP_MARKER_ < DB_TYPE >. ... METHODS <my_amdp_method> . ... ENDCLASS . CLASS <my_amdp_class> IMPLEMENTATION . ... * AMDP method METHOD <my_amdp_method> BY DATABASE PROCEDURE FOR <db_type> LANGUAGE <db_language> OPTIONS <db_options> USING <db_entity> . "Implementation of the procedure in a DB-specific language ... ENDMETHOD. ... ENDCLASS.    Example: Click on File->New->ABAP Class CLASS zvb_amdp_class DEFINITION PUBLIC   FINAL   CREATE PUBLIC .     PUBLIC SECTION.     TYPES:BEGIN OF ty_stu ,     ...
Read more

Passing Dynamic Variables to SO10 TEXT

REPORT  ZTEST_POPUP . PARAMETERS : A  TYPE  i ,  B  TYPE  i . DATA:  C TYPE  i ,       lv_text  TYPE  string , C  =  A + B .   data : it_final  TYPE  TABLE  OF  tline . DATA : CHANGED  TYPE  STRING . CALL  FUNCTION  'READ_TEXT'    EXPORTING     CLIENT                         =  SY - MANDT      id                             =  'ST'      language                       =  SY - LANGU  ...
Read more