| products/sources/formale sprachen/Cobol/Test-Suite/SQL M/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: dml134.mco Sprache: Unknown
|
Spracherkennung für: .mco vermutete Sprache: BAT {BAT[183] Ada[306] Abap[355]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen] -- SQL Test Suite, V6.0, SQL Module dml132.mco -- 59-byte ID -- MODULE DML132 LANGUAGE COBOL AUTHORIZATION FLATER DECLARE SILLY CURSOR FOR SELECT COUNT(*) FROM HU.WORKS T01, HU.PROJ T02, HU.STAFF T03, USIG T04, U_SIG T05, BASE_VS1 T06, VS1 T07, VS2 T08, HU.VSTAFF3 T09, BASE_WCOV T10 WHERE T03.EMPNUM > 'E1' PROCEDURE SUB1 SQLCODE SQLSTATE :UIDX CHAR(18); SELECT USER INTO :UIDX FROM HU.ECCO; PROCEDURE SUB2 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB3 SQLCODE SQLSTATE; INSERT INTO HU.P15 VALUES (999999999999999) ; PROCEDURE SUB4 SQLCODE SQLSTATE; INSERT INTO HU.P15 VALUES (-999999999999999) ; PROCEDURE SUB5 SQLCODE SQLSTATE :INT1 NUMERIC (9) :INT2 NUMERIC (9); SELECT NUMTEST - 999999999999990, NUMTEST / 9999999 INTO :INT1, :INT2 FROM HU.P15 WHERE NUMTEST > 0; PROCEDURE SUB6 SQLCODE SQLSTATE :INT1 NUMERIC (9) :INT2 NUMERIC (9); SELECT NUMTEST + 999999999999990, NUMTEST / 9999999 INTO :INT1, :INT2 FROM HU.P15 WHERE NUMTEST < 0; PROCEDURE SUB7 SQLCODE SQLSTATE; DELETE FROM HU.P15; PROCEDURE SUB8 SQLCODE SQLSTATE; INSERT INTO HU.P15 VALUES (562949953421313) ; PROCEDURE SUB9 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM HU.P15 WHERE NUMTEST = 562949953421312; PROCEDURE SUB10 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM HU.P15 WHERE NUMTEST = 562949953421313; PROCEDURE SUB11 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM HU.P15 WHERE NUMTEST = 562949953421314; PROCEDURE SUB12 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB13 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0515','pass','MCO'); PROCEDURE SUB14 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0515','fail','MCO'); PROCEDURE SUB15 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB16 SQLCODE SQLSTATE; DELETE FROM HU.T100; PROCEDURE SUB17 SQLCODE SQLSTATE; INSERT INTO HU.T100 VALUES ('00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '0a', '0b', '0c', '0d', '0e', '0f', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '1a', '1b', '1c', '1d', '1e', '1f', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '2a', '2b', '2c', '2d', '2e', '2f', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '3a', '3b', '3c', '3d', '3e', '3f', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '4a', '4b', '4c', '4d', '4e', '4f', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '5a', '5b', '5c', '5d', '5e', '5f', '60', '61', '62', '63'); PROCEDURE SUB18 SQLCODE SQLSTATE :CV00 CHAR(2) :CV01 CHAR(2) :CV02 CHAR(2) :CV03 CHAR(2) :CV04 CHAR(2) :INDIC1 NUMERIC (4) :CV05 CHAR(2) :CV06 CHAR(2) :CV07 CHAR(2) :CV08 CHAR(2) :CV09 CHAR(2) :CV10 CHAR(2) :CV11 CHAR(2) :CV12 CHAR(2) :CV13 CHAR(2) :CV14 CHAR(2) :CV15 CHAR(2) :CV16 CHAR(2) :CV17 CHAR(2) :CV18 CHAR(2) :CV19 CHAR(2) :CV20 CHAR(2) :CV21 CHAR(2) :CV22 CHAR(2) :CV23 CHAR(2) :CV24 CHAR(2) :CV25 CHAR(2) :CV26 CHAR(2) :CV27 CHAR(2) :CV28 CHAR(2) :CV29 CHAR(2) :CV30 CHAR(2) :CV31 CHAR(2) :CV32 CHAR(2) :CV33 CHAR(2) :CV34 CHAR(2) :CV35 CHAR(2) :CV36 CHAR(2) :CV37 CHAR(2) :CV38 CHAR(2) :CV39 CHAR(2) :CV40 CHAR(2) :CV41 CHAR(2) :CV42 CHAR(2) :CV43 CHAR(2) :CV44 CHAR(2) :CV45 CHAR(2) :CV46 CHAR(2) :CV47 CHAR(2) :CV48 CHAR(2) :CV49 CHAR(2) :CV50 CHAR(2) :CV51 CHAR(2) :CV52 CHAR(2) :CV53 CHAR(2) :CV54 CHAR(2) :CV55 CHAR(2) :CV56 CHAR(2) :CV57 CHAR(2) :CV58 CHAR(2) :CV59 CHAR(2) :CV60 CHAR(2) :CV61 CHAR(2) :CV62 CHAR(2) :CV63 CHAR(2) :CV64 CHAR(2) :CV65 CHAR(2) :CV66 CHAR(2) :CV67 CHAR(2) :CV68 CHAR(2) :CV69 CHAR(2) :CV70 CHAR(2) :CV71 CHAR(2) :CV72 CHAR(2) :CV73 CHAR(2) :CV74 CHAR(2) :CV75 CHAR(2) :CV76 CHAR(2) :CV77 CHAR(2) :CV78 CHAR(2) :CV79 CHAR(2) :CV80 CHAR(2) :CV81 CHAR(2) :CV82 CHAR(2) :CV83 CHAR(2) :CV84 CHAR(2) :CV85 CHAR(2) :CV86 CHAR(2) :CV87 CHAR(2) :CV88 CHAR(2) :CV89 CHAR(2) :CV90 CHAR(2) :CV91 CHAR(2) :CV92 CHAR(2) :CV93 CHAR(2) :CV94 CHAR(2) :CV95 CHAR(2) :CV96 CHAR(2) :CV97 CHAR(2) :CV98 CHAR(2) :CV99 CHAR(2) :INDIC2 NUMERIC (4); SELECT C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13, C14, C15, C16, C17, C18, C19, C20, C21, C22, C23, C24, C25, C26, C27, C28, C29, C30, C31, C32, C33, C34, C35, C36, C37, C38, C39, C40, C41, C42, C43, C44, C45, C46, C47, C48, C49, C50, C51, C52, C53, C54, C55, C56, C57, C58, C59, C60, C61, C62, C63, C64, C65, C66, C67, C68, C69, C70, C71, C72, C73, C74, C75, C76, C77, C78, C79, C80, C81, C82, C83, C84, C85, C86, C87, C88, C89, C90, C91, C92, C93, C94, C95, C96, C97, C98, C99, C100 INTO :CV00, :CV01, :CV02, :CV03, :CV04:INDIC1, :CV05, :CV06, :CV07, :CV08, :CV09, :CV10, :CV11, :CV12, :CV13, :CV14, :CV15, :CV16, :CV17, :CV18, :CV19, :CV20, :CV21, :CV22, :CV23, :CV24, :CV25, :CV26, :CV27, :CV28, :CV29, :CV30, :CV31, :CV32, :CV33, :CV34, :CV35, :CV36, :CV37, :CV38, :CV39, :CV40, :CV41, :CV42, :CV43, :CV44, :CV45, :CV46, :CV47, :CV48, :CV49, :CV50, :CV51, :CV52, :CV53, :CV54, :CV55, :CV56, :CV57, :CV58, :CV59, :CV60, :CV61, :CV62, :CV63, :CV64, :CV65, :CV66, :CV67, :CV68, :CV69, :CV70, :CV71, :CV72, :CV73, :CV74, :CV75, :CV76, :CV77, :CV78, :CV79, :CV80, :CV81, :CV82, :CV83, :CV84, :CV85, :CV86, :CV87, :CV88, :CV89, :CV90, :CV91, :CV92, :CV93, :CV94, :CV95, :CV96, :CV97, :CV98, :CV99:INDIC2 FROM HU.T100; PROCEDURE SUB19 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB20 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0524','pass','MCO'); PROCEDURE SUB21 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0524','fail','MCO'); PROCEDURE SUB22 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB23 SQLCODE SQLSTATE; DELETE FROM BASE_WCOV; PROCEDURE SUB24 SQLCODE SQLSTATE; INSERT INTO BASE_WCOV VALUES (1); PROCEDURE SUB25 SQLCODE SQLSTATE; DELETE FROM HU.STAFF WHERE EMPNUM > 'E2'; PROCEDURE SUB26 SQLCODE SQLSTATE; OPEN SILLY; PROCEDURE SUB27 SQLCODE SQLSTATE :INT1 NUMERIC (9); FETCH SILLY INTO :INT1; PROCEDURE SUB28 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB29 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0525','pass','MCO'); PROCEDURE SUB30 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0525','fail','MCO'); PROCEDURE SUB31 SQLCODE SQLSTATE; COMMIT WORK; [ Dauer der Verarbeitung: 0.137 Sekunden ] |