Quelle  cts5tab.cob

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  CTS5TAB.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * EMBEDDED COBOL (file "CTS5TAB.PCO")


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1995/01/26 EMBEDDED COBOL LANGUAGE                          
      * SQL VALIDATION ALPHA TEST SUITE V6.0                         
      *                                                              
      * CTS5TAB.PCO                                                   
      * WRITTEN BY: Susan Watters                                    
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      * This routine may be run at any time to re-initialize tables. 
      *                                                              
      *                                                              
      * DATE PROGRAM LAST CHANGED   1/11/95                          
      * Program updated to address NIST comments re TABLATIN1        
      * Programs changed to address all other comments from DWF      
      *                                                              
      * Revised by DWF 1996-02-21                                    
      ****************************************************************

      *This program is used for the CTS5 Standalone Test Suite only 
      *Updated on 5/6/95 to include table inserts needed for programs 


           EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       01  SQLSTATE PIC  X(5).
       01  uid PIC  X(18).
       01  uidx PIC  X(18).
             EXEC SQL END DECLARE SECTION END-EXEC
       01  errcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
      *date_time declaration 
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC 9(8).

       01  SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       PROCEDURE DIVISION.
       P0.

             MOVE "CTS1              " TO uid
             CALL "AUTHID" USING uid
             MOVE 0 TO errcnt
             DISPLAY "SQL VALIDATION TEST SUITE V6.0, cts5tab.pco"
             DISPLAY
           "59-byte ID"
             DISPLAY "TEd Version #"
      *date_time print 
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM TIME
           DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME

             DISPLAY  " "
             DISPLAY "National character literals may need to be
      -    " Ted-changed to"
             DISPLAY "use characters from the correct repertoire."
             DISPLAY  " "

             EXEC SQL ROLLBACK WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL DELETE FROM CTS1.ECCO END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.ECCO VALUES ('NL') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

      *tables taken from the NIST test suite 

             DISPLAY "STAFF"
             EXEC SQL DELETE FROM STAFF END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO STAFF VALUES ('E1','Alice',12,'Deale')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF VALUES
             ('E2','Betty',10,'Vienna') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF VALUES
             ('E3','Carmen',13,'Vienna') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF VALUES ('E4','Don',12,'Deale')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF VALUES ('E5','Ed',13,'Akron')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "WORKS"
             EXEC SQL DELETE FROM WORKS END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO WORKS VALUES  ('E1','P1',40) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E1','P2',20) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E1','P3',80) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E1','P4',20) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E1','P5',12) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E1','P6',12) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E2','P1',40) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E2','P2',80) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E3','P2',20) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E4','P2',20) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E4','P4',40) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO WORKS VALUES  ('E4','P5',80) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "VTABLE"
             EXEC SQL DELETE FROM VTABLE END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO VTABLE VALUES(10,+20,30,40,10.50)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO VTABLE VALUES(0,1,2,3,4.25) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO VTABLE VALUES(100,200,300,400,500.01)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO VTABLE
             VALUES(1000,-2000,3000,NULL,4000.00) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

      *tables unique to CTS development 
             DISPLAY "CTS1.STAFFb"
             EXEC SQL DELETE FROM CTS1.STAFFb END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (10000,'Fred',40,'P2','Vienna','M') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (10000,'Fred',40,'P2','Vienna','M') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (10000,'Fred',40,'P2','Vienna','M') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (15000,'Carmen',35,'P2','Vienna','F') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (15000,'Carmen',35,'P2','Vienna','F') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (10000,'Alice',40,'P3','Prague','F') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (20000,'Betty',30,'P1','Deale','F') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (20000,'Betty',30,'P1','Deale','F') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (40000,'Don',70,'P3','Prague','M') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (40000,'Don',70,'P3','Prague','M') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (40000,'Don',70,'P3','Prague','M') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFb VALUES
             (10000,'Ed',40,'P1','Deale','M') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "CTS1.STAFFa"
             EXEC SQL DELETE FROM CTS1.STAFFa END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (40,10000,'E6',2,'Fred') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (40,10000,'E6',2,'Fred') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (40,10000,'E1',3,'Alice') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (40,10000,'E1',3,'Alice') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (70,40000,'E4',3,'Don') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (70,40000,'E4',3,'Don') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (70,40000,'E4',3,'Don') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (30,20000,'E2',1,'Betty') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (60,45000,'E7',4,'Grace') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (60,45000,'E7',4,'Grace') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (30,8000,'E8',2,'Henry') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.STAFFa VALUES
             (15,7000,'E9',1,'Imogen') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "CTS1.STAFFc"
             EXEC SQL DELETE FROM STAFFc END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO STAFFc VALUES
             ('E1','Alice',12,'Deale',NULL) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFFc VALUES
             ('E2','Betty',10,'Vienna','E1') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFFc VALUES
             ('E3','Carmen',13,'Vienna','E2') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFFc VALUES
             ('E4','Don',12,'Deale','E2') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFFc VALUES
             ('E5','Don',12,'Deale','E1') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFFc VALUES
             ('E6','Tom',14,'Gettysburg','E5') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFFc VALUES
             ('E7','Kingdom',18,'Gettysburg','E7') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "CTS1.STAFF_CTS2"
             EXEC SQL DELETE FROM STAFF_CTS2 END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO STAFF_CTS2 VALUES
             ('E1','Alice',12,'Deale') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS2 VALUES
             ('E1','Alice',12,'Deale') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS2 VALUES
             ('E2','Betty',10,'Vienna') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS2 VALUES
             ('E3','Carmen',13,'Vienna') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS2 VALUES
             ('E3','Carmen',13,'Vienna') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS2 VALUES
             ('E3','Carmen',13,'Vienna') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS2 VALUES
             ('E4','Don',12,'Deale') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS2 VALUES
             ('E6','Don',12,'Deale') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "STAFF_CTS"
             EXEC SQL DELETE FROM STAFF_CTS END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO STAFF_CTS VALUES
             ('P1','Deale',12,'Don') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS VALUES
             ('P3','Vienna',10,'Betty') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS VALUES
             ('P3','Vienna',10,'Betty') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS VALUES
             ('P4','Vienna',13,'Carmen') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO STAFF_CTS VALUES
             ('P5','Prague',15,'Ed') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "EMPLOYEES2"
             EXEC SQL DELETE FROM EMPLOYEES2 END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Atherton',1)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Botham',2)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Cowdrey',3)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Dev',4) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Edmunds',5)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Fields',6)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Gower',7) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "A"
             EXEC SQL DELETE FROM A END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO A VALUES (1, 15) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (3, 17) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (7, 11) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (5, 9) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (13, 13) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (9, 5) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (11, 7) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (17, 3) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (15, 1) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (13, 5) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (13, 15) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (11, 1) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (5, 5) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (5, 3) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO A VALUES (1, 1) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TT"
             EXEC SQL DELETE FROM TT END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO TT (TTA, TTC) VALUES (1, 99) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TT (TTA, TTB) VALUES (2, 98) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TT VALUES (3, 97, 96) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TT (TTA) VALUES (4) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TT VALUES (5, 42, 26) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TU"
             EXEC SQL DELETE FROM TU END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO TU VALUES ('ab', 3) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TU (TUE) VALUES (5) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TU VALUES ('cd', 4) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TU (TUE) VALUES (11) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TU VALUES ('ef', 12) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TU VALUES ('gh', 11) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TT2"
             EXEC SQL DELETE FROM TT2 END-EXEC
             MOVE SQLCODE TO SQL-COD
      *       EXEC SQL INSERT INTO TT2 VALUES (1,INTERVAL '17-3' YEAR TO
      *       MONTH,13) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
      *       EXEC SQL INSERT INTO TT2 (TTA,TTB) VALUES (2,INTERVAL '5-6'
      *       YEAR TO MONTH) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TT2 (TTA) VALUES (3) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TT2 (TTA,TTC) VALUES (4,20) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
      *       EXEC SQL INSERT INTO TT2 VALUES (5,INTERVAL '60-2' YEAR TO
      *       MONTH,19) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TV"
             EXEC SQL DELETE FROM TV END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO TV VALUES (1,'a') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TV VALUES (2,'b') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TV VALUES (3,'c') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TV VALUES (4,'d') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TV VALUES (5,'e') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TW"
             EXEC SQL DELETE FROM TW END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO TW VALUES ('b',2) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TW VALUES ('g',1) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TW VALUES ('f',2) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TW VALUES ('h',4) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TW VALUES ('i',5) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TX"
             EXEC SQL DELETE FROM TX END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO TX (TX1, TX3) VALUES (1, 'Susan')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TX (TX1, TX2) VALUES (2, 'lemon')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TX VALUES (3, 'apple', '') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TX VALUES (4, 'melon', 'Peter')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TX VALUES (5, 'peach', 'Matthew')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

      *printf("CL_EMPLOYEE"); 
      *EXEC SQL DELETE FROM CL_EMPLOYEE; 
      *EXEC SQL INSERT INTO CL_EMPLOYEE (EMPNUM)  
      *VALUES (7000); 
      *EXEC SQL INSERT INTO CL_EMPLOYEE (EMPNUM, LOC) 
      *VALUES (20002,'CRETA'); 
      *EXEC SQL INSERT INTO CL_EMPLOYEE (EMPNUM, DEPTNO, LOC) VALUES 
      *(8000,'P2','HALKIDA'); 
      *EXEC SQL INSERT INTO CL_EMPLOYEE (EMPNUM, EMPNAME, SALARY, GRAD
      *VALUES (9000, 'ANDREWS', 15000, 5,125); 

             DISPLAY "TEST12849B"
             EXEC SQL DELETE FROM TEST12849B END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO TEST12849B VALUES (1) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TEST12849B VALUES (2) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TEST12849B VALUES (3) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO TEST12849B VALUES (4) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TABX760"
             EXEC SQL DELETE FROM TABX760 END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.TABX760 VALUES
             (10,'SPYROS',25000) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABX760 VALUES
             (11,'ALEXIS',18000) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABX760 VALUES (12,'LAMBIS',9000)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABX760 VALUES (13,'ELENI',4000)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABX760 VALUES
             (14,'MARIOS',47000) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABX760 VALUES
             (15,'NICKOLAS',78000) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TABCS"
             EXEC SQL DELETE FROM TABCS END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.TABCS VALUES (1, _CS 'NICKOS',
             _CS 'MARIA') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABCS VALUES (2, _CS 'BILL',
             _CS 'TAKIS') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABCS VALUES (3, _CS 'NICKOS',
             _CS 'TAKIS') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABCS VALUES (4, _CS 'MARIA',
             _CS 'TAKIS') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TTIME3"
             EXEC SQL DELETE FROM TTIME3 END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (
               1,'23:05:00','12:15:00-11:45',
               TIMESTAMP '1995-07-07 08:15:00+03:05') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TTIME3 VALUES(
               2,'05:10:00','00:07:00+08:39', 
               TIMESTAMP '2000-10-09 03:03:00+04:05') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (
               3,'12:11:00','23:19:00+10:32', 
               TIMESTAMP '1997-01-16 12:17:00-12:16') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (
               4,'05:10:00','00:07:00+08:39', 
               TIMESTAMP '2000-10-09 03:03:00+04:05') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (
               5,'17:39:00','08:28:00-11:45', 
               TIMESTAMP '1994-12-31 20:00:00+04:05') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (
               6,'17:39:00','08:28:00-11:45', 
               TIMESTAMP '1994-12-31 20:00:00+04:05') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "CL_STANDARD"
             EXEC SQL DELETE FROM CL_STANDARD END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES
             (1000,'NICKOS',4000,'ATHENS') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES
             (1001,'MARIA',4001,'RHODES') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES
             (1002,'MAKIS',4002,'HANIA') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES
             (1003,'GEORGE',4003,'ARTA') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES
             (1004,'MORRIS',4004,'PARGA') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TABLE728a"
             EXEC SQL DELETE FROM TABLE728a END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.TABLE728a VALUES
             ('NICKOS','GEORGE') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABLE728a VALUES
             ('HARRY','TANIA') END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABLE728a VALUES ('KILLER',NULL)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TABLE728a VALUES (NULL,NULL)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "TAB734"
             EXEC SQL DELETE FROM TAB734 END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.TAB734 VALUES (N'   !',N'*  *')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TAB734 VALUES (N' * ',N'+ +')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TAB734 VALUES (N'+ +',N'+ +')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.TAB734 VALUES (NULL,N' + ')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "CTS1.CL_DATA_TYPE"
             EXEC SQL DELETE FROM CL_DATA_TYPE END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES
             ('GEORGE',1,10,100) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES
             ('NICK',2,20,200) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES
             ('PAUL',3,30,300) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES
             ('PETER',4,40,400) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES
             ('KEVIN',5,50,500) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF
             EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES
             ('JASON',6,60,600) END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF

             DISPLAY "COMMIT WORK"
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0)  then
               DISPLAY "*********** SQLCODE ", SQL-COD, "   SQLSTATE ",
             SQLSTATE
             END-IF



      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
           STOP RUN.

      *    ****  Procedures for PERFORM statements

      *Test SQLCODE and SQLSTATE for normal completion.