home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
clipper
/
sds_11.zip
/
SDS.PRG
< prev
Wrap
Text File
|
1993-05-27
|
810b
|
41 lines
#include screen.hdr && FCO 2.4N
#include fileio.hdr
#include string.hdr
#include io.hdr
PROCEDURE fco_main
PARAMETERS CONST CHAR filename
VARDEF
BYTE b[32]
UINT h, n
CHAR fname BASED b
ENDDEF
DO key_dos
DO scrn_dos
IF .not. fb_open( h, ltrim( filename ), &B_READ )
? "ShowDbfStructure v1.1 (c) 1993 by Alfred Klich"
? " Syntax: SDS <name>.dbf"
QUIT
ENDIF
?
? "Nr. Feldname Länge Dez. Feldtyp"
? "----------------------------------------"
?
n = 1
fb_read( h, b[], 32 )
DO WHILE .not. fb_eof( h )
fb_read( h, b[], 32 )
IF b[0] = 0xd
?
EXIT
ENDIF
? n:2, " ", fname:10, " ", b[16]:3, " ", b[17]:3, " ", chr( b[11] ):3
n = n +1
ENDDO
fb_close( h )
ENDPRO