Unidad n°2: La declaración de datos y el procesamiento de datos
Lección n°7: El formato de salida de los datos
El formato de salida de los datos:
ABAP brinda sentencias para generar reportes fácilmente:
WRITE: la más popular, si ponemos el mouse sobre esta y presionamos F1, veremos la ayuda del sist. para la sentencia.
Además tiene un formato determinado: WRITE:/ <offset>(<long>)'<datos a visualizar>'.
WRITE:/ 
Salto de línea.
<offset> Columna donde comienza la impresión.
(<long>) Longitud de la impresión.
'<datos a visualizar>'. Datos a imprimir.
Ej:
WRITE:/1(18) 'Nombre del alumno', v_nombre.
WRITE:/1(16) 'Edad del alumno', v_edad.
WRITE:/1(14) 'Código postal', v_código_postal.
Hay muchos comandos adicionales de la WRITE para producir una salida por pantalla determinada:
- LEFT-JUSTIFIED: salida justificada a izquierda.
- CENTERED: salida centrada.
- RIGHT-JUSTIFIED: salida justificada a derecha.
- NO-ZERO: si el campo contiene ceros, estos serán cambiados por blancos.
- NO-GAPS: el banco después del campo que se desea imprimir es omitido.
- NO-SIGN: el signo no aparece a la salida.
- DECIMALS n: n define el número de dígitos decimales.
- ROUND n: redondea el campo de salida para los tipo p.
- DD/MM/YYYY: fechas con separadores.
Algunos ejemplos:
- LEFT-JUSTIFIED: si queremos alinear un texto a la izq. usamos esta: WRITE:/1(70) 'Hola mundo' LEFT-JUSTIFIED.
El ancho del espacio de impresión es de 70 caracteres y el texto se alinea a la izq.
- RIGHT-JUSTIFIED: si queremos alinear un texto a la derecha: WRITE:/ 'Hola mundo' RIGHT-JUSTIFIED.
El ancho del espacio de impresión es de 70 caracteres y el texto se alinea a la derecha.
- CENTERED: para centrar un texto: WRITE:/1(70) 'Hola mundo' CENTERED.
El ancho del espacio de impresión es de 70 caracteres y el texto se se centra en los 35 caracteres.
- NO-ZERO: para cambiar los ceros por blancos de una variable que imprimimos por pantalla:
DATA: v_numero(10) TYPE n VALUE 70.
WRITE:/ 'Mostramos el núm. con ceros', v_numero.
WRITE:/ 'Mostramos el núm. sin ceros', v_numero NO-ZERO.
- NO-GAPS: para eliminar espacios en blanco:
DATA: v_texto TYPE string.
v_texto = 'Este es mi primer programa ABAP'.
CONDENSE v_texto NO-GAPS.
WRITE:/ v_texto.
- DD/MM/YYYY: variable tipo fecha:
DATA: v_fecha TYPE d.
v_fecha = sy-datum.
WRITE:/ 'La fecha de hoy es: ', v_fecha DD/MM/YYYY
Otras dos sentencias útiles son SKIP y ULINE:
- SKIP: para dejar una línea en blanco entre dos impresiones:
WRITE:/ 'Esta es la 1ra línea'.
SKIP.
WRITE:/ 'Esta es la 2da línea'.
Para probar esta snetencia podemos usar el programa estándar DEMO_LIST_SKIP.
- ULINE: para imprimir en pantalla una línea horizontal:
WRITE:/ 'Esta es la 1ra línea'.
ULINE.
WRITE:/ 'Esta es la 2da línea'.
Aparte, hay eventos dentro de un programa para darle formato a la salida de un reporte ya sea por pantalla o impresión.
- Evento TOP-OF-PAGE: para cambiar la cabecera de una pág. Este evento ocurre cuando el sist. empieza a procesar una nueva pág:
TOP-OF-PAGE.
WRITE:/ 'Datos de los alumnos del sistema'.
ULINE.
...
- Evento END-OF-SELECTION: para hacer una impresión por pantalla de los datos, para separar la impresión del procesamiento de los datos. Este se ejecuta luego del START-OF-SELECTION:
END-OF-SELECTION.
WRITE:/ 'SE mostro 1 registro'.
- Sentencia NO STANDARD PAGE HEADING: se pone a la derecha del REPORT y sirve para modificar la cantidad de líneas y columnas que se visualizan en la pantalla:
REPORT ztest_formato NO STANDARD PAGE HEADING LINE-SIZE 200. " Cantidad de líneas.
LINE-COUNT 60. " Cantidad de columnas.