(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:KODT<>N# 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:KODT<>INS: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:NREGION<>TER: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:NREGION<>XRE: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:NREGION<>XRE:NREGION THEN BREAK.
IF LIC:NCITY<>GOR: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 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 ST13>0 AND ST15>0
ST17=ST15/ST13*100.
IF ST14>0 AND ST16>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.
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:KODT<>INS: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:NREGION<>TER: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:NREGION<>XRE: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:NREGION<>XRE:NREGION THEN BREAK.
IF LIC:NCITY<>GOR: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 T<=-100 THEN ST5=T/1000.
T=0
IF ST4>0 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 T<=-100 THEN ST9=T/1000.
T=0
IF ST8>0 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 T<=-100 THEN ST13=T/1000.
T=0
IF ST12>0 AND ST11>0 THEN ST14=ST12/ST11*100.
T=0
T=T17:F010-F92:F10
IF T<=-100 OR 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: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 CYCLE.
ELSE
IF T67:A495K<=MEM:NG OR T67:A495K>MEM: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:NREGION<>XRE:NREGION THEN BREAK..
IF MEM:GOD=1993
T17:PNOMBER=LIC:PNOMBER
GET(T17 T17:C)
IF ~ERRORCODE()
THEN
IF T17:F010<=MEM:NG OR T17:F010>MEM:VG THEN CYCLE.
ELSE
CYCLE..
IF MEM:GOD=1992
F92:PNOMBER=LIC:PNOMBER
GET(F92 F92:FC)
IF ~ERRORCODE()
THEN
IF F92:F10<=MEM:NG OR F92:F10>MEM: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
Sheet1Sheet2
Sheet 1: Sheet1
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 |
Sheet 2: Sheet2
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