/********************STATEMENTS********************************** ** ** FOR EACH - E um bloco e por isso agrupa ** outras instrucoes, para tanto e ** necessario demarcar o seu escopo ** (onde comeca e onde termina), para ** tanto, utilize o colon ) e o ** "end." respectivamente. O FOR EACH ** tem a propriedade de buscar e copiar ** do DB para o record buffer, todos ou ** alguns registros de uma determinada ** tabela, com um unico I/O. ** ** **********************************************************************/ Código: FOR EACH state: DISPLAY state . END.