|
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.83 Sekunden
(vorverarbeitet)
¤
|
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.
|
