SSL dml016.mco

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

MODULE DML016
LANGUAGE COBOL
AUTHORIZATION SULLIVAN

DECLARE F CURSOR FOR SELECT USER, PNAME FROM HU.PROJ
            
DECLARE FF CURSOR FOR SELECT USER, PNAME FROM
             HU.PROJ
DECLARE F1 CURSOR FOR SELECT 'USER', PNAME FROM
             HU.PROJ
DECLARE E1 CURSOR FOR SELECT EMPNUM, 10 FROM
             HU.STAFF


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

PROCEDURE SUB1 SQLCODE;
    OPEN F;

PROCEDURE SUB2 SQLCODE
    :PUSER CHAR(12)
    :PNAME1 CHAR(20);
      FETCH F INTO  :PUSER,  :PNAME1;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0064','pass','MCO');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0064','fail','MCO');

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE;
    OPEN FF;

PROCEDURE SUB7 SQLCODE
    :TRUNC CHAR(4)
    :PNAME1 CHAR(20);
      FETCH FF INTO  :TRUNC, :PNAME1;

PROCEDURE SUB8 SQLCODE;
      CLOSE FF;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0172','pass','MCO');

PROCEDURE SUB10 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0172','fail','MCO');

PROCEDURE SUB11 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE;
    OPEN F1;

PROCEDURE SUB13 SQLCODE
    :PUSER CHAR(12)
    :PNAME1 CHAR(20);
      FETCH F1 INTO  :PUSER,  :PNAME1;

PROCEDURE SUB14 SQLCODE;
      CLOSE F1;

PROCEDURE SUB15 SQLCODE
    :PNO CHAR(3)
    :LITRAL CHAR(19)
    :BUGET1 NUMERIC (9);
      SELECT  PNUM, 'BUDGET IN GRAMS IS ', BUDGET*5
                  INTO  :PNO, :LITRAL, :BUGET1
                  FROM HU.PROJ
                  WHERE PNUM='P1';

PROCEDURE SUB16 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0065','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0065','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE
    :EMPNO1 CHAR(3)
    :BUGET1 NUMERIC (9);
      SELECT EMPNUM, 10 
                  INTO  :EMPNO1,  :BUGET1
                  FROM HU.STAFF
                  WHERE GRADE = 10;

PROCEDURE SUB20 SQLCODE;
    OPEN E1;

PROCEDURE SUB21 SQLCODE
    :EMPNO1 CHAR(3)
    :CNT NUMERIC (9);
      FETCH E1 INTO  :EMPNO1,  :CNT;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0066','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0066','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;