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: sdl020.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desHlasm {Hlasm[411] Fortran[682] CS[711]}zum Wurzelverzeichnis wechseln

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

MODULE DML045
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE X CURSOR FOR
             SELECT COL6,SUM(COL11),MAX(COL12)
             FROM T12
             GROUP BY COL1,COL5,COL3,COL6,COL2,COL4
             ORDER BY COL6 DESC
DECLARE Y CURSOR FOR
             SELECT COL5,SUM(COL11),MAX(COL12)
             FROM T12
             GROUP BY COL9,COL5,COL7,COL4,COL3,COL8
             ORDER BY COL5 DESC


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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO T12
                  VALUES('1','22','4444','666666','88888888','0101010101',
                  '2020...20','3030...30','4040...40','5050...50',44,48)
                 ;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO T12
                  VALUES('1','22','4444','666666','88888888','1010101010',
                  '2020...20','3030...30','4040...40','5050...50',11,12)
                 ;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO T12
                  VALUES('1','22','4444','666666','88888888','1010101010',
                  '2020...20','3030...30','4040...40','5050...50',22,24)
                 ;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO T12
                  VALUES('1','22','4444','666666','88888888','0101010101',
                  '2020...20','3030...30','4040...40','5050...50',33,36)
                 ;

PROCEDURE SUB5 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                  INTO   :I
                  FROM  T12;

PROCEDURE SUB6 SQLCODE;
    OPEN X;

PROCEDURE SUB7 SQLCODE
    :VCOL6 CHAR(10)
    :II NUMERIC (9)
    :III NUMERIC (9);
      FETCH X INTO  :VCOL6, :II, :III;

PROCEDURE SUB8 SQLCODE
    :VCOL66 CHAR(10)
    :I4 NUMERIC (9)
    :I5 NUMERIC (9);
      FETCH X INTO  :VCOL66, :I4, :I5;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0218','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0218','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO T12
                  VALUES('1','22','4444','666666','88888888','1010101010',
                  '20202020202020202020','303030303030303030303030303030',
                  '4040404040404040404040404040404040404040',
                  '5050...50',111,112);

PROCEDURE SUB14 SQLCODE;
      INSERT INTO T12
                  VALUES('1','22','4444','666666','88888889','1010101010',
                  '20202020202020202020','303030303030303030303030303030',
                  '4040404040404040404040404040404040404040',
                  '5050...50',333,336);

PROCEDURE SUB15 SQLCODE;
      INSERT INTO T12
                  VALUES('1','22','4444','666666','88888889','1010101010',
                  '20202020202020202020','303030303030303030303030303030',
                  '4040404040404040404040404040404040404040',
                  '5050...50',444,448);

PROCEDURE SUB16 SQLCODE;
      INSERT INTO T12
                  VALUES('1','22','4444','666666','88888888','1010101010',
                  '20202020202020202020','303030303030303030303030303030',
                  '4040404040404040404040404040404040404040',
                  '5050...50',222,224);

PROCEDURE SUB17 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                  INTO   :I
                  FROM  T12;

PROCEDURE SUB18 SQLCODE;
    OPEN Y;

PROCEDURE SUB19 SQLCODE
    :VCOL5 CHAR(8)
    :II NUMERIC (9)
    :III NUMERIC (9);
      FETCH Y INTO  :VCOL5, :II, :III;

PROCEDURE SUB20 SQLCODE
    :VCOL55 CHAR(8)
    :I4 NUMERIC (9)
    :I5 NUMERIC (9);
      FETCH Y INTO  :VCOL55, :I4, :I5;

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0219','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0219','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.162Quellennavigators  ]