home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CODE4-4.ZIP / HDR_EXMP.ZIP / EXAMPLES.ZIP / D4EXAMPL.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-13  |  647 b   |  39 lines
  1.  
  2. /* d4example.c */
  3.  
  4. #include "d4base.h"
  5. #include "w4.h"
  6.  
  7. #ifdef TURBO
  8.    extern unsigned  _stklen =  10000 ;
  9. #endif
  10.  
  11. main(argc, argv)
  12. int   argc ;
  13. char *argv[] ;
  14. {
  15.    int  j;  long  ref ;
  16.  
  17.    /* Initialize Code Base and clear the screen */
  18.    d4init() ;       
  19.    w4clear( -1 ) ;
  20.  
  21.    if ( argc < 2 )
  22.    {
  23.       w4(0,0, "USAGE:  D4EXAMPLE  DBF_FILE_NAME" ) ;
  24.       w4cursor(1,0) ;
  25.       exit(1) ;
  26.    }
  27.  
  28.    if ( d4use( argv[1] ) < 0 )  exit( 1 ) ;
  29.  
  30.    w4( 0,5, "Field Names:  " ) ;
  31.    for ( j=1; j<= f4num_fields(); j++ )
  32.    {
  33.       ref =  f4j_ref( j ) ;
  34.       w4( j,8, f4name( ref ) ) ;
  35.    }
  36.  
  37.    w4exit( 0 ) ;
  38. }
  39.