SSL cdr030.mco

-- SQL Test Suite, V6.0, SQL Module cdr030.mco
-- 59-byte ID
-- 
MODULE CDR030
LANGUAGE COBOL
AUTHORIZATION SUN



PROCEDURE SUB1 SQLCODE SQLSTATE
    :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM SUN.ECCO;

PROCEDURE SUB2 SQLCODE SQLSTATE;
      INSERT INTO EMP VALUES
                    (41,'Tom','China Architecture',
                    20,'Architecture',040553);

PROCEDURE SUB3 SQLCODE SQLSTATE;
      DELETE FROM EMP
                    WHERE ENO = 21;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      UPDATE EMP
                    SET ENAME = 'Thomas'
                    WHERE ENO = 21;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      DELETE FROM STAFF7;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO STAFF7 (EMPNUM) VALUES ('XXX')
                 ;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO STAFF7 (EMPNUM) VALUES ('XXX')
                 ;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      DELETE FROM PROJ3;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      INSERT INTO PROJ3 (PNUM) VALUES ('787');

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO PROJ3 (PNUM) VALUES ('789');

PROCEDURE SUB11 SQLCODE SQLSTATE;
      UPDATE PROJ3 SET PNUM = '787' WHERE PNUM = '789'
                 ;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      DELETE FROM STAFF11;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO STAFF11
                    VALUES('E3','Susan',11,'Hawaii');

PROCEDURE SUB14 SQLCODE SQLSTATE;
      UPDATE STAFF11
                    SET GRADE = 5
                    WHERE EMPNUM = 'E3';

PROCEDURE SUB15 SQLCODE SQLSTATE;
      UPDATE STAFF11
                    SET EMPNAME = 'Tom'
                    WHERE EMPNUM = 'E3';

PROCEDURE SUB16 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0516','pass','MCO');

PROCEDURE SUB18 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0516','fail','MCO');

PROCEDURE SUB19 SQLCODE SQLSTATE;
      COMMIT WORK;