Ìàòåðèàëû ñàéòà
Ýòî èíòåðåñíî
Áàçà äàííûõ ñòðàõîâîé êîìïàíèè
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 A492K REAL A493N REAL !16 A493K REAL A494N REAL !17 A494K REAL A495N REAL !18 A495K REAL A500N REAL !19 A500K REAL A510N REAL !20 A510K REAL A520N REAL !21 A520K REAL A600N REAL !22 A600K REAL A620N REAL !23 A620K REAL A650N REAL !24 A650K REAL A660N REAL !25 A660K REAL A670N REAL !26 A670K REAL A680N REAL !27 A680K REAL A690N REAL !28 A690K REAL A700N REAL !29 A700K REAL A710N REAL !30 A710K REAL A712N REAL !31 A712K REAL A730N REAL !32 A730K REAL A740N REAL !33 A740K REAL A750N REAL !34 A750K REAL A760N REAL !35 A760K REAL A770N REAL !36 A770K REAL A780N REAL !37 A780K REAL . . DF FILE,PRE(DF),CREATE,RECLAIM OWNER('NPRN.K01'),ENCRYPT C KEY(DF:PNOMBER),DUP,NOCASE,OPT RECORD RECORD PNOMBER SHORT S010N REAL !1 S010P REAL S010I REAL S010K REAL S020N REAL !2 S020P REAL S020I REAL S020K REAL S030N REAL !3 䮤 ª®¯«¥¨ï S030P REAL S030I REAL S030K REAL S031N REAL !4 S031P REAL S031I REAL S031K REAL S032N REAL !5 S032P REAL S032I REAL S032K REAL S033N REAL !6 S033P REAL S033I REAL S033K REAL S034N REAL !7 S034P REAL S034I REAL S034K REAL S035N REAL !8 S035P REAL S035I REAL S035K REAL S036N REAL !9 S036P REAL S036I REAL S036K REAL S037N REAL !10 S037P REAL S037I REAL S037K REAL S038N REAL !11 S038P REAL S038I REAL S038K REAL S039N REAL !12 S039P REAL S039I REAL S039K REAL S040N REAL !13 䮤 ¯®âॡ«¥¨ï S040P REAL S040I REAL S040K REAL S041N REAL !14 S041P REAL S041I REAL S041K REAL S042N REAL !15 S042P REAL S042I REAL S042K REAL S043N REAL !16 S043P REAL S043I REAL S043K REAL S044N REAL !17 S044P REAL S044I REAL S044K REAL S045N REAL !18 S045P REAL S045I REAL S045K REAL S046N REAL !19 S046P REAL S046I REAL S046K REAL S047N REAL !20 S047P REAL S047I REAL S047K REAL S050N REAL !21 S050P REAL S050I REAL S050K REAL S060N REAL !22 S060P REAL S060I REAL S060K REAL S070N REAL !23 S070P REAL S070I REAL S070K REAL S071N REAL !24 S071P REAL S071I REAL S071K REAL S072N REAL !25 S072P REAL S072I REAL S072K REAL S073N REAL !26 S073P REAL S073I REAL S073K REAL S074N REAL !27 S074P REAL S074I REAL S074K REAL S075N REAL !28 S075P REAL S075I REAL S075K REAL S080N REAL !29 S080P REAL S080I REAL S080K REAL S090N REAL !30 S090P REAL S090I REAL S090K REAL S210N REAL !31 S210P REAL S210I REAL S210K REAL S211N REAL !32 S211P REAL S211I REAL S211K REAL S220N REAL !33 S220P REAL S220I REAL S220K REAL S221N REAL !34 S221P REAL S221I REAL S221K REAL S230N REAL !35 S230P REAL S230I REAL S230K REAL S231N REAL !36 S231P REAL S231I REAL S231K REAL S240N REAL !37 S240P REAL S240I REAL S240K REAL S241N REAL !38 S241P REAL S241I REAL S241K REAL S250N REAL !39 S250P REAL S250I REAL S250K REAL S251N REAL !40 S251P REAL S251I REAL S251K REAL S310N REAL !41 ªà ⪮áà®ç ï S310P REAL S310I REAL S310K REAL S320N REAL !42 ¤®«£®áà®ç ï S320P REAL S320I REAL S320K REAL S330N REAL !43 ªà ⪮áà®ç ï S330P REAL S330I REAL S330K REAL S340N REAL !44 ¤®«£®áà®ç ï S340P REAL S340I REAL S340K REAL S350N REAL !45 ¯®«ãç¥ë¥ S350P REAL S350I REAL S350K REAL S360N REAL !46 ¢ë¤ ë¥ S360P REAL S360I REAL S360K REAL R410N REAL !47 ¥¬ ⠪⨢ë R410P REAL R410I REAL R410K REAL R420N REAL !48 R420P REAL R420I REAL R420K REAL R430N REAL !49 R430P REAL R430I REAL R430K REAL R440N REAL !50 R440P REAL R440I REAL R440K REAL S500N REAL !51 ‡¤ ¨ï S500P REAL S500I REAL S500K REAL S501N REAL !52 ‘®®à㦥¨ï S501P REAL S501I REAL S501K REAL S502N REAL !53 ?¥à¥¤ â®çë¥ ãáâனá⢠S502P REAL S502I REAL S502K REAL S503N REAL !54 ? è¨ë ¨ ®¡®à㤮¢ ¨¥ S503P REAL S503I REAL S503K REAL S504N REAL !55 ’à ᯮàâë¥ á।á⢠S504P REAL S504I REAL S504K REAL S505N REAL !56 ¨¢¥â àì S505P REAL S505I REAL S505K REAL S506N REAL !57 ? ¡®ç¨© ᪮â S506P REAL S506I REAL S506K REAL S507N REAL !58 ?தãªâ¨¢ë© ᪮â S507P REAL S507I REAL S507K REAL S508N REAL !59 ?®£®«â¨¥ á ¦¤¥¨ï S508P REAL S508I REAL S508K REAL S509N REAL !60 S509P REAL S509I REAL S509K REAL S510N REAL !61 S510P REAL S510I REAL S510K REAL S511N REAL !62 ¯à®¨§¢®¤áâ¢¥ë¥ S511P REAL S511I REAL S511K REAL S512N REAL !63 ¥¯à®¨§¢®¤áâ¢¥ë¥ S512P REAL S512I REAL S512K REAL S520N REAL !64 S520P REAL S520I REAL S520K REAL S530N REAL !65 S530P REAL S530I REAL S530K REAL S540N REAL !66 S540P REAL S540I REAL S540K REAL S610N REAL !67 S610P REAL S610I REAL S610K REAL S620N REAL !68 S620P REAL S620I REAL S620K REAL S630N REAL !69 S630P REAL S630I REAL S630K REAL S640N REAL !70 S640P REAL S640I REAL S640K REAL S650N REAL !71 S650P REAL S650I REAL S650K REAL S710N REAL !72 S710P REAL S710I REAL S710K REAL S720N REAL !73 S720P REAL S720I REAL S720K REAL S730N REAL !74 S730P REAL S730I REAL S730K REAL S740N REAL !75 S740P REAL S740I REAL S740K REAL S750N REAL !76 S750P REAL S750I REAL S750K REAL S760N REAL !77 S760P REAL S760I REAL S760K REAL S761N REAL !78 S761P REAL S761I REAL S761K REAL S762N REAL !79 S762P REAL S762I REAL S762K REAL S763N REAL !80 S763P REAL S763I REAL S763K REAL S810N REAL !81 S810P REAL S810I REAL S810K REAL S811N REAL !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:\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()) . . .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17