Quelle  dml044.mco

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

MODULE DML044
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO T8
                  VALUES('th','seco','third3','fourth_4','fifth_colu',
                  'sixth_column','seventh_column','last_column_of_t')
                 ;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO T8
                  VALUES('th','seco','third3','fourth_4','fifth_colu',
                  'sixth_column','column_seventh','column_eighth_la')
                 ;

PROCEDURE SUB3 SQLCODE
    :VCOL1 CHAR(2)
    :VCOL2 CHAR(4)
    :VCOL3 CHAR(6)
    :VCOL4 CHAR(8)
    :VCOL5 CHAR(10)
    :VCOL6 CHAR(12)
    :VCOL7 CHAR(14)
    :VCOL8 CHAR(16);
      SELECT COL1,COL2,COL3,COL4,COL5,COL6,COL7,COL8
      INTO :VCOL1, :VCOL2, :VCOL3, :VCOL4, :VCOL5, :VCOL6, :VCOL7,
                      :VCOL8
                  FROM T8;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE
    :VTR119 CHAR(118);
      INSERT INTO T118
                  VALUES(  :VTR119 );

PROCEDURE SUB9 SQLCODE
    :VTR119 CHAR(118);
      INSERT INTO T118
                  VALUES(  :VTR119 );

PROCEDURE SUB10 SQLCODE
    :SHRT12 CHAR(12);
      SELECT STR118
                  INTO  :SHRT12
                  FROM T118;

PROCEDURE SUB11 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB14 SQLCODE;
      COMMIT WORK;