home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbhelp30.zip / STATUS.PRG < prev   
Text File  |  1991-02-22  |  3KB  |  133 lines
  1. * STATUS.PRG
  2. * Erik Schlueter
  3.  
  4. SET TALK OFF
  5. SET STATUS OFF
  6. SET SCOREBOARD OFF
  7. SET FULLPATH OFF
  8. SET COLOR TO BG/N
  9. CLEAR
  10. * routine to get a dbf if there is not one in use
  11. IF LEN(TRIM(DBF()))=0
  12.     DEFINE POPUP Dispfile FROM 2,2 TO 13,15 PROMPT FILES LIKE *.DBF
  13.     ON SELECTION POPUP Dispfile DEACTIVATE POPUP
  14.     ACTIVATE POPUP Dispfile
  15.     m_dbf = PROMPT()
  16.     USE &m_dbf
  17. ELSE
  18.     STORE DBF() TO m_dbf
  19. ENDIF
  20. CLEAR
  21. @ 1,2 SAY "DATABASE: "
  22. @ 2,2 SAY "LAST UPDATE: "
  23. @ 3,2 SAY "NUMBER OF RECORDS: "
  24. @ 4,2 SAY "SIZE OF ONE RECORD: "
  25. @ 5,2 SAY "BYTES IN THE DBF: "
  26. @ 6,2 SAY "FREE DISK SPACE: "
  27. SET COLOR TO R+/N
  28. @ 1,12 SAY IIF(LEN(TRIM(DBF()))=0,'No File in Use',DBF())
  29. @ 2,15 SAY LUPDATE()
  30. @ 3,21 SAY LTRIM(TRANSFORM(RECCOUNT(),'999,999,999'))
  31. @ 4,22 SAY LTRIM(TRANSFORM(RECSIZE(),'999,999,999'))
  32. PUBLIC X,Y,Z
  33. STORE 0 TO X,Y
  34. STORE 1 TO Z
  35. DO WHILE  Z > 0
  36.     IF LEN(FIELD(Z)) > 0
  37.         Y=Y+1
  38.     ELSE
  39.         EXIT
  40.     ENDIF
  41.     Z=Z+1
  42. ENDDO
  43. X=(32*Y+34)+RECCOUNT()*RECSIZE()
  44. @ 5,20 SAY LTRIM(TRANSFORM(INT(X),'999,999,999'))
  45. @ 6,19 SAY LTRIM(TRANSFORM(DISKSPACE(),'999,999,999'))
  46. SET COLOR TO G/N
  47. @ 0,0 TO 7,79
  48. @ 1,31 TO 6,31
  49. SET COLOR TO BG/N
  50. @ 2,35 SAY "OPERATING SYSTEM: "
  51. @ 3,35 SAY "PATH: "
  52.  
  53. SET COLOR TO R+/N
  54. @ 1,35 SAY VERSION(0)
  55. @ 2,53 SAY OS()
  56.  
  57. * this is to handle an extra long path statment
  58. mpath=GETENV('PATH')
  59. @ 3,41 SAY SUBSTR(mpath,1,36)
  60. IF LEN(mpath) > 36
  61.     @ 4,41 SAY SUBSTR(mpath,37,36)
  62. ENDIF
  63. IF LEN(mpath) > 72
  64.     @ 5,41 SAY SUBSTR(mpath,72)
  65. ENDIF
  66. *
  67.  
  68. SET COLOR TO GR+/N
  69. @ 9,1 SAY "FLD# NAME      TYPE LGTH"
  70. @ 10,1 SAY "========================"
  71. *
  72. ROW=11
  73. COL1=2
  74. COL2=6
  75. COL3=17
  76. COL4=19
  77. COL5=22
  78. Z=1
  79. SET SAFETY OFF
  80. IF LEN(TRIM(DBF()))>0
  81.     COPY TO STASTRUC STRUCTURE EXTENDED
  82.     SELECT 9
  83.     USE STASTRUC
  84.     DO WHILE Z < Y +1
  85.         SET COLOR TO B+/N
  86.         @ ROW,COL1 SAY LTRIM(STR(RECNO(),10,0))
  87.         SET COLOR TO W/N
  88.         @ ROW,COL2 SAY FIELD_NAME
  89.         @ ROW,COL3 SAY FIELD_TYPE
  90.         @ ROW,COL4 SAY FIELD_LEN
  91.         @ ROW,COL5 SAY FIELD_DEC
  92.         SKIP
  93.         ROW=ROW+1
  94.         Z=Z+1
  95.         IF ROW = 22 .AND. COL1 = 2
  96.             ROW = 11
  97.             SET COLOR TO G/N
  98.             @ 8,26 TO 22,53
  99.             SET COLOR TO GR+/N
  100.             @ 9,27 SAY "FLD# NAME     TYPE LGTH"
  101.             @ 10,27 SAY "======================="
  102.             COL1=28
  103.             COL2=32
  104.               COL3=43
  105.             COL4=45
  106.             COL5=48
  107.         ENDIF
  108.         IF ROW = 22 .AND. COL1 = 28
  109.             ROW = 11
  110.             SET COLOR TO G/N
  111.             @ 8,54 TO 22,79
  112.             SET COLOR TO GR+/N
  113.             @ 9,56 SAY "FLD# NAME    TYPE LGTH"
  114.             @ 10,56 SAY "======================"
  115.             COL1=55
  116.             COL2=60
  117.             COL3=71
  118.             COL4=73
  119.             COL5=76
  120.         ENDIF
  121.     ENDDO 
  122. ENDIF
  123. USE
  124. SELECT 1
  125.  
  126. SET COLOR TO G/N
  127. @ 8,0 TO 22,25
  128. WAIT
  129. SET TALK ON
  130. SET SAFETY ON
  131. SET SCOREBOARD ON
  132. RETURN
  133.