home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / DBSQL.ZIP / LISTDB.SQC < prev    next >
Text File  |  1990-12-01  |  1KB  |  57 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6. #include <os2.h>
  7. #include <stdio.h>
  8. #include <sqlenv.h>
  9.  
  10. EXEC SQL INCLUDE SQLCA;
  11.  
  12. struct  sqledinfo   *sqledinfo;
  13.  
  14. CHAR    chDrive;
  15. USHORT  sHandle;
  16. USHORT  sCount;
  17. SHORT   i,j;
  18.  
  19. VOID main ( );
  20.  
  21. VOID main ( )
  22. {
  23.     chDrive = 'C';
  24.     
  25.     sqledops ( chDrive, &sHandle, &sCount, &sqlca );
  26.  
  27.     for ( i = 0; i < sCount; i++ )
  28.     {
  29.         sqledgne ( sHandle, &sqledinfo, &sqlca );
  30.     
  31.         if ( sqlca.sqlcode == 0 )
  32.         {
  33.             for ( j = 0; j < SQL_DBNAME_SZ; j++ )
  34.                 printf ( "%c", sqledinfo->dbname[j] );
  35.         printf ( "  " );
  36.  
  37.         for ( j = 0; j < SQL_ALIAS_SZ; j++ )
  38.         printf ( "%c", sqledinfo->alias[j] );
  39.         printf ( "  " );
  40.  
  41.         for ( j = 0; j < SQL_INAME_SZ; j++ )
  42.         printf ( "%c", sqledinfo->intname[j] );
  43.         printf ( "  " );
  44.  
  45.         for ( j = 0; j < SQL_NNAME_SZ; j++ )
  46.         printf ( "%c", sqledinfo->nodename[j] );
  47.         printf ( "  " );
  48.  
  49.             for ( j = 0; j < SQL_CMT_SZ; j++ )
  50.         printf ( "%c", sqledinfo->comment[j] );
  51.         printf ( "  " );
  52.  
  53.         printf ( "\n" );
  54.         }
  55.     }
  56. }
  57.