Реферат: База данных страховой компании

SET(LIC:CLIC,LIC:CLIC).

LOOP UNTIL EOF(LIC)

NEXT(LIC)

IF MEM:PR=2

IF LIC:NREGION<>XRE:NREGION THEN BREAK..

IF MEM:GOD=1993

T17:PNOMBER=LIC:PNOMBER

GET(T17,T17:C)

IF ~ERRORCODE()

THEN

IF T17:F001<=MEM:NG OR T17:F001>MEM:VG THEN CYCLE.

ELSE

CYCLE..

IF MEM:GOD=1992

F92:PNOMBER=LIC:PNOMBER

GET(F92,F92:FC)

IF ~ERRORCODE()

THEN

IF F92:F1<=MEM:NG OR F92:F1>MEM:VG THEN CYCLE.

ELSE

CYCLE..

PN#+=1

ST1=PN#

ST2=LIC:KNAM

IF MEM:GOD=1992 AND F92:F1>0 THEN ST3=F92:F1/1000.

IF MEM:GOD=1993 AND T17:F001>0 THEN ST3=T17:F001/1000.

ADD(YU)

CLEAR(ST).

CLOSE(YU)