Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 

products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/     Datei vom 4.1.2008 mit Größe 51 kB image not shown  

Quelle  cts5tab.cob   Sprache: Cobol

 
       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. 

100%


¤ Dauer der Verarbeitung: 0.41 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.





                                                                                                                                                                                                                                                                                                                                                                                                     

Neuigkeiten

     Aktuelles
     Motto des Tages

Software

     Produkte
     Quellcodebibliothek

Aktivitäten

     Artikel über Sicherheit
     Anleitung zur Aktivierung von SSL

Muße

     Gedichte
     Musik
     Bilder
Jenseits des Üblichen ....

Besucherstatistik

Besucherstatistik

Monitoring

Montastic status badge