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

T=0

T=T17:F001-F92:F1

IF T>=100 OR T<=-100 THEN ST13=T/1000.

T=0

IF ST12>0 AND ST11>0 THEN ST14=ST12/ST11*100.

T=0

T=T17:F010-F92:F10

IF T<=-100 OR T>=100 THEN ST17=T/1000.

T=0

IF ST16>0 AND ST15>0 THEN ST18=ST16/ST15*100.

ST2=' '&LIC:KNAM

ADD(YU)

CLEAR(ST).

CLEAR(ST).

ADD(YU)...

ADD(YU).

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

AT3 PROCEDURE

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

RECORD

ST STRING(150)..

GROUP,OVER(ST)

STRING(1)

ST2 STRING(33)

STRING(2)

ST3 STRING(@N_9.2)

STRING(1)

ST4 STRING(@N_10.2)

STRING(1)