Поиск по сайту
Рефераты / Страхование /Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ реферат на тему: База данных страховой компании!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
. . 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 2 3 4 5 ... последняя Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ Внимание! Студенческий отдых и мегатусовка после сессии!
Рефераты и/или содержимое рефератов предназначено исключительно для ознакомления, без целей коммерческого использования. Все права в отношении рефератов и/или содержимого рефератов принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие или полученные в связи с использованием рефератов и/или содержимого рефератов.
|
Обратная связь. |