Quelle  cdr027.mco

-- SQL Test Suite, V6.0, SQL Module cdr027.mco
-- 59-byte ID

MODULE CDR027
LANGUAGE COBOL
AUTHORIZATION SUN



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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM STAFF5;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO STAFF5
                  VALUES('E7','Mimi',NULL,'Miami');

PROCEDURE SUB4 SQLCODE
    :GRDE NUMERIC (9)
    :INDIC1 NUMERIC (4);
      INSERT INTO STAFF5
                  VALUES('E8','Joe',:GRDE :INDIC1,'Boston');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO STAFF5(EMPNUM) VALUES('E9');

PROCEDURE SUB6 SQLCODE;
      UPDATE STAFF
                    SET GRADE = NULL
                    WHERE EMPNUM = 'E1';

PROCEDURE SUB7 SQLCODE;
      INSERT INTO STAFF5 
                    SELECT *
                    FROM STAFF;

PROCEDURE SUB8 SQLCODE;
      UPDATE STAFF5 
                    SET GRADE = NULL
                    WHERE EMPNUM = 'E2';

PROCEDURE SUB9 SQLCODE
    :GRDE NUMERIC (9)
    :INDIC1 NUMERIC (4);
      UPDATE STAFF5
                    SET GRADE = :GRDE :INDIC1 
                    WHERE EMPNUM = 'E4';

PROCEDURE SUB10 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF5;

PROCEDURE SUB11 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM STAFF5
                    WHERE GRADE IS NULL;

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0446','pass','MCO');

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0446','fail','MCO');

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      DELETE FROM STAFF6;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO STAFF6_WITH_GRADES
                    VALUES('X1','Vicki',NULL,'Houston');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO STAFF6
                    VALUES('X2','Tina',NULL,'Orlando');

PROCEDURE SUB19 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF6_WITH_GRADES;

PROCEDURE SUB20 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM STAFF6;

PROCEDURE SUB21 SQLCODE
    :NME CHAR(20);
      SELECT EMPNAME INTO :NME
                    FROM STAFF6
                    WHERE GRADE IS NULL;

PROCEDURE SUB22 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0447','pass','MCO');

PROCEDURE SUB24 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0447','fail','MCO');

PROCEDURE SUB25 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB26 SQLCODE;
      DELETE FROM STAFF9;

PROCEDURE SUB27 SQLCODE;
      INSERT INTO STAFF9(EMPNUM,EMPNAME)
                    VALUES('D1','Muddley');

PROCEDURE SUB28 SQLCODE;
      INSERT INTO STAFF9(EMPNUM,EMPNAME)
                    VALUES('D1','Muddley');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO STAFF9(EMPNUM,EMPNAME)
                    VALUES('d1','Muddley');

PROCEDURE SUB30 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF9;

PROCEDURE SUB31 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB32 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0448','pass','MCO');

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0448','fail','MCO');

PROCEDURE SUB34 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB35 SQLCODE;
      DELETE FROM STAFF9;

PROCEDURE SUB36 SQLCODE;
      INSERT INTO STAFF9(EMPNUM,EMPNAME)
                    VALUES('Z1','Tina');

PROCEDURE SUB37 SQLCODE;
      INSERT INTO STAFF9(EMPNUM,EMPNAME)
                    VALUES('Z2','tina');

PROCEDURE SUB38 SQLCODE;
      INSERT INTO STAFF9(EMPNUM,EMPNAME)
                    VALUES('Z3','ANTHONY');

PROCEDURE SUB39 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF9;

PROCEDURE SUB40 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB41 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0449','pass','MCO');

PROCEDURE SUB42 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0449','fail','MCO');

PROCEDURE SUB43 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB44 SQLCODE;
      INSERT INTO DEPT
                    VALUES(11,'VOLLEYBALL','VICKI');

PROCEDURE SUB45 SQLCODE;
      INSERT INTO DEPT 
                    VALUES(10,'volleyball','vicki');

PROCEDURE SUB46 SQLCODE;
      INSERT INTO EMP
                    VALUES(13,'MARY','Dancer',15,'VOLLEYBALL',010101)
                 ;

PROCEDURE SUB47 SQLCODE;
      DELETE FROM DEPT
                    WHERE DNO = 10;

PROCEDURE SUB48 SQLCODE;
      UPDATE DEPT
                    SET DNAME = 'EDUCATION'
                    WHERE DNAME = 'Education';

PROCEDURE SUB49 SQLCODE;
      INSERT INTO EMP
                    VALUES(28,'BARBARA','Jogger',14,'EDUCATION',010101)
                 ;

PROCEDURE SUB50 SQLCODE;
      UPDATE EMP
                    SET DNAME = 'PHYSICS'
                    WHERE ENO = 25;

PROCEDURE SUB51 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB52 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0450','pass','MCO');

PROCEDURE SUB53 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0450','fail','MCO');

PROCEDURE SUB54 SQLCODE;
      COMMIT WORK;