| / Liren Large Software Subsidy 5
/ 05.iso / a / a087 / 4.ddi / CASCDLG.SC_ / CASCDLG.bin
|
| Unknown | 1994-02-02 | 5.0 KB |
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 66% | dexvert | AMOS Picture Packer (image/amosPicturePacker) | ext | Supported |
| 1% | dexvert | Debian floppy split (archive/debianFloppySplit) | ext | Unsupported |
| 1% | dexvert | Sound Images sound sample (audio/soundImagesSoundSample) | ext | Unsupported |
| 1% | dexvert | STarKos tune (music/sTarKosTune) | ext | Unsupported |
| 1% | dexvert | CADVANCE drawing (image/cadvanceDrawing) | ext | Unsupported |
| 1% | dexvert | DESI-III drawing (image/desiIIIDrawing) | ext | Unsupported |
| 1% | dexvert | MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable) | ext | Unsupported |
| 1% | dexvert | Alien Trilogytextures (other/alienTrilogyTextures) | ext | Unsupported |
| 1% | dexvert | APT cache data (other/aptCacheData) | ext | Unsupported |
| 1% | dexvert | CADVANCE 2D symbol (other/cadvance2DSymbol) | ext | Unsupported |
| 1% | dexvert | Cakewalk Groove (other/cakewalkGroove) | ext | Unsupported |
| 1% | dexvert | Comic Book Creator Background (other/comicBookCreatorBackground) | ext | Unsupported |
| 1% | dexvert | Comic Book Creator shape Table (other/comicBookCreatorShapeTable) | ext | Unsupported |
| 1% | dexvert | CorelTRACE configuration (other/corelTRACEConfiguration) | ext | Unsupported |
| 1% | dexvert | Dreamcast Disc (other/dreamcastDisc) | ext | Unsupported |
| 1% | dexvert | EST flat binary (other/estFlatBinary) | ext | Unsupported |
| 1% | dexvert | Finale Enigma Binary Format (other/finaleEnigmaBinaryFormat) | ext | Unsupported |
| 1% | dexvert | Sega Genesis/Megadrive/32x ROM (other/genesisROM) | ext | Unsupported |
| 1% | dexvert | Myth: The Fallen Lords game archive (other/mythTheFallenLordsGameArchive) | ext | Unsupported |
| 1% | dexvert | Sega Saturn ROM (other/segaSaturnROM) | ext | Unsupported |
| 1% | dexvert | Sound Images Sound Driver (other/soundImagesSoundDriver) | ext | Unsupported |
| 1% | dexvert | Symantec/Norton Config (other/symantecNortonConfig) | ext | Unsupported |
| 1% | dexvert | Vectrex ROM (other/vectrexROM) | ext | Unsupported |
| 1% | dexvert | Adrenaline Rush Hour game data (other/adrenalineRushHourGameData) | ext | Unsupported |
| 1% | dexvert | Bandai Tamagochi game data (other/bandaiTamagochiGameData) | ext | Unsupported |
| 1% | dexvert | BIS raP encoded format (other/bisraPEncoded) | ext | Unsupported |
| 1% | dexvert | Linksys RT31P2-NA firmware (other/linksysRT31P2NAFirmware) | ext | Unsupported |
| 1% | dexvert | Pascal Script binary (other/pascalScriptBinary) | ext | Unsupported |
| 1% | dexvert | 7th Level game data archive (other/seventhLevelGameDataArchive) | ext | Unsupported |
| 1% | dexvert | Star Wars Galaxies TRE archive (other/starWarsGalaxiesTREArchive) | ext | Unsupported |
| 1% | dexvert | Statistica MFM data (other/statisticaMFMData) | ext | Unsupported |
| 1% | dexvert | Surf's Up game data archive (other/surfsUpGameDataArchive) | ext | Unsupported |
| 1% | dexvert | TP-Link router firmware (other/tpLinkRouterFirmware) | ext | Unsupported |
| 1% | dexvert | Binary Text (image/binaryText) | fallback | Supported |
| 100% | file | Adobe Photoshop Color swatch, version 0, 155 colors; 1st RGB space (0), w 0x21, x 0, y 0, z 0 ; 2nd RGB space (0), w 0, x 0, y 0, z 0 | default (weak) | |
| 99% | file | data | default | |
| 50% | TrID | MacBinary 1 | default (weak) | |
| 49% | TrID | Adobe PhotoShop Brush | default (weak) |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 9b 00 00 00 21 | 00 00 00 00 00 00 00 00 |.......!|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 01 00 00 00 07 | 43 41 53 43 41 44 45 00 |........|CASCADE.|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 01 00 00 00 | 13 22 45 6e 68 61 6e 63 |........|."Enhanc|
|00000240| 65 64 20 44 65 6c 65 74 | 69 6f 6e 22 00 00 00 00 |ed Delet|ion"....|
|00000250| 00 00 00 00 00 01 00 00 | 02 22 23 54 52 41 4e 20 |........|."#TRAN |
|00000260| 53 4e 49 50 50 45 54 20 | 4f 4e 4c 59 0d 0a 23 53 |SNIPPET |ONLY..#S|
|00000270| 45 43 54 49 4f 4e 20 31 | 0d 0a 50 41 52 41 4d 45 |ECTION 1|..PARAME|
|00000280| 54 45 52 53 20 74 68 69 | 73 44 42 46 0d 0a 0d 0a |TERS thi|sDBF....|
|00000290| 2a 20 47 65 74 20 74 68 | 65 20 73 74 65 6d 20 6e |* Get th|e stem n|
|000002a0| 61 6d 65 73 20 6f 66 20 | 74 68 65 20 70 61 72 65 |ames of |the pare|
|000002b0| 6e 74 20 61 6e 64 20 63 | 68 69 6c 64 20 64 61 74 |nt and c|hild dat|
|000002c0| 61 62 61 73 65 73 2e 20 | 20 54 68 65 73 65 20 61 |abases. | These a|
|000002d0| 72 65 20 75 73 65 64 0d | 0a 2a 20 69 6e 20 74 68 |re used.|.* in th|
|000002e0| 65 20 70 72 6f 6d 70 74 | 20 66 6f 72 20 63 61 73 |e prompt| for cas|
|000002f0| 63 61 64 69 6e 67 20 64 | 65 6c 65 74 65 73 2e 0d |cading d|eletes..|
|00000300| 0a 0d 0a 2a 20 54 61 6b | 65 20 70 61 72 65 6e 74 |...* Tak|e parent|
|00000310| 20 6e 61 6d 65 20 66 72 | 6f 6d 20 77 68 61 74 65 | name fr|om whate|
|00000320| 76 65 72 20 68 61 73 20 | 62 65 65 6e 20 73 65 6c |ver has |been sel|
|00000330| 65 63 74 65 64 20 69 6e | 20 74 68 65 20 70 61 72 |ected in| the par|
|00000340| 65 6e 74 20 66 69 65 6c | 64 20 0d 0a 2a 20 70 6f |ent fiel|d ..* po|
|00000350| 70 75 70 20 73 6f 20 66 | 61 72 2e 0d 0a 6d 2e 63 |pup so f|ar...m.c|
|00000360| 5f 70 61 72 65 6e 74 20 | 3d 20 22 70 61 72 65 6e |_parent |= "paren|
|00000370| 74 22 0d 0a 49 46 20 41 | 54 28 27 28 27 2c 6d 2e |t"..IF A|T('(',m.|
|00000380| 70 61 72 65 6e 74 66 6c | 64 29 20 3e 20 30 0d 0a |parentfl|d) > 0..|
|00000390| 20 20 20 6d 2e 63 5f 70 | 61 72 65 6e 74 20 3d 20 | m.c_p|arent = |
|000003a0| 41 4c 4c 54 52 49 4d 28 | 53 55 42 53 54 52 28 6d |ALLTRIM(|SUBSTR(m|
|000003b0| 2e 70 61 72 65 6e 74 66 | 6c 64 2c 31 2c 4c 45 4e |.parentf|ld,1,LEN|
|000003c0| 28 54 52 49 4d 28 6d 2e | 70 61 72 65 6e 74 66 6c |(TRIM(m.|parentfl|
|000003d0| 64 29 29 2d 33 29 29 0d | 0a 20 20 20 6d 2e 63 5f |d))-3)).|. m.c_|
|000003e0| 70 61 72 65 6e 74 20 3d | 20 50 72 6f 70 65 72 28 |parent =| Proper(|
|000003f0| 6a 75 73 74 73 74 65 6d | 28 6d 2e 63 5f 70 61 72 |juststem|(m.c_par|
|00000400| 65 6e 74 29 29 0d 0a 45 | 4e 44 49 46 0d 0a 6d 2e |ent))..E|NDIF..m.|
|00000410| 63 5f 63 68 69 6c 64 20 | 20 3d 20 50 72 6f 70 65 |c_child | = Prope|
|00000420| 72 28 6a 75 73 74 73 74 | 65 6d 28 6d 2e 63 68 69 |r(justst|em(m.chi|
|00000430| 6c 64 64 62 66 29 29 0d | 0a 0d 0a 6d 2e 63 61 73 |lddbf)).|...m.cas|
|00000440| 63 64 65 6c 20 3d 20 28 | 64 62 66 6c 69 73 74 5b |cdel = (|dbflist[|
|00000450| 6d 2e 64 62 66 73 65 6c | 65 63 2c 6d 2e 63 61 73 |m.dbfsel|ec,m.cas|
|00000460| 63 61 64 65 6e 75 6d 5d | 20 3d 3d 20 27 59 27 29 |cadenum]| == 'Y')|
|00000470| 0d 0a 23 53 45 43 54 49 | 4f 4e 20 32 00 00 00 00 |..#SECTI|ON 2....|
|00000480| 00 00 00 00 00 00 01 00 | 00 00 07 6f 6b 63 61 6e |........|...okcan|
|00000490| 63 6c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |cl......|........|
|000004a0| 00 00 00 00 00 00 00 01 | 00 00 00 18 22 40 2a 48 |........|...."@*H|
|000004b0| 54 20 5c 21 5c 3c 4f 4b | 3b 5c 3f 5c 3c 43 61 6e |T \!\<OK|;\?\<Can|
|000004c0| 63 65 6c 22 00 00 00 00 | 01 00 00 00 95 49 46 20 |cel"....|.....IF |
|000004d0| 6f 6b 63 61 6e 63 6c 20 | 3d 20 31 0d 0a 20 20 20 |okcancl |= 1.. |
|000004e0| 49 46 20 6d 2e 63 61 73 | 63 64 65 6c 0d 0a 20 20 |IF m.cas|cdel.. |
|000004f0| 20 20 20 20 64 62 66 6c | 69 73 74 5b 6d 2e 64 62 | dbfl|ist[m.db|
|00000500| 66 73 65 6c 65 63 2c 6d | 2e 63 61 73 63 61 64 65 |fselec,m|.cascade|
|00000510| 6e 75 6d 5d 20 3d 20 27 | 59 27 0d 0a 20 20 20 45 |num] = '|Y'.. E|
|00000520| 4c 53 45 0d 0a 20 20 20 | 20 20 20 64 62 66 6c 69 |LSE.. | dbfli|
|00000530| 73 74 5b 6d 2e 64 62 66 | 73 65 6c 65 63 2c 6d 2e |st[m.dbf|selec,m.|
|00000540| 63 61 73 63 61 64 65 6e | 75 6d 5d 20 3d 20 27 4e |cascaden|um] = 'N|
|00000550| 27 0d 0a 20 20 20 45 4e | 44 49 46 0d 0a 45 4e 44 |'.. EN|DIF..END|
|00000560| 49 46 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |IF......|........|
|00000570| 00 04 22 4f 4b 22 00 00 | 00 00 00 00 00 00 00 00 |.."OK"..|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000590| 00 00 07 63 61 73 63 64 | 65 6c 00 00 00 00 00 00 |...cascd|el......|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000005b0| 00 00 00 2b 22 40 2a 43 | 20 41 75 74 6f 6d 61 74 |...+"@*C| Automat|
|000005c0| 69 63 61 6c 6c 79 20 44 | 65 6c 65 74 65 20 26 63 |ically D|elete &c|
|000005d0| 5f 63 68 69 6c 64 20 52 | 65 63 6f 72 64 73 22 00 |_child R|ecords".|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 01 00 00 00 25 22 57 | 68 65 6e 20 61 20 26 63 |.....%"W|hen a &c|
|00000600| 5f 70 61 72 65 6e 74 20 | 52 65 63 6f 72 64 20 69 |_parent |Record i|
|00000610| 73 20 44 65 6c 65 74 65 | 64 3f 22 00 00 00 00 00 |s Delete|d?".....|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 01 00 00 00 07 | 43 41 53 43 41 44 45 00 |........|CASCADE.|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 01 00 00 00 | 13 22 45 6e 68 61 6e 63 |........|."Enhanc|
|00000660| 65 64 20 44 65 6c 65 74 | 69 6f 6e 22 00 00 00 00 |ed Delet|ion"....|
|00000670| 00 00 00 00 00 01 00 00 | 02 22 23 54 52 41 4e 20 |........|."#TRAN |
|00000680| 53 4e 49 50 50 45 54 20 | 4f 4e 4c 59 0d 0a 23 53 |SNIPPET |ONLY..#S|
|00000690| 45 43 54 49 4f 4e 20 31 | 0d 0a 50 41 52 41 4d 45 |ECTION 1|..PARAME|
|000006a0| 54 45 52 53 20 74 68 69 | 73 44 42 46 0d 0a 0d 0a |TERS thi|sDBF....|
|000006b0| 2a 20 47 65 74 20 74 68 | 65 20 73 74 65 6d 20 6e |* Get th|e stem n|
|000006c0| 61 6d 65 73 20 6f 66 20 | 74 68 65 20 70 61 72 65 |ames of |the pare|
|000006d0| 6e 74 20 61 6e 64 20 63 | 68 69 6c 64 20 64 61 74 |nt and c|hild dat|
|000006e0| 61 62 61 73 65 73 2e 20 | 20 54 68 65 73 65 20 61 |abases. | These a|
|000006f0| 72 65 20 75 73 65 64 0d | 0a 2a 20 69 6e 20 74 68 |re used.|.* in th|
|00000700| 65 20 70 72 6f 6d 70 74 | 20 66 6f 72 20 63 61 73 |e prompt| for cas|
|00000710| 63 61 64 69 6e 67 20 64 | 65 6c 65 74 65 73 2e 0d |cading d|eletes..|
|00000720| 0a 0d 0a 2a 20 54 61 6b | 65 20 70 61 72 65 6e 74 |...* Tak|e parent|
|00000730| 20 6e 61 6d 65 20 66 72 | 6f 6d 20 77 68 61 74 65 | name fr|om whate|
|00000740| 76 65 72 20 68 61 73 20 | 62 65 65 6e 20 73 65 6c |ver has |been sel|
|00000750| 65 63 74 65 64 20 69 6e | 20 74 68 65 20 70 61 72 |ected in| the par|
|00000760| 65 6e 74 20 66 69 65 6c | 64 20 0d 0a 2a 20 70 6f |ent fiel|d ..* po|
|00000770| 70 75 70 20 73 6f 20 66 | 61 72 2e 0d 0a 6d 2e 63 |pup so f|ar...m.c|
|00000780| 5f 70 61 72 65 6e 74 20 | 3d 20 22 70 61 72 65 6e |_parent |= "paren|
|00000790| 74 22 0d 0a 49 46 20 41 | 54 28 27 28 27 2c 6d 2e |t"..IF A|T('(',m.|
|000007a0| 70 61 72 65 6e 74 66 6c | 64 29 20 3e 20 30 0d 0a |parentfl|d) > 0..|
|000007b0| 20 20 20 6d 2e 63 5f 70 | 61 72 65 6e 74 20 3d 20 | m.c_p|arent = |
|000007c0| 41 4c 4c 54 52 49 4d 28 | 53 55 42 53 54 52 28 6d |ALLTRIM(|SUBSTR(m|
|000007d0| 2e 70 61 72 65 6e 74 66 | 6c 64 2c 31 2c 4c 45 4e |.parentf|ld,1,LEN|
|000007e0| 28 54 52 49 4d 28 6d 2e | 70 61 72 65 6e 74 66 6c |(TRIM(m.|parentfl|
|000007f0| 64 29 29 2d 33 29 29 0d | 0a 20 20 20 6d 2e 63 5f |d))-3)).|. m.c_|
|00000800| 70 61 72 65 6e 74 20 3d | 20 50 72 6f 70 65 72 28 |parent =| Proper(|
|00000810| 6a 75 73 74 73 74 65 6d | 28 6d 2e 63 5f 70 61 72 |juststem|(m.c_par|
|00000820| 65 6e 74 29 29 0d 0a 45 | 4e 44 49 46 0d 0a 6d 2e |ent))..E|NDIF..m.|
|00000830| 63 5f 63 68 69 6c 64 20 | 20 3d 20 50 72 6f 70 65 |c_child | = Prope|
|00000840| 72 28 6a 75 73 74 73 74 | 65 6d 28 6d 2e 63 68 69 |r(justst|em(m.chi|
|00000850| 6c 64 64 62 66 29 29 0d | 0a 0d 0a 6d 2e 63 61 73 |lddbf)).|...m.cas|
|00000860| 63 64 65 6c 20 3d 20 28 | 64 62 66 6c 69 73 74 5b |cdel = (|dbflist[|
|00000870| 6d 2e 64 62 66 73 65 6c | 65 63 2c 6d 2e 63 61 73 |m.dbfsel|ec,m.cas|
|00000880| 63 61 64 65 6e 75 6d 5d | 20 3d 3d 20 27 59 27 29 |cadenum]| == 'Y')|
|00000890| 0d 0a 23 53 45 43 54 49 | 4f 4e 20 32 00 00 00 00 |..#SECTI|ON 2....|
|000008a0| 00 00 00 00 00 00 01 00 | 00 00 07 6f 6b 63 61 6e |........|...okcan|
|000008b0| 63 6c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |cl......|........|
|000008c0| 00 00 00 00 00 00 00 01 | 00 00 00 18 22 40 2a 48 |........|...."@*H|
|000008d0| 54 20 5c 21 5c 3c 4f 4b | 3b 5c 3f 5c 3c 43 61 6e |T \!\<OK|;\?\<Can|
|000008e0| 63 65 6c 22 00 00 00 00 | 01 00 00 00 95 49 46 20 |cel"....|.....IF |
|000008f0| 6f 6b 63 61 6e 63 6c 20 | 3d 20 31 0d 0a 20 20 20 |okcancl |= 1.. |
|00000900| 49 46 20 6d 2e 63 61 73 | 63 64 65 6c 0d 0a 20 20 |IF m.cas|cdel.. |
|00000910| 20 20 20 20 64 62 66 6c | 69 73 74 5b 6d 2e 64 62 | dbfl|ist[m.db|
|00000920| 66 73 65 6c 65 63 2c 6d | 2e 63 61 73 63 61 64 65 |fselec,m|.cascade|
|00000930| 6e 75 6d 5d 20 3d 20 27 | 59 27 0d 0a 20 20 20 45 |num] = '|Y'.. E|
|00000940| 4c 53 45 0d 0a 20 20 20 | 20 20 20 64 62 66 6c 69 |LSE.. | dbfli|
|00000950| 73 74 5b 6d 2e 64 62 66 | 73 65 6c 65 63 2c 6d 2e |st[m.dbf|selec,m.|
|00000960| 63 61 73 63 61 64 65 6e | 75 6d 5d 20 3d 20 27 4e |cascaden|um] = 'N|
|00000970| 27 0d 0a 20 20 20 45 4e | 44 49 46 0d 0a 45 4e 44 |'.. EN|DIF..END|
|00000980| 49 46 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |IF......|........|
|00000990| 00 04 22 4f 4b 22 00 00 | 00 00 00 00 00 00 00 00 |.."OK"..|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000009b0| 00 00 07 63 61 73 63 64 | 65 6c 00 00 00 00 00 00 |...cascd|el......|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000009d0| 00 00 00 2b 22 40 2a 43 | 20 41 75 74 6f 6d 61 74 |...+"@*C| Automat|
|000009e0| 69 63 61 6c 6c 79 20 44 | 65 6c 65 74 65 20 26 63 |ically D|elete &c|
|000009f0| 5f 63 68 69 6c 64 20 52 | 65 63 6f 72 64 73 22 00 |_child R|ecords".|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a10| 00 01 00 00 00 25 22 57 | 68 65 6e 20 61 20 26 63 |.....%"W|hen a &c|
|00000a20| 5f 70 61 72 65 6e 74 20 | 52 65 63 6f 72 64 20 69 |_parent |Record i|
|00000a30| 73 20 44 65 6c 65 74 65 | 64 3f 22 00 00 00 00 00 |s Delete|d?".....|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 01 00 00 00 07 | 43 41 53 43 41 44 45 00 |........|CASCADE.|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 01 00 00 00 | 13 22 45 6e 68 61 6e 63 |........|."Enhanc|
|00000a80| 65 64 20 44 65 6c 65 74 | 69 6f 6e 22 00 00 00 00 |ed Delet|ion"....|
|00000a90| 00 00 00 00 00 01 00 00 | 00 06 47 65 6e 65 76 61 |........|..Geneva|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 01 00 | 00 02 22 23 54 52 41 4e |........|.."#TRAN|
|00000ac0| 20 53 4e 49 50 50 45 54 | 20 4f 4e 4c 59 0d 0a 23 | SNIPPET| ONLY..#|
|00000ad0| 53 45 43 54 49 4f 4e 20 | 31 0d 0a 50 41 52 41 4d |SECTION |1..PARAM|
|00000ae0| 45 54 45 52 53 20 74 68 | 69 73 44 42 46 0d 0a 0d |ETERS th|isDBF...|
|00000af0| 0a 2a 20 47 65 74 20 74 | 68 65 20 73 74 65 6d 20 |.* Get t|he stem |
|00000b00| 6e 61 6d 65 73 20 6f 66 | 20 74 68 65 20 70 61 72 |names of| the par|
|00000b10| 65 6e 74 20 61 6e 64 20 | 63 68 69 6c 64 20 64 61 |ent and |child da|
|00000b20| 74 61 62 61 73 65 73 2e | 20 20 54 68 65 73 65 20 |tabases.| These |
|00000b30| 61 72 65 20 75 73 65 64 | 0d 0a 2a 20 69 6e 20 74 |are used|..* in t|
|00000b40| 68 65 20 70 72 6f 6d 70 | 74 20 66 6f 72 20 63 61 |he promp|t for ca|
|00000b50| 73 63 61 64 69 6e 67 20 | 64 65 6c 65 74 65 73 2e |scading |deletes.|
|00000b60| 0d 0a 0d 0a 2a 20 54 61 | 6b 65 20 70 61 72 65 6e |....* Ta|ke paren|
|00000b70| 74 20 6e 61 6d 65 20 66 | 72 6f 6d 20 77 68 61 74 |t name f|rom what|
|00000b80| 65 76 65 72 20 68 61 73 | 20 62 65 65 6e 20 73 65 |ever has| been se|
|00000b90| 6c 65 63 74 65 64 20 69 | 6e 20 74 68 65 20 70 61 |lected i|n the pa|
|00000ba0| 72 65 6e 74 20 66 69 65 | 6c 64 20 0d 0a 2a 20 70 |rent fie|ld ..* p|
|00000bb0| 6f 70 75 70 20 73 6f 20 | 66 61 72 2e 0d 0a 6d 2e |opup so |far...m.|
|00000bc0| 63 5f 70 61 72 65 6e 74 | 20 3d 20 22 70 61 72 65 |c_parent| = "pare|
|00000bd0| 6e 74 22 0d 0a 49 46 20 | 41 54 28 27 28 27 2c 6d |nt"..IF |AT('(',m|
|00000be0| 2e 70 61 72 65 6e 74 66 | 6c 64 29 20 3e 20 30 0d |.parentf|ld) > 0.|
|00000bf0| 0a 20 20 20 6d 2e 63 5f | 70 61 72 65 6e 74 20 3d |. m.c_|parent =|
|00000c00| 20 41 4c 4c 54 52 49 4d | 28 53 55 42 53 54 52 28 | ALLTRIM|(SUBSTR(|
|00000c10| 6d 2e 70 61 72 65 6e 74 | 66 6c 64 2c 31 2c 4c 45 |m.parent|fld,1,LE|
|00000c20| 4e 28 54 52 49 4d 28 6d | 2e 70 61 72 65 6e 74 66 |N(TRIM(m|.parentf|
|00000c30| 6c 64 29 29 2d 33 29 29 | 0d 0a 20 20 20 6d 2e 63 |ld))-3))|.. m.c|
|00000c40| 5f 70 61 72 65 6e 74 20 | 3d 20 50 72 6f 70 65 72 |_parent |= Proper|
|00000c50| 28 6a 75 73 74 73 74 65 | 6d 28 6d 2e 63 5f 70 61 |(justste|m(m.c_pa|
|00000c60| 72 65 6e 74 29 29 0d 0a | 45 4e 44 49 46 0d 0a 6d |rent))..|ENDIF..m|
|00000c70| 2e 63 5f 63 68 69 6c 64 | 20 20 3d 20 50 72 6f 70 |.c_child| = Prop|
|00000c80| 65 72 28 6a 75 73 74 73 | 74 65 6d 28 6d 2e 63 68 |er(justs|tem(m.ch|
|00000c90| 69 6c 64 64 62 66 29 29 | 0d 0a 0d 0a 6d 2e 63 61 |ilddbf))|....m.ca|
|00000ca0| 73 63 64 65 6c 20 3d 20 | 28 64 62 66 6c 69 73 74 |scdel = |(dbflist|
|00000cb0| 5b 6d 2e 64 62 66 73 65 | 6c 65 63 2c 6d 2e 63 61 |[m.dbfse|lec,m.ca|
|00000cc0| 73 63 61 64 65 6e 75 6d | 5d 20 3d 3d 20 27 59 27 |scadenum|] == 'Y'|
|00000cd0| 29 0d 0a 23 53 45 43 54 | 49 4f 4e 20 32 00 00 00 |)..#SECT|ION 2...|
|00000ce0| 00 00 00 00 00 00 00 01 | 00 00 00 07 6f 6b 63 61 |........|....okca|
|00000cf0| 6e 63 6c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ncl.....|........|
|00000d00| 00 00 00 00 00 00 00 00 | 01 00 00 00 19 22 40 2a |........|....."@*|
|00000d10| 48 54 33 20 5c 21 5c 3c | 4f 4b 3b 5c 3f 5c 3c 43 |HT3 \!\<|OK;\?\<C|
|00000d20| 61 6e 63 65 6c 22 00 00 | 00 01 00 00 00 06 47 65 |ancel"..|......Ge|
|00000d30| 6e 65 76 61 00 00 00 00 | 00 00 00 00 00 00 00 00 |neva....|........|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 95 49 |........|.......I|
|00000d50| 46 20 6f 6b 63 61 6e 63 | 6c 20 3d 20 31 0d 0a 20 |F okcanc|l = 1.. |
|00000d60| 20 20 49 46 20 6d 2e 63 | 61 73 63 64 65 6c 0d 0a | IF m.c|ascdel..|
|00000d70| 20 20 20 20 20 20 64 62 | 66 6c 69 73 74 5b 6d 2e | db|flist[m.|
|00000d80| 64 62 66 73 65 6c 65 63 | 2c 6d 2e 63 61 73 63 61 |dbfselec|,m.casca|
|00000d90| 64 65 6e 75 6d 5d 20 3d | 20 27 59 27 0d 0a 20 20 |denum] =| 'Y'.. |
|00000da0| 20 45 4c 53 45 0d 0a 20 | 20 20 20 20 20 64 62 66 | ELSE.. | dbf|
|00000db0| 6c 69 73 74 5b 6d 2e 64 | 62 66 73 65 6c 65 63 2c |list[m.d|bfselec,|
|00000dc0| 6d 2e 63 61 73 63 61 64 | 65 6e 75 6d 5d 20 3d 20 |m.cascad|enum] = |
|00000dd0| 27 4e 27 0d 0a 20 20 20 | 45 4e 44 49 46 0d 0a 45 |'N'.. |ENDIF..E|
|00000de0| 4e 44 49 46 00 00 00 00 | 00 00 00 00 00 00 00 01 |NDIF....|........|
|00000df0| 00 00 00 04 22 4f 4b 22 | 20 20 20 45 4e 44 43 41 |...."OK"| ENDCA|
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 01 00 00 00 07 63 61 73 | 63 64 65 6c 00 00 00 00 |.....cas|cdel....|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 01 00 00 00 2c 22 40 | 2a 43 33 20 41 75 74 6f |.....,"@|*C3 Auto|
|00000e40| 6d 61 74 69 63 61 6c 6c | 79 20 44 65 6c 65 74 65 |maticall|y Delete|
|00000e50| 20 26 63 5f 63 68 69 6c | 64 20 52 65 63 6f 72 64 | &c_chil|d Record|
|00000e60| 73 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s"......|........|
|00000e70| 00 00 00 01 00 00 00 06 | 47 65 6e 65 76 61 00 00 |........|Geneva..|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e90| 00 00 00 00 01 00 00 00 | 25 22 57 68 65 6e 20 61 |........|%"When a|
|00000ea0| 20 26 63 5f 70 61 72 65 | 6e 74 20 52 65 63 6f 72 | &c_pare|nt Recor|
|00000eb0| 64 20 69 73 20 44 65 6c | 65 74 65 64 3f 22 00 00 |d is Del|eted?"..|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 01 00 | 00 00 06 47 65 6e 65 76 |........|...Genev|
|00000ee0| 61 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |a.......|........|
|00000ef0| 00 00 00 00 00 00 00 01 | 00 00 00 06 47 65 6e 65 |........|....Gene|
|00000f00| 76 61 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |va......|........|
|00000f10| 00 00 00 00 00 00 00 00 | 01 00 00 00 06 47 65 6e |........|.....Gen|
|00000f20| 65 76 61 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |eva.....|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 07 43 41 |........|......CA|
|00000f40| 53 43 41 44 45 00 00 00 | 00 00 00 00 00 00 00 00 |SCADE...|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 13 22 |........|......."|
|00000f60| 45 6e 68 61 6e 63 65 64 | 20 44 65 6c 65 74 69 6f |Enhanced| Deletio|
|00000f70| 6e 22 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0d |n"......|........|
|00000f80| 4d 53 20 53 61 6e 73 20 | 53 65 72 69 66 00 00 00 |MS Sans |Serif...|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 02 |........|........|
|00000fa0| 22 23 54 52 41 4e 20 53 | 4e 49 50 50 45 54 20 4f |"#TRAN S|NIPPET O|
|00000fb0| 4e 4c 59 0d 0a 23 53 45 | 43 54 49 4f 4e 20 31 0d |NLY..#SE|CTION 1.|
|00000fc0| 0a 50 41 52 41 4d 45 54 | 45 52 53 20 74 68 69 73 |.PARAMET|ERS this|
|00000fd0| 44 42 46 0d 0a 0d 0a 2a | 20 47 65 74 20 74 68 65 |DBF....*| Get the|
|00000fe0| 20 73 74 65 6d 20 6e 61 | 6d 65 73 20 6f 66 20 74 | stem na|mes of t|
|00000ff0| 68 65 20 70 61 72 65 6e | 74 20 61 6e 64 20 63 68 |he paren|t and ch|
|00001000| 69 6c 64 20 64 61 74 61 | 62 61 73 65 73 2e 20 20 |ild data|bases. |
|00001010| 54 68 65 73 65 20 61 72 | 65 20 75 73 65 64 0d 0a |These ar|e used..|
|00001020| 2a 20 69 6e 20 74 68 65 | 20 70 72 6f 6d 70 74 20 |* in the| prompt |
|00001030| 66 6f 72 20 63 61 73 63 | 61 64 69 6e 67 20 64 65 |for casc|ading de|
|00001040| 6c 65 74 65 73 2e 0d 0a | 0d 0a 2a 20 54 61 6b 65 |letes...|..* Take|
|00001050| 20 70 61 72 65 6e 74 20 | 6e 61 6d 65 20 66 72 6f | parent |name fro|
|00001060| 6d 20 77 68 61 74 65 76 | 65 72 20 68 61 73 20 62 |m whatev|er has b|
|00001070| 65 65 6e 20 73 65 6c 65 | 63 74 65 64 20 69 6e 20 |een sele|cted in |
|00001080| 74 68 65 20 70 61 72 65 | 6e 74 20 66 69 65 6c 64 |the pare|nt field|
|00001090| 20 0d 0a 2a 20 70 6f 70 | 75 70 20 73 6f 20 66 61 | ..* pop|up so fa|
|000010a0| 72 2e 0d 0a 6d 2e 63 5f | 70 61 72 65 6e 74 20 3d |r...m.c_|parent =|
|000010b0| 20 22 70 61 72 65 6e 74 | 22 0d 0a 49 46 20 41 54 | "parent|"..IF AT|
|000010c0| 28 27 28 27 2c 6d 2e 70 | 61 72 65 6e 74 66 6c 64 |('(',m.p|arentfld|
|000010d0| 29 20 3e 20 30 0d 0a 20 | 20 20 6d 2e 63 5f 70 61 |) > 0.. | m.c_pa|
|000010e0| 72 65 6e 74 20 3d 20 41 | 4c 4c 54 52 49 4d 28 53 |rent = A|LLTRIM(S|
|000010f0| 55 42 53 54 52 28 6d 2e | 70 61 72 65 6e 74 66 6c |UBSTR(m.|parentfl|
|00001100| 64 2c 31 2c 4c 45 4e 28 | 54 52 49 4d 28 6d 2e 70 |d,1,LEN(|TRIM(m.p|
|00001110| 61 72 65 6e 74 66 6c 64 | 29 29 2d 33 29 29 0d 0a |arentfld|))-3))..|
|00001120| 20 20 20 6d 2e 63 5f 70 | 61 72 65 6e 74 20 3d 20 | m.c_p|arent = |
|00001130| 50 72 6f 70 65 72 28 6a | 75 73 74 73 74 65 6d 28 |Proper(j|uststem(|
|00001140| 6d 2e 63 5f 70 61 72 65 | 6e 74 29 29 0d 0a 45 4e |m.c_pare|nt))..EN|
|00001150| 44 49 46 0d 0a 6d 2e 63 | 5f 63 68 69 6c 64 20 20 |DIF..m.c|_child |
|00001160| 3d 20 50 72 6f 70 65 72 | 28 6a 75 73 74 73 74 65 |= Proper|(justste|
|00001170| 6d 28 6d 2e 63 68 69 6c | 64 64 62 66 29 29 0d 0a |m(m.chil|ddbf))..|
|00001180| 0d 0a 6d 2e 63 61 73 63 | 64 65 6c 20 3d 20 28 64 |..m.casc|del = (d|
|00001190| 62 66 6c 69 73 74 5b 6d | 2e 64 62 66 73 65 6c 65 |bflist[m|.dbfsele|
|000011a0| 63 2c 6d 2e 63 61 73 63 | 61 64 65 6e 75 6d 5d 20 |c,m.casc|adenum] |
|000011b0| 3d 3d 20 27 59 27 29 0d | 0a 23 53 45 43 54 49 4f |== 'Y').|.#SECTIO|
|000011c0| 4e 20 32 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |N 2.....|........|
|000011d0| 00 07 6f 6b 63 61 6e 63 | 6c 00 00 00 00 00 00 00 |..okcanc|l.......|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000011f0| 00 00 18 22 40 2a 48 54 | 20 5c 21 5c 3c 4f 4b 3b |..."@*HT| \!\<OK;|
|00001200| 5c 3f 5c 3c 43 61 6e 63 | 65 6c 22 00 00 00 00 01 |\?\<Canc|el".....|
|00001210| 00 00 00 0d 4d 53 20 53 | 61 6e 73 20 53 65 72 69 |....MS S|ans Seri|
|00001220| 66 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f.......|........|
|00001230| 01 00 00 00 95 49 46 20 | 6f 6b 63 61 6e 63 6c 20 |.....IF |okcancl |
|00001240| 3d 20 31 0d 0a 20 20 20 | 49 46 20 6d 2e 63 61 73 |= 1.. |IF m.cas|
|00001250| 63 64 65 6c 0d 0a 20 20 | 20 20 20 20 64 62 66 6c |cdel.. | dbfl|
|00001260| 69 73 74 5b 6d 2e 64 62 | 66 73 65 6c 65 63 2c 6d |ist[m.db|fselec,m|
|00001270| 2e 63 61 73 63 61 64 65 | 6e 75 6d 5d 20 3d 20 27 |.cascade|num] = '|
|00001280| 59 27 0d 0a 20 20 20 45 | 4c 53 45 0d 0a 20 20 20 |Y'.. E|LSE.. |
|00001290| 20 20 20 64 62 66 6c 69 | 73 74 5b 6d 2e 64 62 66 | dbfli|st[m.dbf|
|000012a0| 73 65 6c 65 63 2c 6d 2e | 63 61 73 63 61 64 65 6e |selec,m.|cascaden|
|000012b0| 75 6d 5d 20 3d 20 27 4e | 27 0d 0a 20 20 20 45 4e |um] = 'N|'.. EN|
|000012c0| 44 49 46 0d 0a 45 4e 44 | 49 46 00 00 00 00 00 00 |DIF..END|IF......|
|000012d0| 00 00 00 00 00 01 00 00 | 00 04 22 4f 4b 22 00 00 |........|.."OK"..|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 01 00 | 00 00 07 63 61 73 63 64 |........|...cascd|
|00001300| 65 6c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |el......|........|
|00001310| 00 00 00 00 00 00 00 01 | 00 00 00 2b 22 40 2a 43 |........|...+"@*C|
|00001320| 20 41 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 44 | Automat|ically D|
|00001330| 65 6c 65 74 65 20 26 63 | 5f 63 68 69 6c 64 20 52 |elete &c|_child R|
|00001340| 65 63 6f 72 64 73 22 00 | 00 00 00 00 00 00 00 00 |ecords".|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0d 4d 53 |........|......MS|
|00001360| 20 53 61 6e 73 20 53 65 | 72 69 66 00 00 00 00 00 | Sans Se|rif.....|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 25 22 |........|......%"|
|00001380| 57 68 65 6e 20 61 20 26 | 63 5f 70 61 72 65 6e 74 |When a &|c_parent|
|00001390| 20 52 65 63 6f 72 64 20 | 69 73 20 44 65 6c 65 74 | Record |is Delet|
|000013a0| 65 64 3f 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |ed?"....|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000013c0| 0d 4d 53 20 53 61 6e 73 | 20 53 65 72 69 66 00 00 |.MS Sans| Serif..|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000013e0| 00 0d 4d 53 20 53 61 6e | 73 20 53 65 72 69 66 |..MS San|s Serif |
+--------+-------------------------+-------------------------+--------+--------+