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: sdl005.mco   Sprache: Unknown

Untersuchungsergebnis.mco Download desScala {Scala[69] Pl1[110] Lisp[121]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module dml022.mco
-- 59-byte ID

MODULE DML022
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE S5 CURSOR FOR
             SELECT EMPNUM
             FROM STAFF
             WHERE GRADE <
             (SELECT MAX(GRADE)
             FROM STAFF)
DECLARE S6 CURSOR FOR
             SELECT *
             FROM STAFF
             WHERE GRADE <=
             (SELECT AVG(GRADE)-1
             FROM STAFF)
DECLARE S1 CURSOR FOR
             SELECT EMPNAME
             FROM STAFF
             WHERE EMPNUM IN
             (SELECT EMPNUM
             FROM WORKS
             WHERE PNUM = 'P2')
DECLARE S2 CURSOR FOR
             SELECT EMPNAME
             FROM STAFF
             WHERE EMPNUM IN
             (SELECT EMPNUM
             FROM WORKS
             WHERE PNUM IN
             (SELECT PNUM
             FROM PROJ
             WHERE PTYPE = 'Design'))
DECLARE S3 CURSOR FOR
             SELECT EMPNUM, EMPNAME 
             FROM STAFF 
             WHERE EMPNUM IN 
             (SELECT EMPNUM 
             FROM WORKS 
             WHERE PNUM IN 
             (SELECT PNUM 
             FROM PROJ 
             WHERE PTYPE IN 
             (SELECT PTYPE 
             FROM PROJ 
             WHERE PNUM IN 
             (SELECT PNUM 
             FROM WORKS 
             WHERE EMPNUM IN 
             (SELECT EMPNUM 
             FROM WORKS 
             WHERE PNUM IN 
             (SELECT PNUM 
             FROM PROJ 
             WHERE PTYPE = 'Design'))))))
DECLARE S22 CURSOR FOR
             SELECT EMPNUM,PNUM
             FROM   WORKS
             WHERE  HOURS <= ALL
             (SELECT AVG(HOURS)
             FROM   WORKS
             GROUP BY PNUM)
DECLARE S11 CURSOR FOR
             SELECT DISTINCT EMPNUM
             FROM WORKS WORKSX
             WHERE NOT EXISTS
             (SELECT *
             FROM WORKS WORKSY
             WHERE EMPNUM = 'E2'
             AND NOT EXISTS
             (SELECT *
             FROM WORKS WORKSZ
             WHERE WORKSZ.EMPNUM = WORKSX.EMPNUM
             AND WORKSZ.PNUM = WORKSY.PNUM))


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

PROCEDURE SUB1 SQLCODE;
    OPEN S5;

PROCEDURE SUB2 SQLCODE;
      CLOSE S5;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0096','pass','MCO');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0096','fail','MCO');

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE;
    OPEN S6;

PROCEDURE SUB7 SQLCODE;
      CLOSE S6;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0097','pass','MCO');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0097','fail','MCO');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
    OPEN S1;

PROCEDURE SUB12 SQLCODE;
      CLOSE S1;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0098','pass','MCO');

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0098','fail','MCO');

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
    OPEN S2;

PROCEDURE SUB17 SQLCODE;
      CLOSE S2;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0099','pass','MCO');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0099','fail','MCO');

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
    OPEN S3;

PROCEDURE SUB22 SQLCODE;
      CLOSE S3;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0100','pass','MCO');

PROCEDURE SUB24 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0100','fail','MCO');

PROCEDURE SUB25 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB26 SQLCODE;
    OPEN S22;

PROCEDURE SUB27 SQLCODE;
      CLOSE S22;

PROCEDURE SUB28 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0101','pass','MCO');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0101','fail','MCO');

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE;
    OPEN S11;

PROCEDURE SUB32 SQLCODE;
      CLOSE S11;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0102','pass','MCO');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0102','fail','MCO');

PROCEDURE SUB35 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH S5 INTO
                     :EMPNO1;

PROCEDURE SUB37 SQLCODE
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :GRADE1 NUMERIC (4)
    :SCITY CHAR(15);
      FETCH S6 INTO
                     :EMPNO1, :EMPNA1, :GRADE1, :SCITY;

PROCEDURE SUB38 SQLCODE
    :EMPNA1 CHAR(20);
      FETCH S1 INTO
                     :EMPNA1;

PROCEDURE SUB39 SQLCODE
    :EMPNA1 CHAR(20);
      FETCH S2 INTO
                     :EMPNA1;

PROCEDURE SUB40 SQLCODE
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20);
      FETCH S3 INTO
                     :EMPNO1, :EMPNA1;

PROCEDURE SUB41 SQLCODE
    :WEMP CHAR(3)
    :WPNUM CHAR(3);
      FETCH S22 INTO  :WEMP, :WPNUM;

PROCEDURE SUB42 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH S11 INTO
                     :EMPNO1;

[ zur Elbe Produktseite wechseln0.108Quellennavigators  ]