home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / sds_11.zip / SDS.PRG < prev   
Text File  |  1993-05-27  |  810b  |  41 lines
  1. #include screen.hdr        && FCO 2.4N
  2. #include fileio.hdr
  3. #include string.hdr
  4. #include io.hdr
  5.  
  6. PROCEDURE fco_main
  7.   PARAMETERS CONST CHAR filename
  8.   VARDEF
  9.      BYTE b[32]
  10.      UINT h, n
  11.      CHAR fname BASED b
  12.   ENDDEF
  13.  
  14.   DO key_dos
  15.   DO scrn_dos
  16.   
  17.   IF .not. fb_open( h, ltrim( filename ), &B_READ )
  18.       ? "ShowDbfStructure v1.1 (c) 1993 by Alfred Klich"
  19.       ? "  Syntax: SDS <name>.dbf"
  20.       QUIT
  21.   ENDIF
  22.  
  23.   ?
  24.   ? "Nr.  Feldname    Länge    Dez.  Feldtyp"
  25.   ? "----------------------------------------"
  26.   ?
  27.  
  28.   n = 1  
  29.   fb_read( h, b[], 32 )
  30.   DO WHILE .not. fb_eof( h )
  31.      fb_read( h, b[], 32 )
  32.      IF b[0] = 0xd
  33.         ?
  34.         EXIT
  35.      ENDIF
  36.      ? n:2, " ", fname:10, " ", b[16]:3, " ", b[17]:3, " ", chr( b[11] ):3
  37.      n = n +1
  38.   ENDDO
  39.   fb_close( h )
  40. ENDPRO
  41.