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: xts736.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desPython {Python[101] Latech[134] Fortran[163]}zum Wurzelverzeichnis wechseln

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



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE LOTSA_DATETIMES (
                    C1 DATE, C2 TIME, C3 TIMESTAMP,
                    C4 INTERVAL YEAR, C5 INTERVAL MONTH, C6 INTERVAL DAY,
                    C7 INTERVAL HOUR, C8 INTERVAL MINUTE, C9 INTERVAL SECOND,
                    C10 INTERVAL YEAR TO MONTH,
                    C11 INTERVAL DAY TO HOUR,
                    C12 INTERVAL DAY TO MINUTE,
                    C13 INTERVAL DAY TO SECOND,
                    C14 INTERVAL HOUR TO MINUTE,
                    C15 INTERVAL HOUR TO SECOND,
                    C16 INTERVAL MINUTE TO SECOND);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      ALLOCATE DESCRIPTOR 'D15411' WITH MAX 16;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15411 FROM :DSTMT;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      DESCRIBE OUTPUT S15411 USING SQL DESCRIPTOR
                  'D15411';

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 1 :INT1 = LENGTH
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 2 :INT1 = LENGTH
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 3 :INT1 = LENGTH
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 4 :INT1 = LENGTH
                 ;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 5 :INT1 = LENGTH
                 ;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 6 :INT1 = LENGTH
                 ;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 7 :INT1 = LENGTH
                 ;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 8 :INT1 = LENGTH
                 ;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 9 :INT1 = LENGTH
                 ;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 10 :INT1 = LENGTH
                 ;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 11 :INT1 = LENGTH
                 ;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 12 :INT1 = LENGTH
                 ;

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 13 :INT1 = LENGTH
                 ;

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 14 :INT1 = LENGTH
                 ;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 15 :INT1 = LENGTH
                 ;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      GET DESCRIPTOR 'D15411' VALUE 16 :INT1 = LENGTH
                 ;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      DROP TABLE LOTSA_DATETIMES CASCADE;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.TABLE_PRIVILEGES
                    WHERE TABLE_SCHEM = 'HU' AND TABLE_NAME = 'STAFF'
                    AND GRANTOR = 'SULLIVAN1' AND GRANTEE = 'FLATER'
                    AND IS_GRANTABLE = 'NO';

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE TABLE_SCHEM = 'HU' AND TABLE_NAME = 'STAFF'
                    AND GRANTOR = 'SULLIVAN1' AND GRANTEE = 'FLATER'
                    AND IS_GRANTABLE = 'NO';

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      CREATE TABLE TRANSIENT (WINDOW_ID INT);

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      INSERT INTO TRANSIENT VALUES (1);

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      CREATE VIEW CTRANS (WIN_COUNT) AS
                    SELECT COUNT(*) FROM TRANSIENT;

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      INSERT INTO TRANSIENT VALUES (2);

PROCEDURE SUB40 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT * INTO :INT1 FROM CTRANS;

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      DROP TABLE TRANSIENT CASCADE;

PROCEDURE SUB42 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.179Quellennavigators  ]