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/JAVA/openjdk-20-36_src/test/hotspot/jtreg/vmTestbase/nsk/monitoring/ThreadMXBean/GetThreadAllocatedBytes/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: dml166.cob Sprache: Cobol

Untersuchungsergebnis.mco Download desLex {Lex[77] Fortran[89] CS[136]}zum Wurzelverzeichnis wechseln

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

MODULE CDR012
LANGUAGE COBOL
AUTHORIZATION SUN

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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO PROJ_M
                  VALUES ('P7','IAC','Head',30000,'Alexdra','E5');

PROCEDURE SUB2 SQLCODE;
      INSERT INTO PROJ_M
                  VALUES ('P8','IBM','Head',30000,'Alexdra','E5');

PROCEDURE SUB3 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM PROJ_M
                  WHERE MGR = 'E5';

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      DELETE FROM STAFF_M
                  WHERE EMPNUM='E2';

PROCEDURE SUB9 SQLCODE
    :EMPNO1 CHAR(3);
      SELECT EMPNUM INTO  :EMPNO1
                  FROM STAFF_M
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB10 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0341','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0341','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      UPDATE STAFF_M
                  SET EMPNUM = 'E9'
                  WHERE EMPNUM = 'E1';

PROCEDURE SUB15 SQLCODE
    :EMPNO1 CHAR(3);
      SELECT EMPNUM INTO  :EMPNO1
                  FROM STAFF_M
                  WHERE EMPNUM = 'E9';

PROCEDURE SUB16 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0342','pass','MCO');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0342','fail','MCO');

PROCEDURE SUB19 SQLCODE;
      COMMIT WORK;