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

(antb)


MEMBER('ANT')

! НАЧАЛЬНАЯ СОРТИРОВКА

S PROCEDURE

M GROUP

Возможно вы искали - Реферат: Види страхування життя і їх місце в особовому страхуванні

M1 REAL,DIM(79,14) !T17

MK REAL,DIM(8,14)

MG REAL,DIM(350,14).

CODE

CLEAR(M)

Похожий материал - Реферат: Государственное регулирование страхования

BUFFER(LIC,0.9)

SET(LIC)

LOOP UNTIL EOF(LIC)

NEXT(LIC)

CLEAR(T17:RECORD)

Очень интересно - Реферат: Государственное регулирование страхования

T17:PNOMBER=LIC:PNOMBER

GET(T17,T17:C)

IF ~ERRORCODE()

M1[LIC:NREGION,1]+=T17:F001/1000 MG[LIC:NCITY,1]+=T17:F001/1000 M1[LIC:NREGION,2]+=T17:F004/1000 MG[LIC:NCITY,2]+=T17:F004/1000 M1[LIC:NREGION,3]+=T17:F010/1000 MG[LIC:NCITY,3]+=T17:F010/1000

IF T17:F018>0

Вам будет интересно - Реферат: Государственное социальное страхование

THEN

M1[LIC:NREGION,4]+=T17:F018/1000 MG[LIC:NCITY,4]+=T17:F018/1000

ELSE

IF T17:F020>0

M1[LIC:NREGION,4]-=T17:F020/1000

Похожий материал - Реферат: Государственный надзор за страховой деятельностью в РФ

MG[LIC:NCITY,4]-=T17:F020/1000...

CLEAR(T67:RECORD)

T67:PNOMBER=LIC:PNOMBER

GET(T67,T67:C)