home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / 7025PWA1.ZIP / SAMPLES.ZIP / SQLLIB / SAMPLES / FOR / STATIC.SQF < prev    next >
Encoding:
Text File  |  1994-02-28  |  938 b   |  39 lines
  1.       PROGRAM Static
  2.       include 'sqlenv.for'
  3.  
  4.       EXEC SQL INCLUDE SQLCA  
  5.  
  6.       EXEC SQL BEGIN DECLARE SECTION
  7.         character*20 TABLENAME  
  8.       EXEC SQL END DECLARE SECTION
  9.  
  10.       integer*2 rc
  11.  
  12.       write(*,*) 'Sample Fortran Program: STATIC'
  13.       EXEC SQL CONNECT TO sample IN SHARE MODE  
  14.  
  15.       if ( SQLCODE .ne. 0 ) then
  16.          write(*,*) 'Start DB error:  SQLCODE = ', SQLCODE
  17.          stop
  18.       endif
  19.  
  20.       EXEC SQL WHENEVER SQLERROR GO TO 100  
  21.  
  22.       EXEC SQL  
  23.      c     SELECT NAME INTO :TABLENAME FROM SYSIBM.SYSTABLES
  24.      c     WHERE NAME = 'SYSPLAN'
  25.  
  26.       write(*,*) 'Table = ', TABLENAME
  27.       go to 200
  28.  
  29.   100 write(*,*) 'Select Error: SQLCODE = ', SQLCODE  
  30.  
  31.   200 EXEC SQL WHENEVER SQLERROR CONTINUE  
  32.       EXEC SQL CONNECT RESET  
  33.       if ( SQLCODE .ne. 0 ) then
  34.          write(*,*) 'Disconnect Error: SQLCODE = ', SQLCODE
  35.       endif
  36.  
  37.       STOP
  38.       END
  39.