home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / sqllink.zip / UTIL.PRG < prev    next >
Text File  |  1990-08-09  |  3KB  |  172 lines
  1. SET PROCEDURE TO ssldemo
  2. SET PROCEDURE TO util
  3.  
  4. DECLARE fld[5]
  5.  
  6. DO CASE
  7.   CASE menu_v=1
  8.     DO ed_sql
  9.   CASE menu_v=2
  10.     DO show_mem
  11.   CASE menu_v=3
  12.     DO mem_used
  13.   CASE menu_v=5
  14.   CASE menu_v=6
  15.   CASE menu_v=7
  16. ENDCASE
  17. RETURN
  18. *----------------------------------------
  19. PROCEDURE ed_sql
  20.  
  21. SELECT 1
  22. USE Sysparms
  23.  
  24. xMax_rows=Max_rows
  25.  
  26. CREATE WINDOW "SQL Server Parameters" FROM 5,2 TO 12,77
  27.  
  28. CLEAR
  29.  
  30. TEXT
  31. Default Logon Username: ----------
  32. Default Logon Password:
  33.   Default Logon Server:
  34. Default Logon Database:
  35.           Maximum Rows:
  36. ENDTEXT
  37.  
  38. @  1,24 GET U PICTURE REPLICATE("!",10)
  39. @  2,24 GET P PICTURE REPLICATE("!",10)
  40. @  3,24 GET S PICTURE REPLICATE("!",10)
  41. @  4,24 GET D PICTURE REPLICATE("!",10)
  42. @  5,24 GET Max_rows PICTURE "999"
  43.  
  44. READ
  45. CLEAR GETS
  46.  
  47. IF xMax_rows<>Max_rows
  48.   error1=.T.
  49.   IF SENDDATA("Xstr1","16")
  50.     IF SENDDATA("Xstr2",ALLTRIM(STR(Max_rows,6,0)))
  51.       IF REQUEST("SetOpt")="T"
  52.         xconnect=.T.
  53.         error=.F.
  54.         error1=.F.
  55.       ENDIF
  56.     ENDIF
  57.   ENDIF
  58.  
  59.   IF error1
  60.     Max_rows=xMax_rows
  61.     WARNING("","Cannot change Max Rows.",1)
  62.   ENDIF
  63. ENDIF
  64.  
  65. USE
  66.  
  67. CLOSE WINDOW "SQL Server Parameters"
  68.  
  69. RETURN
  70. *----------------------------------------
  71. PROCEDURE mem_used
  72.  
  73. xswin="Server Database Memory (KB)"
  74. CREATE WINDOW xswin FROM 8,25 TO 19,55
  75.  
  76. IF .NOT. fdbcmd("mem_used")
  77.   CLOSE WINDOW xswin
  78.   RETURN
  79. ENDIF
  80.  
  81. IF .NOT. fresults("")
  82.   CLOSE WINDOW xswin
  83.   RETURN
  84. ENDIF
  85.  
  86. xline=REQUEST("Row")
  87.  
  88. parse_row(5)
  89.  
  90. @ 1, 0 SAY "Total Pubs Database - "+TRANSFORM(1000*VAL(fld[1]),"9999999")
  91. @ 2, 0 SAY "Currently Reserved - "+TRANSFORM(VAL(fld[2]),"9999999")
  92. @ 3, 0 SAY "              Data - "+TRANSFORM(VAL(fld[3]),"9999999")
  93. @ 4, 0 SAY "             Index - "+TRANSFORM(VAL(fld[4]),"9999999")
  94. @ 5, 0 SAY "        Total Used - "+TRANSFORM(VAL(fld[3])+VAL(fld[4]),"9999999")
  95. @ 6, 0 SAY "            % Used - "+;
  96.   TRANSFORM((VAL(fld[3])+VAL(fld[4]))/(10*VAL(fld[1])),"9999999%")
  97.  
  98. CREATE BUTTON "Continue" AT 9,11
  99. WAIT ""
  100. CLEAR GETS
  101.   
  102. CLOSE WINDOW xswin
  103.  
  104. RETURN
  105. *----------------------------------------
  106. PROCEDURE db_dump
  107.  
  108. IF .NOT. CONFIRM("Dump Pubs database?")
  109.   RETURN
  110. ENDIF
  111.  
  112. fdbcmd("dump database Pubs to diskettedumpa")
  113. IF REQUEST("Dbsqlexec")<>"T"
  114.   WARNING("","Pubs database NOT dumped.",1)
  115.   RETURN
  116. ENDIF  
  117.  
  118. IF .NOT. fresults("")
  119.   WARNING("","Pubs database NOT dumped.",1)
  120.   RETURN
  121. ENDIF
  122.  
  123. fdbcmd("dump transaction Pubs with truncate_only")
  124. IF .NOT. fresults("")
  125.   WARNING("","Transaction log could not be truncated.",1)
  126.   RETURN
  127. ENDIF
  128.  
  129. fdbcmd("select count(*) from syslogs")
  130. IF fresults("")
  131.   xline=REQUEST("Row")
  132.   parse_row(1)
  133. ELSE
  134.   WARNING("","Could not get transaction log count.",1)
  135.   RETURN
  136. ENDIF
  137.  
  138. WARNING("Message",ALLTRIM(xline)+" entries left in transaction log.  "+;
  139.   "Pubs data successfully dumped.",3)
  140.  
  141. RETURN
  142. *----------------------------------------
  143. PROCEDURE db_load
  144.  
  145. IF .NOT. CONFIRM("Load Pubs database?")
  146.   RETURN
  147. ENDIF
  148.  
  149. fdbcmd("load database Pubs from diskettedumpa")
  150. IF .NOT. fresults("")
  151.   WARNING("","Pubs database NOT loaded.",1)
  152.   RETURN
  153. ENDIF
  154.  
  155. RETURN
  156. *----------------------------------------
  157. PROCEDURE mast_dump
  158.  
  159. IF .NOT. CONFIRM("Dump Master database?")
  160.   RETURN
  161. ENDIF
  162.  
  163. fdbcmd("dump database master to diskettedumpa")
  164. IF .NOT. fresults("")
  165.   WARNING("","Master database NOT dumped.",1)
  166.   RETURN
  167. ENDIF
  168.  
  169. RETURN
  170.  
  171.  
  172.