Clauza loop si exit

Clauza LOOP permite intoarcerea la prima comanda de dupa DO WHILE,iar cluza EXIT permite iesirea din ciclul DO WHILE ENDDO.

DO WHILE

LOOP

ENDDO

EXIT

De obicei aceste doua clauze trebuie incluse intr-o structura alternativa IF sau DO CASE.

Exemplu:

CLEAR

USE REG_CAT

? 'LISTA CURSANTILOR CARE AU PROMOVAT'

? REPL ('=',40)

??'NUME' AT 15

??'___MEDIA' AT 30

? REPL ('_',40)

DO WHILE NOT EOF()

IF (N1+N2+N3+N4+N5+N6+N7)/7>=5

SKIP

LOOP

ENDIF

?CODCURS

??NUME AT 15

??(N1+N2+N3+N4+N5+N6+N7)/7 PICT '99.99'

SKIP

IF CODCURS='AJUT'

EXIT

ENDIF

ENDDO

AFISAREA CONTINUTULUI TABELEI

DISPLAY - afiseaza fie in program fie interactiv continutul tabelei active

DISPLAY [<lista_campuri/expresie>][<domeniu>]

[FOR<conditie>][WHILE<conditie>]

[TO PRINTER/TO FILE<nume_fisier>]

unde

USE PLATI

disp

RECORD# NRMAT CODCURS SERIE

1 332 ajut 1

Denumirea campurilor se poate schimba

SET HEADING OFF

va aparea:

DISP NRMAT CODCURS SERIE

RECORD# 

1 332 ajut 1

<domeniu>

ALL - afiseaza toate inregistrarile

NEXT nr. - urmatoarele nr. inregistrari

REST - urmatoarele inregistrari incepand cu cea curenta pana la sfarsitul tabelului

RECORD nr. - numai inregistrarea cu nr.

FOR <conditie>

- afiseaza numai inregistrarile care satisfac conditia

WHILE <conditie>

- pentru conditie adevarata se afiseaza inregistrarile iar pentru conditie falsa

nu se afiseaza nimic