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: isi002.mco   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Scala {Scala[60] Pl1[91] CS[122]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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

DECLARE C12012  CURSOR FOR S12012
DECLARE C12013  CURSOR FOR S12013
DECLARE C12014  CURSOR FOR S12014
DECLARE C12015  CURSOR FOR S12015


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

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

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    '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 SUB11 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12011 FROM :DSTMT;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(10)
    :DBL1 NUMERIC (4);
      EXECUTE S12011 USING :INT1, :CH1, :DBL1;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(10)
    :DBL1 NUMERIC (4);
      EXECUTE S12011 USING :INT1, :CH1, :DBL1;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(10)
    :DBL1 NUMERIC (4);
      EXECUTE S12011 USING :INT1, :CH1, :DBL1;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

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

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

PROCEDURE SUB22 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT AVG (CAST (USER_TYPED AS INT))' ||
                    ' FROM USER_INPUT'
                    );

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

PROCEDURE SUB26 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12012 FROM :LONGST;

PROCEDURE SUB27 SQLCODE SQLSTATE;
    OPEN C12012;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12012 INTO :INT1;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      CLOSE C12012;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12013 FROM :DSTMT;

PROCEDURE SUB31 SQLCODE SQLSTATE;
    OPEN C12013;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      FETCH C12013 INTO :FLT1;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      CLOSE C12013;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    ' SELECT CASH_BALANCE FROM USER_INPUT' ||
                    ' WHERE USER_ID = CAST (''-0'' AS INT)'
                    );

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

PROCEDURE SUB37 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12014 FROM :LONGST;

PROCEDURE SUB38 SQLCODE SQLSTATE;
    OPEN C12014;

PROCEDURE SUB39 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12014 INTO :INT1;

PROCEDURE SUB40 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 C12014;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT SUM (USER_INPUT) * 100 ' ||
                    ' FROM STANDARD_INPUT'          ||
                    ' HAVING SUM (RECEIVABLE)'      ||
                    ' BETWEEN -4.5306E2 AND -4.5298E2' 
                    );

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

PROCEDURE SUB44 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S12015 FROM :LONGST;

PROCEDURE SUB45 SQLCODE SQLSTATE;
    OPEN C12015;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12015 INTO :INT1;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      CLOSE C12014;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      CLOSE C12015;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB54 SQLCODE SQLSTATE;
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.94 Sekunden  ]