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 / UPDATE.SQF < prev   
Encoding:
Text File  |  1994-02-28  |  1.0 KB  |  41 lines
  1.       PROGRAM UPDATE
  2.       INCLUDE 'SQLENV.FOR' 
  3.  
  4.       EXEC SQL INCLUDE SQLCA 
  5.  
  6.       EXEC SQL BEGIN DECLARE SECTION
  7.       CHARACTER*80 STATEMENT 
  8.       EXEC SQL END DECLARE SECTION
  9.  
  10.       INTEGER*2 RC
  11.  
  12.       WRITE(*,*) 'Sample FORTRAN program: UPDATE'
  13.       RC = SQLGISIG ( SQLCA )  
  14.  
  15.       EXEC SQL CONNECT TO sample IN SHARE MODE 
  16.  
  17.       IF ( SQLCODE .NE. 0 ) THEN 
  18.         WRITE(*,*) 'Connect to error:  SQLCODE = ', SQLCODE
  19.         STOP
  20.       ENDIF
  21.  
  22.       STATEMENT='UPDATE staff SET job = ''Clerk'' WHERE job = ''Mgr''' 
  23.       EXEC SQL EXECUTE IMMEDIATE :STATEMENT  
  24.  
  25.       IF ( SQLCODE .NE. 0 ) THEN
  26.         WRITE(*,*) 'Update error:  SQLCODE = ', SQLCODE
  27.       ELSE
  28.         WRITE (*,*) 'All managers demoted to clerk!'
  29.       ENDIF
  30.  
  31.       EXEC SQL ROLLBACK 
  32.       WRITE (*,*) 'On second thought...changes rolled back.'
  33.  
  34.       EXEC SQL CONNECT RESET 
  35.       IF ( SQLCODE .NE.0 ) THEN
  36.         WRITE(*,*) 'Disconnect error: SQLCODE = ', SQLCODE
  37.       ENDIF
  38.  
  39.       STOP
  40.       END
  41.