home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OPNOS2.ZIP / REPSQLE.ARS < prev    next >
Text File  |  1992-12-27  |  17KB  |  113 lines
  1. 1SQL Report        Start   Main    End     regular  read/write                                                                                      
  2. 2?             66 160DumRut  DumRut                                                                                                                 
  3. 31ISQH    read/writeyes                                                                                                                             
  4. 32SQH     read/writeyes                                                                                                                             
  5. 4QBEtitleSelect query                                                                                                                               
  6. 4OrdTitleOrder by                                                                                                                                   
  7. 4Cursor  Cursor                                                                                                                                     
  8. 4QrErr   SQL communication problem                                                                                                                  
  9. 4NoRec   No records answering query                                                                                                                 
  10. 5Order   Order          Char   Lf-T-Rgh 26  1;                                                                                                      
  11. 5Date0   Data 0         Date   American 10  101/01/0001;                                                                                            
  12. 5Zero    zero           Long   Positive1  1  0;                                                                                                     
  13. 5Two     two            Long   Positive 1 1  2;                                                                                                     
  14. 5Title   title          Char   Lf-T-Rgh20 1  Report;                                                                                                
  15. 5BLANK   blank          Char   Lf-T-Rgh1  1   ;                                                                                                    .
  16. 5Dummy   dummy          Char   Lf-T-Rgh10 1  1;                                                                                                    .
  17. 5Max                    Long   Positive 10  132767;                                                                                                 
  18. 5Record                 Long   Positive 10  10;                                                                                                     
  19. 5ConList ConList        Char   Lf-T-Rgh2  6  >=;<=;=;<>;>;<;                                                                                       .
  20. 5OpList  OpList         Char   Lf-T-Rgh3    2AND;OR;                                                                                               .
  21. 5OK                     IntegerPositive  1  10;                                                                                                     
  22. 5OKtitle                Char   Lf-T-Rgh  4  1O.K.;                                                                                                  
  23. 5CANCEL                 IntegerPositive  1  10;                                                                                                     
  24. 5CAtitle                Char   Lf-T-Rgh  5  1Quit;                                                                                                  
  25. 5Long22                 Long   Positive  21  22;                                                                                                    
  26. 5SqErr                  Long   Positive  6  10;                                                                                                     
  27. 5SqErrNN Message code   Char   Lf-T-Rgh  6  1;                                                                                                      
  28. 5SqErrCh Message        Char   Lf-T-Rgh 30  1SQL server error code ;                                                                                
  29. 5SysDate SysDate        Date   American 10  100/00/0000;                                                                                            
  30. 5SysTime SysTime        Time   Time      8  100:00:00;                                                                                              
  31. 5Cursor  Cursor         Char   Lf-T-Rgh 10  1;                                                                                                      
  32. 6MAIN      6.000  6.579 76.167  1.368L_FRAME         BROWN           0Title                   Data    0.5    0.5    6      8                        
  33. 6QBE      11.333 -0.053 85.000 17.474L_FRAME         DARKGREEN       !QBEtitle                Query   2      0.5    6      8                        
  34. 7MAIN    2Key1    0Dummy    57.167  0.000 11.500  1.000S_ARISTO        BACKGROUND      BLUE            KEY              NONE                        
  35. 7QBE     !Key1    0Dummy     0.167 12.737 12.000  1.000S_ARISTO        BACKGROUND      BLUE            QBEtitle         NONE                        
  36. 7QBE     !OrdTitle0Dummy    13.000  3.000 14.000  1.000S_ARISTO        BACKGROUND      NEUTRAL         QBEtitle         NONE                        
  37. 7QBE     0Order   0OrdList  31.500  3.000 32.500  1.000S_LIST          BACKGROUND      NEUTRAL         QBE1             NONE                        
  38. 7QBE     0OK      0OKtitle  13.000  0.632 14.000  1.316S_BUTTON        GREEN           NEUTRAL         QBE1             NONE                        
  39. 7QBE     0CANCEL  0CAtitle  31.500  0.632 14.000  1.316S_BUTTON        RED             NEUTRAL         QBE1             NONE                        
  40. 8Select  SELECT 2.*                                                                                                                                 
  41. 8        FROM 2.                                                                                                                                    
  42. 8f1_list                                                                                                                                            
  43. 8        WHERE (                                                                                                                                    
  44. 8q_where                                                                                                                                            
  45. 8        )                                                                                                                                          
  46. 8        ORDER BY    0.Order                                                                                                                        
  47. 8Close   CLOSE                                                                                                                                      
  48. 8SG_Srvr                                                                                                                                            
  49. 9Start            If      FirstRun                                                                                                                  
  50. 9                 New-Scr                  0Title                                                                                                   
  51. 9                 Seton                             F5                                                                                              
  52. 9                 EndIf                                                                                                                             
  53. 9                 Setoff                            O5                                                                                              
  54. 9                 Perform                              First                                                                                        
  55. 9QBE              Put-Lin#QBE              0Zero                                                                                                    
  56. 9                 Perform                              First                                                                                        
  57. 9                 Display#QBE                                                                                                                       
  58. 9AccQbe           Accept *QBE1                      Q2                                                                                              
  59. 9                 Clr-Lin#QBE                                                                                                                       
  60. 9                 Return                                                                                                                            
  61. 9##########           ------ Start routine end -------                                                                                              
  62. 9##########           ------ Main routine begining ----------                                                                                       
  63. 9Main                                                                                                                                               
  64. 9IfExc            If      ExcQbe                                                                                                                    
  65. 9                 Get-Dat0SysDate 0SysTime                                                                                                          
  66. 9                 Encode 0SysTime          0Cursor                                                                                                  
  67. 9                 Move   +100              0SqErr                                                                                                   
  68. 9                 Ex-Sql ?Select  0Cursor  0SqErr   Q1                                                                                              
  69. 9IfQrOk           If      NoErr                                                                                                                     
  70. 9                 Title  #MAIN                                                                                                                      
  71. 9                 Seton                             O5                                                                                              
  72. 9Fetch            Move   +0                0SqErr                                                                                                   
  73. 9WQrOk            While   NoErr                                                                                                                     
  74. 9                 Fetch  ?Select  0Cursor  0SqErr   Q1                                                                                              
  75. 9                 If      QrErr                                                                                                                     
  76. 9                 Perform                              QrErr                                                                                        
  77. 9                 Seton                             Q2                                                                                              
  78. 9                 Return                                                                                                                            
  79. 9                 EndIf                                                                                                                             
  80. 9IfFaOk           If      NoErr                                                                                                                     
  81. 9                 Print  #MAIN                                                                                                                      
  82. 9EIfFaOk          EndIf                                                                                                                             
  83. 9EWQrOk           EndBlck                                                                                                                           
  84. 9IfClose          If      Close                                                                                                                     
  85. 9                 Ex-Sql ?Close   0Cursor  0SqErr   Q1                                                                                              
  86. 9EIfClose         EndIf                                                                                                                             
  87. 9EfQrOk           EndIf                                                                                                                             
  88. 9EIfCancl         EndIf                                                                                                                             
  89. 9                 Return                                                                                                                            
  90. 9##########     -------------- Main routine end -------------                                                                                       
  91. 9##########     ------------ End routine  -----------                                                                                               
  92. 9End              If      ExcQbe                                                                                                                    
  93. 9                 Else                                                                                                                              
  94. 9                 Return                                                                                                                            
  95. 9                 EndIf                                                                                                                             
  96. 9                 Restart                                                                                                                           
  97. 9First            Moves  0BLANK            1Key1                                                                                                    
  98. 9                 Setoff                            F1                                                                                              
  99. 9                 Return                                                                                                                            
  100. 9DumRut           Return                                                                                                                            
  101. 9QrErr            Encode 0SqErr            0SqErrNN                                                                                                 
  102. 9                 Insert 0SqErrNN 0Long22  0SqErrCh                                                                                                 
  103. 9                 Message0SqErrCh +1       +1                                                                                                       
  104. 9                 Return                                                                                                                            
  105. BNoErr   ^Q1      ^=       ^=                                                                                                                       
  106. BQrErr   ^Q1      ^-       ^-                                                                                                                       
  107. BExcQbe  ^Q2      ^=       ^=       And                                                                                                             
  108. B        0CANCEL  +0       +0                                                                                                                       
  109. BClose   ^O5      ^+       ^+                                                                                                                       
  110. BFirstRun^F5      ^=       ^=       And                                                                                                             
  111. B        ^Z0      ^=       ^=                                                                                                                       
  112. 0                                                                                                                                                   
  113.