Quelle  flattab.mco

-- SQL Test Suite, V6.0, SQL Module flattab.mco
-- 59-byte ID
-- 
MODULE FLATTAB
LANGUAGE COBOL
AUTHORIZATION FLATER



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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM BASE_VS1;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO BASE_VS1 VALUES (0,1);

PROCEDURE SUB4 SQLCODE;
      INSERT INTO BASE_VS1 VALUES (1,0);

PROCEDURE SUB5 SQLCODE;
      INSERT INTO BASE_VS1 VALUES (0,0);

PROCEDURE SUB6 SQLCODE;
      INSERT INTO BASE_VS1 VALUES (1,1);

PROCEDURE SUB7 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I FROM BASE_VS1;

PROCEDURE SUB8 SQLCODE;
      DELETE FROM USIG;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO USIG VALUES (0,2);

PROCEDURE SUB10 SQLCODE;
      INSERT INTO USIG VALUES (1,3);

PROCEDURE SUB11 SQLCODE;
      DELETE FROM U_SIG;

PROCEDURE SUB12 SQLCODE;
      INSERT INTO U_SIG VALUES (4,6);

PROCEDURE SUB13 SQLCODE;
      INSERT INTO U_SIG VALUES (5,7);

PROCEDURE SUB14 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I FROM USIG;

PROCEDURE SUB15 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO :II FROM U_SIG;

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;