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 .MOVE "CTS1 " TO uidCALL "AUTHID" USING uidMOVE 0 TO errcntDISPLAY "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-TIMEDISPLAY " " 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-CODEXEC SQL DELETE FROM CTS1.ECCO END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.ECCO VALUES ('NL' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF *tables taken from the NIST test suite DISPLAY "STAFF" EXEC SQL DELETE FROM STAFF END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO STAFF VALUES ('E1' ,'Alice' ,12 ,'Deale' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF VALUES'E2' ,'Betty' ,10 ,'Vienna' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF VALUES'E3' ,'Carmen' ,13 ,'Vienna' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF VALUES ('E4' ,'Don' ,12 ,'Deale' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF VALUES ('E5' ,'Ed' ,13 ,'Akron' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "WORKS" EXEC SQL DELETE FROM WORKS END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO WORKS VALUES ('E1' ,'P1' ,40 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E1' ,'P2' ,20 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E1' ,'P3' ,80 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E1' ,'P4' ,20 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E1' ,'P5' ,12 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E1' ,'P6' ,12 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E2' ,'P1' ,40 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E2' ,'P2' ,80 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E3' ,'P2' ,20 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E4' ,'P2' ,20 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E4' ,'P4' ,40 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO WORKS VALUES ('E4' ,'P5' ,80 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "VTABLE" EXEC SQL DELETE FROM VTABLE END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO VTABLE VALUES(10 ,+20 ,30 ,40 ,10 .50 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO VTABLE VALUES(0 ,1 ,2 ,3 ,4 .25 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO VTABLE VALUES(100 ,200 ,300 ,400 ,500 .01 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO VTABLE1000 ,-2000 ,3000 ,NULL ,4000 .00 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF *tables unique to CTS development DISPLAY "CTS1.STAFFb" EXEC SQL DELETE FROM CTS1.STAFFb END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.STAFFb VALUES10000 ,'Fred' ,40 ,'P2' ,'Vienna' ,'M' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES10000 ,'Fred' ,40 ,'P2' ,'Vienna' ,'M' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES10000 ,'Fred' ,40 ,'P2' ,'Vienna' ,'M' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES15000 ,'Carmen' ,35 ,'P2' ,'Vienna' ,'F' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES15000 ,'Carmen' ,35 ,'P2' ,'Vienna' ,'F' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES10000 ,'Alice' ,40 ,'P3' ,'Prague' ,'F' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES20000 ,'Betty' ,30 ,'P1' ,'Deale' ,'F' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES20000 ,'Betty' ,30 ,'P1' ,'Deale' ,'F' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES40000 ,'Don' ,70 ,'P3' ,'Prague' ,'M' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES40000 ,'Don' ,70 ,'P3' ,'Prague' ,'M' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES40000 ,'Don' ,70 ,'P3' ,'Prague' ,'M' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFb VALUES10000 ,'Ed' ,40 ,'P1' ,'Deale' ,'M' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "CTS1.STAFFa" EXEC SQL DELETE FROM CTS1.STAFFa END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.STAFFa VALUES40 ,10000 ,'E6' ,2 ,'Fred' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES40 ,10000 ,'E6' ,2 ,'Fred' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES40 ,10000 ,'E1' ,3 ,'Alice' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES40 ,10000 ,'E1' ,3 ,'Alice' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES70 ,40000 ,'E4' ,3 ,'Don' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES70 ,40000 ,'E4' ,3 ,'Don' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES70 ,40000 ,'E4' ,3 ,'Don' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES30 ,20000 ,'E2' ,1 ,'Betty' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES60 ,45000 ,'E7' ,4 ,'Grace' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES60 ,45000 ,'E7' ,4 ,'Grace' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES30 ,8000 ,'E8' ,2 ,'Henry' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.STAFFa VALUES15 ,7000 ,'E9' ,1 ,'Imogen' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "CTS1.STAFFc" EXEC SQL DELETE FROM STAFFc END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO STAFFc VALUES'E1' ,'Alice' ,12 ,'Deale' ,NULL ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFFc VALUES'E2' ,'Betty' ,10 ,'Vienna' ,'E1' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFFc VALUES'E3' ,'Carmen' ,13 ,'Vienna' ,'E2' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFFc VALUES'E4' ,'Don' ,12 ,'Deale' ,'E2' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFFc VALUES'E5' ,'Don' ,12 ,'Deale' ,'E1' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFFc VALUES'E6' ,'Tom' ,14 ,'Gettysburg' ,'E5' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFFc VALUES'E7' ,'Kingdom' ,18 ,'Gettysburg' ,'E7' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "CTS1.STAFF_CTS2" EXEC SQL DELETE FROM STAFF_CTS2 END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO STAFF_CTS2 VALUES'E1' ,'Alice' ,12 ,'Deale' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS2 VALUES'E1' ,'Alice' ,12 ,'Deale' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS2 VALUES'E2' ,'Betty' ,10 ,'Vienna' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS2 VALUES'E3' ,'Carmen' ,13 ,'Vienna' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS2 VALUES'E3' ,'Carmen' ,13 ,'Vienna' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS2 VALUES'E3' ,'Carmen' ,13 ,'Vienna' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS2 VALUES'E4' ,'Don' ,12 ,'Deale' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS2 VALUES'E6' ,'Don' ,12 ,'Deale' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "STAFF_CTS" EXEC SQL DELETE FROM STAFF_CTS END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO STAFF_CTS VALUES'P1' ,'Deale' ,12 ,'Don' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS VALUES'P3' ,'Vienna' ,10 ,'Betty' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS VALUES'P3' ,'Vienna' ,10 ,'Betty' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS VALUES'P4' ,'Vienna' ,13 ,'Carmen' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO STAFF_CTS VALUES'P5' ,'Prague' ,15 ,'Ed' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "EMPLOYEES2" EXEC SQL DELETE FROM EMPLOYEES2 END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Atherton' ,1 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Botham' ,2 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Cowdrey' ,3 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Dev' ,4 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Edmunds' ,5 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Fields' ,6 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO EMPLOYEES2 VALUES ('Gower' ,7 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "A" EXEC SQL DELETE FROM A END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO A VALUES (1 , 15 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (3 , 17 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (7 , 11 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (5 , 9 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (13 , 13 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (9 , 5 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (11 , 7 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (17 , 3 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (15 , 1 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (13 , 5 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (13 , 15 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (11 , 1 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (5 , 5 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (5 , 3 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO A VALUES (1 , 1 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TT" EXEC SQL DELETE FROM TT END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO TT (TTA, TTC) VALUES (1 , 99 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TT (TTA, TTB) VALUES (2 , 98 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TT VALUES (3 , 97 , 96 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TT (TTA) VALUES (4 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TT VALUES (5 , 42 , 26 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TU" EXEC SQL DELETE FROM TU END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO TU VALUES ('ab' , 3 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TU (TUE) VALUES (5 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TU VALUES ('cd' , 4 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TU (TUE) VALUES (11 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TU VALUES ('ef' , 12 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TU VALUES ('gh' , 11 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " 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-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF * EXEC SQL INSERT INTO TT2 (TTA,TTB) VALUES (2,INTERVAL '5-6' * YEAR TO MONTH) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TT2 (TTA) VALUES (3 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TT2 (TTA,TTC) VALUES (4 ,20 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF * EXEC SQL INSERT INTO TT2 VALUES (5,INTERVAL '60-2' YEAR TO * MONTH,19) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TV" EXEC SQL DELETE FROM TV END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO TV VALUES (1 ,'a' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TV VALUES (2 ,'b' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TV VALUES (3 ,'c' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TV VALUES (4 ,'d' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TV VALUES (5 ,'e' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TW" EXEC SQL DELETE FROM TW END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO TW VALUES ('b' ,2 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TW VALUES ('g' ,1 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TW VALUES ('f' ,2 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TW VALUES ('h' ,4 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TW VALUES ('i' ,5 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TX" EXEC SQL DELETE FROM TX END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO TX (TX1, TX3) VALUES (1 , 'Susan' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TX (TX1, TX2) VALUES (2 , 'lemon' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TX VALUES (3 , 'apple' , '' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TX VALUES (4 , 'melon' , 'Peter' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TX VALUES (5 , 'peach' , 'Matthew' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " 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-CODEXEC SQL INSERT INTO TEST12849B VALUES (1 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TEST12849B VALUES (2 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TEST12849B VALUES (3 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO TEST12849B VALUES (4 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TABX760" EXEC SQL DELETE FROM TABX760 END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.TABX760 VALUES10 ,'SPYROS' ,25000 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABX760 VALUES11 ,'ALEXIS' ,18000 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABX760 VALUES (12 ,'LAMBIS' ,9000 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABX760 VALUES (13 ,'ELENI' ,4000 )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABX760 VALUES14 ,'MARIOS' ,47000 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABX760 VALUES15 ,'NICKOLAS' ,78000 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TABCS" EXEC SQL DELETE FROM TABCS END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.TABCS VALUES (1 , _CS 'NICKOS' ,'MARIA' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABCS VALUES (2 , _CS 'BILL' ,'TAKIS' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABCS VALUES (3 , _CS 'NICKOS' ,'TAKIS' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABCS VALUES (4 , _CS 'MARIA' ,'TAKIS' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TTIME3" EXEC SQL DELETE FROM TTIME3 END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.TTIME3 VALUES (1 ,'23:05:00' ,'12:15:00-11:45' ,'1995-07-07 08:15:00+03:05' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TTIME3 VALUES(2 ,'05:10:00' ,'00:07:00+08:39' , '2000-10-09 03:03:00+04:05' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (3 ,'12:11:00' ,'23:19:00+10:32' , '1997-01-16 12:17:00-12:16' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (4 ,'05:10:00' ,'00:07:00+08:39' , '2000-10-09 03:03:00+04:05' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (5 ,'17:39:00' ,'08:28:00-11:45' , '1994-12-31 20:00:00+04:05' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TTIME3 VALUES (6 ,'17:39:00' ,'08:28:00-11:45' , '1994-12-31 20:00:00+04:05' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "CL_STANDARD" EXEC SQL DELETE FROM CL_STANDARD END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES1000 ,'NICKOS' ,4000 ,'ATHENS' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES1001 ,'MARIA' ,4001 ,'RHODES' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES1002 ,'MAKIS' ,4002 ,'HANIA' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES1003 ,'GEORGE' ,4003 ,'ARTA' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_STANDARD VALUES1004 ,'MORRIS' ,4004 ,'PARGA' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TABLE728a" EXEC SQL DELETE FROM TABLE728a END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.TABLE728a VALUES'NICKOS' ,'GEORGE' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABLE728a VALUES'HARRY' ,'TANIA' ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABLE728a VALUES ('KILLER' ,NULL )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TABLE728a VALUES (NULL ,NULL )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "TAB734" EXEC SQL DELETE FROM TAB734 END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.TAB734 VALUES (N' !' ,N'* *' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TAB734 VALUES (N' * ' ,N'+ +' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TAB734 VALUES (N'+ +' ,N'+ +' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.TAB734 VALUES (NULL ,N' + ' )END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "CTS1.CL_DATA_TYPE" EXEC SQL DELETE FROM CL_DATA_TYPE END-EXEC MOVE SQLCODE TO SQL-CODEXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES'GEORGE' ,1 ,10 ,100 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES'NICK' ,2 ,20 ,200 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES'PAUL' ,3 ,30 ,300 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES'PETER' ,4 ,40 ,400 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES'KEVIN' ,5 ,50 ,500 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF EXEC SQL INSERT INTO CTS1.CL_DATA_TYPE VALUES'JASON' ,6 ,60 ,600 ) END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " SQLSTATE " ,END-IF DISPLAY "COMMIT WORK" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-CODif (SQLCODE NOT = 0 ) then DISPLAY "*********** SQLCODE " , SQL-COD, " 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.
Messung V0.5 in Prozent C=97 H=100 G=98
¤ Dauer der Verarbeitung: 0.25 Sekunden
(vorverarbeitet am 2026-06-08)
¤ *© Formatika GbR, Deutschland
