CleanCore Check

Pega un report, una clase o un include, o abre varios archivos a la vez. Elige el sistema donde va a funcionar y te dice qué no compilará, qué se rompe al migrar a S/4HANA, qué lo hace lento y qué es un riesgo de seguridad, con la corrección de cada caso. Gratis y sin registro. El análisis se hace en tu navegador: el código no se envía a ningún servidor.

También en tu navegador. Con la extensión gratuita CleanCore para GitHub, el análisis aparece al abrir código ABAP en GitHub, también en pull requests. Instalar en Edge · Descargar para Chrome · Firefox, próximamente.

Código ABAP0 líneas

Pega código y pulsa Analizar, o carga uno de los ejemplos de arriba.

*&---------------------------------------------------------------------*
*& Report ZR_PEDIDOS_PENDIENTES
*& Listado de pedidos de compra pendientes de entrada de mercancía
*& Escrito en 2009, modificado varias veces desde entonces
*&---------------------------------------------------------------------*
REPORT zr_pedidos_pendientes.

TABLES: ekko.

DATA: BEGIN OF it_pedidos OCCURS 0,
        ebeln LIKE ekko-ebeln,
        lifnr LIKE ekko-lifnr,
        name1 LIKE lfa1-name1,
        ebelp LIKE ekpo-ebelp,
        matnr LIKE ekpo-matnr,
        maktx LIKE makt-maktx,
        menge LIKE ekpo-menge,
        netwr LIKE ekpo-netwr,
      END OF it_pedidos.

DATA: it_ekpo  TYPE TABLE OF ekpo WITH HEADER LINE,
      wa_ekko  TYPE ekko,
      lv_count TYPE i,
      lv_total TYPE ekpo-netwr,
      lv_texto TYPE string,
      lv_fecha TYPE sy-datum,
      lv_pass  TYPE string.

RANGES r_bsart FOR ekko-bsart.

SELECT-OPTIONS: s_ebeln FOR ekko-ebeln,
                s_bukrs FOR ekko-bukrs OBLIGATORY.
PARAMETERS: p_where TYPE string.

START-OF-SELECTION.

lv_pass = 'Compras2009!'.
  MOVE sy-datum TO lv_fecha.
  REFRESH it_pedidos.

r_bsart-sign = 'I'. r_bsart-option = 'EQ'. r_bsart-low = 'NB'.
  APPEND r_bsart.

SELECT * FROM ekko INTO wa_ekko
    WHERE ebeln IN s_ebeln
      AND bukrs IN s_bukrs
      AND bsart IN r_bsart.

SELECT * FROM ekpo INTO TABLE it_ekpo
      WHERE ebeln = wa_ekko-ebeln
        AND elikz = space.

LOOP AT it_ekpo.
      CLEAR it_pedidos.
      MOVE-CORRESPONDING it_ekpo TO it_pedidos.
      it_pedidos-lifnr = wa_ekko-lifnr.

SELECT SINGLE name1 FROM lfa1 INTO it_pedidos-name1
        WHERE lifnr = wa_ekko-lifnr.

SELECT SINGLE maktx FROM makt INTO it_pedidos-maktx
        WHERE matnr = it_ekpo-matnr
          AND spras = sy-langu.

ADD it_ekpo-netwr TO lv_total.
      APPEND it_pedidos.
    ENDLOOP.

ENDSELECT.

IF sy-uname = 'JGARCIA'.
    " Compras quiere ver también los pedidos borrados
    SELECT * FROM ekpo INTO TABLE it_ekpo WHERE (p_where).
  ENDIF.

DESCRIBE TABLE it_pedidos LINES lv_count.
  CONCATENATE 'Pedidos pendientes:' lv_texto INTO lv_texto SEPARATED BY space.

PERFORM mostrar_alv.

LOOP AT it_pedidos.
    READ TABLE it_ekpo WITH KEY ebeln = it_pedidos-ebeln BINARY SEARCH.
    IF sy-subrc = 0.
      it_pedidos-menge = it_ekpo-menge.
      MODIFY it_pedidos.
    ENDIF.
  ENDLOOP.

*&---------------------------------------------------------------------*
FORM mostrar_alv.
  DATA: lo_alv TYPE REF TO cl_salv_table.

TRY.
      CALL METHOD cl_salv_table=>factory
        IMPORTING
          r_salv_table = lo_alv
        CHANGING
          t_table      = it_pedidos[].
      CALL METHOD lo_alv->display.
    CATCH cx_root.
  ENDTRY.

WRITE: / 'Total:', lv_total, 'Fecha:', lv_fecha.
ENDFORM.

*&---------------------------------------------------------------------*
*& Report ZR_ENTREGAS_PENDIENTES
*& Pedidos de venta con entrega pendiente y su precio neto
*& Funciona en ECC. Pendiente de revisar para la migración a S/4HANA.
*&---------------------------------------------------------------------*
REPORT zr_entregas_pendientes.

TYPES: BEGIN OF ty_pedido,
         vbeln TYPE vbak-vbeln,
         posnr TYPE vbap-posnr,
         matnr TYPE c LENGTH 18,
         kwmeng TYPE vbap-kwmeng,
         kbetr TYPE konv-kbetr,
         lfsta TYPE vbup-lfsta,
       END OF ty_pedido.

DATA: lt_vbap    TYPE STANDARD TABLE OF vbap,
      ls_vbap    TYPE vbap,
      lt_vbup    TYPE STANDARD TABLE OF vbup,
      ls_vbup    TYPE vbup,
      lt_pedidos TYPE STANDARD TABLE OF ty_pedido,
      ls_pedido  TYPE ty_pedido.

SELECT-OPTIONS s_vbeln FOR ls_vbap-vbeln.

START-OF-SELECTION.

SELECT * FROM vbap INTO TABLE lt_vbap
    WHERE vbeln IN s_vbeln
      AND werks = '1100'.

SELECT * FROM vbup INTO TABLE lt_vbup
    FOR ALL ENTRIES IN lt_vbap
    WHERE vbeln = lt_vbap-vbeln
      AND posnr = lt_vbap-posnr
      AND lfsta <> 'C'.

LOOP AT lt_vbap INTO ls_vbap.
    READ TABLE lt_vbup INTO ls_vbup
      WITH KEY vbeln = ls_vbap-vbeln posnr = ls_vbap-posnr BINARY SEARCH.
    CHECK sy-subrc = 0.

ls_pedido-vbeln  = ls_vbap-vbeln.
    ls_pedido-posnr  = ls_vbap-posnr.
    ls_pedido-matnr  = ls_vbap-matnr+0(18).
    ls_pedido-kwmeng = ls_vbap-kwmeng.
    ls_pedido-lfsta  = ls_vbup-lfsta.

SELECT SINGLE kbetr FROM konv INTO ls_pedido-kbetr
      WHERE knumv = ls_vbap-vbeln
        AND kschl = 'PR00'.

APPEND ls_pedido TO lt_pedidos.
  ENDLOOP.

* SELECT * FROM vbuk INTO TABLE lt_vbuk
*   FOR ALL ENTRIES IN lt_vbap
*   WHERE vbeln = lt_vbap-vbeln.
* LOOP AT lt_vbuk INTO ls_vbuk.
*   DELETE lt_pedidos WHERE vbeln = ls_vbuk-vbeln.
* ENDLOOP.

IF lt_pedidos IS INITIAL.
    " Si no hay pendientes, se da de alta el cliente de prueba (petición de 2014)
    CALL TRANSACTION 'XD01' WITH AUTHORITY-CHECK.
  ENDIF.

"! Interfaz de precios con un proveedor externo.
"! Lee un fichero del servidor, actualiza precios y llama a una API REST.
CLASS zcl_interfaz_precios DEFINITION PUBLIC FINAL CREATE PUBLIC.
  PUBLIC SECTION.
    METHODS importar
      IMPORTING iv_fichero TYPE string
                iv_filtro  TYPE string.
  PRIVATE SECTION.
    CONSTANTS gc_api_key TYPE string VALUE 'CLAVE-FICTICIA-DE-EJEMPLO'.
ENDCLASS.

CLASS zcl_interfaz_precios IMPLEMENTATION.

METHOD importar.
    DATA lv_linea   TYPE string.
    DATA lv_where   TYPE string.
    DATA lv_token   TYPE string.

lv_token = 'Bearer CLAVE-FICTICIA-DE-EJEMPLO'.

" El fichero lo indica el usuario en la pantalla
    OPEN DATASET iv_fichero FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    DO.
      READ DATASET iv_fichero INTO lv_linea.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
    ENDDO.
    CLOSE DATASET iv_fichero.

" Filtro libre que llega desde la llamada RFC
    CONCATENATE 'MATNR LIKE ''' iv_filtro '%''' INTO lv_where.
    SELECT matnr, meins FROM mara
      WHERE (lv_where)
      INTO TABLE @DATA(lt_mara).

LOOP AT lt_mara INTO DATA(ls_mara).
      UPDATE mbew SET verpr = 0
        WHERE matnr = @ls_mara-matnr.
    ENDLOOP.

IF sy-uname = 'ADMIN_INTERF'.
      " El usuario de interfaz no necesita autorización
      RETURN.
    ENDIF.

TRY.
        cl_http_client=>create_by_url( EXPORTING url = 'https://api.proveedor.com/precios'
                                       IMPORTING client = DATA(lo_client) ).
      CATCH cx_root.
    ENDTRY.

COMMIT WORK.
  ENDMETHOD.

ENDCLASS.

Qué revisa

72 reglas en siete categorías: preparado para ABAP Cloud, migración a S/4HANA, compatibilidad con la versión de ABAP, sintaxis obsoleta, rendimiento, seguridad y buenas prácticas. Cada hallazgo explica por qué es un problema y cómo se corrige.

Qué corrige solo

MOVE, COMPUTE, ADD, REFRESH, DESCRIBE LINES, CREATE OBJECT, CALL METHOD, CONCATENATE simple y, en ABAP Cloud, sy-datum, sy-uzeit y sy-uname. Las correcciones se adaptan a la versión: en un ECC 7.40 no propone +=, en un 7.0x no propone NEW.

Qué no es

No sustituye al ATC de SAP, que conoce el estado real de cada objeto en tu sistema. Sirve para revisar código antes de tenerlo en un sistema, preparar una migración o hacer una revisión rápida.

Sistemas

Qué cambia según el sistema destino

Sistema	Qué se comprueba además de lo común
ECC 6.0 · ABAP 7.00 a 7.31	Sintaxis que no compila en esas versiones: declaraciones en línea, expresiones de constructor, expresiones de tabla, SQL con @, `+=`
ECC 6.0 · ABAP 7.40 / 7.50	Operadores `+=` (7.54). Correcciones automáticas sin sintaxis de 7.54
S/4HANA on-premise	Simplificación de S/4HANA: VBUK, VBUP, KONV, MKPF/MSEG, BSIS y totales sustituidos; orden de SELECT en HANA; MATNR de 40; Business Partner; transacciones MB* y batch input
S/4HANA Cloud Private Edition	Lo de on-premise y las reglas de ABAP Cloud como aviso (recomendación clean core)
S/4HANA Cloud Public Edition	ABAP Cloud estricto: objetos liberados, sin SAP GUI, sin acceso a tablas de SAP, sin COMMIT WORK
SAP BTP ABAP Environment	Igual que Public Edition

Para dejar una excepción documentada en tu propio código (por ejemplo, un SUBMIT dinámico que ya validas), añade al final de la línea " cleancore:ignorar SEC-010 motivo. La regla no se aplicará a esa sentencia.

Catálogo

Reglas que aplica

La columna "Sistemas" indica dónde se aplica cada regla.

Regla	Qué detecta	Categoría	Gravedad	Sistemas
OBS-001	MOVE ... TO	Sintaxis obsoleta	Aviso	Todos
OBS-002	MOVE-CORRESPONDING	Sintaxis obsoleta	Sugerencia	ECC 7.40, S/4 on-prem, S/4 PCE, S/4 Public, BTP
OBS-003	COMPUTE	Sintaxis obsoleta	Aviso	Todos
OBS-004	ADD / SUBTRACT / MULTIPLY / DIVIDE	Sintaxis obsoleta	Aviso	Todos
OBS-005	Tabla con cabecera (WITH HEADER LINE / OCCURS)	Sintaxis obsoleta	Error	Todos
OBS-006	Sentencia TABLES	Sintaxis obsoleta	Aviso	Todos
OBS-007	FORM / PERFORM	Sintaxis obsoleta	Aviso	Todos
OBS-008	RANGES	Sintaxis obsoleta	Aviso	Todos
OBS-009	REFRESH	Sintaxis obsoleta	Aviso	Todos
OBS-010	DESCRIBE TABLE ... LINES	Sintaxis obsoleta	Sugerencia	Todos
OBS-011	CREATE OBJECT	Sintaxis obsoleta	Sugerencia	ECC 7.40, S/4 on-prem, S/4 PCE, S/4 Public, BTP
OBS-012	CALL METHOD	Sintaxis obsoleta	Sugerencia	Todos
OBS-013	ON CHANGE OF	Sintaxis obsoleta	Error	Todos
OBS-014	LOOP sin área de trabajo	Sintaxis obsoleta	Error	Todos
OBS-015	READ TABLE en lugar de expresión de tabla	Sintaxis obsoleta	Sugerencia	ECC 7.40, S/4 on-prem, S/4 PCE, S/4 Public, BTP
OBS-016	CONCATENATE	Sintaxis obsoleta	Sugerencia	Todos
OBS-017	Open SQL sin host variables (@)	Sintaxis obsoleta	Sugerencia	ECC 7.40, S/4 on-prem, S/4 PCE, S/4 Public, BTP
PERF-001	SELECT dentro de un bucle	Rendimiento	Error	Todos
PERF-002	SELECT *	Rendimiento	Aviso	Todos
PERF-003	FOR ALL ENTRIES sin comprobar que la tabla tenga datos	Rendimiento	Error	Todos
PERF-004	BINARY SEARCH sin SORT previo	Rendimiento	Error	Todos
PERF-005	DELETE ADJACENT DUPLICATES sin SORT previo	Rendimiento	Aviso	Todos
PERF-006	LOOP ... WHERE anidado	Rendimiento	Aviso	Todos
PERF-007	MODIFY dentro del LOOP con área de trabajo	Rendimiento	Aviso	Todos
PERF-008	BYPASSING BUFFER	Rendimiento	Aviso	Todos
PERF-009	COMMIT WORK dentro de un bucle	Rendimiento	Aviso	Todos
PERF-010	SELECT ... ENDSELECT	Rendimiento	Aviso	Todos
CLD-001	Campos de sistema sy-datum / sy-uzeit / sy-uname	Preparado para Cloud	Aviso	S/4 PCE, S/4 Public, BTP
CLD-002	Acceso directo a tabla estándar de SAP	Preparado para Cloud	Error	S/4 PCE, S/4 Public, BTP
CLD-003	Interfaz SAP GUI (WRITE, dynpros, ALV clásico, pantallas de selección)	Preparado para Cloud	Error	S/4 PCE, S/4 Public, BTP
CLD-004	Ficheros de PC o del servidor	Preparado para Cloud	Error	S/4 PCE, S/4 Public, BTP
CLD-005	CALL TRANSACTION / SUBMIT / LEAVE TO TRANSACTION	Preparado para Cloud	Error	S/4 PCE, S/4 Public, BTP
CLD-006	Módulo de función no liberado	Preparado para Cloud	Aviso	S/4 PCE, S/4 Public, BTP
CLD-007	EXPORT/IMPORT MEMORY, SET/GET PARAMETER	Preparado para Cloud	Error	S/4 PCE, S/4 Public, BTP
CLD-008	COMMIT WORK / ROLLBACK WORK directo	Preparado para Cloud	Aviso	S/4 PCE, S/4 Public, BTP
CLD-010	Clase de SAP no liberada	Preparado para Cloud	Error	S/4 PCE, S/4 Public, BTP
CLD-009	MESSAGE con tipo (diálogo)	Preparado para Cloud	Aviso	S/4 PCE, S/4 Public, BTP
SEC-001	Cláusula WHERE dinámica	Seguridad	Error	Todos
SEC-002	Tabla o campos dinámicos en SQL	Seguridad	Aviso	Todos
SEC-003	Credenciales en el código	Seguridad	Error	Todos
SEC-004	Usuario escrito en el código	Seguridad	Error	Todos
SEC-005	CLIENT SPECIFIED / USING CLIENT	Seguridad	Aviso	Todos
SEC-006	CALL TRANSACTION sin comprobar autorización	Seguridad	Error	Todos
SEC-007	Generación de código o SQL nativo	Seguridad	Error	Todos
QA-001	BREAK-POINT en el código	Buenas prácticas	Error	Todos
QA-002	CATCH vacío	Buenas prácticas	Aviso	Todos
QA-003	CATCH cx_root	Buenas prácticas	Aviso	Todos
QA-004	WAIT UP TO	Buenas prácticas	Aviso	Todos
QA-005	Pseudocomentario "#EC	Buenas prácticas	Sugerencia	Todos
QA-006	Procedimiento muy largo	Buenas prácticas	Sugerencia	Todos
QA-007	Texto literal en un mensaje	Buenas prácticas	Sugerencia	Todos
QA-008	Valor organizativo fijo en el código	Buenas prácticas	Aviso	Todos
QA-009	MESSAGE de tipo A o X	Buenas prácticas	Aviso	Todos
QA-010	Bloque de código comentado	Buenas prácticas	Sugerencia	Todos
PERF-011	SELECT COUNT(*) para comprobar si existe	Rendimiento	Sugerencia	Todos
PERF-012	SORT dentro de un bucle	Rendimiento	Aviso	Todos
PERF-013	COLLECT para sumar	Rendimiento	Sugerencia	Todos
SEC-008	Escritura directa en tablas estándar de SAP	Seguridad	Error	Todos
SEC-009	Ruta de fichero sin validar	Seguridad	Aviso	Todos
SEC-010	Transacción o programa dinámico	Seguridad	Aviso	Todos
REL-001	Declaración en línea (requiere 7.40)	Compatibilidad de versión	Error	ECC 7.0x
REL-002	Expresión de constructor (requiere 7.40)	Compatibilidad de versión	Error	ECC 7.0x
REL-003	Expresión de tabla o line_exists (requiere 7.40)	Compatibilidad de versión	Error	ECC 7.0x
REL-004	SQL con @ y comas (requiere 7.40 SP05)	Compatibilidad de versión	Error	ECC 7.0x
REL-005	Operador +=, -=, *= o /= (requiere 7.54)	Compatibilidad de versión	Error	ECC 7.0x, ECC 7.40
REL-006	String template (requiere 7.02)	Compatibilidad de versión	Sugerencia	ECC 7.0x
S4-001	Tabla eliminada o sustituida en S/4HANA	Migración a S/4HANA	Error	S/4 on-prem, S/4 PCE, S/4 Public, BTP
S4-002	Se da por hecho el orden de una SELECT sin ORDER BY	Migración a S/4HANA	Aviso	S/4 on-prem, S/4 PCE, S/4 Public, BTP
S4-003	Material con longitud fija de 18 caracteres	Migración a S/4HANA	Aviso	S/4 on-prem, S/4 PCE, S/4 Public, BTP
S4-004	Clientes y proveedores fuera de Business Partner	Migración a S/4HANA	Error	S/4 on-prem, S/4 PCE, S/4 Public, BTP
S4-005	Transacción de movimientos de stock obsoleta	Migración a S/4HANA	Error	S/4 on-prem, S/4 PCE, S/4 Public, BTP
S4-006	Batch input (CALL TRANSACTION ... USING)	Migración a S/4HANA	Aviso	S/4 on-prem, S/4 PCE, S/4 Public, BTP