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

ST1=PN#

ST2=LIC:KNAM

IF MEM:GOD=1992 AND T67:A400N>0 THEN ST3=T67:A400N/1000.

IF MEM:GOD=1993 AND T67:A400K>0 THEN ST3=T67:A400K/1000.

ADD(YU)

CLEAR(ST)..

CLOSE(YU)

! ------ ВЫБОРКА ПО СТРАХОВЫМ ВЗНОСАМ -------

SVZ PROCEDURE

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

RECORD

ST STRING(56)..

GROUP,OVER(ST)

STRING(1)

ST1 STRING(@N4)

STRING(1)

ST2 STRING(30)

STRING(5)

ST3 STRING(@N_8.2)

.

T REAL

CODE

PN#=0

CREATE(YU)

ST='СПИСОК СТРАХОВЫХ ОРГАНИЗАЦИЙ, СУММА ПОСТУПЛЕНИЯ '

ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ST='СТРАХОВЫХ ВЗНОСОВ КОТОРЫХ'