Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
Sprache: Cobol
rahmenlose Ansicht.mco DruckansichtText {Text[77] Latech[119] Fortran[244]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module xts733.mco
-- 59-byte ID
--
MODULE XTS733
LANGUAGE COBOL
AUTHORIZATION CTS1
DECLARE A CURSOR
FOR SELECT * FROM TEST6840A FULL OUTER JOIN TEST6840B
ON NUM_A = NUM_B ORDER BY NUM_A
DECLARE B CURSOR
FOR SELECT * FROM TEST6840A FULL JOIN TEST6840B
ON CH_A = CH_B ORDER BY NUM_A
DECLARE C CURSOR
FOR SELECT * FROM
(TEST6840B FULL JOIN TEST6840A AS CN1 ON TEST6840B.CH_B =
CN1.CH_A)
FULL JOIN TEST6840A AS CN2 ON TEST6840B.NUM_B = CN2.NUM_A
ORDER BY TEST6840B.NUM_B, CN1.NUM_A
DECLARE D CURSOR
FOR SELECT * FROM
(TEST6840A AS CN3 FULL OUTER JOIN TEST6840A AS CN4
ON CN3.NUM_A = CN4.NUM_A)
FULL OUTER JOIN
(TEST6840B AS CN5 FULL OUTER JOIN TEST6840B AS CN6
ON CN5.CH_B = CN6.CH_B)
ON CN3.NUM_A = CN5.NUM_B
ORDER BY CN3.NUM_A
PROCEDURE SUB1 (SQLCODE, SQLSTATE,
:UIDX CHAR(18));
SELECT USER INTO :UIDX FROM CTS1.ECCO;
PROCEDURE SUB2 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB3 (SQLCODE, SQLSTATE);
DELETE FROM TEST6840A;
PROCEDURE SUB4 (SQLCODE, SQLSTATE);
DELETE FROM TEST6840B;
PROCEDURE SUB5 (SQLCODE, SQLSTATE);
DELETE FROM TEST6840C;
PROCEDURE SUB6 (SQLCODE, SQLSTATE);
INSERT INTO TEST6840A VALUES (1,'A');
PROCEDURE SUB7 (SQLCODE, SQLSTATE);
INSERT INTO TEST6840A VALUES (2,'B');
PROCEDURE SUB8 (SQLCODE, SQLSTATE);
INSERT INTO TEST6840B VALUES (2,'C');
PROCEDURE SUB9 (SQLCODE, SQLSTATE);
INSERT INTO TEST6840B VALUES (3,'A');
PROCEDURE SUB10 (SQLCODE, SQLSTATE);
OPEN a;
PROCEDURE SUB11 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC4 NUMERIC (4));
FETCH a INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2:INDIC3, :XTCHAR2:INDIC4;
PROCEDURE SUB12 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10));
FETCH a INTO :XTNUM1, :XTCHAR1, :XTNUM2, :XTCHAR2
;
PROCEDURE SUB13 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC4 NUMERIC (4));
FETCH a INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2:INDIC3, :XTCHAR2:INDIC4;
PROCEDURE SUB14 (SQLCODE, SQLSTATE);
CLOSE a;
PROCEDURE SUB15 (SQLCODE, SQLSTATE);
OPEN b;
PROCEDURE SUB16 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10));
FETCH b INTO :XTNUM1, :XTCHAR1, :XTNUM2, :XTCHAR2
;
PROCEDURE SUB17 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC2 NUMERIC (4));
FETCH b INTO :XTNUM1, :XTCHAR1,
:XTNUM2:INDIC1, :XTCHAR2:INDIC2;
PROCEDURE SUB18 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10));
FETCH b INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2, :XTCHAR2;
PROCEDURE SUB19 (SQLCODE, SQLSTATE);
CLOSE b;
PROCEDURE SUB20 (SQLCODE, SQLSTATE);
INSERT INTO TEST6840C
TEST6840A FULL OUTER JOIN TEST6840B ON NUM_A = 2;
PROCEDURE SUB21 (SQLCODE, SQLSTATE,
:COUN NUMERIC (9));
SELECT COUNT(*) INTO :COUN FROM TEST6840C
;
PROCEDURE SUB22 (SQLCODE, SQLSTATE,
:COUN NUMERIC (9));
SELECT COUNT(*) INTO :COUN FROM TEST6840C
WHERE NUM_C1 = 1 AND CH_C1 = 'A' AND NUM_C2 IS NULL AND
CH_C2 IS NULL;
PROCEDURE SUB23 (SQLCODE, SQLSTATE,
:COUN NUMERIC (9));
SELECT COUNT(*) INTO :COUN FROM TEST6840C
WHERE NUM_C1 = 2 AND CH_C1 = 'B' AND NUM_C2 = 2 AND CH_C2
= 'C';
PROCEDURE SUB24 (SQLCODE, SQLSTATE,
:COUN NUMERIC (9));
SELECT COUNT(*) INTO :COUN FROM TEST6840C
WHERE NUM_C1 = 2 AND CH_C1 = 'B' AND NUM_C2 = 3 AND
CH_C2 = 'A';
PROCEDURE SUB25 (SQLCODE, SQLSTATE);
OPEN c;
PROCEDURE SUB26 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM3 NUMERIC (9),
:XTCHAR3 CHAR(10));
FETCH c INTO :XTNUM1, :XTCHAR1, :XTNUM2:INDIC1,
:XTCHAR2:INDIC2, :XTNUM3, :XTCHAR3;
PROCEDURE SUB27 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10),
:XTNUM3 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR3 CHAR(10),
:INDIC2 NUMERIC (4));
FETCH c INTO :XTNUM1, :XTCHAR1, :XTNUM2, :XTCHAR2,
:XTNUM3:INDIC1, :XTCHAR3:INDIC2;
PROCEDURE SUB28 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10),
:XTNUM3 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR3 CHAR(10),
:INDIC4 NUMERIC (4));
FETCH c INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2, :XTCHAR2, :XTNUM3:INDIC3, :XTCHAR3:INDIC4
;
PROCEDURE SUB29 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC4 NUMERIC (4),
:XTNUM3 NUMERIC (9),
:XTCHAR3 CHAR(10));
FETCH c INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2:INDIC3, :XTCHAR2:INDIC4, :XTNUM3, :XTCHAR3
;
PROCEDURE SUB30 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC4 NUMERIC (4),
:XTNUM3 NUMERIC (9),
:XTCHAR3 CHAR(10));
FETCH c INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2:INDIC3, :XTCHAR2:INDIC4, :XTNUM3, :XTCHAR3
;
PROCEDURE SUB31 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10),
:XTNUM3 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR3 CHAR(10),
:INDIC4 NUMERIC (4));
FETCH c INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2, :XTCHAR2, :XTNUM3:INDIC3, :XTCHAR3:INDIC4
;
PROCEDURE SUB32 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM3 NUMERIC (9),
:XTCHAR3 CHAR(10));
FETCH c INTO :XTNUM1, :XTCHAR1, :XTNUM2:INDIC1,
:XTCHAR2:INDIC2, :XTNUM3, :XTCHAR3;
PROCEDURE SUB33 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10),
:XTNUM3 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR3 CHAR(10),
:INDIC2 NUMERIC (4));
FETCH c INTO :XTNUM1, :XTCHAR1, :XTNUM2, :XTCHAR2,
:XTNUM3:INDIC1, :XTCHAR3:INDIC2;
PROCEDURE SUB34 (SQLCODE, SQLSTATE);
CLOSE c;
PROCEDURE SUB35 (SQLCODE, SQLSTATE);
OPEN d;
PROCEDURE SUB36 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10),
:XTNUM3 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR3 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM4 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR4 CHAR(10),
:INDIC4 NUMERIC (4));
FETCH d INTO :XTNUM1, :XTCHAR1, :XTNUM2, :XTCHAR2,
:XTNUM3:INDIC1, :XTCHAR3:INDIC2, :XTNUM4:INDIC3,
:XTCHAR4:INDIC4;
PROCEDURE SUB37 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10),
:XTNUM3 NUMERIC (9),
:XTCHAR3 CHAR(10),
:XTNUM4 NUMERIC (9),
:XTCHAR4 CHAR(10));
FETCH d INTO :XTNUM1, :XTCHAR1, :XTNUM2, :XTCHAR2,
:XTNUM3, :XTCHAR3, :XTNUM4, :XTCHAR4;
PROCEDURE SUB38 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC4 NUMERIC (4),
:XTNUM3 NUMERIC (9),
:XTCHAR3 CHAR(10),
:XTNUM4 NUMERIC (9),
:XTCHAR4 CHAR(10));
FETCH d INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2:INDIC3, :XTCHAR2:INDIC4,
:XTNUM3, :XTCHAR3, :XTNUM4, :XTCHAR4;
PROCEDURE SUB39 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR1 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM2 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR2 CHAR(10),
:INDIC4 NUMERIC (4),
:XTNUM3 NUMERIC (9),
:XTCHAR3 CHAR(10),
:XTNUM4 NUMERIC (9),
:XTCHAR4 CHAR(10));
FETCH d INTO :XTNUM1:INDIC1, :XTCHAR1:INDIC2,
:XTNUM2:INDIC3, :XTCHAR2:INDIC4,
:XTNUM3, :XTCHAR3, :XTNUM4, :XTCHAR4;
PROCEDURE SUB40 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10),
:XTNUM3 NUMERIC (9),
:INDIC1 NUMERIC (4),
:XTCHAR3 CHAR(10),
:INDIC2 NUMERIC (4),
:XTNUM4 NUMERIC (9),
:INDIC3 NUMERIC (4),
:XTCHAR4 CHAR(10),
:INDIC4 NUMERIC (4));
FETCH d INTO :XTNUM1, :XTCHAR1, :XTNUM2, :XTCHAR2,
:XTNUM3:INDIC1, :XTCHAR3:INDIC2, :XTNUM4:INDIC3,
:XTCHAR4:INDIC4;
PROCEDURE SUB41 (SQLCODE, SQLSTATE,
:XTNUM1 NUMERIC (9),
:XTCHAR1 CHAR(10),
:XTNUM2 NUMERIC (9),
:XTCHAR2 CHAR(10),
:XTNUM3 NUMERIC (9),
:XTCHAR3 CHAR(10),
:XTNUM4 NUMERIC (9),
:XTCHAR4 CHAR(10));
FETCH d INTO :XTNUM1, :XTCHAR1, :XTNUM2, :XTCHAR2,
:XTNUM3, :XTCHAR3, :XTNUM4, :XTCHAR4;
PROCEDURE SUB42 (SQLCODE, SQLSTATE);
CLOSE d;
PROCEDURE SUB43 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB44 (SQLCODE, SQLSTATE);
INSERT INTO CTS1.TESTREPORT
VALUES('7033','pass','MCO');
PROCEDURE SUB45 (SQLCODE, SQLSTATE);
INSERT INTO CTS1.TESTREPORT
VALUES('7033','fail','MCO');
PROCEDURE SUB46 (SQLCODE, SQLSTATE);
COMMIT WORK;
[ Verzeichnis aufwärts0.141unsichere Verbindung
]
|
|
