Quelle  cugtab.mco

-- SQL Test Suite, V6.0, SQL Module cugtab.mco
-- 59-byte ID
-- 
MODULE CUGTAB
LANGUAGE COBOL
AUTHORIZATION CUGINI



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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM AA;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO AA VALUES('Twenty Characters...')
                 ;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM BB;

PROCEDURE SUB5 SQLCODE;
      DELETE FROM CC;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO CC VALUES('Twenty Characters...')
                 ;

PROCEDURE SUB7 SQLCODE;
      DELETE FROM DD;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO DD VALUES('a');

PROCEDURE SUB9 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I   FROM AA;

PROCEDURE SUB10 SQLCODE
    :IV NUMERIC (9);
      SELECT COUNT(*) INTO :IV  FROM BB;

PROCEDURE SUB11 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO :II  FROM CC;

PROCEDURE SUB12 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*) INTO :III FROM DD;

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      DELETE FROM EE;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO EE VALUES(0);

PROCEDURE SUB16 SQLCODE;
      DELETE FROM FF;

PROCEDURE SUB17 SQLCODE;
      DELETE FROM GG;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO GG VALUES(1);

PROCEDURE SUB19 SQLCODE;
      DELETE FROM HH;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO HH VALUES(2);

PROCEDURE SUB21 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I   FROM EE;

PROCEDURE SUB22 SQLCODE
    :IV NUMERIC (9);
      SELECT COUNT(*) INTO :IV  FROM FF;

PROCEDURE SUB23 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO :II  FROM GG;

PROCEDURE SUB24 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*) INTO :III FROM HH;

PROCEDURE SUB25 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB26 SQLCODE;
      DELETE FROM SRCH1;

PROCEDURE SUB27 SQLCODE;
      INSERT INTO SRCH1 VALUES (0);

PROCEDURE SUB28 SQLCODE;
      INSERT INTO SRCH1 VALUES (1);

PROCEDURE SUB29 SQLCODE;
      DELETE FROM BADG1;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO BADG1 VALUES (2);

PROCEDURE SUB31 SQLCODE;
      DELETE FROM BADG2;

PROCEDURE SUB32 SQLCODE;
      INSERT INTO BADG2 VALUES (2);

PROCEDURE SUB33 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I   FROM SRCH1;

PROCEDURE SUB34 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO :II  FROM BADG1;

PROCEDURE SUB35 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*) INTO :III FROM BADG2;

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;