First abap code :D

ZCORLAEZ_PLAYGROUND

*&---------------------------------------------------------------------*
*& Report ZCORLAEZ_PLAYGROUND
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zcorlaez_playground.

TYPE-POOLS: abap.

CLASS zu DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS bool_to_string
      IMPORTING
        lv_bool  TYPE abap_bool
      RETURNING
        VALUE(lv_r) TYPE string.
ENDCLASS.

CLASS zu IMPLEMENTATION.
  METHOD bool_to_string.
    IF lv_bool = abap_true.
      lv_r = |TRUE|.
    ELSE.
      lv_r = |FALSE|.
    ENDIF.
  ENDMETHOD.
ENDCLASS.

FORM assign_i USING p_va1 TYPE i CHANGING p_object TYPE i.
  p_object = p_va1.
  ASSERT p_object = p_va1.
ENDFORM.

FORM assign_n USING p_va1 TYPE n CHANGING p_object TYPE n.
  p_object = p_va1.
  ASSERT p_object = p_va1.
ENDFORM.

START-OF-SELECTION.
  " DECLARACION
  DATA lvinput1(2) TYPE n.
  DATA lvinput2(2) TYPE n.
  DATA: lvinput3 TYPE abap_bool.
  DATA: lvinput4 TYPE abap_bool.
  " ASIGNACION
  PERFORM assign_n USING 10 CHANGING lvinput1.
  PERFORM assign_n USING 20 CHANGING lvinput2.
  lvinput3 = abap_true.
  lvinput4 = abap_false.
  " OUTPUT
  WRITE: / 'lvinput1 (numeric string):', lvinput1.
  WRITE: / 'lvinput2 (numeric string):', lvinput2.
  WRITE: / 'lvinput3 (TRUE):', zu=>bool_to_string(lvinput3).
  WRITE: / 'lvinput4 (FALSE):', zu=>bool_to_string(lvinput4).