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

GET(SVV,SVV:K)

IF SVV:CR2>0

ST7=SVV:CR2.

CLEAR(DF:RECORD)

DF:PNOMBER=LIC:PNOMBER

GET(DF,DF:C)

IF DF:S750N<>0

ST8=DF:S750N.

IF F92:F1>100 AND SVV:CR2<>0

THEN ST9=F92:F1/SVV:CR2/1000.

IF T17:F001>100 AND DF:S750N<>0

THEN ST10=T17:F001/DF:S750N/1000.

IF F92:F10>100 AND SVV:CR2<>0

THEN ST11=F92:F10/SVV:CR2/1000.

IF T17:F010>100 AND DF:S750N<>0

THEN ST12=T17:F010/DF:S750N/1000.

IF ST

PN#+=1

ST2=' '&LIC:KNAM

ADD(YU)

CLEAR(ST).

CLEAR(ST).

ADD(YU)...

ADD(YU).

! ------ ВЫБОРКА ПО УСТАВНОМУ КАПИТАЛУ -------

UK PROCEDURE

YU DOS,ASCII,NAME('YU.YU')

RECORD

ST STRING(56)..