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

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:KODT<>INS: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:NREGION<>TER: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:NREGION<>XRE: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:NREGION<>XRE:NREGION THEN BREAK. IF LIC:NCITY<>GOR: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:S750N<>0 ST8=DF:S750N. IF F92:F1>100 AND SVV:CR2<>0 THEN ST9=F92:F1/SVV:CR2/1000. IF T17:F001>100 AND DF:S750N<>0 THEN ST10=T17:F001/DF:S750N/1000. IF F92:F10>100 AND SVV:CR2<>0 THEN ST11=F92:F10/SVV:CR2/1000. IF T17:F010>100 AND DF:S750N<>0 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:NREGION<>XRE:NREGION THEN BREAK.. T67:PNOMBER=LIC:PNOMBER GET(T67,T67:C) IF ~ERRORCODE() THEN IF MEM:GOD=1992 THEN IF T67:A400N<=MEM:NG OR T67:A400N>MEM:VG THEN CYCLE. ELSE IF T67:A400K<=MEM:NG OR T67:A400K>MEM: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:NREGION<>XRE:NREGION THEN BREAK.. IF MEM:GOD=1993 T17:PNOMBER=LIC:PNOMBER GET(T17,T17:C) IF ~ERRORCODE() THEN IF T17:F001<=MEM:NG OR T17:F001>MEM:VG THEN CYCLE. ELSE CYCLE.. IF MEM:GOD=1992 F92:PNOMBER=LIC:PNOMBER GET(F92,F92:FC) IF ~ERRORCODE() THEN IF F92:F1<=MEM:NG OR F92:F1>MEM: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:NREGION<>XRE:NREGION THEN BREAK.. T67:PNOMBER=LIC:PNOMBER GET(T67,T67:C) IF ~ERRORCODE() IF MEM:GOD=1992 THEN IF T67:A495N<=MEM:NG OR T67:A495N>MEM:VG THEN