/******************** STATEMENTS********************************** ** ** BLANK (FORM...) (DEFINE FRAME...) (UPDATE...) (PROMPT-FOR...) ** Faz com que a digitacao se torne ** invisivel. ** Nao e uma caracteristica geral da ** frame e sim individual de um deter- ** minado dado que ocupa espaco na ** frame. ** **********************************************************************/ Código: DEF VAR senha AS CHAR FORMAT "X(16)". UPDATE senha LABEL "Senha" BLANK VALIDATE(senha = "jesus", "Senha invalida") WITH CENTERED SIDE-LABEL ROW 4 TITLE "Escolha o Relatorio:". MESSAGE "Senha correta". HIDE ALL.