вторник, 29 апреля 2014 г.

Deleting Leading Zeros

The example of code:

REPORT ztest_delete_zeros NO STANDARD PAGE HEADING.

PARAMETERS: str TYPE char10.

START-OF-SELECTION.
  DATA: str2 TYPE char20.

  " Variant 1.
  str2 = str.
  SHIFT str2 LEFT DELETING LEADING '0'.
  WRITE: / 'Before deleting:', str.
  WRITE: / 'After deleting:', str2.

  " Variant 2.
  str2 = str.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input  = str2
    IMPORTING
      output = str2.

  WRITE: / 'Before deleting:', str.
  WRITE: / 'After deleting:', str2.

  " Difference between the two variants:
  " variant 1: '00000' --> '';
  " variant 2: '00000' --> '0'.

Комментариев нет:

Отправить комментарий