PERFORM

sábado, 31 de março de 2012 às 3/31/2012 03:12:00 PM Comandos/Funções 0 comentários

Comando: PERFORM

Descrição:
Usado para chamar um formulário (subprograma).

Exemplo:

PERFORM F_ESCREVE. FORM F_ESCREVE. WRITE 'TEXTO'. ENDFORM.

PARAMETERS P_AZUL AS CHECKBOX. PARAMETERS P_VERM AS CHECKBOX. PARAMETERS P_AMAR AS CHECKBOX. IF P_AZUL = 'X'. PERFORM F_ESCREVE USING 4. ELSEIF P_VERM = 'X'. PERFORM F_ESCREVE USING 6. ELSE. PERFORM F_ESCREVE USING 3. ENDIF. FORM F_ESCREVE USING P_COR TYPE I. WRITE 'TEXTO COLORIDO' COLOR = P_COR. ENDFORM.