Quelle  xts759.mco

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

DECLARE ACURS  SCROLL CURSOR FOR SELECT
             WORKERS,CITCOUN
               FROM VA759 ORDER BY WORKERS


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE VIEW VA759 (WORKERS,CITCOUN) 
                    AS SELECT EMPNAME,COUNT(CITY)
                    FROM CTS1.STAFFc
                    GROUP BY EMPNAME;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
    OPEN ACURS;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH ABSOLUTE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH FIRST FROM ACURS INTO :COL1,:COL2;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      CLOSE ACURS;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      DROP VIEW VA759 CASCADE;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;