Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
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: dml072.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desSQL {SQL[74] Scala[75] Python[98]}zum Wurzelverzeichnis wechseln

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

DECLARE C11811  CURSOR FOR S11811
DECLARE C11812  CURSOR FOR S11812
DECLARE C11813  CURSOR FOR S11813
DECLARE C11814  CURSOR FOR S11814
DECLARE C11815  CURSOR FOR S11815
DECLARE C11816  CURSOR FOR S11816


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE LUSERS ('        ||
                    ' PRIMARY KEY (LUSER_ID),'    ||
                    ' NAAM CHAR (10),'    ||
                    ' LUSER_ID INT,'          ||
                    ' FILE_QUOTA INT,'          ||
                    ' FILE_USAGE INT NOT NULL,' ||
                    ' CHECK (FILE_USAGE >= 0 AND' ||
                    ' (FILE_QUOTA IS NULL OR FILE_QUOTA >= FILE_USAGE)))'
                    );

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

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE LUSER_DATA ('                              
                        ||
                    ' FOREIGN KEY (LUSER_ID) REFERENCES LUSERS ON DELETE
                  CASCADE,' ||
                    ' PRIMARY KEY (FILE_NAME, LUSER_ID),'                   
                        ||
                    ' FILE_NAME CHAR (8) NOT NULL,'                     
                        ||
                    ' LUSER_ID INT NOT NULL,'                           
                        ||
                    ' LUSER_DATA CHAR (30))'
                    );

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

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB14 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'CREATE TABLE AUDIT_CODES ('                             
                          ||
                    ' ACTION_KEY INT PRIMARY KEY,'                    
                          ||
                    ' LUSER_ACTION CHAR (6) NOT NULL,'                  
                          ||
                    ' CHECK (LUSER_ACTION = ''INSERT'' OR LUSER_ACTION =
                  ''ACCVIO''' ||
                    ' OR LUSER_ACTION = ''DELETE''))'
                    );

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

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB22 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      CREATE TABLE AUDIT_RECORDS (
                    FOREIGN KEY (LUSER_ID) REFERENCES LUSERS ON DELETE SET
                  NULL,
                    LUSER_ID         INT,
                    SAVED_LUSER_ID   INT NOT NULL
                    REFERENCES ALL_USER_IDS (LUSER_ID) ON DELETE NO ACTION,
                    ACTION_KEY       INT DEFAULT 0 NOT NULL
                    REFERENCES AUDIT_CODES ON DELETE SET DEFAULT);

PROCEDURE SUB24 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

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

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

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

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

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

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

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

PROCEDURE SUB34 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO LUSER_DATA VALUES (''ROOT1'',' ||
                    ' 0, ''BIFF is a total loser'')'
                    );

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

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

PROCEDURE SUB38 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO LUSER_DATA VALUES (''ROOT2'',' ||
                    ' 0, ''Kibo wastes disk space'')'
                    );

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

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

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

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

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

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

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

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

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

PROCEDURE SUB49 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'INSERT INTO LUSER_DATA VALUES (''HAHA'',' ||
                    ' 2, ''I G0T KIB0Z PASSW0RD!!!'')'
                    );

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

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

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

PROCEDURE SUB54 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11811 FROM :DSTMT;

PROCEDURE SUB55 SQLCODE SQLSTATE;
    OPEN C11811;

PROCEDURE SUB56 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11811 INTO :INT1;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      CLOSE C11811;

PROCEDURE SUB58 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11812 FROM :DSTMT;

PROCEDURE SUB59 SQLCODE SQLSTATE;
    OPEN C11812;

PROCEDURE SUB60 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11812 INTO :INT1;

PROCEDURE SUB61 SQLCODE SQLSTATE;
      CLOSE C11812;

PROCEDURE SUB62 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S11813 FROM :DSTMT;

PROCEDURE SUB63 SQLCODE SQLSTATE;
    OPEN C11813;

PROCEDURE SUB64 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11813 INTO :INT1;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      CLOSE C11813;

PROCEDURE SUB66 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB67 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM AUDIT_RECORDS' ||
                    ' WHERE LUSER_ID IS NULL'
                    );

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

PROCEDURE SUB69 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11814 FROM :LONGST;

PROCEDURE SUB70 SQLCODE SQLSTATE;
    OPEN C11814;

PROCEDURE SUB71 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11814 INTO :INT1;

PROCEDURE SUB72 SQLCODE SQLSTATE;
      CLOSE C11814;

PROCEDURE SUB73 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB74 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM AUDIT_RECORDS' ||
                    ' WHERE SAVED_LUSER_ID IS NULL'
                    );

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

PROCEDURE SUB76 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11815 FROM :LONGST;

PROCEDURE SUB77 SQLCODE SQLSTATE;
    OPEN C11815;

PROCEDURE SUB78 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11815 INTO :INT1;

PROCEDURE SUB79 SQLCODE SQLSTATE;
      CLOSE C11815;

PROCEDURE SUB80 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB81 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'DELETE FROM AUDIT_CODES' ||
                    ' WHERE LUSER_ACTION = ''DELETE'''
                    );

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

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

PROCEDURE SUB84 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB85 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM AUDIT_RECORDS' ||
                    ' WHERE ACTION_KEY = ?'
                    );

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

PROCEDURE SUB87 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S11816 FROM :LONGST;

PROCEDURE SUB88 SQLCODE SQLSTATE
    :INT2 NUMERIC (9);
      OPEN C11816 USING :INT2;

PROCEDURE SUB89 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11816 INTO :INT1;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      CLOSE C11816;

PROCEDURE SUB91 SQLCODE SQLSTATE
    :INT2 NUMERIC (9);
      OPEN C11816 USING :INT2;

PROCEDURE SUB92 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11816 INTO :INT1;

PROCEDURE SUB93 SQLCODE SQLSTATE;
      CLOSE C11816;

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

PROCEDURE SUB95 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB97 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB99 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB101 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB103 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB105 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB108 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.146Quellennavigators  ]