Quelle  yts799.mco

-- SQL Test Suite, V6.0, SQL Module yts799.mco
-- 59-byte ID
-- 
MODULE YTS799
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE CRA  CURSOR FOR
               SELECT TTA, TTB, TTC FROM CTS1.TT
               WHERE (SELECT TUD FROM TU WHERE TU.TUE = TT.TTA)
               IS NULL ORDER BY TTA DESC
DECLARE CRB  CURSOR FOR
               SELECT TTA, TTB, TTC FROM CTS1.TT
               WHERE (SELECT TUD FROM TU WHERE TU.TUE = TT.TTA)
               IS NOT NULL ORDER BY TTA


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
    OPEN CRA;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :COL3 NUMERIC (4));
      FETCH CRA INTO :COL1, :COL2, :COL3;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :INDIC2 NUMERIC (4),
    :COL3 NUMERIC (4),
    :INDIC1 NUMERIC (4));
      FETCH CRA INTO :COL1, :COL2:INDIC2, :COL3:INDIC1
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :INDIC2 NUMERIC (4),
    :COL3 NUMERIC (4),
    :INDIC1 NUMERIC (4));
      FETCH CRA INTO :COL1, :COL2:INDIC2, :COL3:INDIC1
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
    OPEN CRB;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :INDIC1 NUMERIC (4),
    :COL3 NUMERIC (4),
    :INDIC2 NUMERIC (4));
      FETCH CRB INTO :COL1, :COL2:INDIC1, :COL3:INDIC2
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :INDIC1 NUMERIC (4),
    :COL3 NUMERIC (4),
    :INDIC2 NUMERIC (4));
      FETCH CRB INTO :COL1, :COL2:INDIC1, :COL3:INDIC2
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM CTS1.TT
                    WHERE TTB IS NULL OR TTC IS NULL;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM CTS1.TT
                    WHERE TTB IS NOT NULL AND TTC IS NOT NULL;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM CTS1.TT
                    WHERE NOT (TTB IS NULL AND TTC IS NULL);

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7531','pass','MCO');

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7531','fail','MCO');

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;