| 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: ML.thy Sprache: Cobol |
|
||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. CTS5TAB. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "CTS5TAB.SCO") calling SQL * procedures in file "CTS5TAB.MCO". **************************************************************** * * COMMENT SECTION * * DATE 1995/01/26 Module COBOL LANGUAGE * SQL VALIDATION ALPHA TEST SUITE V6.0 * * CTS5TAB.SCO * WRITTEN BY: Susan Watters * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL 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.sco" 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; CALL "SUB1" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM CTS1.ECCO; CALL "SUB2" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.ECCO VALUES ('NL'); CALL "SUB3" USING SQLCODE SQLSTATE 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; CALL "SUB4" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF VALUES ('E1','Alice',12,'Deale') * ; CALL "SUB5" USING SQLCODE SQLSTATE 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'); CALL "SUB6" USING SQLCODE SQLSTATE 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'); CALL "SUB7" USING SQLCODE SQLSTATE 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') * ; CALL "SUB8" USING SQLCODE SQLSTATE 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') * ; CALL "SUB9" USING SQLCODE SQLSTATE 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; CALL "SUB10" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO WORKS VALUES ('E1','P1',40); CALL "SUB11" USING SQLCODE SQLSTATE 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); CALL "SUB12" USING SQLCODE SQLSTATE 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); CALL "SUB13" USING SQLCODE SQLSTATE 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); CALL "SUB14" USING SQLCODE SQLSTATE 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); CALL "SUB15" USING SQLCODE SQLSTATE 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); CALL "SUB16" USING SQLCODE SQLSTATE 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); CALL "SUB17" USING SQLCODE SQLSTATE 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); CALL "SUB18" USING SQLCODE SQLSTATE 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); CALL "SUB19" USING SQLCODE SQLSTATE 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); CALL "SUB20" USING SQLCODE SQLSTATE 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); CALL "SUB21" USING SQLCODE SQLSTATE 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); CALL "SUB22" USING SQLCODE SQLSTATE 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; CALL "SUB23" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO VTABLE VALUES(10,+20,30,40,10.50) * ; CALL "SUB24" USING SQLCODE SQLSTATE 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); CALL "SUB25" USING SQLCODE SQLSTATE 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) * ; CALL "SUB26" USING SQLCODE SQLSTATE 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); CALL "SUB27" USING SQLCODE SQLSTATE 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; CALL "SUB28" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.STAFFb VALUES * (10000,'Fred',40,'P2','Vienna','M'); CALL "SUB29" USING SQLCODE SQLSTATE 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'); CALL "SUB30" USING SQLCODE SQLSTATE 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'); CALL "SUB31" USING SQLCODE SQLSTATE 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'); CALL "SUB32" USING SQLCODE SQLSTATE 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'); CALL "SUB33" USING SQLCODE SQLSTATE 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'); CALL "SUB34" USING SQLCODE SQLSTATE 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'); CALL "SUB35" USING SQLCODE SQLSTATE 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'); CALL "SUB36" USING SQLCODE SQLSTATE 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'); CALL "SUB37" USING SQLCODE SQLSTATE 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'); CALL "SUB38" USING SQLCODE SQLSTATE 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'); CALL "SUB39" USING SQLCODE SQLSTATE 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'); CALL "SUB40" USING SQLCODE SQLSTATE 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; CALL "SUB41" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.STAFFa VALUES * (40,10000,'E6',2,'Fred'); CALL "SUB42" USING SQLCODE SQLSTATE 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'); CALL "SUB43" USING SQLCODE SQLSTATE 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'); CALL "SUB44" USING SQLCODE SQLSTATE 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'); CALL "SUB45" USING SQLCODE SQLSTATE 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'); CALL "SUB46" USING SQLCODE SQLSTATE 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'); CALL "SUB47" USING SQLCODE SQLSTATE 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'); CALL "SUB48" USING SQLCODE SQLSTATE 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'); CALL "SUB49" USING SQLCODE SQLSTATE 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'); CALL "SUB50" USING SQLCODE SQLSTATE 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'); CALL "SUB51" USING SQLCODE SQLSTATE 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'); CALL "SUB52" USING SQLCODE SQLSTATE 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'); CALL "SUB53" USING SQLCODE SQLSTATE 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; CALL "SUB54" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFFc VALUES * ('E1','Alice',12,'Deale',NULL); CALL "SUB55" USING SQLCODE SQLSTATE 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'); CALL "SUB56" USING SQLCODE SQLSTATE 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'); CALL "SUB57" USING SQLCODE SQLSTATE 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'); CALL "SUB58" USING SQLCODE SQLSTATE 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'); CALL "SUB59" USING SQLCODE SQLSTATE 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'); CALL "SUB60" USING SQLCODE SQLSTATE 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'); CALL "SUB61" USING SQLCODE SQLSTATE 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; CALL "SUB62" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF_CTS2 VALUES * ('E1','Alice',12,'Deale'); CALL "SUB63" USING SQLCODE SQLSTATE 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'); CALL "SUB64" USING SQLCODE SQLSTATE 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'); CALL "SUB65" USING SQLCODE SQLSTATE 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'); CALL "SUB66" USING SQLCODE SQLSTATE 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'); CALL "SUB67" USING SQLCODE SQLSTATE 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'); CALL "SUB68" USING SQLCODE SQLSTATE 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'); CALL "SUB69" USING SQLCODE SQLSTATE 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'); CALL "SUB70" USING SQLCODE SQLSTATE 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; CALL "SUB71" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO STAFF_CTS VALUES * ('P1','Deale',12,'Don'); CALL "SUB72" USING SQLCODE SQLSTATE 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'); CALL "SUB73" USING SQLCODE SQLSTATE 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'); CALL "SUB74" USING SQLCODE SQLSTATE 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'); CALL "SUB75" USING SQLCODE SQLSTATE 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'); CALL "SUB76" USING SQLCODE SQLSTATE 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; CALL "SUB77" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Atherton',1) * ; CALL "SUB78" USING SQLCODE SQLSTATE 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) * ; CALL "SUB79" USING SQLCODE SQLSTATE 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) * ; CALL "SUB80" USING SQLCODE SQLSTATE 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); CALL "SUB81" USING SQLCODE SQLSTATE 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) * ; CALL "SUB82" USING SQLCODE SQLSTATE 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) * ; CALL "SUB83" USING SQLCODE SQLSTATE 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); CALL "SUB84" USING SQLCODE SQLSTATE 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; CALL "SUB85" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO A VALUES (1, 15); CALL "SUB86" USING SQLCODE SQLSTATE 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); CALL "SUB87" USING SQLCODE SQLSTATE 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); CALL "SUB88" USING SQLCODE SQLSTATE 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); CALL "SUB89" USING SQLCODE SQLSTATE 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); CALL "SUB90" USING SQLCODE SQLSTATE 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); CALL "SUB91" USING SQLCODE SQLSTATE 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); CALL "SUB92" USING SQLCODE SQLSTATE 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); CALL "SUB93" USING SQLCODE SQLSTATE 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); CALL "SUB94" USING SQLCODE SQLSTATE 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); CALL "SUB95" USING SQLCODE SQLSTATE 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); CALL "SUB96" USING SQLCODE SQLSTATE 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); CALL "SUB97" USING SQLCODE SQLSTATE 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); CALL "SUB98" USING SQLCODE SQLSTATE 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); CALL "SUB99" USING SQLCODE SQLSTATE 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); CALL "SUB100" USING SQLCODE SQLSTATE 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; CALL "SUB101" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO TT (TTA, TTC) VALUES (1, 99); CALL "SUB102" USING SQLCODE SQLSTATE 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); CALL "SUB103" USING SQLCODE SQLSTATE 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); CALL "SUB104" USING SQLCODE SQLSTATE 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); CALL "SUB105" USING SQLCODE SQLSTATE 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); CALL "SUB106" USING SQLCODE SQLSTATE 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; CALL "SUB107" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO TU VALUES ('ab', 3); CALL "SUB108" USING SQLCODE SQLSTATE 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); CALL "SUB109" USING SQLCODE SQLSTATE 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); CALL "SUB110" USING SQLCODE SQLSTATE 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); CALL "SUB111" USING SQLCODE SQLSTATE 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); CALL "SUB112" USING SQLCODE SQLSTATE 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); CALL "SUB113" USING SQLCODE SQLSTATE 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; CALL "SUB114" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO TT2 VALUES (1,INTERVAL '17-3' YEAR TO * MONTH,13); CALL "SUB115" USING SQLCODE SQLSTATE 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); CALL "SUB116" USING SQLCODE SQLSTATE 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); CALL "SUB117" USING SQLCODE SQLSTATE 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); CALL "SUB118" USING SQLCODE SQLSTATE 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); CALL "SUB119" USING SQLCODE SQLSTATE 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; CALL "SUB120" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO TV VALUES (1,'a'); CALL "SUB121" USING SQLCODE SQLSTATE 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'); CALL "SUB122" USING SQLCODE SQLSTATE 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'); CALL "SUB123" USING SQLCODE SQLSTATE 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'); CALL "SUB124" USING SQLCODE SQLSTATE 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'); CALL "SUB125" USING SQLCODE SQLSTATE 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; CALL "SUB126" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO TW VALUES ('b',2); CALL "SUB127" USING SQLCODE SQLSTATE 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); CALL "SUB128" USING SQLCODE SQLSTATE 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); CALL "SUB129" USING SQLCODE SQLSTATE 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); CALL "SUB130" USING SQLCODE SQLSTATE 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); CALL "SUB131" USING SQLCODE SQLSTATE 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; CALL "SUB132" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO TX (TX1, TX3) VALUES (1, 'Susan') * ; CALL "SUB133" USING SQLCODE SQLSTATE 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') * ; CALL "SUB134" USING SQLCODE SQLSTATE 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', ''); CALL "SUB135" USING SQLCODE SQLSTATE 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') * ; CALL "SUB136" USING SQLCODE SQLSTATE 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') * ; CALL "SUB137" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD if (SQLCODE NOT = 0) then DISPLAY "*********** SQLCODE ", SQL-COD, " SQLSTATE ", SQLSTATE END-IF *printf("CL_EMPLOYEE\n"); *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; CALL "SUB138" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO TEST12849B VALUES (1); CALL "SUB139" USING SQLCODE SQLSTATE 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); CALL "SUB140" USING SQLCODE SQLSTATE 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); CALL "SUB141" USING SQLCODE SQLSTATE 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); CALL "SUB142" USING SQLCODE SQLSTATE 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; CALL "SUB143" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.TABX760 VALUES * (10,'SPYROS',25000); CALL "SUB144" USING SQLCODE SQLSTATE 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); CALL "SUB145" USING SQLCODE SQLSTATE 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) * ; CALL "SUB146" USING SQLCODE SQLSTATE 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) * ; CALL "SUB147" USING SQLCODE SQLSTATE 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); CALL "SUB148" USING SQLCODE SQLSTATE 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); CALL "SUB149" USING SQLCODE SQLSTATE 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; CALL "SUB150" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.TABCS VALUES (1, _CS 'NICKOS', * _CS 'MARIA'); CALL "SUB151" USING SQLCODE SQLSTATE 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'); CALL "SUB152" USING SQLCODE SQLSTATE 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'); CALL "SUB153" USING SQLCODE SQLSTATE 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'); CALL "SUB154" USING SQLCODE SQLSTATE 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; CALL "SUB155" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.TTIME3 VALUES ( * 1,TIME '23:05:00',TIME '12:15:00-11:45', * TIMESTAMP '1995-07-07 08:15:00+03:05'); CALL "SUB156" USING SQLCODE SQLSTATE 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,TIME '05:10:00',TIME '00:07:00+08:39', * TIMESTAMP '2000-10-09 03:03:00+04:05'); CALL "SUB157" USING SQLCODE SQLSTATE 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,TIME '12:11:00',TIME '23:19:00+10:32', * TIMESTAMP '1997-01-16 12:17:00-12:16'); CALL "SUB158" USING SQLCODE SQLSTATE 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,TIME '05:10:00',TIME '00:07:00+08:39', * TIMESTAMP '2000-10-09 03:03:00+04:05'); CALL "SUB159" USING SQLCODE SQLSTATE 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,TIME '17:39:00',TIME '08:28:00-11:45', * TIMESTAMP '1994-12-31 20:00:00+04:05'); CALL "SUB160" USING SQLCODE SQLSTATE 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,TIME '17:39:00',TIME '08:28:00-11:45', * TIMESTAMP '1994-12-31 20:00:00+04:05'); CALL "SUB161" USING SQLCODE SQLSTATE 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; CALL "SUB162" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES * (1000,'NICKOS',4000,'ATHENS'); CALL "SUB163" USING SQLCODE SQLSTATE 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'); CALL "SUB164" USING SQLCODE SQLSTATE 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'); CALL "SUB165" USING SQLCODE SQLSTATE 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'); CALL "SUB166" USING SQLCODE SQLSTATE 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'); CALL "SUB167" USING SQLCODE SQLSTATE 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; CALL "SUB168" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.TABLE728a VALUES * ('NICKOS','GEORGE'); CALL "SUB169" USING SQLCODE SQLSTATE 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'); CALL "SUB170" USING SQLCODE SQLSTATE 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) * ; CALL "SUB171" USING SQLCODE SQLSTATE 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) * ; CALL "SUB172" USING SQLCODE SQLSTATE 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; CALL "SUB173" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.TAB734 VALUES (N' !',N'* *') * ; CALL "SUB174" USING SQLCODE SQLSTATE 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'+ +') * ; CALL "SUB175" USING SQLCODE SQLSTATE 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'+ +') * ; CALL "SUB176" USING SQLCODE SQLSTATE 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' + ') * ; CALL "SUB177" USING SQLCODE SQLSTATE 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; CALL "SUB178" USING SQLCODE SQLSTATE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES * ('GEORGE',1,10,100); CALL "SUB179" USING SQLCODE SQLSTATE 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); CALL "SUB180" USING SQLCODE SQLSTATE 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); CALL "SUB181" USING SQLCODE SQLSTATE 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); CALL "SUB182" USING SQLCODE SQLSTATE 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); CALL "SUB183" USING SQLCODE SQLSTATE 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); CALL "SUB184" USING SQLCODE SQLSTATE 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; CALL "SUB185" USING SQLCODE SQLSTATE 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.52 Sekunden (vorverarbeitet) ¤ |
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.Die farbliche Syntaxdarstellung ist noch experimentell.Bot Zugriff |
