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 / DYNAMIC.SQF < prev    next >
Encoding:
Text File  |  1994-02-28  |  1.1 KB  |  49 lines
  1.       PROGRAM Dynamic
  2.       INCLUDE 'SQLENV.FOR'
  3.  
  4.       EXEC SQL INCLUDE SQLCA
  5.  
  6.       EXEC SQL BEGIN DECLARE SECTION
  7.         CHARACTER*20 table_name
  8.         CHARACTER*80 st  
  9.         CHARACTER*18 parm_var
  10.       EXEC SQL END DECLARE SECTION
  11.  
  12.       INTEGER*2 RC
  13.  
  14.       WRITE(*,*) 'Sample FORTRAN program: DYNAMIC'
  15.  
  16.       EXEC SQL CONNECT TO sample IN SHARE MODE
  17.       IF ( SQLCODE .NE. 0 ) THEN
  18.         WRITE(*,*) 'Start DB error:  SQLCODE = ', SQLCODE
  19.         STOP
  20.       END IF
  21.  
  22.       EXEC SQL WHENEVER NOT FOUND GO TO 200
  23.       EXEC SQL WHENEVER SQLERROR  GO TO 100
  24.  
  25.       ST = 'SELECT name FROM sysibm.systables WHERE name <> ?'
  26.       EXEC SQL PREPARE s1 FROM :st  
  27.  
  28.       EXEC SQL DECLARE c1 CURSOR FOR s1  
  29.  
  30.       parm_var = 'STAFF'
  31.       EXEC SQL OPEN c1 USING :parm_var  
  32.  
  33.    10 CONTINUE
  34.          EXEC SQL FETCH c1 INTO :table_name  
  35.          WRITE (*,*) 'Table = ', table_name
  36.       GOTO 10
  37.  
  38.   100 WRITE (*,*) 'Error: SQLCODE = ', SQLCODE
  39.  
  40.   200 EXEC SQL WHENEVER SQLERROR CONTINUE
  41.  
  42.       EXEC SQL CLOSE c1  
  43.       EXEC SQL COMMIT
  44.  
  45.       EXEC SQL CONNECT RESET
  46.  
  47.       STOP
  48.       END
  49.