WRITE:
WRITE:/
Comandos adicionales a WRITE que se utilizan 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-gap -----> El blanco después del campo que se desea imprimir es omitido.
no-sign ----> El signo no aparece en la salida.
decimals n ---> n define el número de dígitos decimales.
round n -------> Redondea el campo de salida para los tipos p.
dd/mm/yyyy ------> Fecha con separadores.
Para dejar una línea en blanco se utiliza la sentencia SKIP.
Para escribir una línea horizontal se utiliza la sentencia ULINE.
-------------------------------------------------------------------------------------------
Tip:
Para saltar una página NEW-PAGE
SKIP seguida del número de lineas horizontales a saltar. Ejem: SKIP 5 (saltará 5 lineas horizontales).
FORMATOS DE PÁGINA
El evento TOP-OF-PAGE se utiliza para cambiar la cabecera de una página. Este evento ocurre tan pronto como el sistema empieza a procesar una nueva página. Por ejemplo, si queremos escribir un título particular al comienzo de cada página pondremos:
*-----------------------------------------------------------
TOP-OF-PAGE
*-----------------------------------------------------------
WRITE:/ 'Datos de los usuarios del sistema'.
UNLINE.
El evento END-OF-SELECTION se utiliza para realizar la impresión por pantalla de los datos, de modo que se separe esto del procesamiento de los mismos. Este evento se ejecuta luego del evento START-OF-SELECTION.