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: dml083.cob   Sprache: Unknown

rahmenlose Ansicht.mco DruckansichtScala {Scala[56] Pl1[93] Latech[128]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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

MODULE DML077
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE Y  CURSOR FOR
               SELECT EMPNUM
               FROM STAFF
               WHERE EMPNUM > 'E1'
DECLARE X  CURSOR FOR
               SELECT EMPNUM
               FROM WORKS
               WHERE EMPNUM > :ENUM
DECLARE XX  CURSOR FOR
               SELECT PNUM,HOURS
               FROM WORKS
               WHERE EMPNUM > 'E1'
DECLARE YY  CURSOR FOR
               SELECT COL2, COL3
               FROM VTABLE


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

PROCEDURE SUB2 SQLCODE;
      INSERT INTO TEMP_SS VALUES('E7',NULL,'Frankfurt');

PROCEDURE SUB3 SQLCODE
    :GRDE NUMERIC (9)
    :INDIC1 NUMERIC(4);
      INSERT INTO TEMP_SS
                  VALUES('E8',:GRDE :INDIC1,'Atlanta');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TEMP_SS(EMPNUM) VALUES('E9');

PROCEDURE SUB5 SQLCODE;
      UPDATE WORKS
                    SET HOURS = NULL
                    WHERE PNUM = 'P2';

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TEMP_SS
                    SELECT PNUM,HOURS,'Nowhere'
                    FROM WORKS
                    WHERE EMPNUM = 'E1';

PROCEDURE SUB7 SQLCODE;
      UPDATE TEMP_SS
                    SET GRADE = NULL
                    WHERE EMPNUM = 'E3';

PROCEDURE SUB8 SQLCODE
    :GRDE NUMERIC (9)
    :INDIC1 NUMERIC (4);
      UPDATE TEMP_SS
                    SET GRADE = :GRDE :INDIC1
                    WHERE EMPNUM = 'E5';

PROCEDURE SUB9 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF
                    WHERE GRADE IS NULL;

PROCEDURE SUB10 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM TEMP_SS;

PROCEDURE SUB11 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT3
                    FROM STAFF;

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE
    :ENUM CHAR(3);
    OPEN X;

PROCEDURE SUB17 SQLCODE;
      CLOSE X;

PROCEDURE SUB18 SQLCODE;
    OPEN Y;

PROCEDURE SUB19 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM WORKS
                    WHERE EMPNUM > 'E5';

PROCEDURE SUB20 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM STAFF
                    WHERE EMPNUM > 'E5';

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE
    :PNO1 CHAR(3);
      SELECT PNUM INTO :PNO1
                    FROM WORKS
                    WHERE HOURS = 13;

PROCEDURE SUB26 SQLCODE
    :HRS NUMERIC (9);
      SELECT HOURS INTO :HRS
                    FROM WORKS
                    WHERE EMPNUM = 'E4' AND PNUM = 'P1';

PROCEDURE SUB27 SQLCODE
    :NUM NUMERIC (9);
      SELECT COL1 INTO :NUM
                    FROM VTABLE
                    WHERE COL2 > 500;

PROCEDURE SUB28 SQLCODE;
    OPEN XX;

PROCEDURE SUB29 SQLCODE;
      CLOSE XX;

PROCEDURE SUB30 SQLCODE;
    OPEN YY;

PROCEDURE SUB31 SQLCODE;
      CLOSE YY;

PROCEDURE SUB32 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0445','pass','MCO');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0445','fail','MCO');

PROCEDURE SUB35 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH X INTO :EMPNO1;

PROCEDURE SUB37 SQLCODE
    :EMPNO1 CHAR(3);
      UPDATE WORKS
                      SET EMPNUM = :EMPNO1
                      WHERE CURRENT OF X;

PROCEDURE SUB38 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH Y INTO :EMPNO1;

PROCEDURE SUB39 SQLCODE
    :EMPNO1 CHAR(3);
      UPDATE STAFF
                      SET EMPNUM = :EMPNO1
                      WHERE CURRENT OF Y;

PROCEDURE SUB40 SQLCODE
    :PNO1 CHAR(3)
    :HRS NUMERIC (9);
      FETCH XX INTO :PNO1, :HRS;

PROCEDURE SUB41 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH YY INTO :INT1, :INT2;

[ Verzeichnis aufwärts0.192unsichere Verbindung  ]