Untersuchungsergebnis.mco Download desScala {Scala[48] Pl1[85] CS[120]}zum Wurzelverzeichnis wechseln
-- 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;
[ Dauer der Verarbeitung: 0.110 Sekunden
]
