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

!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('¦<0{71}>¦') . ROW(12,1) STRING('+-{71}+') ROW(2,24) STRING('<128>аналитические<0>таблицы') ROW(11,30) STRING('начальная<0>сортировка') COL(25) STRING('F2 -') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ ROW(4,5) STRING('1. <145>ведения об изменении отдельных ' | & 'показателей деятельности <145,142>') ROW(5,5) STRING('2. <128>анализ показателей развития ' | & 'страховых организаций') ROW(6,5) STRING('3. <142>объем поступлений