home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
clipper
/
dispdbf
/
dispdbf.prg
Wrap
Text File
|
1987-04-03
|
3KB
|
99 lines
*****************************************************************
* DispDbf - display DBF pertinent information *
*****************************************************************
* *
* Copyright (c) 1987 by Eric Kestler *
*****************************************************************
* Permission granted to freely distribute/modify *
* provided this copyright notice retained. *
* *
* This program is distributed as FreeWare, *
* NO remuneration is sought. Use at your *
* own risk. This has been developed using *
* dBASE III Plus from Ashton-Tate, UI by WallSoft, *
* and CLIPPER/Autumn '86 release, by Nantucket. *
* All rights reserved. *
*****************************************************************
* *
* Syntax: DISPDBF dbf-file without extension *
* or *
* DISPDBF (no parms, you will be prompted) *
*****************************************************************
* Link Parms: *
* PLINK86 Fi DISPDBF,EXTENDC VERB *
*****************************************************************
***
*** Dispdbf : pop-up help box
*** Generated April 3, 1987
***
PARAMETERS dbf
external LUPDATE,RECSIZE
* Environment
set talk off
set scoreboard off
set stat off
save screen to snapit
copyrite='Copyright (c) 1987 by Eric Kestler'
* pop the box
SET COLOR TO +GR/BR
@ 06,58 TO 19,77 DOUBLE
SET COLOR TO +GR/GR
@ 07,59 CLEAR TO 18,76
@ 07,61 SAY "DBF"
@ 09,59 SAY "Records"
@ 11,59 SAY "RecSize"
@ 13,59 SAY "# Fields"
@ 15,59 SAY "FileSize"
@ 17,59 SAY "Updated"
if pcount()=0
dbf=space(8)
@ 7,67 get DBF pict "!!!!!!!!"
read
else
dbf=upper(dbf)
endif
use &DBF
hd=header() &&header size
rcnt=reccount() & records
rsz=recsize() &&rec len
fcnt=fcount()
fsz=hd+(rcnt*rsz)+1 &&guess size of file
rcnt=ltrim(str(rcnt,8))
fcnt=ltrim(str(fcnt,3))
rsz=ltrim(str(rsz,4))
fsz=ltrim(str(fsz,8))
lup=dtoc(lupdate())
set color to +b/w
@ 07,67 SAY DBF PICTURE "!!!!!!!!"
@ 09,67 SAY RCNT PICTURE "XXXXXXXX"
@ 11,67 SAY RSZ PICTURE "XXXX"
@ 13,67 SAY FCNT PICTURE "XXX"
@ 15,67 SAY FSZ PICTURE "XXXXXXXX"
@ 17,67 SAY LUP PICTURE "99/99/99"
* wait for keystroke
key=inkey()
do while key=0
key=inkey()
enddo
* restore the screen
SET COLOR TO +W/B
@ 06,58 SAY " "
@ 07,58 SAY " "
@ 08,58 SAY " "
@ 09,58 SAY " "
@ 10,58 SAY " "
@ 11,58 SAY " "
@ 12,58 SAY " "
@ 13,58 SAY " "
@ 14,58 SAY " "
@ 15,58 SAY " "
@ 16,58 SAY " "
@ 17,58 SAY " "
@ 18,58 SAY " "
@ 19,58 SAY " "
restore screen from snapit
RETURN