products/sources/formale sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: yts805.mco   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Scala {Scala[84] Pl1[95] Latech[116]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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

DECLARE X  CURSOR FOR S1
DECLARE Y  CURSOR FOR S2
DECLARE C3  CURSOR FOR S3
DECLARE C4  CURSOR FOR SELECT * FROM TEMP_S ORDER BY EMPNUM DESC


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE TABLE TEMP_S
                    (EMPNUM  CHAR(3), GRADE DECIMAL(4), CITY CHAR(15))
                 ;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO TEMP_S
                    SELECT EMPNUM, GRADE, CITY FROM HU.STAFF;

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

PROCEDURE SUB7 SQLCODE SQLSTATE;
    OPEN X;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :EMPNO1 CHAR(3)
    :GRADE1 NUMERIC (9)
    :CITY1 CHAR(15);
      FETCH X INTO :EMPNO1,:GRADE1,:CITY1;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :EMPNO1 CHAR(3)
    :GRADE1 NUMERIC (9)
    :CITY1 CHAR(15);
      FETCH X INTO :EMPNO1,:GRADE1,:CITY1;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      DROP TABLE TEMP_S CASCADE;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB16 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      CREATE TABLE TEMP_S
                    (EMPNUM  CHAR(3), GRADE DECIMAL(4), CITY CHAR(15))
                 ;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      INSERT INTO TEMP_S
                    SELECT EMPNUM, GRADE, CITY FROM HU.STAFF;

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

PROCEDURE SUB21 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :I1 NUMERIC (9);
      SELECT COUNT(*) INTO :I1 FROM TEMP_S;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      DROP TABLE TEMP_S CASCADE;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB28 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      CREATE TABLE TEMP_S
                    (EMPNUM  CHAR(3), GRADE DECIMAL(4), CITY CHAR(15))
                 ;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO TEMP_S SELECT EMPNUM,' ||
                    ' GRADE, CITY FROM HU.STAFF'
                    );

PROCEDURE SUB33 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S2 FROM :DSTMT;

PROCEDURE SUB36 SQLCODE SQLSTATE;
    OPEN Y;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :EMPNO1 CHAR(3)
    :GRADE1 NUMERIC (9)
    :CITY1 CHAR(15);
      FETCH Y INTO :EMPNO1,:GRADE1,:CITY1;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      DELETE FROM TEMP_S WHERE EMPNUM ='E5';

PROCEDURE SUB39 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S3 FROM :DSTMT;

PROCEDURE SUB40 SQLCODE SQLSTATE;
    OPEN C3;

PROCEDURE SUB41 SQLCODE SQLSTATE
    :I1 NUMERIC (9);
      FETCH C3 INTO :I1;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      DROP TABLE TEMP_S CASCADE;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB47 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      CREATE TABLE TEMP_S
                    (EMPNUM  CHAR(3), GRADE DECIMAL(4), CITY CHAR(15))
                 ;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      INSERT INTO TEMP_S
                    SELECT EMPNUM, GRADE, CITY FROM HU.STAFF;

PROCEDURE SUB51 SQLCODE SQLSTATE;
    OPEN C4;

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

PROCEDURE SUB53 SQLCODE SQLSTATE
    :EMPNO1 CHAR(3)
    :GRADE1 NUMERIC (9)
    :CITY1 CHAR(15);
      FETCH C4 INTO :EMPNO1,:GRADE1,:CITY1;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      DROP TABLE TEMP_S CASCADE;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB59 SQLCODE SQLSTATE;
      DELETE FROM HU.TEMP_S;

PROCEDURE SUB60 SQLCODE SQLSTATE;
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.70 Sekunden  ]