Quelle  dml126.mco   Sprache: unbekannt

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

DECLARE C12611  CURSOR FOR S12611
DECLARE C12612  CURSOR FOR S12612
DECLARE C12621  CURSOR FOR S12621


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12611 FROM :DSTMT;

PROCEDURE SUB4 SQLCODE SQLSTATE;
    OPEN C12611;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      CLOSE C12611;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12613 FROM :DSTMT;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :CH2 CHAR(10);
      EXECUTE S12613 USING :CH1, :CH2;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12612 FROM :DSTMT;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      OPEN C12612 USING :INT1;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      FETCH C12612 INTO :CH1;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      CLOSE C12612;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(10);
      OPEN C12612 USING :INT1, :CH1;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      CLOSE C12612;

PROCEDURE SUB14 SQLCODE SQLSTATE;
    OPEN C12612;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      CLOSE C12612;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      EXECUTE S12613;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0660','pass','MCO');

PROCEDURE SUB19 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0660','fail','MCO');

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      ALLOCATE DESCRIPTOR 'YAWL';

PROCEDURE SUB22 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      SET DESCRIPTOR 'YAWL' COUNT = 1;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12621 FROM :DSTMT;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DESCRIBE S12621 USING SQL DESCRIPTOR 'YAWL'
                 ;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      GET DESCRIPTOR 'YAWL' :INT1 = COUNT;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      DEALLOCATE DESCRIPTOR 'YAWL';

PROCEDURE SUB32 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB33 SQLCODE SQLSTATE;
    OPEN C12621;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12621 INTO :INT1;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      UPDATE HU.WORKS SET HOURS = 10
                    WHERE CURRENT OF C12621;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      DELETE FROM HU.WORKS WHERE CURRENT OF C12621
                 ;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      CLOSE C12621;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB43 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12622 FROM :DSTMT;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      EXECUTE S12622;

PROCEDURE SUB45 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB47 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0670','pass','MCO');

PROCEDURE SUB50 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0670','fail','MCO');

PROCEDURE SUB51 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES ('AAA');

PROCEDURE SUB53 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12631 FROM :DSTMT;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB55 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB56 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12632 FROM :DSTMT;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB58 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12633 FROM :DSTMT;

PROCEDURE SUB59 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB60 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12634 FROM :DSTMT;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB62 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S12635 FROM :DSTMT;

PROCEDURE SUB63 SQLCODE SQLSTATE
    :CMD CHAR(21)
    :CMD2 CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION,
                    :CMD2 = COMMAND_FUNCTION;

PROCEDURE SUB64 SQLCODE SQLSTATE
    :CMD CHAR(21);
      EXECUTE S12634 USING :CMD;

PROCEDURE SUB65 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB66 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB68 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      EXECUTE S12632;

PROCEDURE SUB71 SQLCODE SQLSTATE
    :CMD CHAR(21);
      GET DIAGNOSTICS :CMD = DYNAMIC_FUNCTION;

PROCEDURE SUB72 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB73 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0671','pass','MCO');

PROCEDURE SUB74 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0671','fail','MCO');

PROCEDURE SUB75 SQLCODE SQLSTATE;
      COMMIT WORK;