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

!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:LICENSVV'),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:LICENF92'),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:LICENGOR'),PRE(GOR)

CGOR KEY(GOR:GOROD),DUP,NOCASE,OPT

RECORD RECORD

KG LONG

NREGION LONG

GOROD STRING(25)

. .

INSP FILE,NAME('D:LICENINSP'),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:LICENTERR'),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>объем поступлений и выплат на 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('¦<0 {37}>¦') .

ROW(4,1) STRING('¦')

ROW(5,1) REPEAT(20);STRING('¦<0 {37}>¦') .

ROW(25,1) STRING('+-{37}+')

ROW(2,12) STRING('<130>выберите<0>регион') 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