Quelle  dml046.mco

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

MODULE DML046
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE X CURSOR FOR
             SELECT COL5,COL6,COL11,COL3,COL4,COL7,COL8
             FROM T12
             ORDER BY COL7,COL8,COL3,COL4,COL6,COL5 DESC
DECLARE Y CURSOR FOR
             SELECT COL3,COL11,COL9,COL8,COL7,COL5,COL4
             FROM T12
             ORDER BY COL9,COL8,COL7,COL5,COL4,COL3


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

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

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

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

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

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

PROCEDURE SUB6 SQLCODE;
    OPEN X;

PROCEDURE SUB7 SQLCODE
    :VCOL5 CHAR(8)
    :VCOL6 CHAR(10)
    :II NUMERIC (9)
    :VCOL3 CHAR(4)
    :VCOL4 CHAR(6)
    :VCOL7 CHAR(20)
    :VCOL8 CHAR(30);
      FETCH X INTO  :VCOL5, :VCOL6, :II, :VCOL3, :VCOL4, :VCOL7, :VCOL8;

PROCEDURE SUB8 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0220','pass','MCO');

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0220','fail','MCO');

PROCEDURE SUB11 SQLCODE;
      COMMIT WORK;

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

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

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

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

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

PROCEDURE SUB17 SQLCODE;
    OPEN Y;

PROCEDURE SUB18 SQLCODE
    :VCOL3 CHAR(4)
    :II NUMERIC (9)
    :VCOL9 CHAR(40)
    :VCOL8 CHAR(30)
    :VCOL7 CHAR(20)
    :VCOL5 CHAR(8)
    :VCOL4 CHAR(6);
    FETCH Y INTO :VCOL3, :II, :VCOL9, :VCOL8, :VCOL7, :VCOL5, :VCOL4;

PROCEDURE SUB19 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0221','pass','MCO');

PROCEDURE SUB21 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0221','fail','MCO');

PROCEDURE SUB22 SQLCODE;
      COMMIT WORK;