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

Spracherkennung für: .mco vermutete Sprache: Latech {Latech[73] CS[201] Ada[212]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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

DECLARE C14511  CURSOR FOR S14511
DECLARE C14512  CURSOR FOR S14512
DECLARE C14515  CURSOR FOR S14515
DECLARE C14513  CURSOR FOR S14513
DECLARE C14514  CURSOR FOR S14514
DECLARE C14521  CURSOR FOR S14521
DECLARE C14522  CURSOR FOR S14522
DECLARE C14523  CURSOR FOR S14523
DECLARE C14524  CURSOR FOR S14524
DECLARE C14525  CURSOR FOR S14525
DECLARE C14526  CURSOR FOR S14526
DECLARE C14527  CURSOR FOR S14527
DECLARE C14528  CURSOR FOR S14528
DECLARE C14529  CURSOR FOR S14529


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 GRUB (C1 VARCHAR (10));

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT CHAR_LENGTH (EMPNAME)' ||
                    ' FROM HU.STAFF WHERE GRADE = 10'
                    );

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

PROCEDURE SUB8 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S14511 FROM :LONGST;

PROCEDURE SUB9 SQLCODE SQLSTATE;
    OPEN C14511;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14511 INTO :INT1;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      CLOSE C14511;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT CHARACTER_LENGTH (''HI'' ||' ||
                    ' ''THERE'') FROM HU.ECCO'
                    );

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

PROCEDURE SUB15 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S14512 FROM :LONGST;

PROCEDURE SUB16 SQLCODE SQLSTATE;
    OPEN C14512;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14512 INTO :INT1;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      CLOSE C14512;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S14515 FROM :DSTMT;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      OPEN C14515 USING :CH1;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14515 INTO :INT1;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      CLOSE C14515;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      OPEN C14515 USING :CH1:INDIC1;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14515 INTO :INT1:INDIC1;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      CLOSE C14515;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      INSERT INTO GRUB VALUES ('Hi ');

PROCEDURE SUB27 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S14513 FROM :DSTMT;

PROCEDURE SUB28 SQLCODE SQLSTATE;
    OPEN C14513;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14513 INTO :INT1;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      CLOSE C14513;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S14514 FROM :DSTMT;

PROCEDURE SUB32 SQLCODE SQLSTATE;
    OPEN C14514;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14514 INTO :INT1;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      CLOSE C14514;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      UPDATE GRUB SET C1 = NULL;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14513 INTO :INT1:INDIC1;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      CLOSE C14513;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14514 INTO :INT1:INDIC1;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      CLOSE C14514;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      DROP TABLE GRUB CASCADE;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB47 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      CREATE TABLE MOREGRUB (C1 VARCHAR (10), ID INT)
                 ;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE VIEW X4 (S1, S2, ID) AS'    ||
                    ' SELECT SUBSTRING (C1 FROM 6),'   ||
                    ' SUBSTRING (C1 FROM 2 FOR 4), ID' ||
                    ' FROM MOREGRUB'
                    );

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

PROCEDURE SUB53 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB55 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT SUBSTRING (CITY FROM 4)' ||
                    ' FROM HU.STAFF WHERE ''5 #'' = ' ||
                    ' SUBSTRING (EMPNUM || ? FROM 2 FOR 3) '
                    );

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

PROCEDURE SUB59 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S14521 FROM :LONGST;

PROCEDURE SUB60 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      OPEN C14521 USING :CH1;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14521 INTO :CH1;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      CLOSE C14521;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB64 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT SUBSTRING (CITY FROM ? FOR ?)' ||
                    ' FROM HU.STAFF WHERE EMPNAME = ''Ed'''
                    );

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

PROCEDURE SUB66 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S14522 FROM :LONGST;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      OPEN C14522 USING :INT1, :INT2;

PROCEDURE SUB68 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14522 INTO :CH1;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      CLOSE C14522;

PROCEDURE SUB70 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      OPEN C14522 USING :INT1, :INT2;

PROCEDURE SUB71 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14522 INTO :CH1;

PROCEDURE SUB72 SQLCODE SQLSTATE;
      CLOSE C14522;

PROCEDURE SUB73 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      OPEN C14522 USING :INT1, :INT2;

PROCEDURE SUB74 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14522 INTO :CH1;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      CLOSE C14522;

PROCEDURE SUB76 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      OPEN C14522 USING :INT1, :INT2;

PROCEDURE SUB77 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14522 INTO :CH1;

PROCEDURE SUB78 SQLCODE SQLSTATE;
      CLOSE C14522;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      OPEN C14522 USING :INT1, :INT2;

PROCEDURE SUB80 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14522 INTO :CH1;

PROCEDURE SUB81 SQLCODE SQLSTATE;
      CLOSE C14522;

PROCEDURE SUB82 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      OPEN C14522 USING :INT1, :INT2;

PROCEDURE SUB83 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14522 INTO :CH1;

PROCEDURE SUB84 SQLCODE SQLSTATE;
      CLOSE C14522;

PROCEDURE SUB85 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      OPEN C14522 USING :INT1, :INT2;

PROCEDURE SUB86 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14522 INTO :CH1;

PROCEDURE SUB87 SQLCODE SQLSTATE;
      CLOSE C14522;

PROCEDURE SUB88 SQLCODE SQLSTATE;
      INSERT INTO MOREGRUB VALUES ('Pretzels', 1)
                 ;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      INSERT INTO MOREGRUB VALUES (NULL, 2);

PROCEDURE SUB90 SQLCODE SQLSTATE;
      INSERT INTO MOREGRUB VALUES ('Chips', 3);

PROCEDURE SUB91 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S14523 FROM :DSTMT;

PROCEDURE SUB92 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      OPEN C14523 USING :INT1;

PROCEDURE SUB93 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14523 INTO :CH1;

PROCEDURE SUB94 SQLCODE SQLSTATE;
      CLOSE C14523;

PROCEDURE SUB95 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      OPEN C14523 USING :INT1;

PROCEDURE SUB96 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14523 INTO :CH1;

PROCEDURE SUB97 SQLCODE SQLSTATE;
      CLOSE C14523;

PROCEDURE SUB98 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S14524 FROM :DSTMT;

PROCEDURE SUB99 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      OPEN C14524 USING :INT1;

PROCEDURE SUB100 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14524 INTO :CH1;

PROCEDURE SUB101 SQLCODE SQLSTATE;
      CLOSE C14524;

PROCEDURE SUB102 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      OPEN C14524 USING :INT1;

PROCEDURE SUB103 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14524 INTO :CH1;

PROCEDURE SUB104 SQLCODE SQLSTATE;
      CLOSE C14524;

PROCEDURE SUB105 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB106 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT SUBSTRING (C1 FROM ID)' ||
                    ' FROM MOREGRUB WHERE C1 LIKE ''Ch%'''
                    );

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

PROCEDURE SUB108 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S14525 FROM :LONGST;

PROCEDURE SUB109 SQLCODE SQLSTATE;
    OPEN C14525;

PROCEDURE SUB110 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14525 INTO :CH1;

PROCEDURE SUB111 SQLCODE SQLSTATE;
      CLOSE C14525;

PROCEDURE SUB112 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB113 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT SUBSTRING (C1 FROM 1 FOR ID)' ||
                    ' FROM MOREGRUB WHERE C1 LIKE ''Ch%'''
                    );

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

PROCEDURE SUB115 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S14526 FROM :LONGST;

PROCEDURE SUB116 SQLCODE SQLSTATE;
    OPEN C14526;

PROCEDURE SUB117 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C14526 INTO :CH1;

PROCEDURE SUB118 SQLCODE SQLSTATE;
      CLOSE C14526;

PROCEDURE SUB119 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      OPEN C14523 USING :INT1;

PROCEDURE SUB120 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      FETCH C14523 INTO :CH1:INDIC1;

PROCEDURE SUB121 SQLCODE SQLSTATE;
      CLOSE C14523;

PROCEDURE SUB122 SQLCODE SQLSTATE;
      DELETE FROM MOREGRUB;

PROCEDURE SUB123 SQLCODE SQLSTATE;
      INSERT INTO MOREGRUB VALUES ('Tacos', NULL)
                 ;

PROCEDURE SUB124 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S14527 FROM :DSTMT;

PROCEDURE SUB125 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      OPEN C14527 USING :INT1;

PROCEDURE SUB126 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      FETCH C14527 INTO :CH1:INDIC1;

PROCEDURE SUB127 SQLCODE SQLSTATE;
      CLOSE C14527;

PROCEDURE SUB128 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S14528 FROM :DSTMT;

PROCEDURE SUB129 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      OPEN C14528 USING :INT1:INDIC1;

PROCEDURE SUB130 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      FETCH C14528 INTO :CH1:INDIC1;

PROCEDURE SUB131 SQLCODE SQLSTATE;
      CLOSE C14528;

PROCEDURE SUB132 SQLCODE SQLSTATE;
      UPDATE MOREGRUB SET C1 = NULL;

PROCEDURE SUB133 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S14529 FROM :DSTMT;

PROCEDURE SUB134 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :INT2 NUMERIC (9)
    :INDIC2 NUMERIC (4);
      OPEN C14529 USING :INT1:INDIC1, :INT2:INDIC2
                 ;

PROCEDURE SUB135 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      FETCH C14529 INTO :CH1:INDIC1;

PROCEDURE SUB136 SQLCODE SQLSTATE;
      CLOSE C14529;

PROCEDURE SUB137 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB138 SQLCODE SQLSTATE;
      DROP TABLE MOREGRUB CASCADE;

PROCEDURE SUB139 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB142 SQLCODE SQLSTATE;
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.113 Sekunden  ]