Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 5 kB

Quelle cdr026.mco Sprache: unbekannt

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

MODULE CDR026
LANGUAGE COBOL
AUTHORIZATION SUN

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM EXPERIENCE
                    WHERE DESCR = 'Car Mechanic';

PROCEDURE SUB2 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('Tom',NULL,NULL,'Car Mechanic');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('Yolanda',NULL,NULL,'Car Mechanic');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES(NULL,112156,NULL,'Car Mechanic');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES(NULL,062068,NULL,'Car Mechanic');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES(NULL,NULL,NULL,'Car Mechanic');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('Tom',052744,NULL,'Car Mechanic');

PROCEDURE SUB8 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('Yolanda',040523,NULL,'Car Mechanic');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('Yolanda',062968,NULL,'Car Mechanic');

PROCEDURE SUB10 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('Lilian',112156,NULL,'Car Mechanic');

PROCEDURE SUB11 SQLCODE
    :NME CHAR(20)
    :DTE NUMERIC (9);
      SELECT EXP_NAME, BTH_DATE INTO :NME, :DTE
                    FROM EXPERIENCE
                    WHERE EXP_NAME IS NOT NULL AND BTH_DATE IS NOT NULL
                    AND DESCR = 'Car Mechanic';

PROCEDURE SUB12 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM EXPERIENCE
                    WHERE DESCR = 'Car Mechanic';

PROCEDURE SUB13 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0438','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0438','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('Lilian',NULL,NULL,'Soccer Player');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('David',NULL,NULL,'Monk');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES(NULL,NULL,NULL,'Fireman');

PROCEDURE SUB20 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES(NULL,NULL,NULL,'Artist');

PROCEDURE SUB21 SQLCODE;
      UPDATE EXPERIENCE
                    SET BTH_DATE = 040523
                    WHERE EXP_NAME = 'Lilian' AND DESCR = 'Soccer Player'
                 ;

PROCEDURE SUB22 SQLCODE;
      UPDATE EXPERIENCE
                    SET EXP_NAME = NULL
                    WHERE DESCR = 'Photographer';

PROCEDURE SUB23 SQLCODE;
      UPDATE EXPERIENCE
                    SET EXP_NAME = NULL ,BTH_DATE = NULL
                    WHERE DESCR = 'Fashion Model';

PROCEDURE SUB24 SQLCODE;
      UPDATE EXPERIENCE
                    SET BTH_DATE = 101024
                    WHERE EXP_NAME = 'David' AND DESCR = 'Monk';

PROCEDURE SUB25 SQLCODE;
      UPDATE EXPERIENCE
                    SET EXP_NAME = 'Mary', BTH_DATE = 121245
                    WHERE DESCR = 'Fireman';

PROCEDURE SUB26 SQLCODE;
      UPDATE EXPERIENCE
                    SET EXP_NAME = 'Dick' , BTH_DATE = 020454
                    WHERE DESCR = 'Artist';

PROCEDURE SUB27 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE;
      DELETE FROM EXPERIENCE
                    WHERE EXP_NAME = 'Joseph' OR EXP_NAME = 'John';

PROCEDURE SUB32 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('John',NULL,NULL,'Gardener');

PROCEDURE SUB33 SQLCODE;
      INSERT INTO EXPERIENCE
                    VALUES('Joseph',NULL,NULL,'Snake Charmer');

PROCEDURE SUB34 SQLCODE;
      DELETE FROM EMP
                    WHERE ENAME = 'Joseph';

PROCEDURE SUB35 SQLCODE;
      UPDATE EMP
                    SET ENAME = 'Joan'
                    WHERE EDESC = 'Fraction';

PROCEDURE SUB36 SQLCODE
    :ENME CHAR(20);
      SELECT ENAME INTO :ENME
                    FROM EMP
                    WHERE DNAME = 'Education';

PROCEDURE SUB37 SQLCODE
    :DNME CHAR(20);
      SELECT DNAME INTO :DNME
                    FROM EMP
                    WHERE ENAME = 'Joan';

PROCEDURE SUB38 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0440','pass','MCO');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0440','fail','MCO');

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;