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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale sprachen/Cobol/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: cdr003.mco Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Lex {Lex[72] Fortran[90] CS[111]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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

MODULE CDR003
LANGUAGE COBOL
AUTHORIZATION SUN

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM STAFF13;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO STAFF13
                  VALUES('E1','Alice',36,'Deale');

PROCEDURE SUB3 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM STAFF13;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO STAFF13
                  VALUES('E2',NULL,36,'Newyork');

PROCEDURE SUB5 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM STAFF13;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0306','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0306','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO STAFF9
                  VALUES('E1','Thomas',0,'Deale');

PROCEDURE SUB10 SQLCODE;
      INSERT INTO STAFF9
                  VALUES('E2','Tom',22,'Newyork');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO STAFF9
                  VALUES('E3','Susan',11,'Hawaii');

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

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

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

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO STAFF10
                  VALUES('E1','Thomas',5,'Deale');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO STAFF10
                  VALUES('E2','Tom',22,'Newyork');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO STAFF10
                  VALUES('E3','Susan',11,'Hawaii');

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

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0308','pass','MCO');

PROCEDURE SUB21 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0308','fail','MCO');

PROCEDURE SUB22 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE;
      DELETE FROM STAFF4;

PROCEDURE SUB24 SQLCODE
    :NULL1 CHAR(2)
    :INDIC1 NUMERIC (4);
      INSERT INTO STAFF4
                  VALUES(:NULL1 :INDIC1, 'R9',36,'Deale');

PROCEDURE SUB25 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM STAFF4;

PROCEDURE SUB26 SQLCODE;
      DELETE FROM STAFF11;

PROCEDURE SUB27 SQLCODE
    :LONG1 NUMERIC (9);
      INSERT INTO STAFF11
                  VALUES('R9','Judy', :LONG1,'Deale');

PROCEDURE SUB28 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM STAFF11;

PROCEDURE SUB29 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0373','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0373','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE;
      DELETE FROM STAFF5;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO STAFF5
                  VALUES('R9','Alice',15,'Deale');

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

PROCEDURE SUB36 SQLCODE
    :LONG1 NUMERIC (9);
      UPDATE STAFF5
                  SET GRADE = 10 *  :LONG1 / 5 + 1
                  WHERE EMPNUM = 'R9';

PROCEDURE SUB37 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM STAFF5;

PROCEDURE SUB38 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0374','pass','MCO');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0374','fail','MCO');

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE;
      DELETE FROM STAFF9;

PROCEDURE SUB51 SQLCODE;
      DELETE FROM STAFF10;