ABAP Test Cockpit (ATC): Análisis de calidad de código

Transacción: ATC
1. Introducir objeto o paquete
2. Seleccionar variante de comprobación
3. Ejecutar
4. Analizar resultados

" Ejecutar ATC programáticamente
DATA(lo_atc) = cl_satc_adt_ch_factory=>create_check_run( ).

lo_atc->set_check_profile( 'ABAP_CLOUD_DEVELOPMENT' ).
lo_atc->add_object(
  VALUE satc_s_obj_key(
    obj_type = 'CLAS'
    obj_name = 'ZCL_MY_CLASS'
  )
).

lo_atc->execute( ).

DATA(lt_findings) = lo_atc->get_findings( ).

Transacción: ATC
-> Administración -> Definir perfiles de comprobación

Perfil: Z_MY_PROFILE
Descripción: Perfil de comprobación del proyecto

Comprobaciones incluidas:
- Comprobación de sintaxis extendida
- Comprobaciones de rendimiento
- Comprobaciones de seguridad
- Comprobaciones de Clean ABAP

" Error: SQL Injection potencial
SELECT * FROM (lv_table_name) INTO TABLE @lt_data.

" Corrección: Usar tabla fija o whitelist
IF lv_table_name = 'ZTABLE1' OR lv_table_name = 'ZTABLE2'.
  SELECT * FROM (lv_table_name) INTO TABLE @lt_data.
ENDIF.

" Advertencia: SELECT * en tabla grande
SELECT * FROM vbak INTO TABLE @DATA(lt_orders).

" Corrección: Especificar campos
SELECT vbeln, kunnr, netwr
  FROM vbak
  INTO TABLE @DATA(lt_orders).

" Info: Variable no utilizada
DATA: lv_unused TYPE string.

" Corrección: Eliminar variable
" (o usar si es necesaria)

" MALO: SELECT en loop
LOOP AT lt_customers INTO DATA(ls_customer).
  SELECT * FROM vbak INTO TABLE @DATA(lt_orders)
    WHERE kunnr = @ls_customer-kunnr.
ENDLOOP.

" BIEN: JOIN o FOR ALL ENTRIES
SELECT * FROM vbak INTO TABLE @DATA(lt_all_orders)
  FOR ALL ENTRIES IN @lt_customers
  WHERE kunnr = @lt_customers-kunnr.

" MALO: Hardcoded password
DATA(lv_password) = 'secret123'.

" BIEN: Usar Secure Store
DATA(lo_ssf) = cl_ssf_kms_lib=>read_credential( ).

" MALO: API no liberada
DATA(lv_uname) = sy-uname.

" BIEN: API liberada
DATA(lv_user) = cl_abap_context_info=>get_user_technical_name( ).

En ADT:
1. Clic derecho en el hallazgo
2. "Request Exemption"
3. Justificar
4. Enviar para aprobación

En transacción:
ATC -> Gestión de exempciones

" Suprimir hallazgo específico (no recomendado)
" Mejor solicitar exempción formal

" Pragma para suprimir (usar con precaución)
DATA(lv_value) = sy-uname ##NEEDED.

name: ATC Check

on: [push, pull_request]

jobs:
  atc:
    runs-on: ubuntu-latest
    steps:
      - uses: actions/checkout@v3

      - name: abaplint
        uses: abaplint/abaplint-action@v1
        with:
          config: '.abaplint.json'

Transacción: ATC
-> Administración -> Asignar variante a paquete

Paquete: ZPROJECT
Variante: Z_PROJECT_CHECKS

Transacción: ATC
-> Administración -> Configuración de transporte

Activar: Comprobación ATC obligatoria
Prioridad mínima para bloqueo: 2

" Hallazgo: SELECT INTO CORRESPONDING puede ser lento
SELECT * FROM ztable INTO CORRESPONDING FIELDS OF TABLE @lt_data.

" Corrección: Especificar campos explícitamente
SELECT field1, field2, field3
  FROM ztable
  INTO TABLE @DATA(lt_data).

" Hallazgo: Nombre de variable demasiado corto
DATA: x TYPE i.

" Corrección: Nombre descriptivo
DATA: lv_counter TYPE i.

" Hallazgo: Método sin RETURN en todos los paths
METHOD get_value.
  IF condition.
    rv_value = 1.
  ENDIF.
  " Falta RETURN para el ELSE
ENDMETHOD.

" Corrección
METHOD get_value.
  IF condition.
    rv_value = 1.
  ELSE.
    rv_value = 0.
  ENDIF.
ENDMETHOD.

Transacción: ATC
-> Evaluación -> Dashboard

Métricas mostradas:
- Número de hallazgos por prioridad
- Tendencia en el tiempo
- Hallazgos por desarrollador
- Hallazgos por paquete