SUBSTRINGS AMBIGUAS (ABREVIATURAS)

/******************** STATEMENTS**************************************
**
** SUBSTRINGS AMBIGUAS (ABREVIATURAS)
** Desde que o Progress nao possua
** ambiguidade nas abreviaturas, qual-
** quer statement ou palavra especifica,
** sera compreendido.
**
** * (MULTIPLY)
** A multiplicacao de valores e repre-
** sentada pelo "*".
**
** Frames geradas pelo bloco DO
** O bloco DO, e o unico bloco que so
** so gera frame se for forcado.
** Para forcar o bloco DO a gerar uma
** frame e necessario nomear a frame.
** WITH (FOR EACH, DO, REPEAT, DISPLAY,
** PROMPT-FOR, UPDATE, INSERT e
** SET)
** Trata-se de uma clausula que espe-
** cifica todas as caracteristicas
** gerais de uma frame.
**
** FRAME nome-frame (WITH)
** E uma caracteristica geral da frame,
** na qual a frame sera chamada de...
**
**********************************************************************/

Código:

FOR EACH C:
  DISP    c.cust-num
          c.name.              
  IF customer.credit-limit > 38000 THEN
   DO /* WITH FRAME frame-do */:                              
     ASSIGN c.credit-limit =
            c.credit-limit * 1.10. 
     DISPLAY "Reajustado".       
   END.        
  DISP   c.credit-limit with 6 down.
END.