Quelle  dml043.mco

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

MODULE DML043
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO T2000(STR110,STR200,STR216)
                  VALUES
                  ('STR11111111111111111111111111111111111111111111111',
                  'STR22222222222222222222222222222222222222222222222',
                  'STR66666666666666666666666666666666666666666666666')
                 ;

PROCEDURE SUB2 SQLCODE;
      UPDATE T2000  SET STR140 =
                  'STR44444444444444444444444444444444444444444444444'
                 ;

PROCEDURE SUB3 SQLCODE;
      UPDATE T2000  SET STR180 =
                  'STR88888888888888888888888888888888888888888888888'
                 ;

PROCEDURE SUB4 SQLCODE
    :VTR110 CHAR(110)
    :VTR180 CHAR(180)
    :VTR216 CHAR(216);
      SELECT STR110,STR180,STR216
                  INTO  :VTR110, :VTR180, :VTR216
                  FROM T2000;

PROCEDURE SUB5 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0214','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0214','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;