Função Today

/******************** STATEMENTS**************************************
**
** TODAY
** Trata-se de uma funcao Progress, que
** fornece a data do sistema operacional.
**
**********************************************************************/

Código:

DISPLAY "RELACAO DE CLIENTES/PEDIDOS".
FOR EACH customer WHERE customer.cust-num = 4:
 DISPLAY customer.cust-num.
 DISPLAY customer.name.
 FOR EACH order WHERE
   order.cust-num = customer.cust-num:
   DISPLAY order.order-num.
   DISPLAY order.order-date.
 END.          
END.
DISPLAY "DATA: " TODAY.