Justo después de hacer el: CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
recorre el catálogo:
* FIELD-SYMBOLS: <fs_catalogo> TYPE lvc_s_fcat.
* CASE <fs_catalogo>-col_pos. "<fs_catalogo>-fieldname
* WHEN '1' OR '2' OR '8' OR '10'.
* WHEN 'BUKRS' OR 'BELNR' OR 'DMBTR' OR 'WRBTR'.
* ----FORMA 1
* <fs_catalogo>-scrtext_s = text-001. "texto de la columna
* <fs_catalogo>-scrtext_l = text-001.
* <fs_catalogo>-scrtext_m = text-001.
* ---- FIN FORMA 1
* ----FORMA 2
* <fs_catalogo>-reptext = text-001.
* ----FIN FORMA 2
* ENDCASE.
Creo q con la forma 2 ya lo haces con una única línea.
Ya dirás si te sirve
|