Diccionario de dumps

1
2
3
4
5
TRY.
    DATA(lv_importe) = CONV decfloat34( replace( val = lv_texto sub = ',' with = '.' ) ).
  CATCH cx_sy_conversion_no_number INTO DATA(lx_error).
    MESSAGE |Importe no válido: { lv_texto }| TYPE 'E'.
ENDTRY.

1
lv_unitario = COND #( WHEN lv_cantidad <> 0 THEN lv_importe / lv_cantidad ELSE 0 ).

1
DATA(lv_nombre) = VALUE #( lt_clientes[ kunnr = lv_kunnr ]-name1 OPTIONAL ).

1
2
3
4
ASSIGN lt_pedidos[ vbeln = lv_vbeln ] TO FIELD-SYMBOL(<ls_pedido>).
IF sy-subrc = 0.
  <ls_pedido>-netwr = 0.
ENDIF.

1
2
3
4
INSERT zventas FROM TABLE @lt_ventas ACCEPTING DUPLICATE KEYS.
IF sy-subrc = 4.
  " algunos registros ya existían
ENDIF.

1
2
3
4
5
6
7
8
SELECT mblnr, mjahr, zeile, matnr, menge
  FROM mseg
  WHERE werks = @p_werks
    AND budat_mkpf IN @s_budat
  INTO TABLE @DATA(lt_mseg)
  PACKAGE SIZE 50000.
  " procesar el paquete
ENDSELECT.

1
2
3
4
5
6
7
8
9
10
DATA lv_mensaje TYPE c LENGTH 200.
CALL FUNCTION 'Z_LEER_DATOS' DESTINATION lv_destino
  EXPORTING iv_clave = lv_clave
  EXCEPTIONS
    system_failure        = 1 MESSAGE lv_mensaje
    communication_failure = 2 MESSAGE lv_mensaje
    OTHERS                = 3.
IF sy-subrc <> 0.
  MESSAGE |Error RFC: { lv_mensaje }| TYPE 'E'.
ENDIF.

1
2
3
4
5
6
7
DATA lv_msg TYPE string.
OPEN DATASET lv_fichero FOR INPUT IN TEXT MODE ENCODING UTF-8
  MESSAGE lv_msg.
IF sy-subrc <> 0.
  MESSAGE |No se puede abrir { lv_fichero }: { lv_msg }| TYPE 'E'.
ENDIF.
READ DATASET lv_fichero INTO lv_linea.

1
2
3
4
5
6
7
8
9
10
11
CALL FUNCTION 'DATE_GET_WEEK'
  EXPORTING
    date         = lv_fecha
  IMPORTING
    week         = lv_semana
  EXCEPTIONS
    date_invalid = 1
    OTHERS       = 2.
IF sy-subrc <> 0.
  MESSAGE 'Fecha no válida' TYPE 'E'.
ENDIF.