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

Untersuchungsergebnis.mco Download desLatech {Latech[89] CS[177] Ada[220]}zum Wurzelverzeichnis wechseln

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

DECLARE C13411  CURSOR FOR S13411
DECLARE C13412  CURSOR FOR S13412
DECLARE C13413  CURSOR FOR S13413
DECLARE C13414  CURSOR FOR S13414
DECLARE C13415  CURSOR FOR S13415
DECLARE C13416  CURSOR FOR S13416
DECLARE C13417  CURSOR FOR S13417
DECLARE C13418  CURSOR FOR S13418
DECLARE ARNOLD  CURSOR FOR
               SELECT SEGNO FROM PORGRAM ORDER BY STARTS


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 COUNT(*) FROM INFO_SCHEM.TABLES' ||
                    ' WHERE TABLE_SCHEM = ''FLATER'' AND'   ||
                    ' TABLE_NAME = ''VISCHANGE'''
                    );

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

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

PROCEDURE SUB7 SQLCODE SQLSTATE;
    OPEN C13411;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13411 INTO :INT1;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      CLOSE C13411;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM INFO_SCHEM.COLUMNS' ||
                    ' WHERE TABLE_SCHEM = ''FLATER'' AND'    ||
                    ' TABLE_NAME = ''VISCHANGE'''
                    );

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

PROCEDURE SUB13 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13412 FROM :LONGST;

PROCEDURE SUB14 SQLCODE SQLSTATE;
    OPEN C13412;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13412 INTO :INT1;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      CLOSE C13412;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB19 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM INFO_SCHEM.TABLES' ||
                    ' WHERE TABLE_SCHEM = ''FLATER'' AND'   ||
                    ' TABLE_NAME = ''VISCHANGE'''
                    );

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

PROCEDURE SUB23 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13413 FROM :LONGST;

PROCEDURE SUB24 SQLCODE SQLSTATE;
    OPEN C13413;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13413 INTO :INT1;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      CLOSE C13413;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM INFO_SCHEM.COLUMNS' ||
                    ' WHERE TABLE_SCHEM = ''FLATER'' AND'    ||
                    ' TABLE_NAME = ''VISCHANGE'''
                    );

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

PROCEDURE SUB30 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13414 FROM :LONGST;

PROCEDURE SUB31 SQLCODE SQLSTATE;
    OPEN C13414;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13414 INTO :INT1;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      CLOSE C13414;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB36 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM INFO_SCHEM.TABLES' ||
                    ' WHERE TABLE_SCHEM = ''FLATER'' AND'   ||
                    ' TABLE_NAME = ''VISCHANGE'''
                    );

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

PROCEDURE SUB40 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13415 FROM :LONGST;

PROCEDURE SUB41 SQLCODE SQLSTATE;
    OPEN C13415;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13415 INTO :INT1;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      CLOSE C13415;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM INFO_SCHEM.COLUMNS' ||
                    ' WHERE TABLE_SCHEM = ''FLATER'' AND'    ||
                    ' TABLE_NAME = ''VISCHANGE'''
                    );

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

PROCEDURE SUB47 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13416 FROM :LONGST;

PROCEDURE SUB48 SQLCODE SQLSTATE;
    OPEN C13416;

PROCEDURE SUB49 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13416 INTO :INT1;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      CLOSE C13416;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB53 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM INFO_SCHEM.TABLES' ||
                    ' WHERE TABLE_SCHEM = ''FLATER'' AND'   ||
                    ' TABLE_NAME = ''VISCHANGE'''
                    );

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

PROCEDURE SUB57 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13417 FROM :LONGST;

PROCEDURE SUB58 SQLCODE SQLSTATE;
    OPEN C13417;

PROCEDURE SUB59 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13417 INTO :INT1;

PROCEDURE SUB60 SQLCODE SQLSTATE;
      CLOSE C13417;

PROCEDURE SUB61 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM INFO_SCHEM.COLUMNS' ||
                    ' WHERE TABLE_SCHEM = ''FLATER'' AND'    ||
                    ' TABLE_NAME = ''VISCHANGE'''
                    );

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

PROCEDURE SUB64 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13418 FROM :LONGST;

PROCEDURE SUB65 SQLCODE SQLSTATE;
    OPEN C13418;

PROCEDURE SUB66 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C13418 INTO :INT1;

PROCEDURE SUB67 SQLCODE SQLSTATE;
      CLOSE C13418;

PROCEDURE SUB68 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB71 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB72 SQLCODE SQLSTATE;
      CREATE TABLE COST_CODES (
                    COSTCODE INT UNIQUE,
                    COSTTEXT VARCHAR (50) NOT NULL);

PROCEDURE SUB73 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB74 SQLCODE SQLSTATE;
      CREATE TABLE CONDITION_CODES (
                    CONDCODE INT UNIQUE,
                    CONDTEXT VARCHAR (50) NOT NULL);

PROCEDURE SUB75 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB76 SQLCODE SQLSTATE;
      CREATE TABLE ITEM_CODES (
                    ITEMCODE INT PRIMARY KEY,
                    ITEMTEXT VARCHAR (50) NOT NULL);

PROCEDURE SUB77 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB78 SQLCODE SQLSTATE;
      CREATE TABLE INVENTORY (
                    COSTCODE INT REFERENCES COST_CODES (COSTCODE),
                    CONDCODE INT REFERENCES CONDITION_CODES (CONDCODE),
                    ITEMCODE INT REFERENCES ITEM_CODES);

PROCEDURE SUB79 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB80 SQLCODE SQLSTATE;
      CREATE VIEW COMPLETES AS
                    SELECT ITEMTEXT, CONDTEXT, COSTTEXT
                    FROM INVENTORY NATURAL JOIN COST_CODES
                    NATURAL JOIN CONDITION_CODES
                    NATURAL JOIN ITEM_CODES;

PROCEDURE SUB81 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB82 SQLCODE SQLSTATE;
      CREATE VIEW INCOMPLETES AS
                    SELECT ITEMTEXT, CONDTEXT, COSTTEXT
                    FROM INVENTORY, COST_CODES, CONDITION_CODES, ITEM_CODES
                    WHERE INVENTORY.ITEMCODE = ITEM_CODES.ITEMCODE
                    AND ((INVENTORY.CONDCODE = CONDITION_CODES.CONDCODE
                    AND INVENTORY.COSTCODE IS NULL
                    AND COST_CODES.COSTCODE IS NULL)
                    OR (INVENTORY.COSTCODE = COST_CODES.COSTCODE
                    AND INVENTORY.CONDCODE IS NULL
                    AND CONDITION_CODES.CONDCODE IS NULL));

PROCEDURE SUB83 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB84 SQLCODE SQLSTATE;
      CREATE VIEW VERBOSE_INV AS
                    SELECT * FROM COMPLETES UNION SELECT * FROM INCOMPLETES
                 ;

PROCEDURE SUB85 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB86 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S13421 FROM :DSTMT;

PROCEDURE SUB87 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :DSTMT CHAR(50);
      EXECUTE S13421 USING :CODEV:INDIC1, :DSTMT
                 ;

PROCEDURE SUB88 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13421 USING :CODEV, :DSTMT;

PROCEDURE SUB89 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13421 USING :CODEV, :DSTMT;

PROCEDURE SUB90 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13421 USING :CODEV, :DSTMT;

PROCEDURE SUB91 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13421 USING :CODEV, :DSTMT;

PROCEDURE SUB92 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S13422 FROM :DSTMT;

PROCEDURE SUB93 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :DSTMT CHAR(50);
      EXECUTE S13422 USING :CODEV:INDIC1, :DSTMT
                 ;

PROCEDURE SUB94 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13422 USING :CODEV, :DSTMT;

PROCEDURE SUB95 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13422 USING :CODEV, :DSTMT;

PROCEDURE SUB96 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13422 USING :CODEV, :DSTMT;

PROCEDURE SUB97 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S13423 FROM :DSTMT;

PROCEDURE SUB98 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13423 USING :CODEV, :DSTMT;

PROCEDURE SUB99 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13423 USING :CODEV, :DSTMT;

PROCEDURE SUB100 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13423 USING :CODEV, :DSTMT;

PROCEDURE SUB101 SQLCODE SQLSTATE
    :CODEV NUMERIC (9)
    :DSTMT CHAR(50);
      EXECUTE S13423 USING :CODEV, :DSTMT;

PROCEDURE SUB102 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S13424 FROM :DSTMT;

PROCEDURE SUB103 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :INT3 NUMERIC (9);
      EXECUTE S13424 USING :INT1, :INT2:INDIC1, :INT3
                 ;

PROCEDURE SUB104 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INT3 NUMERIC (9);
      EXECUTE S13424 USING :INT1, :INT2, :INT3;

PROCEDURE SUB105 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INT3 NUMERIC (9);
      EXECUTE S13424 USING :INT1, :INT2, :INT3;

PROCEDURE SUB106 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INT3 NUMERIC (9);
      EXECUTE S13424 USING :INT1, :INT2, :INT3;

PROCEDURE SUB107 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INT3 NUMERIC (9);
      EXECUTE S13424 USING :INT1, :INT2, :INT3;

PROCEDURE SUB108 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM VERBOSE_INV
                 ;

PROCEDURE SUB109 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INCOMPLETES
                 ;

PROCEDURE SUB110 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM COMPLETES;

PROCEDURE SUB111 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM VERBOSE_INV
                    WHERE ITEMTEXT = 'Irreparable intermittent CD player'
                    AND CONDTEXT = 'Unknown'
                    AND COSTTEXT = 'Robbery; a complete and total rip-off'
                 ;

PROCEDURE SUB112 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM VERBOSE_INV
                    WHERE ITEMTEXT = 'Lousy excuse for a tape deck'
                    AND CONDTEXT = 'Visibly damaged (no returns)'
                    AND COSTTEXT = 'Expensive';

PROCEDURE SUB113 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM VERBOSE_INV
                    WHERE ITEMTEXT =
                    'Self-destruct VGA monitor w/ critical need detect'
                    AND CONDTEXT = 'Slightly used'
                    AND COSTTEXT = 'Robbery; a complete and total rip-off'
                  ;

PROCEDURE SUB114 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM VERBOSE_INV
                    WHERE ITEMTEXT =
                    'Self-destruct VGA monitor w/ critical need detect'
                    AND CONDTEXT = 'Visibly damaged (no returns)'
                    AND COSTTEXT = 'Outrageously expensive';

PROCEDURE SUB115 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM VERBOSE_INV
                    WHERE ITEMTEXT = 'World''s worst VCR'
                    AND CONDTEXT = 'Returned as defective'
                    AND COSTTEXT = 'Absurdly expensive';

PROCEDURE SUB116 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB117 SQLCODE SQLSTATE;
      DROP TABLE INVENTORY CASCADE;

PROCEDURE SUB118 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB119 SQLCODE SQLSTATE;
      DROP TABLE COST_CODES CASCADE;

PROCEDURE SUB120 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB121 SQLCODE SQLSTATE;
      DROP TABLE CONDITION_CODES CASCADE;

PROCEDURE SUB122 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB123 SQLCODE SQLSTATE;
      DROP TABLE ITEM_CODES CASCADE;

PROCEDURE SUB124 SQLCODE SQLSTATE;
      COMMIT;

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

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

PROCEDURE SUB127 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB128 SQLCODE SQLSTATE;
      CREATE TABLE PORGRAM (
                    SEGNO    INT PRIMARY KEY,
                    STARTS   TIME NOT NULL,
                    LASTS    INTERVAL MINUTE TO SECOND NOT NULL,
                    SEGMENT  VARCHAR (50));

PROCEDURE SUB129 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB130 SQLCODE SQLSTATE;
      CREATE VIEW GAPS AS
                    SELECT * FROM PORGRAM AS OUTERR WHERE NOT EXISTS
                    (SELECT * FROM PORGRAM AS INNERR WHERE OUTERR.STARTS
                    + OUTERR.LASTS = INNERR.STARTS);

PROCEDURE SUB131 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB132 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    1, TIME '12:00:00',
                    CAST ('10:00' AS INTERVAL MINUTE TO SECOND),
                    'Monologue');

PROCEDURE SUB133 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    2, TIME '12:10:00',
                    CAST ('04:30' AS INTERVAL MINUTE TO SECOND),
                    'Stupid commercials');

PROCEDURE SUB134 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    3, TIME '12:14:30',
                    CAST ('12:30' AS INTERVAL MINUTE TO SECOND),
                    'Braunschweiger, plug Explosion Man II');

PROCEDURE SUB135 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    4, TIME '12:27:00',
                    CAST ('03:00' AS INTERVAL MINUTE TO SECOND),
                    'Stupid commercials');

PROCEDURE SUB136 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    5, TIME '12:30:00',
                    CAST ('00:10' AS INTERVAL MINUTE TO SECOND),
                    'Tease');

PROCEDURE SUB137 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    6, TIME '12:30:10',
                    CAST ('03:50' AS INTERVAL MINUTE TO SECOND),
                    'Stupid commercials, local news');

PROCEDURE SUB138 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    7, TIME '12:34:00',
                    CAST ('11:00' AS INTERVAL MINUTE TO SECOND),
                    'Spinal Tap, plug Asexual Harassment');

PROCEDURE SUB139 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    8, TIME '12:45:00',
                    CAST ('05:00' AS INTERVAL MINUTE TO SECOND),
                    'Stupid commercials');

PROCEDURE SUB140 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    9, TIME '12:50:00',
                    CAST ('05:00' AS INTERVAL MINUTE TO SECOND),
                    'Spinal Tap, play Ode du Toilette');

PROCEDURE SUB141 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    10, TIME '12:55:00',
                    CAST ('03:00' AS INTERVAL MINUTE TO SECOND),
                    'Stupid commercials');

PROCEDURE SUB142 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    11, TIME '12:58:00',
                    CAST ('00:10' AS INTERVAL MINUTE TO SECOND),
                    'Credits');

PROCEDURE SUB143 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    12, TIME '12:58:10',
                    CAST ('01:50' AS INTERVAL MINUTE TO SECOND),
                    'Stupid commercials');

PROCEDURE SUB144 SQLCODE SQLSTATE;
      INSERT INTO PORGRAM VALUES (
                    13, TIME '13:00:00',
                    CAST ('00:00' AS INTERVAL MINUTE TO SECOND),
                    'END');

PROCEDURE SUB145 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM GAPS;

PROCEDURE SUB146 SQLCODE SQLSTATE;
      UPDATE PORGRAM
                    SET STARTS = TIME '12:14:30'
                    WHERE SEGNO = 7;

PROCEDURE SUB147 SQLCODE SQLSTATE;
      UPDATE PORGRAM SET STARTS = STARTS -
                    CAST ('01:30' AS INTERVAL MINUTE TO SECOND)
                    WHERE SEGNO >= 4 AND SEGNO <= 6;

PROCEDURE SUB148 SQLCODE SQLSTATE;
      UPDATE PORGRAM SET STARTS = TIME '12:28:40' +
                    CAST ('03:50' AS INTERVAL MINUTE TO SECOND)
                    WHERE SEGNO = 3;

PROCEDURE SUB149 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM GAPS;

PROCEDURE SUB150 SQLCODE SQLSTATE;
    OPEN ARNOLD;

PROCEDURE SUB151 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB152 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB153 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB154 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB155 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB156 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB157 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB158 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB159 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB160 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB161 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB162 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB163 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH ARNOLD INTO :INT1;

PROCEDURE SUB164 SQLCODE SQLSTATE;
      CLOSE ARNOLD;

PROCEDURE SUB165 SQLCODE SQLSTATE;
      UPDATE PORGRAM SET LASTS = LASTS -
                    CAST (30 AS INTERVAL SECOND) WHERE SEGNO
                    = 10;

PROCEDURE SUB166 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT SEGNO INTO :INT1 FROM GAPS;

PROCEDURE SUB167 SQLCODE SQLSTATE;
      UPDATE PORGRAM SET LASTS = LASTS +
                    CAST ('30' AS INTERVAL SECOND) WHERE
                    SEGNO = 9;

PROCEDURE SUB168 SQLCODE SQLSTATE;
      UPDATE PORGRAM SET STARTS = STARTS +
                    CAST (30. AS INTERVAL SECOND) WHERE
                    SEGNO = 10;

PROCEDURE SUB169 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM GAPS;

PROCEDURE SUB170 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB171 SQLCODE SQLSTATE;
      DROP TABLE PORGRAM CASCADE;

PROCEDURE SUB172 SQLCODE SQLSTATE;
      COMMIT;

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

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

PROCEDURE SUB175 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB176 SQLCODE SQLSTATE;
      CREATE TABLE LONG1 (
                    C1 INT,
                    CHECK (
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL))
                 ;

PROCEDURE SUB177 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB178 SQLCODE SQLSTATE;
      CREATE VIEW LONG2 AS
                    SELECT * FROM USIG WHERE
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL AND
                    C1 IS NOT NULL AND C1 IS NOT NULL AND C1 IS NOT NULL
                 ;

PROCEDURE SUB179 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB182 SQLCODE SQLSTATE;
      COMMIT WORK;

[ Verzeichnis aufwärts0.132unsichere Verbindung  ]