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

rahmenlose Ansicht.mco DruckansichtPython {Python[66] Lex[86] Fortran[120]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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

DECLARE C11911  CURSOR FOR
               SELECT CASH_BALANCE FROM USER_INPUT
               WHERE USER_ID = CAST ('-0' AS INT)


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 USER_INPUT (
                    USER_ID INT, USER_TYPED CHAR (10),
                    CASH_BALANCE NUMERIC (5, 2));

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      CREATE VIEW STANDARD_INPUT AS
                    SELECT CAST (USER_ID AS CHAR (10)) AS USER_NAME,
                    CAST (USER_TYPED AS NUMERIC (5, 2)) AS USER_INPUT,
                    CAST (CASH_BALANCE AS REAL) AS RECEIVABLE
                    FROM USER_INPUT;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO USER_INPUT VALUES
                    (0, '999.99', 999.99);

PROCEDURE SUB8 SQLCODE SQLSTATE;
      INSERT INTO USER_INPUT VALUES
                    (1, '-999.99', -999.99);

PROCEDURE SUB9 SQLCODE SQLSTATE;
      INSERT INTO USER_INPUT VALUES
                    (2, ' 54.', 54);

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO USER_INPUT VALUES
                    (CAST ('3' AS INT), CAST (-7.02 AS CHAR (10)),
                    CAST (' -.702E+1' AS NUMERIC (5, 2)));

PROCEDURE SUB11 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT AVG (CAST (USER_TYPED AS INT)) INTO :INT1
                    FROM USER_INPUT;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      SELECT AVG (USER_INPUT) INTO :FLT1
                    FROM STANDARD_INPUT;

PROCEDURE SUB13 SQLCODE SQLSTATE;
    OPEN C11911;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11911 INTO :INT1;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      UPDATE USER_INPUT
                    SET USER_TYPED = CAST (0 AS CHAR (10)),
                    CASH_BALANCE = CASH_BALANCE - CAST ('500' AS NUMERIC (5,
                  2))
                    WHERE CURRENT OF C11911;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT SUM (USER_INPUT) * 100
                    INTO :INT1  FROM STANDARD_INPUT
                    HAVING SUM (RECEIVABLE) BETWEEN -4.5306E2 AND -4.5298E2
                   ;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      CLOSE C11911;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      DELETE FROM USER_INPUT;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      INSERT INTO USER_INPUT VALUES
                    (CAST ('3' AS INT), CAST (-7.02 AS CHAR (10)),
                    CAST (' -.702E+1' AS NUMERIC (5, 2)));

PROCEDURE SUB20 SQLCODE SQLSTATE;
      INSERT INTO USER_INPUT VALUES
                    (CAST ('3' AS SMALLINT), CAST (-7.02 AS CHAR (5)),
                    CAST (' -.702E+1' AS DECIMAL (3, 2)));

PROCEDURE SUB21 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT USER_ID INTO :INT1
                    FROM USER_INPUT
                    GROUP BY USER_ID, USER_TYPED, CASH_BALANCE
                    HAVING COUNT(*) = 2;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      DROP TABLE USER_INPUT CASCADE;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB27 SQLCODE SQLSTATE;
      COMMIT WORK;

[ Verzeichnis aufwärts0.101unsichere Verbindung  ]