Quelle  suntab3.mco

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

MODULE SUNTAB3
LANGUAGE COBOL
AUTHORIZATION SUN



PROCEDURE SUBC SQLCODE;
     DELETE FROM SUN.ECCO;
PROCEDURE SUBD SQLCODE;
     INSERT INTO SUN.ECCO VALUES ('NL');

PROCEDURE SUB1 SQLCODE;
      DELETE FROM EXPERIENCE;

PROCEDURE SUB2 SQLCODE;
      DELETE FROM EMP;

PROCEDURE SUB3 SQLCODE;
      DELETE FROM DEPT;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM STAFF_P;

PROCEDURE SUB5 SQLCODE;
      DELETE FROM PROJ_P;

PROCEDURE SUB6 SQLCODE;
      DELETE FROM ACR_SCH_P;

PROCEDURE SUB7 SQLCODE;
      INSERT INTO DEPT VALUES (12,'Computer','Charles')
                 ;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO DEPT VALUES (13,'Physics','Richard')
                 ;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO DEPT VALUES
                  (14,'Education','Jeffersion');

PROCEDURE SUB10 SQLCODE;
      INSERT INTO DEPT VALUES (15,'English','Liss')
                 ;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO EMP VALUES (21,'Tom',
                    'Languages & Operating System',12,'Computer',040523)
                 ;

PROCEDURE SUB12 SQLCODE;
      INSERT INTO EMP VALUES (22,'David',
                    'Database',12,'Computer',101024);

PROCEDURE SUB13 SQLCODE;
      INSERT INTO EMP VALUES (23,'Lilian',
                    'Software Enginerring',12,'Computer',112156);

PROCEDURE SUB14 SQLCODE;
      INSERT INTO EMP VALUES (24,'Mary',
                    'Liquid Mechanics',13,'Physics',121245);

PROCEDURE SUB15 SQLCODE;
      INSERT INTO EMP VALUES (25,'John',
                    'Fraction',13,'Physics',030542);

PROCEDURE SUB16 SQLCODE;
      INSERT INTO EMP VALUES (26,'Joseph',
                    'Child Education',14,'Education',020556);

PROCEDURE SUB17 SQLCODE;
      INSERT INTO EMP VALUES (27,'Peter',
                    'Literature',15,'English',020434);

PROCEDURE SUB18 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Tom',040523,000046,'Teacher');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Tom',040523,000066,'Officer');

PROCEDURE SUB20 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Tom',040523,000076,'Retire');

PROCEDURE SUB21 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('David',101024,000048,'Farmer');

PROCEDURE SUB22 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('David',101024,000066,'Porter');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Lilian',112156,000072,'Baby siter');

PROCEDURE SUB24 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Lilian',112156,000082,'Nurse');

PROCEDURE SUB25 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Mary',121245,000065,'Fashion Model');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('John',030542,000064,'Actor');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Joseph',020556,000072,'Sportsman');

PROCEDURE SUB28 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Joseph',020556,000072,'Teacher');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Peter',020434,000071,'Photographer');

PROCEDURE SUB30 SQLCODE;
      INSERT INTO EXPERIENCE VALUES
                    ('Peter',020434,000081,'Movie Producer');

PROCEDURE SUB31 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB32 SQLCODE;
      INSERT INTO STAFF_P VALUES
                  ('E1','Alice',12,'Deale');

PROCEDURE SUB33 SQLCODE;
      INSERT INTO STAFF_P VALUES
                  ('E2','Betty',10,'Vienna');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO STAFF_P VALUES
                  ('E3','Carmen',13,'Vienna');

PROCEDURE SUB35 SQLCODE;
      INSERT INTO STAFF_P VALUES ('E4','Don',12,'Deale')
                 ;

PROCEDURE SUB36 SQLCODE;
      INSERT INTO STAFF_P VALUES ('E5','Ed',13,'Akron')
                 ;

PROCEDURE SUB37 SQLCODE;
      INSERT INTO PROJ_P VALUES
                    ('P1','MXSS','Design',10000,'Deale');

PROCEDURE SUB38 SQLCODE;
      INSERT INTO PROJ_P VALUES
                    ('P2','CALM','Code',30000,'Vienna');

PROCEDURE SUB39 SQLCODE;
      INSERT INTO PROJ_P VALUES
                    ('P3','SDP','Test',30000,'Tampa');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO PROJ_P VALUES
                    ('P4','SDP','Design',20000,'Deale');

PROCEDURE SUB41 SQLCODE;
      INSERT INTO PROJ_P VALUES
                    ('P5','IRM','Test',10000,'Vienna');

PROCEDURE SUB42 SQLCODE;
      INSERT INTO PROJ_P VALUES
                    ('P6','PAYR','Design',50000,'Deale');

PROCEDURE SUB43 SQLCODE;
      INSERT INTO ACR_SCH_P VALUES(1,'AAA');

PROCEDURE SUB44 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1 FROM DEPT;

PROCEDURE SUB45 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT2 FROM EMP;

PROCEDURE SUB46 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT3 FROM EXPERIENCE
                 ;

PROCEDURE SUB47 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT4 FROM STAFF_P;

PROCEDURE SUB48 SQLCODE
    :COUNT5 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT5 FROM PROJ_P;

PROCEDURE SUB49 SQLCODE
    :COUNT6 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT6 FROM ACR_SCH_P
                 ;

PROCEDURE SUB50 SQLCODE;
      COMMIT WORK;