(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)
IF ~ERRORCODE()
M1[LIC:NREGION,5]+=T67:A400N/1000
MG[LIC:NCITY,5]+=T67:A400N/1000
M1[LIC:NREGION,6]+=T67:A400K/1000 MG[LIC:NCITY,6]+=T67:A400K/1000 M1[LIC:NREGION,7]+=T67:A495N/1000 MG[LIC:NCITY,7]+=T67:A495N/1000 M1[LIC:NREGION,8]+=T67:A495K/1000 MG[LIC:NCITY,8]+=T67:A495K/1000.
CLEAR(F92:RECORD)
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF ~ERRORCODE()
M1[LIC:NREGION,9]+=F92:F1/1000 MG[LIC:NCITY,9]+=F92:F1/1000 M1[LIC:NREGION,10]+=F92:F7/1000 MG[LIC:NCITY,10]+=F92:F7/1000 M1[LIC:NREGION,11]+=F92:F10/1000 MG[LIC:NCITY,11]+=F92:F10/1000
IF F92:F19>0
THEN
M1[LIC:NREGION,12]+=F92:F19/1000 MG[LIC:NCITY,12]+=F92:F19/1000
ELSE
IF F92:F21>0
M1[LIC:NREGION,12]-=F92:F21/1000
MG[LIC:NCITY,12]-=F92:F21/1000...
CLEAR(SVV:RECORD)
SVV:PNOM=LIC:PNOMBER
SVV:KZ=2
GET(SVV,SVV:K)
IF ~ERRORCODE()
M1[LIC:NREGION,13]+=SVV:CR2
MG[LIC:NCITY,13]+=SVV:CR2.
CLEAR(DF:RECORD)
DF:PNOMBER=LIC:PNOMBER
GET(DF,DF:C)
IF ~ERRORCODE()
M1[LIC:NREGION,14]+=DF:S750N MG[LIC:NCITY,14]+=DF:S750N.
.
LOOP N#=24 TO 31
TER:KODT=N#
SET(TER:K,TER:K)
LOOP UNTIL EOF(TERR)
NEXT(TERR)
IF TER:KODTN# THEN BREAK.
LOOP M#=1 TO 14 MK[N#-23,M#]+=M1[TER:NREGION,M#]...
LOOP I#=1 TO 8
F:NKUST=I#+23
F:F1=MK[I#,5]
F:F2=MK[I#,6]
F:F3=MK[I#,7]
F:F4=MK[I#,8]
F:F5=MK[I#,12]
F:F6=MK[I#,4]
F:F9=MK[I#,10]
F:F10=MK[I#,2]
F:F11=MK[I#,9]
F:F12=MK[I#,1]
F:F13=MK[I#,11]
F:F14=MK[I#,3]
F:F15=MK[I#,13]
F:F16=MK[I#,14]
ADD(F).
LOOP I#=1 TO 79
F:NKUST=0
F:NREGION=I#
F:F1=M1[I#,5]
F:F2=M1[I#,6]
F:F3=M1[I#,7]
F:F4=M1[I#,8]
F:F5=M1[I#,12]
F:F6=M1[I#,4]
F:F9=M1[I#,10]
F:F10=M1[I#,2]
F:F11=M1[I#,9]
F:F12=M1[I#,1]
F:F13=M1[I#,11]
F:F14=M1[I#,3]
F:F15=M1[I#,13]
F:F16=M1[I#,14]
ADD(F).
LOOP I#=1 TO 350
F:NKUST=0
F:NREGION=0
F:NGOR=I#
F:F1=MG[I#,5]
F:F2=MG[I#,6]
F:F3=MG[I#,7]
F:F4=MG[I#,8]
F:F5=MG[I#,12]
F:F6=MG[I#,4]
F:F9=MG[I#,10]
F:F10=MG[I#,2]
F:F11=MG[I#,9]
F:F12=MG[I#,1]
F:F13=MG[I#,11]
F:F14=MG[I#,3]
F:F15=MG[I#,13]
F:F16=MG[I#,14]
ADD(F).
! PUT(F).
! ----- АНАЛИЗ ПОКАЗАТЕЛЕЙ РАЗВИТИЯ ------
AT2 PROCEDURE
YU DOS,ASCII,NAME('YU.YU')
RECORD
ST STRING(140)..
GROUP,OVER(ST)
STRING(1)
ST2 STRING(32)
STRING(4)
ST3 STRING(@N-_8.2)
STRING(1)
ST4 STRING(@N_10.2)
STRING(1)
ST5 STRING(@N_8.2)
STRING(1)
ST6 STRING(@N_9.2)
STRING(1)
ST7 STRING(@N_8.2)
STRING(1)
ST8 STRING(@N_10.2)
STRING(1)
ST9 STRING(@N-_10.2)
STRING(1)
ST10 STRING(@N_10.2)
STRING(1)
ST11 STRING(@N-_9.2)
STRING(1)
ST12 STRING(@N_8.2)
.
YU1 DOS,ASCII,NAME('YU1.YU')
RECORD
STT STRING(130)..
GROUP,OVER(STT)
STRING(1)
ST02 STRING(32)
STRING(5)
ST13 STRING(@N_8.2)
STRING(3)
ST14 STRING(@N_9.2)
STRING(3)
ST15 STRING(@N_7.2)
STRING(3)
ST16 STRING(@N_9.2)
STRING(3)
ST17 STRING(@N_9.2)
STRING(3)
ST18 STRING(@N_8.2)
STRING(3)
ST19 STRING(@N-_8.2)
STRING(3)
ST20 STRING(@N_9.2)
.
M GROUP
M1 REAL,DIM(79,14) !T17
MK REAL,DIM(8,14)
MG REAL,DIM(350,14).
CODE
PN#=0
CREATE(YU)
ST='АНАЛИЗ ПОКАЗАТЕЛЕЙ РАЗВИТИЯ СТРАХОВЫХ ОРГАНИЗАЦИЙ'
ST=CENTER(ST)
ADD(YU)
CLEAR(ST)
ST=' млн.руб. '
ADD(YU)
CLEAR(ST) ST=' ' ADD(YU)
CLEAR(ST)
ST='¦ ¦ Доход (балансовая ¦ Уставный ¦ Страховые ¦ Доход (балансовая прибыль) в % к ¦'
ADD(YU)
CLEAR(ST)
ST='¦ Наименование ¦ прибыль (убыток) ¦ капитал ¦ взносы
¦'
ADD(YU)
CLEAR(ST)
ST='¦ ¦ ¦ ¦ ¦ уставному капиталу ¦ страховым взносам¦'
ADD(YU)
CLEAR(ST)
ST='¦ страховой организации
¦'
ADD(YU)
CLEAR(ST)
ST='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1992 ¦ 1993 ¦'
ADD(YU)
CLEAR(ST) ST='
'
ADD(YU)
CLEAR(ST)
ST='¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5 ¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11 ¦'
ADD(YU)
CLEAR(ST) ST='
'
ADD(YU)
CLEAR(ST)
CREATE(YU1)
STT='АНАЛИЗ ПОКАЗАТЕЛЕЙ РАЗВИТИЯ СТРАХОВЫХ ОРГАНИЗАЦИЙ '
STT=CENTER(STT)
ADD(YU1)
CLEAR(STT)
STT=' (продолжение)'
ADD(YU1)
CLEAR(STT) STT='
'
ADD(YU1)
CLEAR(STT)
STT='¦ ¦ С т р а х о в ы е ¦ Доход от инвес- ¦ Доход от инвест-я страх-х рез-в в % к ¦'
ADD(YU1)
CLEAR(STT)
STT='¦ Наименование ¦ р е з е р в ы ¦ тирования стра- ¦'
ADD(YU1)
CLEAR(STT)
STT='¦ ¦ ¦ ховых резервов ¦ уставному капиталу ¦ страховым взносам ¦'
ADD(YU1)
CLEAR(STT)
STT='¦ страховой организации
¦'
ADD(YU1)
CLEAR(STT)
STT='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦'
ADD(YU1)
CLEAR(STT) STT=' ‘
ADD(YU1)
CLEAR(STT)
STT='¦ 1 ¦ 12 ¦ 13 ¦ 14 ¦ 15 ¦ 16 ¦ 17 ¦ 18 ¦ 19 ¦'
ADD(YU1)
CLEAR(STT)STT='
ADD(YU1)
CLEAR(STT)
INS:NTER=0
SET(INS:K1,INS:K1)
LOOP UNTIL EOF(INSP) ! 1
NEXT(INSP)
PN#=0
if ins:nter>23 ! 2
THEN
ST2=CLIP(INS:NAME)&' инспекция'
ST02=CLIP(INS:NAME)&' инспекция'
ELSE
ST2='Инспекция '
ADD(yu)
ST2=INS:NAME
ST02='Инспекция '
ADD(YU1)
ST02=INS:NAME. ! 2
TER:KODT=INS:NTER
SET(TER:K1,TER:K1)
LOOP UNTIL EOF(TERR) ! 3
NEXT(TERR)
IF TER:KODTINS:NTER THEN BREAK.
IF INS:NTER>23 AND PN#=0 ! 4
F:NKUST=INS:NTER
GET(F,F:K1)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0
ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0
ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0
ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0
ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0
ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0
ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST4>0
ST20=ST16/ST4*100.
PN#=1
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU1)
ADD(YU). ! 4
XRE:NREGION=TER:NREGION
SET(XRE:K1,XRE:K1)
LOOP UNTIL EOF(XREG) ! 5
NEXT(XREG)
IF XRE:NREGIONTER:NREGION THEN BREAK.
IF INS:NTER>23
ST2=XRE:IREG.
ST02=ST2
F:NREGION=XRE:NREGION
GET(F,F:K2)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0
ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0
ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0
ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0
ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0 ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0 ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST4>0
ST20=ST16/ST4*100.
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU)
ADD(YU1)
GOR:GOROD=' '
SET(GOR:CGOR,GOR:CGOR)
LOOP UNTIL EOF(GOR) ! 6
NEXT(GOR)
IF GOR:NREGIONXRE:NREGION THEN CYCLE.
F:NGOR=GOR:KG
GET(F,F:K3)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0 ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0 ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0 ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0 ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0
ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0
ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST14>0
ST20=ST16/ST4*100.
IF ~ST AND ~STT THEN CYCLE.
ST2=GOR:GOROD
ST02=GOR:GOROD
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU)
ADD(YU1)
LIC:NREGION=XRE:NREGION
LIC:KNAM=' '
SET(LIC:CNREG,LIC:CNREG)
LOOP UNTIL EOF(LIC) ! 7
NEXT(LIC)
IF LIC:NREGIONXRE:NREGION THEN BREAK.
IF LIC:NCITYGOR:KG THEN CYCLE.
(T67:RECORD)
T67:PNOMBER=LIC:PNOMBER
GET(T67,T67:C)
IF ~ERRORCODE()
IF T67:A400N>0
ST5=T67:A400N/1000.
IF T67:A400K>0
ST6=T67:A400K/1000.
IF T67:A495N>0
ST13=T67:A495N/1000.
IF T67:A495K>0
ST14=T67:A495K/1000..
CLEAR(T17:RECORD)
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF ~ERRORCODE() ! 8
IF T17:F018>0 ! 9
THEN
ST4=T17:F018/1000
ELSE
IF T17:F020>0 ! 10
ST4=-T17:F020/1000.. ! 9, 10
IF T17:F001>0
ST8=T17:F001/1000.
IF T17:F004>0
ST16=T17:F004/1000.. ! 8
CLEAR(F92:RECORD)
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF ~ERRORCODE() ! 11
IF F92:F19>0
THEN
ST3=F92:F19/1000
ELSE
IF F92:F21>0
ST3=-F92:F21/1000..
IF F92:F1>0
ST7=F92:F1/1000.
IF F92:F7>0
ST15=F92:F7/1000.. ! 11
IF ST30 AND ST5>0
ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0
ST10=ST4/ST6*100.
IF ST30 AND ST7>0
ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0
ST12=ST4/ST8*100.
IF ST13>0 AND ST15>0
ST17=ST15/ST13*100.
IF ST14>0 AND ST16>0
ST18=ST16/ST14*100.
IF ST15>0 AND ST30
ST19=ST15/ST3*100.
IF ST16>0 AND ST4>0
ST20=ST16/ST4*100.
IF ST OR STT ! 12
PN#+=1
ST2=' '&LIC:KNAM
ST02=' '&LIC:KNAM
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT). ! 12
CLEAR(ST)
CLEAR(STT). ! 7
ADD(YU)
ADD(YU1)... ! 6, 5, 3
. ! 1
! -------- СВЕДЕНИЯ ОБ ИЗМЕНЕНИИ ПОКАЗАТЕЛЕЙ ДЕЯТЕЛЬНОСТИ --------
AT1 PROCEDURE
YU DOS,ASCII,NAME('YU.YU')
RECORD
ST STRING(210)..
GROUP,OVER(ST)
STRING(1)
ST2 STRING(32)
STRING(2)
ST3 STRING(@N_8.1)
STRING(1)
ST4 STRING(@N_9.1)
STRING(1)
ST5 STRING(@N-_9.1)
STRING(1)
ST6 STRING(@N_9.1)
STRING(1)
ST7 STRING(@N_8.1)
STRING(1)
ST8 STRING(@N_9.1)
STRING(1)
ST9 STRING(@N-_9.1)
STRING(1)
ST10 STRING(@N_9.1)
STRING(1)
ST11 STRING(@N_7.1)
STRING(1)
ST12 STRING(@N_9.1)
STRING(1)
ST13 STRING(@N-_10.1)
STRING(1)
ST14 STRING(@N_9.1)
STRING(1)
ST15 STRING(@N_8.1)
STRING(1)
ST16 STRING(@N_10.1)
STRING(1)
ST17 STRING(@N-_11.1)
STRING(1)
ST18 STRING(@N_10.1)
.
T REAL
CODE
PN#=0
CREATE(YU)
ST='СВЕДЕНИЯ ОБ ИЗМЕНЕНИИ ОТДЕЛЬНЫХ ПОКАЗАТЕЛЕЙ ДЕЯТЕЛЬНОСТИ СТРАХОВЫХ ОРГАНИЗАЦИЙ'
ST=CENTER(ST)
ADD(YU)
CLEAR(ST)
ST='
'
ADD(YU)
CLEAR(ST)
ST='¦ ¦Уставный капитал¦ Изменение размера ¦Страховые резервы ¦ Изменение размера¦ Страховые ¦Прирост (уменьшение)¦ Страховые выплаты ¦ Прирост( уменьшение)¦'
ADD(YU)
CLEAR(ST)
ST='¦ Наименование ¦(на конец года) ¦уставного капитала ¦ (на конец года) ¦ страховых резервов¦ взносы ¦ поступивших стра- ¦ (на конец года) ¦суммы страховых выплат¦'
ADD(YU)
CLEAR(ST)
ST='¦ ¦ ¦ (+/-) ¦ ¦ (+/-) ¦ ¦ ховых взносов ¦ ¦ ¦'
ADD(YU)
CLEAR(ST)
ST='¦ страховой oрганизации ________________________ ______________________________________________________________________________________________________________________________________________________________________________________ ‘
ADD(YU)
CLEAR(ST)
ST='¦ ¦ 1994 ¦ 1995 ¦ в сумме ¦ в % ¦ 1994 ¦ 1995 ¦ в сумме ¦ в % ¦ 1994 ¦ 1995 ¦ в сумме ¦ в % ¦ 1994 ¦ 1995 ¦ в сумме ¦ в % ¦'
ADD(YU)
CLEAR(ST)
ST='
¦'
ADD(YU)
CLEAR(ST)
ST='¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5 ¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11 ¦ 12 ¦ 13 ¦ 14 ¦ 15 ¦ 16 ¦ 17 ¦'
ADD(YU)
CLEAR(ST)
ST='
¦'
ADD(YU)
CLEAR(ST)
INS:NTER=0
SET(INS:K1,INS:K1)
LOOP UNTIL EOF(INSP)
NEXT(INSP)
PN#=0
if ins:nter>23
THEN
ST2=CLIP(INS:NAME)&' инспекция'
ELSE
ST2='Инспекция '
ADD(yu)=INS:NAME.
TER:KODT=INS:NTER
SET(TER:K1,TER:K1)
LOOP UNTIL EOF(TERR)
NEXT(TERR)
IF TER:KODTINS:NTER THEN BREAK.
IF INS:NTER>23 AND PN#=0
F:NKUST=INS:NTER
GET(F,F:K1)
IF F:F1>0
ST3=F:F1.
IF F:F2>0
ST4=F:F2.
IF F:F3>0
ST7=F:F3.
IF F:F4>0
ST8=F:F4.
IF F:F11>0
ST11=F:F11.
IF F:F12>0
ST12=F:F12.
IF ST3 OR ST4
ST5=ST4-ST3.
IF ST3>0 AND ST4>0
ST6=ST4/ST3*100.
IF ST7 OR ST8
ST9=ST8-ST7.
IF ST7>0 AND ST8>0
ST10=ST8/ST7*100.
IF ST12 OR ST11
ST13=ST12-ST11.
IF ST12>0 AND ST11>0
ST14=ST12/ST11*100.
IF F:F13>0
ST15=F:F13.
IF F:F14>0
ST16=F:F14.
IF ST15 OR ST16
ST17=ST16-ST15.
IF ST15>0 AND ST16>0
ST18=ST16/ST15*100.
PN#=1
ADD(YU)
CLEAR(ST)
ADD(YU). XRE:NREGION=TER:NREGION SET(XRE:K1,XRE:K1)
LOOP UNTIL EOF(XREG)
NEXT(XREG)
IF XRE:NREGIONTER:NREGION THEN BREAK.
IF INS:NTER>23
ST2=XRE:IREG.
F:NREGION=XRE:NREGION
GET(F,F:K2)
IF F:F1>0
ST3=F:F1.
IF F:F2>0
ST4=F:F2.
IF F:F3>0
ST7=F:F3.
IF F:F4>0
ST8=F:F4.
IF F:F11>0
ST11=F:F11.
IF F:F12>0
ST12=F:F12.
IF ST3 OR ST4
ST5=ST4-ST3.
IF ST3>0 AND ST4>0
ST6=ST4/ST3*100.
IF ST7 OR ST8
ST9=ST8-ST7.
IF ST7>0 AND ST8>0
ST10=ST8/ST7*100.
IF ST12 OR ST11
ST13=ST12-ST11.
IF ST12>0 AND ST11>0
ST14=ST12/ST11*100.
IF F:F13>0
ST15=F:F13.
IF F:F14>0
ST16=F:F14.
IF ST15 OR ST16
ST17=ST16-ST15.
IF ST15>0 AND ST16>0
ST18=ST16/ST15*100.
ADD(YU)
CLEAR(ST)
GOR:GOROD=' '
SET(GOR:CGOR,GOR:CGOR)
LOOP UNTIL EOF(GOR)
NEXT(GOR)
IF GOR:NREGIONXRE:NREGION THEN CYCLE.
F:NGOR=GOR:KG
GET(F,F:K3)
IF F:F1>0
ST3=F:F1.
IF F:F2>0
ST4=F:F2.
IF F:F3>0
ST7=F:F3.
IF F:F4>0
ST8=F:F4.
IF F:F11>0
ST11=F:F11.
IF F:F12>0
ST12=F:F12.
IF ST3 OR ST4
ST5=ST4-ST3.
IF ST3>0 AND ST4>0
ST6=ST4/ST3*100.
IF ST7 OR ST8
ST9=ST8-ST7.
IF ST7>0 AND ST8>0
ST10=ST8/ST7*100.
IF ST12 OR ST11
ST13=ST12-ST11.
IF ST12>0 AND ST11>0
ST14=ST12/ST11*100.
IF F:F13>0
ST15=F:F13.
IF F:F14>0
ST16=F:F14.
IF ST15 OR ST16
ST17=ST16-ST15.
IF ST15>0 AND ST16>0
ST18=ST16/ST15*100.
IF ~ST THEN CYCLE.
ST2=' '&GOR:GOROD
ADD(YU)
CLEAR(ST)
ADD(YU)
LIC:NREGION=XRE:NREGION
LIC:KNAM=' '
SET(LIC:CNREG,LIC:CNREG)
LOOP UNTIL EOF(LIC)
NEXT(LIC)
IF LIC:NREGIONXRE:NREGION THEN BREAK.
IF LIC:NCITYGOR:KG THEN CYCLE.
CLEAR(T67:RECORD)
T67:PNOMBER=LIC:PNOMBER
GET(T67,T67:C)
IF ERRORCODE() THEN CYCLE.
T=0
IF T67:A400N>=100
ST3=T67:A400N/1000.
IF T67:A400K>=100
ST4=T67:A400K/1000.
T=T67:A400K-T67:A400N
IF T>=100 OR T0 AND ST3>0 THEN ST6=ST4/ST3*100.
IF T67:A495N>=100
ST7=T67:A495N/1000.
IF T67:A495K>=100
T=0
ST8=T67:A495K/1000.
T=T67:A495K-T67:A495N
IF T>=100 OR T0 AND ST7>0 THEN ST10=ST8/ST7*100.
CLEAR(T17:RECORD)
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF T17:F001>=100
ST12=T17:F001/1000.
IF T17:F010>=100
ST16=T17:F010/1000.
CLEAR(F92:RECORD)
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF F92:F1>=100
ST11=F92:F1/1000.
IF F92:F10>=100
ST15=F92:F10/1000.
T=0
T=T17:F001-F92:F1
IF T>=100 OR T0 AND ST11>0 THEN ST14=ST12/ST11*100.
T=0
T=T17:F010-F92:F10
IF 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)
ST5 STRING(@N_9.2)
STRING(2)
ST6 STRING(@N_10.2)
STRING(3)
ST7 STRING(@N_6)
STRING(5)
ST8 STRING(@N_9.2)
STRING(4)
ST9 STRING(@N_8.2)
STRING(4)
ST10 STRING(@N_8.2)
STRING(2)
ST11 STRING(@N_8.2)
STRING(1)
ST12 STRING(@N_8.2)
.
T REAL
CODE
PN#=0
CREATE(YU)
ST='ОБЪЕМ ПОСТУПЛЕНИЙ И ВЫПЛАТ НА 1 РАБОТНИКА СТРАХОВОЙ ОРГАНИЗАЦИИ'
ST=CENTER(ST)
ADD(YU)
CLEAR(ST)
ADD(YU)
CLEAR(ST)
ST='¦
млн.руб. '
¦ Страховые взносы ¦ Страховые выплаты ¦ Среднесписочная
¦ Поступление страховых ¦Страховые выплаты ¦'
ADD(YU)
CLEAR(ST)
ST='¦ Наименование ¦ ¦ ¦численность работников¦взносов на 1 работника ¦ на 1 работника ¦'
ADD(YU)
CLEAR(ST)
ST='¦ страховой организации '
¦'
ADD(YU)
CLEAR(ST)
ST='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦'
ADD(YU)
CLEAR(ST)
ST='¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5 ¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11 ¦'
ADD(YU)
CLEAR(ST) ST='
‘
ADD(YU)
CLEAR(ST)
INS:NTER=0
SET(INS:K1,INS:K1)
LOOP UNTIL EOF(INSP)
NEXT(INSP)
PN#=0
if ins:nter>23
THEN
ST2=CLIP(INS:NAME)&' инспекция'
ELSE
ST2='Инспекция '
ADD(yu)
ST2=INS:NAME.
TER:KODT=INS:NTER
SET(TER:K1,TER:K1)
LOOP UNTIL EOF(TERR)
NEXT(TERR)
IF TER:KODTINS:NTER THEN BREAK.
IF INS:NTER>23 AND PN#=0
F:NKUST=INS:NTER
GET(F,F:K1)
IF F:F11>0
ST3=F:F11.
IF F:F12>0
ST4=F:F12.
IF F:F13>0
ST5=F:F13.
IF F:F14>0
ST6=F:F14.
IF F:F15>0
ST7=F:F15.
IF F:F16>0
ST8=F:F16.
IF ST3>0 AND ST7>0
ST9=ST3/ST7.
IF ST4>0 AND ST8>0
ST10=ST4/ST8.
IF ST5>0 AND ST7>0
ST11=ST5/ST7.
IF ST6>0 AND ST8>0
ST12=ST6/ST8.
PN#=1
ADD(YU)
CLEAR(ST)
ADD(YU).
XRE:NREGION=TER:NREGION
SET(XRE:K1,XRE:K1)
LOOP UNTIL EOF(XREG)
NEXT(XREG)
IF XRE:NREGIONTER:NREGION THEN BREAK.
IF INS:NTER>23
ST2=' '&XRE:IREG.
F:NREGION=XRE:NREGION
GET(F,F:K2)
IF F:F11>0
ST3=F:F11.
IF F:F12>0
ST4=F:F12.
IF F:F13>0
ST5=F:F13.
IF F:F14>0
ST6=F:F14.
IF F:F15>0
ST7=F:F15.
IF F:F16>0
ST8=F:F16.
IF ST3>0 AND ST7>0
ST9=ST3/ST7.
IF ST4>0 AND ST8>0
ST10=ST4/ST8.
IF ST5>0 AND ST7>0
ST11=ST5/ST7.
IF ST6>0 AND ST8>0
ST12=ST6/ST8.
ADD(YU)
CLEAR(ST)
ADD(YU)
CLEAR(ST)
GOR:GOROD=' '
SET(GOR:CGOR,GOR:CGOR)
LOOP UNTIL EOF(GOR)
NEXT(GOR)
IF GOR:NREGIONXRE:NREGION THEN CYCLE.
F:NGOR=GOR:KG
GET(F,F:K3)
IF F:F11>0
ST3=F:F11.
IF F:F12>0
ST4=F:F12.
IF F:F13>0
ST5=F:F13.
IF F:F14>0
ST6=F:F14.
IF F:F15>0
ST7=F:F15.
IF F:F16>0
ST8=F:F16.
IF ST3>0 AND ST7>0
ST9=ST3/ST7.
IF ST4>0 AND ST8>0
ST10=ST4/ST8.
IF ST5>0 AND ST7>0
ST11=ST5/ST7.
IF ST6>0 AND ST8>0
ST12=ST6/ST8.
IF ~ST THEN CYCLE.
ST2=' '&GOR:GOROD
ADD(YU)
CLEAR(ST)
LIC:NREGION=XRE:NREGION
LIC:KNAM=' '
SET(LIC:CNREG,LIC:CNREG)
LOOP UNTIL EOF(LIC)
NEXT(LIC)
IF LIC:NREGIONXRE:NREGION THEN BREAK.
IF LIC:NCITYGOR:KG THEN CYCLE.
CLEAR(F92:RECORD)
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF F92:F1>100
ST3=F92:F1/1000.
IF F92:F10>100
ST5=F92:F10/1000.
CLEAR(T17:RECORD)
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF T17:F001>100
ST4=T17:F001/1000.
IF T17:F010>100
ST6=T17:F010/1000.
CLEAR(SVV:RECORD)
SVV:PNOM=LIC:PNOMBER
SVV:KZ=2
GET(SVV,SVV:K)
IF SVV:CR2>0
ST7=SVV:CR2.
CLEAR(DF:RECORD)
DF:PNOMBER=LIC:PNOMBER
GET(DF,DF:C)
IF DF:S750N0
ST8=DF:S750N.
IF F92:F1>100 AND SVV:CR20
THEN ST9=F92:F1/SVV:CR2/1000.
IF T17:F001>100 AND DF:S750N0
THEN ST10=T17:F001/DF:S750N/1000.
IF F92:F10>100 AND SVV:CR20
THEN ST11=F92:F10/SVV:CR2/1000.
IF T17:F010>100 AND DF:S750N0
THEN ST12=T17:F010/DF:S750N/1000.
IF ST
PN#+=1
ST2=' '&LIC:KNAM
ADD(YU)
CLEAR(ST).
CLEAR(ST).
ADD(YU)...
ADD(YU).
! ------ ВЫБОРКА ПО УСТАВНОМУ КАПИТАЛУ -------
UK 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)
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)
IF MEM:PR=2
THEN
LIC:NREGION=XRE:NREGION
SET(LIC:CNREG,LIC:CNREG)
ELSE
SET(LIC:CLIC,LIC:CLIC).
LOOP UNTIL EOF(LIC)
NEXT(LIC)
IF MEM:PR=2
IF LIC:NREGIONXRE:NREGION THEN BREAK..
T67:PNOMBER=LIC:PNOMBER
GET(T67,T67:C)
IF ~ERRORCODE()
THEN
IF MEM:GOD=1992
THEN
IF T67:A400NMEM:VG THEN CYCLE.
ELSE
IF T67:A400KMEM:VG THEN CYCLE..
PN#+=1
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='СТРАХОВЫХ ВЗНОСОВ КОТОРЫХ'
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)
IF MEM:PR=2
THEN
LIC:NREGION=XRE:NREGION
SET(LIC:CNREG,LIC:CNREG)
ELSE
SET(LIC:CLIC,LIC:CLIC).
LOOP UNTIL EOF(LIC)
NEXT(LIC)
IF MEM:PR=2
IF LIC:NREGIONXRE:NREGION THEN BREAK..
IF MEM:GOD=1993
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF ~ERRORCODE()
THEN
IF T17:F001MEM:VG THEN CYCLE.
ELSE
CYCLE..
IF MEM:GOD=1992
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF ~ERRORCODE()
THEN
IF F92:F1MEM:VG THEN CYCLE.
ELSE
CYCLE..
PN#+=1
ST1=PN#
ST2=LIC:KNAM
IF MEM:GOD=1992 AND F92:F1>0 THEN ST3=F92:F1/1000.
IF MEM:GOD=1993 AND T17:F001>0 THEN ST3=T17:F001/1000.
ADD(YU)
CLEAR(ST).
CLOSE(YU)
! ------ ВЫБОРКА ПО СТРАХОВЫМ РЕЗЕРВАМ -------
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)
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)
IF MEM:PR=2
THEN
LIC:NREGION=XRE:NREGION
SET(LIC:CNREG,LIC:CNREG)
ELSE
SET(LIC:CLIC,LIC:CLIC).
LOOP UNTIL EOF(LIC)
NEXT(LIC)
IF MEM:PR=2
IF LIC:NREGIONXRE:NREGION THEN BREAK..
T67:PNOMBER=LIC:PNOMBER
GET(T67,T67:C)
IF ~ERRORCODE()
IF MEM:GOD=1992
THEN
IF T67:A495NMEM:VG THEN CYCLE.
ELSE
IF T67:A495KMEM:VG THEN CYCLE..
PN#+=1
ST1=PN#
ST2=LIC:KNAM
IF MEM:GOD=1992 AND T67:A495N>0 THEN ST3=T67:A495N/1000.
IF MEM:GOD=1993 AND T67:A495K>0 THEN ST3=T67:A495K/1000. ADD(YU)
CLEAR(ST)..
CLOSE(YU)
! ------ ВЫБОРКА ПО СТРАХОВЫМ ВЫПЛАТАМ -------
SVP 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)
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)
IF MEM:PR=2
THEN
LIC:NREGION=XRE:NREGION
SET(LIC:CNREG,LIC:CNREG)
ELSE
SET(LIC:CLIC,LIC:CLIC).
LOOP UNTIL EOF(LIC)
NEXT(LIC)
IF MEM:PR=2
IF LIC:NREGIONXRE:NREGION THEN BREAK..
IF MEM:GOD=1993
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF ~ERRORCODE()
THEN
IF T17:F010MEM:VG THEN CYCLE.
ELSE
CYCLE..
IF MEM:GOD=1992
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF ~ERRORCODE()
THEN
IF F92:F10MEM:VG THEN CYCLE.
ELSE CYCLE..
PN#+=1
ST1=PN#
ST2=LIC:KNAM
IF MEM:GOD=1992 AND F92:F10>0 THEN ST3=F92:F10/1000.
IF MEM:GOD=1993 AND T17:F010>0 THEN ST3=T17:F010/1000. ADD(YU)
CLEAR(ST).
CLOSE(YU)
CLEAR(ST)
Overview Sheet1
Sheet2
| 6.2 Финансовые данные баланса | 1993 | 1994 | 1995 | 1996 | 1997 | |||
| Доход (тыс.руб) | От эмитентов | 50000 | 102000 | 195000 | 487500 | 878906 | ||
| От акционеров | 2500 | 3198 | 3656 | 3656 | 2637 | |||
| От других | 0 | 0 | 0 | 0 | 0 | |||
| Всего | 52500 | 105188 | 491156 | 491156 | 881543 | |||
| Расход (тыс.руб) | Заработная плата | 30000 | 39000 | 51000 | 89100 | |||
| Помещения | 10000 | 30000 | 40000 | 60000 | 127875 | |||
| Оборудование | 5000 | 3909 | 7727 | 12273 | 90000 | |||
| Налоги | 3000 | 3900 | 5100 | 8910 | 14091 | |||
| Другое | 2000 | 4007 | 7568 | 18711 | 12788 | |||
| Всего | 50000 | 82816 | 111395 | 188993 | 33583 | |||
| Прибыль (тыс.руб) | 2500 | 22371 | 87261 | 302163 | 603207 |
| 6.3 Критерии эффективности функционирования | ||||||||
| 1993 | 1994 | 1995 | 1996 | 1997 | ||||
| Финансовые | Доход на 1 | 5250000 | 6187500 | 7640625 | 9445313 | 10753906 | ||
| показатели | эмитента | |||||||
| эффективности | ||||||||
| Доход на 1 | 5833 | 7563 | 9551 | 11514 | 14940 | |||
| операцию | ||||||||
| Доход на 1 | 955 | 1238 | 1528 | 1802 | 2290 | |||
| акционера | ||||||||
| Расход на 1 | 5000000 | 4871543 | 4284428 | 3634489 | 3711147 | |||
| эмитента | ||||||||
| Расход на 1 | 5556 | 5954 | 5356 | 4430 | 4717 | |||
| операцию | ||||||||
| Доля прибыли | 5% | 21% | 44% | 62% | 68% | |||
| Рабочие | Эмитентов на 1 | 0,91 | 1,31 | 1,53 | 1,93 | 2,42 | ||
| (операционные) | служащего | |||||||
| показатели | ||||||||
| Акционеров на 1 | 5000 | 6538 | 7647 | 10093 | 12419 | |||
| служащего | ||||||||
| Операций на 1 | 12 | 11 | 12 | 13 | 16 | |||
| оператора на 1 | ||||||||
| день | ||||||||
| Операций на 1 | 0,34 | 0,16 | 0,16 | 0,16 | 0,15 | |||
| акционера |
ANT PROGRAM
INCLUDE('STD_KEYS.CLA')
INCLUDE('CTL_KEYS.CLA')
INCLUDE('ALT_KEYS.CLA')
INCLUDE('SHF_KEYS.CLA')
REJECT_KEY EQUATE(CTRL_ESC)
ACCEPT_KEY EQUATE(CTRL_ENTER)
TRUE EQUATE(1)
FALSE EQUATE(0)
MAP
PROC(G_OPENFILES)
PROC(G_OPENFILES2)
MODULE('ANT1')
PROC(GBO1)
.
MODULE('ANT2')
PROC(R)
.
MODULE('ANT3')
PROC(REG)
.
MODULE('ANT4')
PROC(MEN2)
.
MODULE('ANT5')
PROC(MEN4)
.
MODULE('ANT6')
PROC(MEN5)
.
MODULE('ANT7')
PROC(MBO)
.
MODULE('ANT8')
PROC(GBO)
.
MODULE('ANTB')
PROC(AT1)
PROC(AT2)
PROC(AT3)
PROC(UK)
PROC(SVZ)
PROC(SR)
PROC(SVP)
PROC(S)
.
.
EJECT('FILE LAYOUTS')
T17 FILE,PRE(T17),CREATE,RECLAIM
OWNER('NPRN.K01'),ENCRYPT
C KEY(T17:PNOMBER),DUP,NOCASE,OPT
RECORD RECORD
PNOMBER LONG !”ˆ?‘Ž‚›… …‡“‹œ’?’›
F001 REAL
F002 REAL
F003 REAL
F004 REAL
F005 REAL
F006 REAL
F007 REAL
F008 REAL
F009 REAL
F010 REAL
F011 REAL
F012 REAL
F013 REAL
F014 REAL
F015 REAL
F016 REAL
F017 REAL
F018 REAL
F019 REAL
F020 REAL
F021 REAL
. .
T67 FILE,PRE(T67),CREATE,RECLAIM
OWNER('NPRN.K01'),ENCRYPT
C KEY(T67:PNOMBER),DUP,NOCASE,OPT
RECORD RECORD
PNOMBER LONG !?‘‘ˆ‚ ?‹?‘?
A400N REAL !1гбв ўл© д®¤
A400K REAL
A410N REAL !2१Ґаўл© 䮤
A410K REAL
A420N REAL !3
A420K REAL
A430N REAL !4
A430K REAL
A440N REAL !5
A440K REAL
A450N REAL !6
A450K REAL
A460N REAL !7
A460K REAL
A470N REAL !8
A470K REAL
A471N REAL !9
A471K REAL
A472N REAL !10
A472K REAL
A480N REAL !11
A480K REAL
A485N REAL !12
A485K REAL
A490N REAL !13
A490K REAL
A491N REAL !14
A491K REAL
A492N REAL !15
A492K REAL
A493N REAL !16
A493K REAL
A494N REAL !17
A494K REAL
A495N REAL !18
A495K REAL
A500N REAL !19
A500K REAL
A510N REAL !20
A510K REAL
A520N REAL !21
A520K REAL
A600N REAL !22
A600K REAL
A620N REAL !23
A620K REAL
A650N REAL !24
A650K REAL
A660N REAL !25
A660K REAL
A670N REAL !26
A670K REAL
A680N REAL !27
A680K REAL
A690N REAL !28
A690K REAL
A700N REAL !29
A700K REAL
A710N REAL !30
A710K REAL
A712N REAL !31
A712K REAL
A730N REAL !32
A730K REAL
A740N REAL !33
A740K REAL
A750N REAL !34
A750K REAL
A760N REAL !35
A760K REAL
A770N REAL !36
A770K REAL
A780N REAL !37
A780K REAL
. .
DF FILE,PRE(DF),CREATE,RECLAIM
OWNER('NPRN.K01'),ENCRYPT
C KEY(DF:PNOMBER),DUP,NOCASE,OPT
RECORD RECORD
PNOMBER SHORT
S010N REAL !1
S010P REAL
S010I REAL
S010K REAL
S020N REAL !2
S020P REAL
S020I REAL
S020K REAL
S030N REAL !3 䮤 Є®Ї«ҐЁп
S030P REAL
S030I REAL
S030K REAL
S031N REAL !4
S031P REAL
S031I REAL
S031K REAL
S032N REAL !5
S032P REAL
S032I REAL
S032K REAL
S033N REAL !6
S033P REAL
S033I REAL
S033K REAL
S034N REAL !7
S034P REAL
S034I REAL
S034K REAL
S035N REAL !8
S035P REAL
S035I REAL
S035K REAL
S036N REAL !9
S036P REAL
S036I REAL
S036K REAL
S037N REAL !10
S037P REAL
S037I REAL
S037K REAL
S038N REAL !11
S038P REAL
S038I REAL
S038K REAL
S039N REAL !12
S039P REAL
S039I REAL
S039K REAL
S040N REAL !13 䮤 Ї®вॡ«ҐЁп
S040P REAL
S040I REAL
S040K REAL
S041N REAL !14
S041P REAL
S041I REAL
S041K REAL
S042N REAL !15
S042P REAL
S042I REAL
S042K REAL
S043N REAL !16
S043P REAL
S043I REAL
S043K REAL
S044N REAL !17
S044P REAL
S044I REAL
S044K REAL
S045N REAL !18
S045P REAL
S045I REAL
S045K REAL
S046N REAL !19
S046P REAL
S046I REAL
S046K REAL
S047N REAL !20
S047P REAL
S047I REAL
S047K REAL
S050N REAL !21
S050P REAL
S050I REAL
S050K REAL
S060N REAL !22
S060P REAL
S060I REAL
S060K REAL
S070N REAL !23
S070P REAL
S070I REAL
S070K REAL
S071N REAL !24
S071P REAL
S071I REAL
S071K REAL
S072N REAL !25
S072P REAL
S072I REAL
S072K REAL
S073N REAL !26
S073P REAL
S073I REAL
S073K REAL
S074N REAL !27
S074P REAL
S074I REAL
S074K REAL
S075N REAL !28
S075P REAL
S075I REAL
S075K REAL
S080N REAL !29
S080P REAL
S080I REAL
S080K REAL
S090N REAL !30
S090P REAL
S090I REAL
S090K REAL
S210N REAL !31
S210P REAL
S210I REAL
S210K REAL
S211N REAL !32
S211P REAL
S211I REAL
S211K REAL
S220N REAL !33
S220P REAL
S220I REAL
S220K REAL
S221N REAL !34
S221P REAL
S221I REAL
S221K REAL
S230N REAL !35
S230P REAL
S230I REAL
S230K REAL
S231N REAL !36
S231P REAL
S231I REAL
S231K REAL
S240N REAL !37
S240P REAL
S240I REAL
S240K REAL
S241N REAL !38
S241P REAL
S241I REAL
S241K REAL
S250N REAL !39
S250P REAL
S250I REAL
S250K REAL
S251N REAL !40
S251P REAL
S251I REAL
S251K REAL
S310N REAL !41 Єа вЄ®ба®з п
S310P REAL
S310I REAL
S310K REAL
S320N REAL !42 ¤®«Ј®ба®з п
S320P REAL
S320I REAL
S320K REAL
S330N REAL !43 Єа вЄ®ба®з п
S330P REAL
S330I REAL
S330K REAL
S340N REAL !44 ¤®«Ј®ба®з п
S340P REAL
S340I REAL
S340K REAL
S350N REAL !45 Ї®«гзҐлҐ
S350P REAL
S350I REAL
S350K REAL
S360N REAL !46 ўл¤ лҐ
S360P REAL
S360I REAL
S360K REAL
R410N REAL !47 Ґ¬ в ЄвЁўл
R410P REAL
R410I REAL
R410K REAL
R420N REAL !48
R420P REAL
R420I REAL
R420K REAL
R430N REAL !49
R430P REAL
R430I REAL
R430K REAL
R440N REAL !50
R440P REAL
R440I REAL
R440K REAL
S500N REAL !51 ‡¤ Ёп
S500P REAL
S500I REAL
S500K REAL
S501N REAL !52 ‘®®а㦥Ёп
S501P REAL
S501I REAL
S501K REAL
S502N REAL !53 ҐаҐ¤ в®злҐ гбва®©бвў
S502P REAL
S502I REAL
S502K REAL
S503N REAL !54 Œ иЁл Ё ®Ў®а㤮ў ЁҐ
S503P REAL
S503I REAL
S503K REAL
S504N REAL !55 ’а бЇ®авлҐ б।бвў
S504P REAL
S504I REAL
S504K REAL
S505N REAL !56 ЁўҐв ам
S505P REAL
S505I REAL
S505K REAL
S506N REAL !57 Ў®зЁ© бЄ®в
S506P REAL
S506I REAL
S506K REAL
S507N REAL !58 தгЄвЁўл© бЄ®в
S507P REAL
S507I REAL
S507K REAL
S508N REAL !59 Œ®Ј®«вЁҐ б ¦¤ҐЁп
S508P REAL
S508I REAL
S508K REAL
S509N REAL !60
S509P REAL
S509I REAL
S509K REAL
S510N REAL !61
S510P REAL
S510I REAL
S510K REAL
S511N REAL !62 Їа®Ё§ў®¤б⢥лҐ
S511P REAL
S511I REAL
S511K REAL
S512N REAL !63 ҐЇа®Ё§ў®¤б⢥лҐ
S512P REAL
S512I REAL
S512K REAL
S520N REAL !64
S520P REAL
S520I REAL
S520K REAL
S530N REAL !65
S530P REAL
S530I REAL
S530K REAL
S540N REAL !66
S540P REAL
S540I REAL
S540K REAL
S610N REAL !67
S610P REAL
S610I REAL
S610K REAL
S620N REAL !68
S620P REAL
S620I REAL
S620K REAL
S630N REAL !69
S630P REAL
S630I REAL
S630K REAL
S640N REAL !70
S640P REAL
S640I REAL
S640K REAL
S650N REAL !71
S650P REAL
S650I REAL
S650K REAL
S710N REAL !72
S710P REAL
S710I REAL
S710K REAL
S720N REAL !73
S720P REAL
S720I REAL
S720K REAL
S730N REAL !74
S730P REAL
S730I REAL
S730K REAL
S740N REAL !75
S740P REAL
S740I REAL
S740K REAL
S750N REAL !76
S750P REAL
S750I REAL
S750K REAL
S760N REAL !77
S760P REAL
S760I REAL
S760K REAL
S761N REAL !78
S761P REAL
S761I REAL
S761K REAL
S762N REAL !79
S762P REAL
S762I REAL
S762K REAL
S763N REAL !80
S763P REAL
S763I REAL
S763K REAL
S810N REAL !81
S810P REAL
S810I REAL
S810K REAL
S811N REAL !82
S811P REAL
S811I REAL
S811K REAL
S812N REAL !83
S812P REAL
S812I REAL
S812K REAL
S813N REAL !84
S813P REAL
S813I REAL
S813K REAL
S814N REAL !85
S814P REAL
S814I REAL
S814K REAL
S820N REAL !86 аЁў«ҐзҐлҐ б।бвў -ўбҐЈ®
S820P REAL
S820I REAL
S820K REAL
S821N REAL !87 ЄаҐ¤Ёвл Ў Є®ў
S821P REAL
S821I REAL
S821K REAL
S822N REAL !88
S822P REAL
S822I REAL
S822K REAL
S823N REAL !89
S823P REAL
S823I REAL
S823K REAL
S824N REAL !90 Ё§ Ўо¤¦Ґв
S824P REAL
S824I REAL
S824K REAL
S825N REAL !91 Ё§ ўҐЎо¤¦Ґвле 䮤®ў
S825P REAL
S825I REAL
S825K REAL
S826N REAL !92
S826P REAL
S826I REAL
S826K REAL
S830N REAL !93
S830P REAL
S830I REAL
S830K REAL
S910N REAL !94
S910P REAL
S910I REAL
S910K REAL
S920N REAL !95
S920P REAL
S920I REAL
S920K REAL
S930N REAL !96
S930P REAL
S930I REAL
S930K REAL
S940N REAL !97
S940P REAL
S940I REAL
S940K REAL
S950N REAL !98
S950P REAL
S950I REAL
S950K REAL
S960N REAL !99
S960P REAL
S960I REAL
S960K REAL
S970N REAL !100
S970P REAL
S970I REAL
S970K REAL
S980N REAL !101
S980P REAL
S980I REAL
S980K REAL
S990N REAL !102
S990P REAL
S990I REAL
S990K REAL
R110N REAL !103 бЇа ўЄЁ д®а¬л 5
R110P REAL
R110I REAL
R110K REAL
R120N REAL !104
R120P REAL
R120I REAL
R120K REAL
R130N REAL !105
R130P REAL
R130I REAL
R130K REAL
R140N REAL !106
R140P REAL
R140I REAL
R140K REAL
R150N REAL !107
R150P REAL
R150I REAL
R150K REAL
. .
SVV FILE,NAME('D:\LICEN\SVV'),PRE(SVV)
K KEY(SVV:PNOM,SVV:KZ),DUP,NOCASE,OPT
RECORD RECORD
PNOM SHORT
LC SHORT
MN STRING(1)
VP STRING(1)
PR REAL
KZ REAL
PSV1 REAL
PSV2 REAL
LS1 REAL
LS2 REAL
SG1 REAL
SG2 REAL
GBG1 REAL
GBG2 REAL
GMG1 REAL
GMG2 REAL
SNS1 REAL
SNS2 REAL
MS1 REAL
MS2 REAL
DLS1 REAL
DLS2 REAL
IS1 REAL
IS2 REAL
SIG1 REAL
SIG2 REAL
SGR1 REAL
SGR2 REAL
SRK1 REAL
SRK2 REAL
SIS1 REAL
SIS2 REAL
SO1 REAL
SO2 REAL
SST1 REAL
SST2 REAL
SNK1 REAL
SNK2 REAL
PSO1 REAL
PSO2 REAL
OS1 REAL
OS2 REAL
CR1 REAL
CR2 REAL
. .
F92 FILE,NAME('D:\LICEN\F92'),PRE(F92),CREATE,RECLAIM
FC KEY(F92:PNOMBER),DUP,NOCASE,OPT
RECORD RECORD
PNOMBER LONG
F1 REAL
F2 REAL
F3 REAL
F4 REAL
F5 REAL
F6 REAL
F7 REAL
F8 REAL
F9 REAL
F10 REAL
F11 REAL
F12 REAL
F13 REAL
F14 REAL
F15 REAL
F16 REAL
F17 REAL
F18 REAL
F19 REAL
F20 REAL
F21 REAL
F22 REAL
. .
LIC FILE,PRE(LIC),CREATE,RECLAIM
CLIC KEY(LIC:KNAM),DUP,NOCASE,OPT
CREG KEY(LIC:IREGION,LIC:KNAM),DUP,NOCASE,OPT
CPN1 KEY(LIC:PNOMBER),DUP,NOCASE,OPT
CNREG KEY(LIC:NREGION,LIC:KNAM),DUP,NOCASE,OPT
CNLIC KEY(LIC:NOMLIC),DUP,NOCASE,OPT
RECORD RECORD
KNAM STRING(30) !Єа вЄ®Ґ Ё¬п Є®¬Ї ЁЁ
PNOMBER LONG !Їа®Ја ¬¬л© ®¬Ґа
NOMLIC LONG !®¬Ґа «ЁжҐ§ЁЁ
KV STRING(1) !Š’Ž ўл¤лў « «ЁжҐ§Ёо
NREGION LONG !®¬Ґа ॣЁ®
IREGION STRING(30) !Ё¬п ॣЁ®
NCITY LONG
ICITY STRING(25)
ADRESS STRING(40) ! ¤аҐб Є®¬Ї ЁЁ
ADRESS1 STRING(40) ! ¤аҐб Є®¬Ї ЁЁ (2з)
FADRESS STRING(40) !Ї®зв®ўл© ¤аҐб
FADRESS1 STRING(40) !Ї®зв®ўл© ¤аҐб
FNAME STRING(40) !Ї®«®Ґ Ё¬п Є®¬Ї ЁЁ
ISPOLNIT STRING(15) !ˆ‘Ž‹ˆ’…‹œ
FNAME1 STRING(40) !Ї®«®Ґ Ё¬п Є®¬Ї ЁЁ(2 з)
TELEPHON STRING(40) !⥫Ґд®л Є®¬Ї ЁЁ
VIDORG STRING(50) !ўЁ¤ ®аЈ Ё§ жЁЁ
VIDORG1 STRING(50) !ўЁ¤ ®аЈ Ё§ жЁЁ(2 з.)
UFOND REAL !гбв ў®© 䮤
DATAR STRING(@d6) !¤ в ॣЁбва жЁЁ
VHODN LONG !ўе®¤пйЁ© ®¬Ґа
DPOST STRING(@d6) !¤ в Ї®бвгЇ«ҐЁп ¤®Єг¬Ґв®ў
REZRAS STRING(22) !१г«мв в а бᬮв२п
DUZ STRING(10)
PRINAD STRING(4) !Ј®«®ў п ®аЈ Ё§ жЁп
NPRIN LONG !Їа. ®¬Ґа Ј®«®ў®© ®аЈ Ё§ жЁ
NREISTR LONG
KVMR STRING(60)
DMR STRING(@d6)
SANK STRING(30)
DSANC STRING(10)
INCAP STRING(3)
. .
XREG FILE,PRE(XRE),CREATE,RECLAIM
K KEY(XRE:NREG),NOCASE,OPT
K1 KEY(XRE:NREGION),NOCASE,OPT
RECORD RECORD
NREG SHORT
IREG STRING(35)
NREGION SHORT
. .
GOR FILE,NAME('D:\LICEN\GOR'),PRE(GOR)
CGOR KEY(GOR:GOROD),DUP,NOCASE,OPT
RECORD RECORD
KG LONG
NREGION LONG
GOROD STRING(25)
. .
INSP FILE,NAME('D:\LICEN\INSP'),PRE(INS),CREATE,RECLAIM
K KEY(INS:NAME),DUP,NOCASE,OPT
K1 KEY(INS:NTER),DUP,NOCASE,OPT
RECORD RECORD
NAME STRING(30)
NTER SHORT
. .
TERR FILE,NAME('D:\LICEN\TERR'),PRE(TER),CREATE,RECLAIM
CREG KEY(TER:IREGION),DUP,NOCASE,OPT
CNREG KEY(TER:NREGION),DUP,NOCASE,OPT
K KEY(TER:KODT),DUP,NOCASE,OPT
K1 KEY(TER:KODT,TER:IREGION),DUP,NOCASE,OPT
RECORD RECORD
NAMT STRING(30)
KODT LONG
NREGION LONG
IREGION STRING(30)
. .
F FILE,PRE(F),CREATE,RECLAIM
K1 KEY(F:NKUST),DUP,NOCASE,OPT
K2 KEY(F:NREGION),DUP,NOCASE,OPT
K3 KEY(F:NGOR),DUP,NOCASE,OPT
RECORD RECORD
NKUST SHORT
NREGION SHORT
NGOR SHORT
F1 REAL !t67:a400n
F2 REAL !t67:a400k
F3 REAL !t67:a495n
F4 REAL !t67:a495K
F5 REAL !f92:f19
F6 REAL !t17:f018
F7 REAL !f92:f21
F8 REAL !t17:f020
F9 REAL !f92:f7
F10 REAL !t17:f004
F11 REAL !f92:f1
F12 REAL !t17:f001
F13 REAL !f92:f10
F14 REAL !t17:f010
F15 REAL !svv:cr2
F16 REAL !df:s750n
. .
EJECT('GLOBAL MEMORY VARIABLES')
ACTION SHORT !0 = NO ACTION
!1 = ADD RECORD
!2 = CHANGE RECORD
!3 = DELETE RECORD
!4 = LOOKUP FIELD
GROUP,PRE(MEM)
MESSAGE STRING(30) !Global Message Area
PAGE SHORT !Report Page Number
LINE SHORT !Report Line Number
DEVICE STRING(30) !Report Device Name
NR SHORT
NG REAL
VG REAL
GOD SHORT
PR SHORT
.
EJECT('CODE SECTION')
CODE
SETHUE(7,0) !SET WHITE ON BLACK
BLANK ! AND BLANK
G_OPENFILES !OPEN OR CREATE FILES
SETHUE() ! THE SCREEN
GBO
RETURN !EXIT TO DOS
G_OPENFILES PROCEDURE !OPEN FILES & CHECK FOR ERROR
CODE
G_OPENFILES2(T17) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(T67) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(DF) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(SVV) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(F92) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(LIC) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(XREG) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(GOR) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(INSP) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(TERR) !CALL OPEN FILE PROCEDURE
G_OPENFILES2(F) !CALL OPEN FILE PROCEDURE
BLANK !BLANK THE SCREEN
G_OPENFILES2 PROCEDURE(G_FILE) !OPEN EACH FILE & CHECK ERROR
G_FILE EXTERNAL,FILE
FILE_NAME STRING(64)
CODE
FILE_NAME = NAME(G_FILE)
SHOW(25,1,CENTER('OPENING FILE: ' & CLIP(FILE_NAME),80)) !DISPLAY FILE NAME
OPEN(G_FILE) !OPEN THE FILE
IF ERROR() !OPEN RETURNED AN ERROR
CASE ERRORCODE() ! CHECK FOR SPECIFIC ERROR
OF 46 ! KEYS NEED TO BE REQUILT
SETHUE(0,7) ! BLACK ON WHITE
SHOW(25,1,CENTER('REBUILDING KEY FILES FOR ' & CLIP(FILE_NAME),80))
BUILD(G_FILE) ! CALL THE BUILD PROCEDURE
IF ERROR() ! ON UNNEXPECTED ERROR
LOOP ! STOP EXECUTION
STOP('Cannot Build ' & FILE_NAME & ' - Error: ' & ERROR())
.
.
SETHUE(7,0) ! WHITE ON BLACK
BLANK(25,1,1,80) ! BLANK THE MESSAGE
OF 2 !IF NOT FOUND,
CREATE(G_FILE) ! CREATE
IF ERROR() !STOP ON UNNEXPECTED ERROR
LOOP
STOP('Cannot Create ' & FILE_NAME & ' - Error: ' & ERROR())
. .
OF 73 ! MEMO FILE NOT FOUND
LOOP ! STOP EXECUTION
STOP('Cannot Open Memo File for ' & FILE_NAME & ERROR())
.
ELSE ! ANY OTHER ERROR
LOOP ! STOP EXECUTION
STOP('Cannot Open ' & FILE_NAME & ' - Error: ' & ERROR())
.
. .
(ant1)
MEMBER('ANT')
GBO1 PROCEDURE
SCREEN SCREEN PRE(SCR),WINDOW(12,73),AT(6,6),HUE(15,5)
ROW(2,24) PAINT(1,21),HUE(11,5)
ROW(11,22) PAINT(1,31),HUE(30,1)
ROW(1,1) STRING('+-{71}+')
ROW(2,1) REPEAT(10);STRING('¦¦') .
ROW(12,1) STRING('+-{71}+')
ROW(2,24) STRING('аналитическиетаблицы') ROW(11,30)
STRING('начальнаясортировка')
COL(25) STRING('F2 -')
ENTRY,USE(?FIRST_FIELD)
ENTRY,USE(?PRE_MENU)
MENU,USE(MENU_FIELD"),REQ
ROW(4,5) STRING('1. ведения об изменении отдельных ' |
& 'показателей деятельности ')
ROW(5,5) STRING('2. анализ показателей развития ' |
& 'страховых организаций')
ROW(6,5) STRING('3. объем поступлений и выплат на 1 ' |
& 'работника страховой организации')
. .
EJECT
CODE
OPEN(SCREEN) !OPEN THE MENU SCREEN
SETCURSOR !TURN OFF ANY CURSOR
MENU_FIELD" = '' !START MENU WITH FIRST ITEM
LOOP !LOOP UNTIL USER EXITS
ALERT !TURN OFF ALL ALERTED KEYS
ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY
ALERT(F2_KEY) !ALERT HOT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = F2_KEY !ON HOT KEY
UPDATE(?) ! RETRIEVE FIELD
SAVACTN# = ACTION ! SAVE ACTION
S ! CALL HOT KEY PROCEDURE
ACTION = SAVACTN# ! RESTORE ACTION
SELECT(?) ! DO SAME FIELD AGAIN
CYCLE ! AND LOOP AGAIN
.
IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT
IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY
UPDATE ! MOVE ALL FIELDS FROM SCREEN
SELECT(?) ! START WITH CURRENT FIELD
SELECT ! EDIT ALL FIELDS
CYCLE ! GO TO TOP OF LOOP
. !
CASE FIELD() !JUMP TO FIELD EDIT ROUTINE
OF ?FIRST_FIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY
OF ?PRE_MENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESC_KEY ! BACKING UP?
SELECT(?-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(?+1) ! SELECT MENU FIELD
.
OF ?MENU_FIELD" !FROM THE MENU FIELD
EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE
AT1 !
AT2 !
AT3 !
. . .
(ant2)
MEMBER('ANT')
R PROCEDURE
SCREEN SCREEN PRE(SCR),WINDOW(1,3),AT(9,77),HUE(0,2)
ENTRY,USE(?FIRST_FIELD)
ROW(1,1) ENTRY,USE(MEM:NR)
NR COL(1) STRING(@n3),HUE(7,7)
ENTRY,USE(?LAST_FIELD)
.
EJECT
CODE
OPEN(SCREEN) !OPEN THE SCREEN
SETCURSOR !TURN OFF ANY CURSOR
DISPLAY !DISPLAY THE FIELDS
LOOP !LOOP THRU ALL THE FIELDS
SCR:NR = MEM:NR
ALERT !RESET ALERTED KEYS
ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY
ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY
ACCEPT !READ A FIELD
IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT KEY
IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY
UPDATE ! MOVE ALL FIELDS FROM SCREEN
SELECT(?) ! START WITH CURRENT FIELD
SELECT ! EDIT ALL FIELDS
CYCLE ! GO TO TOP OF LOOP
. !
CASE FIELD() !JUMP TO FIELD EDIT ROUTINE
OF ?FIRST_FIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY
OF ?MEM:NR
XRE:NREGION = MEM:NR !MOVE RELATED FIELDS
GET(XREG,XRE:K1) !READ THE RECORD
ACTION# = ACTION !SAVE ACTION
ACTION = 4 !REQUEST TABLE LOOKUP
REG !CALL LOOKUP PROCEDURE
IF ACTION !NO SELECTION WAS MADE
SELECT(?MEM:NR-1) ! BACK UP ONE FIELD
ACTION = ACTION# ! RESTORE ACTION
CYCLE ! GO TO TOP OF LOOP
.
SCR:NR = XRE:NREGION !DISPLAY LOOKUP FIELD
MEM:NR = XRE:NREGION !MOVE LOOKUP FIELD
DISPLAY(?MEM:NR) !AND DISPLAY IT
ACTION = ACTION# !RESTORE ACTION
MEN2
OF ?LAST_FIELD !FROM THE LAST FIELD
ACTION = 0 ! SET ACTION TO COMPLETE
RETURN ! AND RETURN TO CALLER
. .
(ant3)
MEMBER('ANT')
REG PROCEDURE
SCREEN SCREEN PRE(SCR),WINDOW(25,39),AT(1,42),HUE(8,7)
ROW(2,9) PAINT(1,19),HUE(0,7)
ROW(1,1) STRING('+-{37}+')
ROW(2,1) REPEAT(2);STRING('¦¦') .
ROW(4,1) STRING('¦')
ROW(5,1) REPEAT(20);STRING('¦¦') .
ROW(25,1) STRING('+-{37}+')
ROW(2,12) STRING('выберитерегион') ROW(4,39) STRING('¦')
ENTRY,USE(?FIRST_FIELD)
ENTRY,USE(?PRE_POINT) REPEAT(21),EVERY(1),INDEX(NDX)
COL(2) POINT(1,37),USE(?POINT),ESC(?-1)
IREG COL(3) STRING(35)
. .
NDX BYTE !REPEAT INDEX FOR POINT AREA
ROW BYTE !ACTUAL ROW OF SCROLL AREA
COL BYTE !ACTUAL COLUMN OF SCROLL AREA
COUNT BYTE(21) !NUMBER OF ITEMS TO SCROLL
ROWS BYTE(21) !NUMBER OF ROWS TO SCROLL
COLS BYTE(37) !NUMBER OF COLUMNS TO SCROLL
FOUND BYTE !RECORD FOUND FLAG
NEWPTR LONG !POINTER TO NEW RECORD
TABLE TABLE,PRE(TBL) !TABLE OF RECORD DATA
PTR LONG ! POINTER TO FILE RECORD
IREG STRING(35)
NREG SHORT
.
EJECT
CODE
ACTION# = ACTION !SAVE ACTION
OPEN(SCREEN) !OPEN THE SCREEN
SETCURSOR !TURN OFF ANY CURSOR
TBL:PTR = 1 !START AT TABLE ENTRY
NDX = 1 !PUT SELECTOR BAR ON TOP ITEM
ROW = ROW(?POINT) !REMEMBER TOP ROW AND
COL = COL(?POINT) !LEFT COLUMN OF SCROLL AREA
RECORDS# = TRUE !INITIALIZE RECORDS FLAG
CACHE(XRE:K,.25) !CACHE KEY FILE
IF ACTION = 4 ! TABLE LOOKUP REQUEST
NEWPTR = POINTER(XREG) ! SET POINTER TO RECORD
IF NOT NEWPTR ! RECORD NOT PASSED TO TABLE
SET(XRE:K,XRE:K) ! POSITION TO CLOSEST RECORD
NEXT(XREG) ! READ RECORD
NEWPTR = POINTER(XREG) ! SET POINTER
.
DO FIND_RECORD ! POSITION FILE
ELSE
NDX = 1 ! PUT SELECTOR BAR ON TOP ITEM
DO FIRST_PAGE ! BUILD MEMORY TABLE OF KEYS
.
RECORDS# = TRUE ! ASSUME THERE ARE RECORDS
LOOP !LOOP UNTIL USER EXITS
ACTION = ACTION# !RESTORE ACTION
ALERT !RESET ALERTED KEYS
ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY
ACCEPT !READ A FIELD
IF KEYCODE() = REJECT_KEY THEN BREAK. !RETURN ON SCREEN REJECT KEY
IF KEYCODE() = ACCEPT_KEY | !ON SCREEN ACCEPT KEY
AND FIELD() ?POINT !BUT NOT ON THE POINT FIELD
UPDATE ! MOVE ALL FIELDS FROM SCREEN
SELECT(?) ! START WITH CURRENT FIELD
SELECT ! EDIT ALL FIELDS
CYCLE ! GO TO TOP OF LOOP
.
CASE FIELD() !JUMP TO FIELD EDIT ROUTINE
OF ?FIRST_FIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESC_KEY | ! RETURN ON ESC KEY
OR RECORDS# = FALSEб ! OR NO RECORDS
BREAK !EXIT PROCEDURE
.
OF ?PRE_POINT!PRE POINT FIELD CONDITION
IF KEYCODE() = ESC_KEY! BACKING UP?
SELECT(?-1) !SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(?POINT) !SELECT MENU FIELD
.
OF ?POINT !PROCESS THE POINT FIELD
IF RECORDS(TABLE) = 0 !IF THERE ARE NO RECORDS
CLEAR(XRE:RECORD) ! CLEAR RECORD AREA
ACTION = 1 ! SET ACTION TO ADD
GET(XREG,0) ! CLEAR PENDING RECORD
NEWPTR = POINTER(XREG) !SET POINTER TO NEW RECORD
DO FIRST_PAGE ! DISPLAY THE FIRST PAGE
IF RECORDS(TABLE) = 0 ! IF THERE AREN'T ANY RECORDS
RECORDS# = FALSE !INDICATE NO RECORDS
SELECT(?PRE_POINT-1) !SELECT THE PRIOR FIELD
.
CYCLE !AND LOOP AGAIN
.
CASE KEYCODE() !PROCESS THE KEYSTROKE
OF INS_KEY !INS KEY
CLEAR(XRE:RECORD) ! CLEAR RECORD AREA
ACTION = 1 ! SET ACTION TO ADD
GET(XREG,0) ! CLEAR PENDING RECORD
IF ~ACTION ! IF RECORD WAS ADDED
NEWPTR = POINTER(XREG) !SET POINTER TO NEW RECORD
DO FIND_RECORD !POSITION IN FILE
.
OF ENTER_KEY !ENTER KEY
OROF ACCEPT_KEY !CTRL-ENTER KEY
DO GET_RECORD ! GET THE SELECTED RECORD
IF ACTION = 4 AND KEYCODE() = ENTER_KEY !IF THIS IS A LOOKUP REQUEST
ACTION = 0 !SET ACTION TO COMPLETE
BREAK !AND RETURN TO CALLER
.
IF ~ERROR() ! IF RECORD IS STILL THERE
ACTION = 2 !SET ACTION TO CHANGE
IF ACTION THEN CYCLE. !IF SUCCESSFUL RE-DISPLAY
.
NEWPTR = POINTER(XREG) !SET POINTER TO NEW RECORD
DO FIND_RECORD !POSITION IN FILE
OF DEL_KEY !DEL KEY
DO GET_RECORD ! READ THE SELECTED RECORD
IF ~ERROR() ! IF RECORD IS STILL THERE
ACTION = 3 !SET ACTION TO DELETE
IF ~ACTION !IF SUCCESSFUL
N# = NDX ! SAVE POINT INDEX
DO SAME_PAGE ! RE-DISPLAY
NDX = N# ! RESTORE POINT INDEX
. .
OF DOWN_KEY !DOWN ARROW KEY
DO SET_NEXT ! POINT TO NEXT RECORD
DO FILL_NEXT ! FILL A TABLE ENTRY
IF FOUND ! FOUND A NEW RECORD
SCROLL(ROW,COL,ROWS,COLS,ROWS(?POINT)) ! SCROLL THE SCREEN UP
GET(TABLE,RECORDS(TABLE)) ! GET RECORD FROM TABLE
DO FILL_SCREEN ! DISPLAY ON SCREEN
.
OF PGDN_KEY !PAGE DOWN KEY
DO SET_NEXT ! POINT TO NEXT RECORD
DO NEXT_PAGE ! DISPLAY THE NEXT PAGE
OF CTRL_PGDN !CTRL-PAGE DOWN KEY
DO LAST_PAGE ! DISPLAY THE LAST PAGE
NDX = RECORDS(TABLE) ! POSITION POINT BAR
OF UP_KEY !UP ARROW KEY
DO SET_PREV ! POINT TO PREVIOUS RECORD
DO FILL_PREV ! FILL A TABLE ENTRY
IF FOUND ! FOUND A NEW RECORD
SCROLL(ROW,COL,ROWS,COLS,-(ROWS(?POINT))) ! SCROLL THE SCREEN DOWN
GET(TABLE,1) ! GET RECORD FROM TABLE
DO FILL_SCREEN ! DISPLAY ON SCREEN
.
OF PGUP_KEY !PAGE UP KEY
DO SET_PREV ! POINT TO PREVIOUS RECORD
DO PREV_PAGE ! DISPLAY THE PREVIOUS PAGE
OF CTRL_PGUP !CTRL-PAGE UP
DO FIRST_PAGE ! DISPLAY THE FIRST PAGE
NDX = 1 ! POSITION POINT BAR
. . .
FREE(TABLE) !FREE MEMORY TABLE
FREE(XRE:K) !FREE CACHE
RETURN !AND RETURN TO CALLER
SAME_PAGE ROUTINE !DISPLAY THE SAME PAGE
GET(TABLE,1) ! GET THE FIRST TABLE ENTRY
DO FILL_RECORD ! FILL IN THE RECORD
SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE
FREE(TABLE) ! EMPTY THE TABLE
DO NEXT_PAGE ! DISPLAY A FULL PAGE
FIRST_PAGE ROUTINE !DISPLAY FIRST PAGE
FREE(TABLE) ! EMPTY THE TABLE
CLEAR(XRE:RECORD,-1) ! CLEAR RECORD TO LOW VALUES
CLEAR(TBL:PTR) ! ZERO RECORD POINTER
SET(XRE:K) ! POINT TO FIRST RECORD
LOOP NDX = 1 TO COUNT ! FILL UP THE TABLE
DO FILL_NEXT ! FILL A TABLE ENTRY
IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD
.
NDX = 1 ! SET TO TOP OF TABLE
DO SHOW_PAGE ! DISPLAY THE PAGE
LAST_PAGE ROUTINE !DISPLAY LAST PAGE
NDX# = NDX ! SAVE SELECTOR POSITION
FREE(TABLE) ! EMPTY THE TABLE
CLEAR(XRE:RECORD,1) ! CLEAR RECORD TO HIGH VALUES
CLEAR(TBL:PTR,1) ! CLEAR PTR TO HIGH VALUE
SET(XRE:K) ! POINT TO FIRST RECORD
LOOP NDX = COUNT TO 1 BY -1 ! FILL UP THE TABLE
DO FILL_PREV ! FILL A TABLE ENTRY
IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD
. ! END OF LOOP
NDX = NDX# ! RESTORE SELECTOR POSITION
DO SHOW_PAGE ! DISPLAY THE PAGE
FIND_RECORD ROUTINE !POSITION TO SPECIFIC RECORD
SET(XRE:K,XRE:K,NEWPTR) !POSITION FILE
IF NEWPTR = 0 !NEWPTR NOT SET
NEXT(XREG) ! READ NEXT RECORD
NEWPTR = POINTER(XREG) ! SET NEWPTR
SKIP(XREG,-1) ! BACK UP TO DISPLAY RECORD
.
FREE(TABLE) ! CLEAR THE RECORD
DO NEXT_PAGE ! DISPLAY A PAGE
NEXT_PAGE ROUTINE !DISPLAY NEXT PAGE
SAVECNT# = RECORDS(TABLE) ! SAVE RECORD COUNT
LOOP COUNT TIMES ! FILL UP THE TABLE
DO FILL_NEXT ! FILL A TABLE ENTRY
IF NOT FOUND ! IF NONE ARE LEFT
IF NOT SAVECNT# ! IF REBUILDING TABLE
DO LAST_PAGE ! FILL IN RECORDS
EXIT ! EXIT OUT OF ROUTINE
.
BREAK ! EXIT LOOP
. .
DO SHOW_PAGE ! DISPLAY THE PAGE
SET_NEXT ROUTINE !POINT TO THE NEXT PAGE
GET(TABLE,RECORDS(TABLE)) ! GET THE LAST TABLE ENTRY
DO FILL_RECORD ! FILL IN THE RECORD
SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE
NEXT(XREG) ! READ THE CURRENT RECORD
FILL_NEXT ROUTINE !FILL NEXT TABLE ENTRY
FOUND = FALSE ! ASSUME RECORD NOT FOUND
LOOP UNTIL EOF(XREG) ! LOOP UNTIL END OF FILE
NEXT(XREG) ! READ THE NEXT RECORD
FOUND = TRUE ! SET RECORD FOUND
DO FILL_TABLE ! FILL IN THE TABLE ENTRY
ADD(TABLE) ! ADD LAST TABLE ENTRY
GET(TABLE,RECORDS(TABLE)-COUNT) ! GET ANY OVERFLOW RECORD
DELETE(TABLE) ! AND DELETE IT
EXIT ! RETURN TO CALLER
.
PREV_PAGE ROUTINE !DISPLAY PREVIOUS PAGE
LOOP COUNT TIMES ! FILL UP THE TABLE
DO FILL_PREV ! FILL A TABLE ENTRY
IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD
.
DO SHOW_PAGE ! DISPLAY THE PAGE
SET_PREV ROUTINE !POINT TO PREVIOUS PAGE
GET(TABLE,1) ! GET THE FIRST TABLE ENTRY
DO FILL_RECORD ! FILL IN THE RECORD
SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE
PREVIOUS(XREG) ! READ THE CURRENT RECORD
FILL_PREV ROUTINE !FILL PREVIOUS TABLE ENTRY
FOUND = FALSE ! ASSUME RECORD NOT FOUND
LOOP UNTIL BOF(XREG) ! LOOP UNTIL BEGINNING OF FILE
PREVIOUS(XREG) ! READ THE PREVIOUS RECORD
FOUND = TRUE SET RECORD FOUND
DO FILL_TABLE ! FILL IN THE TABLE ENTRY
ADD(TABLE,1) ! ADD FIRST TABLE ENTRY
GET(TABLE,COUNT+1) ! GET ANY OVERFLOW RECORD
DELETE(TABLE) ! AND DELETE IT
EXIT ! RETURN TO CALLER
.
SHOW_PAGE ROUTINE !DISPLAY THE PAGE
NDX# = NDX ! SAVE SCREEN INDEX
LOOP NDX = 1 TO RECORDS(TABLE) ! LOOP THRU THE TABLE
GET(TABLE,NDX) ! GET A TABLE ENTRY
DO FILL_SCREEN AND DISPLAY IT
IF TBL:PTR = NEWPTR ! SET INDEX FOR NEW RECORD
NDX# = NDX ! POINT TO CORRECT RECORD
. .
LOOP WHILE NDX
Похожие работы
... продвижению страховых услуг в регионы путем создания центров продаж страховых и сопутствующих услуг, разрабатываемых в интересах региональных клиентов. 3. Характеристика ИФ ОАО «Интеррос-Согласие» Общая характеристика Страховая компания ИФ «Интеррос-Согласие» является московским филиалом и осуществляет свою деятельность (страхование) на территории г. Иркутска и Иркутской области с января ...
... ; - поиск информации и последующая ее обработка; - выявление возможностей ресурсного обеспечения; - ранжирование целей; - формулирование решения; - оформление необходимых документов; - реализация принятого решения. В страховой компании «Югория» для решения конкретной проблемы чаще всего используется метод «мозгового штурма». То есть собирают весь ...
... страховая защита, страхование собирает, группирует и обобщает информацию с целью выработки оптимальной стратегии своей деятельности. В настоящее время все информационные процедуры управления страховой деятельностью основываются на автоматизированных информационных технологиях и системном подходе к рассмотрению страхования. В частности, многообразие функций и функциональных задач может быть ...
... кредитування житлового будівництва, у тому числі індивідуальних забудовників, у порядку, визначеному Кабінетом Міністрів України. 2. Організація оподаткування доходів страхових компаній 2.1 Особливості оподаткування доходів від діяльності страхових компаній Згідно з Законом України «Про оподаткування прибутку підприємств» [1] – оподаткування страхової діяльності обумовлене статтею 7 « ...
0 комментариев