/******************** STATEMENTS************************************** ** ** ROW x,y (WITH...) ** Em um ambiente grafico, (for windows), ** e possivel usar valores decimais para ** linha de posicionamento ** ** COLUMN x,y (WITH...) ** Em um ambiente grafico, (for windows), ** e possivel usar valores decimais para ** coluna de posicionamento ** ** SINGLE FRAME ** E uma frame que exibe apenas uma infor- ** macao para cada dado. ** Umas frame torna-se SINGLE, quando e ** nomeada pelo statement WITH FRAME ** nome-da-frame, ou, quando e gerada ** por um bloco mais externo. ** ** DOWN FRAME ** E uma frame que exibe mais que uma ** informacao para cada dado.E o default, ** entreanto e necessario ter mais de ** uma informacao para cada dado. ** **********************************************************************/ Código: FOR EACH customer: DISPLAY customer.cust-num WITH FRAME f-cust. DISPLAY customer.name WITH ROW 1 COLUMN 15. FOR EACH order WHERE order.cust-num = customer.cust-num: DISPLAY order.order-num WITH FRAME f-order. DISPLAY order.order-date WITH ROW 4.5 COLUMN 15.1. END. END.