Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Fortran/Fortran77-Compiler/ (Columbo Version 0.7^©) Datei vom 9.3.2015 mit Größe 2 MB

Quelle cdr027.mco Sprache: unbekannt

-- 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;