Quelle  cob002.mco

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

MODULE COB002
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM TEXT80
               ;

PROCEDURE SUB2 SQLCODE
    :IN80 CHAR(80);
      INSERT 
                  INTO TEXT80(TEXXT)
                     VALUES ( :IN80)
               ;

PROCEDURE SUB3 SQLCODE
    :OUT80 CHAR(80);
      SELECT
                  TEXXT INTO  :OUT80 FROM TEXT80 
               ;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                          VALUES('0186','pass','MCO');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                       VALUES('0186','fail','MCO');

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      DELETE
                   FROM TEXT132
               ;

PROCEDURE SUB8 SQLCODE
    :IN132 CHAR(132);
      INSERT
                 INTO TEXT132(TEXXT)
                     VALUES ( :IN132)
               ;

PROCEDURE SUB9 SQLCODE
    :OUT132 CHAR(132);
      SELECT
                  TEXXT INTO  :OUT132 FROM TEXT132
               ;

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

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

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
      DELETE
                 FROM TEXT240
               ;

PROCEDURE SUB14 SQLCODE
    :IN240 CHAR(240);
      INSERT
                  INTO TEXT240(TEXXT)
                     VALUES ( :IN240)
               ;

PROCEDURE SUB15 SQLCODE
    :OUT240 CHAR(240);
      SELECT
                  TEXXT INTO  :OUT240 FROM TEXT240
               ;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                        VALUES('0188','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                        VALUES ('0188','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;