Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
products/sources/formale sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: dml018.mco   Sprache: Unknown

Untersuchungsergebnis.mco Download desLex {Lex[65] Fortran[99] CS[116]}zum Wurzelverzeichnis wechseln

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

MODULE DML061
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM WORKS
                  WHERE HOURS BETWEEN 80 AND 40;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E6','P6',-60);

PROCEDURE SUB3 SQLCODE
    :COUNT2 NUMERIC (9)
    :MAX1 NUMERIC (9)
    :MIN1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT2
                  FROM WORKS
                  WHERE HOURS BETWEEN  :MAX1 AND  :MIN1;

PROCEDURE SUB4 SQLCODE
    :COUNT3 NUMERIC (9)
    :MIN1 NUMERIC (9)
    :MAX1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT3
                  FROM WORKS
                  WHERE HOURS BETWEEN  :MIN1 AND  :MAX1;

PROCEDURE SUB5 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE
    :COUNT1 NUMERIC (9)
    :FF1 NUMERIC (9)
    :HOURS1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM WORKS
                  WHERE HOURS BETWEEN  :FF1 AND  :HOURS1 OR
                  HOURS BETWEEN 19.999 AND 2.001E1;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0270','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0270','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM WORKS,STAFF
                  WHERE WORKS.EMPNUM = 'E1';

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0271','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0271','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      UPDATE WORKS
                  SET EMPNUM = 'E7'
                  WHERE EMPNUM = 'E1' OR EMPNUM = 'E4';

PROCEDURE SUB18 SQLCODE;
      INSERT INTO WORKS 
                  SELECT 'E3',PNUM,17 FROM PROJ;

PROCEDURE SUB19 SQLCODE;
      UPDATE V_WORKS1
                  SET HOURS = HOURS - 9;

PROCEDURE SUB20 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT4 FROM WORKS
                  WHERE EMPNUM = 'E7' OR HOURS = 31 OR HOURS = 17;

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0272','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0272','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE;
      UPDATE WORKS
                  SET HOURS = NULL;

PROCEDURE SUB26 SQLCODE
    :SUM1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :MAX1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :MIN1 NUMERIC (9)
    :INDIC3 NUMERIC (4);
      SELECT SUM(HOURS),MAX(HOURS),MIN(HOURS)
                  INTO  :SUM1 :INDIC1, :MAX1 :INDIC2, :MIN1 :INDIC3
                  FROM WORKS;

PROCEDURE SUB27 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB28 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0273','pass','MCO');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0273','fail','MCO');

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE;
      UPDATE WORKS
                  SET HOURS = NULL  WHERE EMPNUM = 'E1';

PROCEDURE SUB32 SQLCODE
    :COUNT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :COUNT2 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :COUNT3 NUMERIC (9)
    :INDIC3 NUMERIC (4);
      UPDATE WORKS
                  SET HOURS =  :COUNT1 :INDIC1 - ( :COUNT2 :INDIC2 +
                   :COUNT3 :INDIC3)
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB33 SQLCODE
    :COUNT2 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :COUNT3 NUMERIC (9)
    :INDIC3 NUMERIC (4)
    :COUNT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      UPDATE WORKS
                  SET HOURS =  :COUNT2 :INDIC2 /  :COUNT3 :INDIC3 *
                   :COUNT1 :INDIC1
                  WHERE EMPNUM = 'E3';

PROCEDURE SUB34 SQLCODE;
      UPDATE WORKS
                  SET HOURS = HOURS + 5;

PROCEDURE SUB35 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT4
                  FROM WORKS
                  WHERE HOURS IS NULL;

PROCEDURE SUB36 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB37 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0277','pass','MCO');

PROCEDURE SUB38 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0277','fail','MCO');

PROCEDURE SUB39 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB40 SQLCODE;
      UPDATE STAFF
                  SET EMPNAME = 'HU'
                  WHERE EMPNAME = 'Ed';

PROCEDURE SUB41 SQLCODE
    :COUNT1 NUMERIC (9)
    :EMPNA1 CHAR(20)
    :INDIC1 NUMERIC (4)
    :EMPNA2 CHAR(20)
    :INDIC2 NUMERIC (4)
    :EMPNA3 CHAR(20);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF
                  WHERE EMPNAME IN
                  (USER, :EMPNA1 :INDIC1, :EMPNA2 :INDIC2, :EMPNA3);

PROCEDURE SUB42 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB43 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0278','pass','MCO');

PROCEDURE SUB44 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0278','fail','MCO');

PROCEDURE SUB45 SQLCODE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.101Quellennavigators  ]