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

SR 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='ОТ '&MEM:NG/1000&' ДО '&MEM:VG/1000&' МЛН.РУБ. ЗА '&MEM:GOD&' ГОД' ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

IF MEM:PR=2

ST=XRE:IREG

ST=CENTER(ST)

ADD(YU)

CLEAR(ST). ST='+------------------------------------------------------+'

ADD(YU)

CLEAR(ST)