Quelle  cdr026.mco

-- 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;