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

Spracherkennung für: .mco vermutete Sprache: Scala {Scala[61] Pl1[92] Isabelle[117]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module dml021.mco
-- 59-byte ID

MODULE DML021
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE DATA1 CURSOR
             FOR SELECT CHARTEST
             FROM   AA
DECLARE DATA01 CURSOR
             FOR SELECT CHARTEST
             FROM   BB
DECLARE DATA2 CURSOR
             FOR SELECT CHARTEST
             FROM   CC
DECLARE DATA02 CURSOR
             FOR SELECT CHARTEST
             FROM   DD
DECLARE DATA3 CURSOR
             FOR SELECT INTTEST
             FROM   EE
DECLARE DATA4 CURSOR
             FOR SELECT INTTEST
             FROM   FF
DECLARE DATA011 CURSOR
             FOR SELECT NUMTEST
             FROM   OO


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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO AA 
                  VALUES('abcdefghijklmnopqrst');

PROCEDURE SUB2 SQLCODE;
    OPEN DATA1;

PROCEDURE SUB3 SQLCODE
    :CHAR1 CHAR(20);
      FETCH DATA1 INTO  :CHAR1;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0084','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0084','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO BB 
                  VALUES('a');

PROCEDURE SUB9 SQLCODE;
    OPEN DATA01;

PROCEDURE SUB10 SQLCODE
    :CHAR1 CHAR(20);
      FETCH DATA01 INTO  :CHAR1;

PROCEDURE SUB11 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0173','pass','MCO');

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0173','fail','MCO');

PROCEDURE SUB14 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO CC 
                  VALUES('abcdefghijklmnopqrst');

PROCEDURE SUB16 SQLCODE;
    OPEN DATA2;

PROCEDURE SUB17 SQLCODE
    :CHAR1 CHAR(20);
      FETCH DATA2 INTO  :CHAR1;

PROCEDURE SUB18 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0085','pass','MCO');

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0085','fail','MCO');

PROCEDURE SUB21 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO DD 
                  VALUES('a');

PROCEDURE SUB23 SQLCODE;
    OPEN DATA02;

PROCEDURE SUB24 SQLCODE
    :CHAR1 CHAR(20);
      FETCH DATA02 INTO  :CHAR1;

PROCEDURE SUB25 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0174','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0174','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
      INSERT INTO EE 
                  VALUES(123456);

PROCEDURE SUB30 SQLCODE;
    OPEN DATA3;

PROCEDURE SUB31 SQLCODE
    :LONG1 NUMERIC (9);
      FETCH DATA3 INTO  :LONG1;

PROCEDURE SUB32 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0086','pass','MCO');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0086','fail','MCO');

PROCEDURE SUB35 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE;
      INSERT INTO FF 
                  VALUES(123456);

PROCEDURE SUB37 SQLCODE;
    OPEN DATA4;

PROCEDURE SUB38 SQLCODE
    :LONG1 NUMERIC (9);
      FETCH DATA4 INTO  :LONG1;

PROCEDURE SUB39 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB40 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0087','pass','MCO');

PROCEDURE SUB41 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0087','fail','MCO');

PROCEDURE SUB42 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB43 SQLCODE;
      INSERT INTO HH 
                  VALUES(123);

PROCEDURE SUB44 SQLCODE
    :SHORT1 NUMERIC (4);
      SELECT * 
                  INTO    :SHORT1
                  FROM   HH;

PROCEDURE SUB45 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB46 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0089','pass','MCO');

PROCEDURE SUB47 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0089','fail','MCO');

PROCEDURE SUB48 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB49 SQLCODE;
      INSERT INTO MM 
                  VALUES(7);

PROCEDURE SUB50 SQLCODE
    :LONG1 NUMERIC (9);
      SELECT *
                  INTO    :LONG1
                  FROM   MM;

PROCEDURE SUB51 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB52 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0175','pass','MCO');

PROCEDURE SUB53 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0175','fail','MCO');

PROCEDURE SUB54 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB55 SQLCODE;
      DELETE FROM NN;

PROCEDURE SUB56 SQLCODE;
      INSERT INTO NN 
                  VALUES(123456789);

PROCEDURE SUB57 SQLCODE
    :LONG1 NUMERIC (9);
      SELECT * 
                  INTO    :LONG1
                  FROM   NN;

PROCEDURE SUB58 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB59 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0176','pass','MCO');

PROCEDURE SUB60 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0176','fail','MCO');

PROCEDURE SUB61 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB62 SQLCODE;
      INSERT INTO OO 
                  VALUES(123456789);

PROCEDURE SUB63 SQLCODE;
    OPEN DATA011;

PROCEDURE SUB64 SQLCODE
    :LONG1 NUMERIC (9);
      FETCH DATA011 INTO  :LONG1;

PROCEDURE SUB65 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB66 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0177','pass','MCO');

PROCEDURE SUB67 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0177','fail','MCO');

PROCEDURE SUB68 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB69 SQLCODE;
      INSERT INTO QQ 
                  VALUES(56);

PROCEDURE SUB70 SQLCODE
    :LONG1 NUMERIC (9);
      SELECT *
                  INTO    :LONG1
                  FROM   QQ;

PROCEDURE SUB71 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB72 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0178','pass','MCO');

PROCEDURE SUB73 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0178','fail','MCO');

PROCEDURE SUB74 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB75 SQLCODE;
      INSERT INTO RR 
                  VALUES(12345678);

PROCEDURE SUB76 SQLCODE
    :LONG1 NUMERIC (9);
      SELECT *
                  INTO    :LONG1
                  FROM   RR;

PROCEDURE SUB77 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB78 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0179','pass','MCO');

PROCEDURE SUB79 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0179','fail','MCO');

PROCEDURE SUB80 SQLCODE;
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.115 Sekunden  ]