Untersuchungsergebnis.mco Download desLex {Lex[62] Fortran[80] CS[93]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module dml043.mco
-- 59-byte ID
MODULE DML043
LANGUAGE COBOL
AUTHORIZATION HU
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 SQLCODE;
INSERT INTO T2000(STR110,STR200,STR216)
VALUES
('STR11111111111111111111111111111111111111111111111',
'STR22222222222222222222222222222222222222222222222',
'STR66666666666666666666666666666666666666666666666')
;
PROCEDURE SUB2 SQLCODE;
UPDATE T2000 SET STR140 =
'STR44444444444444444444444444444444444444444444444'
;
PROCEDURE SUB3 SQLCODE;
UPDATE T2000 SET STR180 =
'STR88888888888888888888888888888888888888888888888'
;
PROCEDURE SUB4 SQLCODE
:VTR110 CHAR(110)
:VTR180 CHAR(180)
:VTR216 CHAR(216);
SELECT STR110,STR180,STR216
INTO :VTR110, :VTR180, :VTR216
FROM T2000;
PROCEDURE SUB5 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB6 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0214','pass','MCO');
PROCEDURE SUB7 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0214','fail','MCO');
PROCEDURE SUB8 SQLCODE;
COMMIT WORK;
[ zur Elbe Produktseite wechseln0.76Quellennavigators
]
