Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

CLEAR(ST) ST='+----+------------------------------+---------------> ST3=T17:F001/1000.

ADD(YU)

CLEAR(ST).

CLOSE(YU)
! ------ ВЫБОРКА ПО СТРАХОВЫМ РЕЗЕРВАМ ----> 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)
ST='¦ ¦ Наименование ¦ Страховые резервы¦' ADD(YU)

CLEAR(ST)
ST='¦ N ¦ страховой организации ¦ ¦'
ADD(YU)
CLEAR(ST) ST='+----+------------------------------+------------------¦'
ADD(YU)

CLEAR(ST)
ST='¦ 1 ¦ 2 ¦ 3 ¦'
ADD(YU)
CLEAR(ST) ST='+----+------------------------------+------------------¦'
ADD(YU)

CLEAR(ST)

Рекомендуем скачать другие рефераты по теме: культура шпаргалки, сочинения по русскому языку, рефераты на казахском.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки