| products/sources/formale sprachen/Cobol/Test-Suite/SQL M/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: reportb.mco Sprache: Unknown
|
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. [ Dauer der Verarbeitung: 0.77 Sekunden (vorverarbeitet) ] |