home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OPNOS2.ZIP / KLTLSE.ARS < prev    next >
Text File  |  1993-02-23  |  60KB  |  401 lines
  1. 1Data Entry                Main            regular  read/write                                                                                      
  2. 31ISQH    read/writeyes                                                                                                                             
  3. 32SQH     read/writeyes                                                                                                                             
  4. 4QBEtitleSelect query                                                                                                                               
  5. 4Commit  Commit                                                                                                                                     
  6. 4DelMsg  Delete the record                                                                                                                          
  7. 4Exist   Record exist                                                                                                                               
  8. 4Exit    Quit                                                                                                                                       
  9. 4OrdTitleOrder by                                                                                                                                   
  10. 4Cursor  Cursor                                                                                                                                     
  11. 4QrErr   SQL Communication problem                                                                                                                  
  12. 4First   First record                                                                                                                               
  13. 4Last    Last record                                                                                                                                
  14. 4NoRec   No  records                                                                                                                                
  15. 4NoCur   No current record to delete/update                                                                                                         
  16. 4WriteErrFile Access Error                                                                                                                          
  17. 5Order   Order by       Char   Lf-T-Rgh 26  1  ;                                                                                                    
  18. 5RecCunt RecCunt        Long   Positive  6  10;                                                                                                     
  19. 5Date0   Date 0         Date   American 10  101/01/0001;                                                                                            
  20. 5Zero    zero           Long   Positive1  1  0;                                                                                                     
  21. 5One     One            Long   Positive1  1  1;                                                                                                     
  22. 5Two     two            Long   Positive 1 1  2;                                                                                                     
  23. 5Title   title          Char   Lf-T-Rgh20 1  SQL data entry;                                                                                        
  24. 5BLANK   blank          Char   Lf-T-Rgh1  1   ;                                                                                                    .
  25. 5Dummy   dummy          Char   Lf-T-Rgh10 1  1;                                                                                                    .
  26. 5Max                    Long   Positive 10  132767;                                                                                                 
  27. 5Record                 Long   Positive 10  10;                                                                                                     
  28. 5LastRec                Long   Positive 10  10;                                                                                                     
  29. 5ConList ConList        Char   Lf-T-Rgh2  6  >=;<=;=;<>;>;<;                                                                                       .
  30. 5OpList  OpList         Char   Lf-T-Rgh3    2AND;OR;                                                                                               .
  31. 5OK                     IntegerPositive  1  10;                                                                                                     
  32. 5OKtitle                Char   Lf-T-Rgh  4  1O.K.;                                                                                                  
  33. 5CANCEL                 IntegerPositive  1  10;                                                                                                     
  34. 5CAtitle                Char   Lf-T-Rgh  8  1Esc=Quit;                                                                                              
  35. 5Long22                 Long   Positive  21  22;                                                                                                    
  36. 5SqErr                  Long   Positive  6  10;                                                                                                     
  37. 5TempFileTempFile       Char   Lf-T-Rgh  8  1Dummy;                                                                                                 
  38. 5Next                   Char   Lf-T-Rgh  4  1Next;                                                                                                  
  39. 5First                  Char   Lf-T-Rgh  4  1Top;                                                                                                   
  40. 5Last                   Char   Lf-T-Rgh  4  1Last;                                                                                                  
  41. 5Prev                   Char   Lf-T-Rgh  4  1Prev;                                                                                                  
  42. 5Add                    Char   Lf-T-Rgh  4  1Add;                                                                                                   
  43. 5Upd                    Char   Lf-T-Rgh  4  1Upd;                                                                                                   
  44. 5Del                    Char   Lf-T-Rgh  4  1Del;                                                                                                   
  45. 5Query                  Char   Lf-T-Rgh  4  1Qbe;                                                                                                   
  46. 5Quit                   Char   Lf-T-Rgh  4  1Quit;                                                                                                  
  47. 5Action  Action         Char   Lf-T-Rgh  4  1Qbe;                                                                                                   
  48. 5ActLst  ActLst         Char   Lf-T-Rgh  4  9Add;Upd;Del;Next;Prev;Top;Last;Qbe;Quit;                                                               
  49. 5Menu    Menu           Char   Lf-T-Rgh 20  1Menu;                                                                                                  
  50. 5SysDate SysDate        Date   American 10  100/00/0000;                                                                                            
  51. 5SysTime SysTime        Time   Time      8  100:00:00;                                                                                              
  52. 5Cursor  Cursor         Char   Lf-T-Rgh 10  1;                                                                                                      
  53. 5RepeatB                Long   Positive  1  10;                                                                                                     
  54. 5RepeatT                Char   Lf-T-Rgh  7  1Repeat;                                                                                                
  55. 6Menu      0.667  3.316 18.667 13.895L_FRAME         PINK            0Menu    DEFAULT_WINDOW  Nobmp   1      1      12     6                        
  56. 6MAIN     19.333  6.737 76.167 10.474L_FRAME         DARKGRAY        0Title                   Data    0.5    0.5    6      8                        
  57. 6QBE      11.333 -0.053 85.000 17.368L_FRAME         DARKGREEN       !QBEtitle                Query   2      0.5    6      8                        
  58. 7MAIN    1Key1    0Dummy    62.167  6.211  7.500  1.000S_ARISTO        CYAN            BLUE            KEY              NONE                        
  59. 7MAIN    0RepeatB 0RepeatT   2.000  2.000 20.000  1.000S_BUTTON        GREEN           BLUE            Repeat           NONE                        
  60. 7QBE     !Key1    0Dummy     1.667 12.737 10.000  1.000S_ARISTO        CYAN            BLUE            QBEtitle         NONE                        
  61. 7QBE     !OrdTitle0Dummy    15.167  3.053 12.500  1.000S_ARISTO        CYAN            NEUTRAL         QBEtitle         NONE                        
  62. 7QBE     0Order   0OrdList  30.000  3.053 32.500  1.000S_LIST          CYAN            NEUTRAL         QBE1             NONE                        
  63. 7QBE     0OK      0OKtitle  15.167  0.579 12.667  1.474S_BUTTON        GREEN           NEUTRAL         QBE1             NONE                        
  64. 7QBE     0CANCEL  0CAtitle  30.000  0.579 13.167  1.474S_BUTTON        RED             NEUTRAL         QBE1             NONE                        
  65. 7Menu    0Action  0ActLst    0.667  0.053 16.000 12.053S_RADIOV        GREEN           BLUE            Action           ON_TOP   10.895             
  66. 8Select  SELECT 2.*                                                                                                                                 
  67. 8        FROM 2.                                                                                                                                    
  68. 8f1_list                                                                                                                                            
  69. 8        WHERE (                                                                                                                                    
  70. 8q_where                                                                                                                                            
  71. 8        )                                                                                                                                          
  72. 8        ORDER BY    0.Order                                                                                                                        
  73. 8Insert  INSERT INTO 2. VALUES (                                                                                                                    
  74. 8f_values                                                                                                                                           
  75. 8        )                                                                                                                                          
  76. 8Update  UPDATE 2. SET                                                                                                                              
  77. 8d_values                                                                                                                                           
  78. 8        WHERE (                                                                                                                                    
  79. 8k_where                                                                                                                                            
  80. 8        )                                                                                                                                          
  81. 8Delete  DELETE FROM 2.  WHERE (                                                                                                                    
  82. 8k_where                                                                                                                                            
  83. 8        )                                                                                                                                          
  84. 8Close   CLOSE                                                                                                                                      
  85. 8SG_Srvr                                                                                                                                            
  86. 8Commit  COMMIT                                                                                                                                     
  87. 8SG_Srvr                                                                                                                                            
  88. 8RollbackROLLBACK                                                                                                                                   
  89. 8SG_Srvr                                                                                                                                            
  90. 9Main             If      Root                                                                                                                      
  91. 9                 New-Scr                  0Title                                                                                                   
  92. 9                 Setoff                            Z5                                                                                              
  93. 9                 Seton                             M0                                                                                              
  94. 9                 EndIf                                                                                                                             
  95. 9                 Setoff                            Q5                                                                                              
  96. 9                 Setoff                            O5                                                                                              
  97. 9##########The Z5 flag indicates changes in the database.                                                                                           
  98. 9##########In the case of a linked task, M0 is used to indicate that the task is the root task.                                                     
  99. 9##########The O5 flag indicates that there is an open select query.                                                                                
  100. 9##########The Q5 flag is the "NotQuit" loop flag.                                                                                                  
  101. 9                 Perform                              Clear                                                                                        
  102. 9                 Put-Lin#MAIN             0Zero                                                                                                    
  103. 9                 Put-Lin#Menu             0Zero                                                                                                    
  104. 9##########The following lines find and display the first record.                                                                                   
  105. 9                 Perform                              FirstRut                                                                                     
  106. 9                 Perform                              Next                                                                                         
  107. 9                 Perform                              Display                                                                                      
  108. 9##########In the following loop the user is asked to select an action. This loop will continue as long as                                          
  109. 9##########the Q5 flag is off.                                                                                                                      
  110. 9Loop                                                                                                                                               
  111. 9                 While   NotQuit                                                                                                                   
  112. 9##########The following Accept command is executed to get the user selection.                                                                      
  113. 9##########When a selection is made, the Dialog ends and a "Switch" begins to execute the selection.                                                
  114. 9ActDlg                                                                                                                                             
  115. 9                 Dialog +0                                                                                                                         
  116. 9                 Accept *Action                    Q5                                                                                              
  117. 9                 Goto                                 DlgEnd                                                                                       
  118. 9                 Accept *Repeat                    Q5                                                                                              
  119. 9                 Goto                                 DlgEnd                                                                                       
  120. 9DlgEnd           E-Dialg                                                                                                                           
  121. 9              Q5 Moves  0Quit             0Action                                                                                                  
  122. 9##########The following switch contains cases for each selection made by the user.                                                                 
  123. 9                 Switch 0Action                                                                                                                    
  124. 9                 Case   0First                                                                                                                     
  125. 9                 Perform                              FirstRut                                                                                     
  126. 9                 Perform                              Next                                                                                         
  127. 9                 Perform                              Display                                                                                      
  128. 9                 QtSwtch                                                                                                                           
  129. 9                 Case   0Last                                                                                                                      
  130. 9                 Perform                              Last-1                                                                                       
  131. 9                 Perform                              Prev                                                                                         
  132. 9                 Perform                              Display                                                                                      
  133. 9                 QtSwtch                                                                                                                           
  134. 9                 Case   0Next                                                                                                                      
  135. 9                 Perform                              Next                                                                                         
  136. 9                 Perform                              Display                                                                                      
  137. 9                 QtSwtch                                                                                                                           
  138. 9                 Case   0Prev                                                                                                                      
  139. 9                 Perform                              Prev                                                                                         
  140. 9                 Perform                              Display                                                                                      
  141. 9                 QtSwtch                                                                                                                           
  142. 9                 Case   0Add                                                                                                                       
  143. 9##########When Add is selected, an Add loop begins calling the Insert routine as long as the flag I1 is                                            
  144. 9##########off.                                                                                                                                     
  145. 9                 Setoff                            I1                                                                                              
  146. 9                 While   AddLoop                                                                                                                   
  147. 9                 Perform                              Insert                                                                                       
  148. 9                 EndBlck                                                                                                                           
  149. 9                 Perform                              FindCur                                                                                      
  150. 9                 QtSwtch                                                                                                                           
  151. 9                 Case   0Upd                                                                                                                       
  152. 9##########When Upd is selected, an Update loop begins calling the Update routine and reading another                                               
  153. 9##########as long as there are records to read and the user does not abort the updating process.                                                   
  154. 9                 Setoff                            U1                                                                                              
  155. 9                 While   UpdLoop                                                                                                                   
  156. 9                 Perform                              Update                                                                                       
  157. 9              U1 QtLoop                                                                                                                            
  158. 9                 Read   1RECORD                    I0                                                                                              
  159. 9                 Perform                              I/O_ok                                                                                       
  160. 9              I0 Seton                             U1                                                                                              
  161. 9                 EndBlck                                                                                                                           
  162. 9                 Perform                              FindCur                                                                                      
  163. 9                 QtSwtch                                                                                                                           
  164. 9                 Case   0Del                                                                                                                       
  165. 9                 Perform                              Delete                                                                                       
  166. 9                 QtSwtch                                                                                                                           
  167. 9                 Case   0Query                                                                                                                     
  168. 9                 Perform                              QBE                                                                                          
  169. 9                 Perform                              FirstRut                                                                                     
  170. 9                 Perform                              Next                                                                                         
  171. 9                 Perform                              Display                                                                                      
  172. 9                 QtSwtch                                                                                                                           
  173. 9                 Case   0Quit                                                                                                                      
  174. 9                 Message!Exit    +2       +1       E1                                                                                              
  175. 9              E1=Seton                             Q5                                                                                              
  176. 9                 QtSwtch                                                                                                                           
  177. 9                 EndSwch                                                                                                                           
  178. 9                 EndBlck                                                                                                                           
  179. 9LoopEnd                                                                                                                                            
  180. 9##########             -------- Main loop end  -----------                                                                                         
  181. 9                 Clr-Lin#MAIN                                                                                                                      
  182. 9                 Clr-Lin#Menu                                                                                                                      
  183. 9                 Perform                              Close                                                                                        
  184. 9                 Perform                              IfChange                                                                                     
  185. 9                 Return                                                                                                                            
  186. 9##########The following Insert routine is executed when the Add operation is selected.                                                             
  187. 9Insert                                                                                                                                             
  188. 9                 Setoff                            I1                                                                                              
  189. 9                 Perform                              First                                                                                        
  190. 9##########The "First" routine is used here to initiate fields and clear them of previous values.                                                   
  191. 9                 Perform                              Disp*                                                                                        
  192. 9Ins1             Perform                              AccKey                                                                                       
  193. 9##########The key fields data are entered by the user in the "AccKey" routine. If the user aborts the data                                         
  194. 9##########entry, the flag A1 is set to ON and the Insert routine is aborted.                                                                       
  195. 9              A1 Seton                             I1 InsEnd                                                                                       
  196. 9                 Perform                              AccData                                                                                      
  197. 9##########The data fields data are entered by the user in the "AccData" routine. If the user aborts the                                            
  198. 9##########data entry, the flag A2 is set to ON and the flow is diverted to the "Ins1" label.                                                       
  199. 9              A2 Goto                                 Ins1                                                                                         
  200. 9                 Move   +100              0SqErr                                                                                                   
  201. 9                 Ex-Sql ?Insert           0SqErr   Q1                                                                                              
  202. 9                 If      NoErr                                                                                                                     
  203. 9                 Seton                             Z5                                                                                              
  204. 9                 Add    0Record  +1       1RECORD                                                                                                  
  205. 9                 Write  1                          I0                                                                                              
  206. 9                 Perform                              I/O_ok                                                                                       
  207. 9                 If      I/O_ok                                                                                                                    
  208. 9                 Move   1RECORD           0Record                                                                                                  
  209. 9                 Else                                                                                                                              
  210. 9                 Seton                             I1                                                                                              
  211. 9                 EndIf                                                                                                                             
  212. 9                 Else                                                                                                                              
  213. 9                 Seton                             I1                                                                                              
  214. 9                 EndIf                                                                                                                             
  215. 9InsEnd           Return                                                                                                                            
  216. 9##########          ----- Insert routine end ---------                                                                                             
  217. 9##########The following Update routine is executed when the Update operation is selected.                                                          
  218. 9Update                                                                                                                                             
  219. 9                 Setoff                            U1                                                                                              
  220. 9                 Find   1RECORD                    I0                                                                                              
  221. 9                 Perform                              I/O_ok                                                                                       
  222. 9                 Perform                              Disp*                                                                                        
  223. 9##########The "Disp*" routine is executed after the record has been found to display the field values.                                             
  224. 9                 Perform                              AccData                                                                                      
  225. 9              A2 Seton                             U1 UpdEnd                                                                                       
  226. 9                 Move   +100              0SqErr                                                                                                   
  227. 9                 Ex-Sql ?Update           0SqErr   Q1                                                                                              
  228. 9                 If      NoErr                                                                                                                     
  229. 9                 Seton                             Z5                                                                                              
  230. 9                 Rewrite1                          I0                                                                                              
  231. 9                 Perform                              I/O_ok                                                                                       
  232. 9                 EndIf                                                                                                                             
  233. 9UpdEnd           Return                                                                                                                            
  234. 9##########          ----- Update routine end ---------                                                                                             
  235. 9##########The following Delete routine is executed when the Del operation is selected.                                                             
  236. 9Delete                                                                                                                                             
  237. 9                 Setoff                            D1                                                                                              
  238. 9                 Find   1RECORD                    I0                                                                                              
  239. 9                 Perform                              I/O_ok                                                                                       
  240. 9                 Message!DelMsg  +2       +1       D1                                                                                              
  241. 9##########The record is deleted after presentation of a warning message.                                                                           
  242. 9                 If      Delete                                                                                                                    
  243. 9                 Move   +100              0SqErr                                                                                                   
  244. 9                 Ex-Sql ?Delete           0SqErr   Q1                                                                                              
  245. 9                 If      NoErr                                                                                                                     
  246. 9                 Delete 1                          I0                                                                                              
  247. 9                 Perform                              I/O_ok                                                                                       
  248. 9                 EndIf                                                                                                                             
  249. 9                 EndIf                                                                                                                             
  250. 9                 Perform                              FindCur                                                                                      
  251. 9DelEnd           Return                                                                                                                            
  252. 9##########          ----- Delete routine end ---------                                                                                             
  253. 9##########The Display routine is called by other routines to display the current record.                                                           
  254. 9Display          Find   1RECORD                    I0                                                                                              
  255. 9                 Perform                              I/O_ok                                                                                       
  256. 9                 Perform                              Disp*                                                                                        
  257. 9                 Return                                                                                                                            
  258. 9##########          ----- Display routine end ---------                                                                                            
  259. 9##########The First routine is executed when necessary to intiate the field values.                                                                
  260. 9FirstRut         Move   +0                1RECORD                                                                                                  
  261. 9                 Perform                              First                                                                                        
  262. 9                 Return                                                                                                                            
  263. 9First            Moves  0BLANK            1Key1                                                                                                    
  264. 9                 Setoff                            F1                                                                                              
  265. 9                 Return                                                                                                                            
  266. 9##########          ----- First routine end ---------                                                                                              
  267. 9##########The Last routine is executed when necessary to maximize the field values.                                                                
  268. 9Last-1           Move   0Max              1RECORD                                                                                                  
  269. 9                 Setoff                            L1                                                                                              
  270. 9                 Return                                                                                                                            
  271. 9##########          ----- Last routine end ---------                                                                                               
  272. 9##########The Next routine is executed when necessary to read the next record.                                                                     
  273. 9Next             Setoff                            N1                                                                                              
  274. 9                 Read   1RECORD                    I0                                                                                              
  275. 9                 Perform                              I/O_ok                                                                                       
  276. 9              I0 Seton                             N1                                                                                              
  277. 9                 If      Fetch1                                                                                                                    
  278. 9                 Perform                              Fetch1                                                                                       
  279. 9              I0=Setoff                            N1                                                                                              
  280. 9                 EndIf                                                                                                                             
  281. 9                 Return                                                                                                                            
  282. 9##########          ----- Next routine end ---------                                                                                               
  283. 9##########The Prev routine is performed when  necessary to read the previous record.                                                               
  284. 9Prev             Setoff                            P1                                                                                              
  285. 9                 Prev   1RECORD                    I0                                                                                              
  286. 9                 Perform                              I/O_ok                                                                                       
  287. 9              I0 Seton                             P1                                                                                              
  288. 9                 Return                                                                                                                            
  289. 9##########          ----- Prev routine end ---------                                                                                               
  290. 9##########The following routine is called from other routines in order to locate and display a record.                                             
  291. 9FindCur                                                                                                                                            
  292. 9                 Find   1RECORD                    I0                                                                                              
  293. 9                 Perform                              I/O_ok                                                                                       
  294. 9                 If      Locate                                                                                                                    
  295. 9                 Read   1RECORD                    I0                                                                                              
  296. 9                 Perform                              I/O_ok                                                                                       
  297. 9                 EndIf                                                                                                                             
  298. 9                 If      Locate                                                                                                                    
  299. 9                 Prev   1RECORD                    I0                                                                                              
  300. 9                 Perform                              I/O_ok                                                                                       
  301. 9                 EndIf                                                                                                                             
  302. 9                 If      Locate                                                                                                                    
  303. 9                 Perform                              First                                                                                        
  304. 9                 EndIf                                                                                                                             
  305. 9                 Perform                              Disp*                                                                                        
  306. 9                 Return                                                                                                                            
  307. 9##########                        -------- Find Current record routine end -------                                                                 
  308. 9##########The QBE routine is executed when the Query option is selected.                                                                           
  309. 9QBE              Put-Lin#QBE              0Zero                                                                                                    
  310. 9                 Setoff                            E1                                                                                              
  311. 9                 Perform                              Clear                                                                                        
  312. 9                 Perform                              First                                                                                        
  313. 9                 Display#QBE                                                                                                                       
  314. 9AccQbe           Accept *QBE1                      Q2                                                                                              
  315. 9                 Clr-Lin#QBE                                                                                                                       
  316. 9                 If      ExcQbe                                                                                                                    
  317. 9##########After a query is typed by the user, a Select Query is executed, followed by a fetching loop.                                             
  318. 9                 Perform                              Close                                                                                        
  319. 9                 Get-Dat0SysDate 0SysTime                                                                                                          
  320. 9                 Encode 0SysTime          0Cursor                                                                                                  
  321. 9                 Move   +100              0SqErr                                                                                                   
  322. 9                 Ex-Sql ?Select  0Cursor  0SqErr   Q1                                                                                              
  323. 9                 If      NoErr                                                                                                                     
  324. 9                 Seton                             O5                                                                                              
  325. 9                 Move   +0                0Record                                                                                                  
  326. 9                 Perform                              10Fetch                                                                                      
  327. 9                 EndIf                                                                                                                             
  328. 9                 EndIf                                                                                                                             
  329. 9                 Return                                                                                                                            
  330. 910Fetch          Add    0Record  +10      0RecCunt                                                                                                 
  331. 9                 Until   10Fetch                                                                                                                   
  332. 9                 Perform                              Fetch1                                                                                       
  333. 9              Q1 QtLoop                                                                                                                            
  334. 9                 EndBlck                                                                                                                           
  335. 9                 Return                                                                                                                            
  336. 9Fetch1                                                                                                                                             
  337. 9                 Move   +0                0SqErr                                                                                                   
  338. 9                 Fetch  ?Select  0Cursor  0SqErr   Q1                                                                                              
  339. 9              Q1-Message!QrErr   +1       +1                                                                                                       
  340. 9                 If      NoErr                                                                                                                     
  341. 9                 Add    0Record  +1       1RECORD                                                                                                  
  342. 9Move2t1          Moves  2Key1             1Key1                                                                                                    
  343. 9                 Write  1                          I0                                                                                              
  344. 9                 Perform                              I/O_ok                                                                                       
  345. 9              I0=Move   1RECORD           0Record                                                                                                  
  346. 9                 EndIf                                                                                                                             
  347. 9                 Return                                                                                                                            
  348. 9##########The following routine results in an I/O error message.                                                                                   
  349. 9I/O_ok                                                                                                                                             
  350. 9              I0-Message!WriteErr+1       +1                                                                                                       
  351. 9              I0-Seton                             I1                                                                                              
  352. 9              I0-Seton                             U1                                                                                              
  353. 9              I0-Seton                             D1                                                                                              
  354. 9              I0-Seton                             L1                                                                                              
  355. 9              I0-Seton                             N1                                                                                              
  356. 9              I0-Seton                             P1                                                                                              
  357. 9                 Return                                                                                                                            
  358. 9##########All user data are entered in the Key fields here.                                                                                        
  359. 9AccKey           Accept *KEY                       A1                                                                                              
  360. 9                 Return                                                                                                                            
  361. 9##########All user data are entered in the Data fields here.                                                                                       
  362. 9AccData          Accept *DATA                      A2                                                                                              
  363. 9                 Return                                                                                                                            
  364. 9Disp*            Display*KEY                                                                                                                       
  365. 9                 Display*DATA                                                                                                                      
  366. 9                 Return                                                                                                                            
  367. 9Close            Move   +100              0SqErr                                                                                                   
  368. 9                 If      Close                                                                                                                     
  369. 9                 Ex-Sql ?Close   0Cursor  0SqErr   Q1                                                                                              
  370. 9                 Setoff                            O5                                                                                              
  371. 9                 EndIf                                                                                                                             
  372. 9                 Return                                                                                                                            
  373. 9IfChange         If      Changed                                                                                                                   
  374. 9                 Move   +100              0SqErr                                                                                                   
  375. 9                 Message!Commit  0Two     +1       M1                                                                                              
  376. 9              M1=Ex-Sql ?Commit           0SqErr   Q1                                                                                              
  377. 9              M1 Ex-Sql ?Rollback         0SqErr   Q1                                                                                              
  378. 9                 EndIf                                                                                                                             
  379. 9                 Return                                                                                                                            
  380. 9Clear            Reopen 1        0TempFile                                                                                                         
  381. 9                 Move   +0                0Record                                                                                                  
  382. 9                 Move   +0                1RECORD                                                                                                  
  383. 9                 Return                                                                                                                            
  384. BNotQuit ^Q5      ^=       ^=                                                                                                                       
  385. BExcQbe  ^Q2      ^=       ^=       And                                                                                                             
  386. B        0CANCEL  +0       +0                                                                                                                       
  387. BClose   ^O5      ^+       ^+                                                                                                                       
  388. BFetch1  ^N1      ^+       ^+       And                                                                                                             
  389. B        ^O5      ^+       ^+                                                                                                                       
  390. BRoot    ^Z0      ^=       ^=                                                                                                                       
  391. BChanged ^M0      ^+       ^+       And                                                                                                             
  392. B        ^Z5      ^+       ^+                                                                                                                       
  393. BNoErr   ^Q1      ^=       ^=                                                                                                                       
  394. BI/O_ok  ^I0      ^=       ^=                                                                                                                       
  395. B10Fetch 1RECORD  0RecCunt 0RecCunt                                                                                                                 
  396. BDelete  ^D1      ^=       ^=                                                                                                                       
  397. BLocate  ^I0      ^+       ^+                                                                                                                       
  398. BAddLoop ^I1      ^=       ^=                                                                                                                       
  399. BUpdLoop ^U1      ^=       ^=                                                                                                                       
  400. 0                                                                                                                                                   
  401.