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: dml043.mco   Sprache: Cobol

Untersuchungsergebnis.mco Download desSQL {SQL[70] Scala[77] Lex[82]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module dml163.mco
-- 59-byte ID
-- 
MODULE DML163
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C0865  CURSOR FOR
               SELECT DATA_TYPE, ORDINAL_POSITION
               FROM INFORMATION_SCHEMA.COLUMNS
               WHERE TABLE_SCHEMA = 'FLATER'
               AND TABLE_NAME = 'V0865'
               ORDER BY ORDINAL_POSITION
DECLARE C0866  CURSOR FOR
               SELECT COALESCE (CITY, EMPNUM) FROM HU.STAFF
               ORDER BY 1


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT'
                    ' CASE ?'
                    ' WHEN ? THEN 5'
                    ' ELSE 4'
                    ' END'
                    ' FROM HU.ECCO'
                    );

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S1631 FROM :LONGST;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1632 FROM :DSTMT;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1633 FROM :DSTMT;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT'
                    ' CASE EMPNUM'
                    ' WHEN ''E1'' THEN ?'
                    ' ELSE NULL'
                    ' END'
                    ' FROM HU.STAFF'
                    );

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S1634 FROM :LONGST;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0864','pass','MCO');

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0864','fail','MCO');

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      CREATE TABLE T0865 (
                    C1 INT,
                    C2 CHAR (10),
                    C3 VARCHAR (5),
                    C4 REAL,
                    C5 CHAR (5),
                    C6 DECIMAL (2));

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      CREATE VIEW V0865 (EXN, APXN, FXC, VC) AS
                    SELECT COALESCE (C1, C6),
                    COALESCE (C1, C4),
                    COALESCE (C2, C5),
                    COALESCE (C2, C3)
                    FROM T0865;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
    OPEN C0865;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :DTYP CHAR(30),
    :JUNK NUMERIC (9));
      FETCH C0865 INTO :DTYP, :JUNK;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :DTYP CHAR(30),
    :JUNK NUMERIC (9));
      FETCH C0865 INTO :DTYP, :JUNK;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :DTYP CHAR(30),
    :JUNK NUMERIC (9));
      FETCH C0865 INTO :DTYP, :JUNK;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :DTYP CHAR(30),
    :JUNK NUMERIC (9));
      FETCH C0865 INTO :DTYP, :JUNK;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      DROP TABLE T0865 CASCADE;

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0865','pass','MCO');

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0865','fail','MCO');

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      CREATE VIEW V0866 (EMPNUM, HOURS) AS
                    SELECT EMPNUM,
                    CASE
                    WHEN PNUM = 'P2' THEN HOURS + 30
                    ELSE HOURS
                    END
                    FROM HU.WORKS;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      UPDATE HU.STAFF
                    SET CITY = NULLIF (CITY, 'Deale');

PROCEDURE SUB35 (SQLCODE, SQLSTATE,
    :CNT1 NUMERIC (9));
      SELECT COUNT(*) INTO :CNT1
                    FROM HU.STAFF
                    WHERE CITY IS NULL;

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      INSERT INTO HU.STAFF VALUES (
                    'E8', 'Wally',
                    CASE WHEN USER = 'FLATER' THEN 15 ELSE 10 END,
                    'Monash');

PROCEDURE SUB37 (SQLCODE, SQLSTATE,
    :CNT1 NUMERIC (9));
      SELECT COUNT(*) INTO :CNT1
                    FROM HU.STAFF
                    WHERE GRADE = 15;

PROCEDURE SUB38 (SQLCODE, SQLSTATE,
    :CNT1 NUMERIC (9));
      SELECT COUNT(*) INTO :CNT1
                    FROM HU.STAFF
                    WHERE CASE GRADE
                    WHEN 10 THEN 12
                    WHEN 13 THEN 12
                    END = 12;

PROCEDURE SUB39 (SQLCODE, SQLSTATE,
    :CNT1 NUMERIC (9));
      SELECT SUM(HOURS) INTO :CNT1
                    FROM V0866;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
    OPEN C0866;

PROCEDURE SUB41 (SQLCODE, SQLSTATE,
    :ECIT CHAR(15));
      FETCH C0866 INTO :ECIT;

PROCEDURE SUB42 (SQLCODE, SQLSTATE,
    :ECIT CHAR(15));
      FETCH C0866 INTO :ECIT;

PROCEDURE SUB43 (SQLCODE, SQLSTATE,
    :ECIT CHAR(15));
      FETCH C0866 INTO :ECIT;

PROCEDURE SUB44 (SQLCODE, SQLSTATE,
    :ECIT CHAR(15));
      FETCH C0866 INTO :ECIT;

PROCEDURE SUB45 (SQLCODE, SQLSTATE,
    :ECIT CHAR(15));
      FETCH C0866 INTO :ECIT;

PROCEDURE SUB46 (SQLCODE, SQLSTATE,
    :ECIT CHAR(15));
      FETCH C0866 INTO :ECIT;

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB48 (SQLCODE, SQLSTATE);
      DROP VIEW V0866 CASCADE;

PROCEDURE SUB49 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB50 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0866','pass','MCO');

PROCEDURE SUB51 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0866','fail','MCO');

PROCEDURE SUB52 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.141Quellennavigators  ]