Stufen

Die Firma ist wie angegeben erreichbar. 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/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 3 kB

SSL cdr007.mco Interaktion und
Portierbarkeitunbekannt

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

MODULE CDR007
LANGUAGE COBOL
AUTHORIZATION SUN

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM STAFF10;

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

PROCEDURE SUB3 SQLCODE;
      UPDATE STAFF10
                  SET GRADE = 5
                  WHERE EMPNUM = 'E3';

PROCEDURE SUB4 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF10
                  WHERE GRADE = 11;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0319','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0319','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      DELETE FROM STAFF11;

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

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

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

PROCEDURE SUB12 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF11
                  WHERE EMPNAME = 'Susan' AND GRADE = 11;

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

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

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      DELETE FROM STAFF12;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO STAFF12
                  VALUES('E3','Susan',11,'Hawaii');

PROCEDURE SUB18 SQLCODE;
      UPDATE STAFF12
                  SET GRADE = 5
                  WHERE EMPNUM = 'E3';

PROCEDURE SUB19 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF12
                  WHERE GRADE = 11;

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

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

PROCEDURE SUB22 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE;
      DELETE FROM STAFF15;

PROCEDURE SUB24 SQLCODE;
      INSERT INTO STAFF15
                  VALUES('E1','Alice',52,'Deale');

PROCEDURE SUB25 SQLCODE;
      UPDATE STAFF15
                  SET EMPNAME = NULL
                  WHERE EMPNUM = 'E1';

PROCEDURE SUB26 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM STAFF15
                  WHERE EMPNAME = 'Alice';

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0322','pass','MCO');

PROCEDURE SUB28 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0322','fail','MCO');

PROCEDURE SUB29 SQLCODE;
      COMMIT WORK;