DOCA1 (База данных страховой компании), страница 2
Описание файла
Документ из архива "База данных страховой компании", который расположен в категории "". Всё это находится в предмете "страхование" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "страхование" в общих файлах.
Онлайн просмотр документа "DOCA1"
Текст 2 страницы из документа "DOCA1"
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())
.
. .
