Quelle  cts5tab.mco

-- SQL Test Suite, V6.0, SQL Module cts5tab.mco
-- 59-byte ID
-- 
MODULE CTS5TAB
LANGUAGE COBOL
AUTHORIZATION CTS1



PROCEDURE SUB1 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.ECCO;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ECCO VALUES ('NL');

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      DELETE FROM STAFF;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF VALUES ('E1','Alice',12,'Deale')
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF VALUES
                  ('E2','Betty',10,'Vienna');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF VALUES
                  ('E3','Carmen',13,'Vienna');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF VALUES ('E4','Don',12,'Deale')
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF VALUES ('E5','Ed',13,'Akron')
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      DELETE FROM WORKS;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E1','P1',40);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E1','P2',20);

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E1','P3',80);

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E1','P4',20);

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E1','P5',12);

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E1','P6',12);

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E2','P1',40);

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E2','P2',80);

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E3','P2',20);

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E4','P2',20);

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E4','P4',40);

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO WORKS VALUES  ('E4','P5',80);

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      DELETE FROM VTABLE;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      INSERT INTO VTABLE VALUES(10,+20,30,40,10.50)
                 ;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      INSERT INTO VTABLE VALUES(0,1,2,3,4.25);

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      INSERT INTO VTABLE VALUES(100,200,300,400,500.01)
                 ;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      INSERT INTO VTABLE
                  VALUES(1000,-2000,3000,NULL,4000.00);

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.STAFFb;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (10000,'Fred',40,'P2','Vienna','M');

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (10000,'Fred',40,'P2','Vienna','M');

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (10000,'Fred',40,'P2','Vienna','M');

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (15000,'Carmen',35,'P2','Vienna','F');

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (15000,'Carmen',35,'P2','Vienna','F');

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (10000,'Alice',40,'P3','Prague','F');

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (20000,'Betty',30,'P1','Deale','F');

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (20000,'Betty',30,'P1','Deale','F');

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (40000,'Don',70,'P3','Prague','M');

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (40000,'Don',70,'P3','Prague','M');

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (40000,'Don',70,'P3','Prague','M');

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFb VALUES
                  (10000,'Ed',40,'P1','Deale','M');

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.STAFFa;

PROCEDURE SUB42 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (40,10000,'E6',2,'Fred');

PROCEDURE SUB43 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (40,10000,'E6',2,'Fred');

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (40,10000,'E1',3,'Alice');

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (40,10000,'E1',3,'Alice');

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (70,40000,'E4',3,'Don');

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (70,40000,'E4',3,'Don');

PROCEDURE SUB48 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (70,40000,'E4',3,'Don');

PROCEDURE SUB49 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (30,20000,'E2',1,'Betty');

PROCEDURE SUB50 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (60,45000,'E7',4,'Grace');

PROCEDURE SUB51 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (60,45000,'E7',4,'Grace');

PROCEDURE SUB52 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (30,8000,'E8',2,'Henry');

PROCEDURE SUB53 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                  (15,7000,'E9',1,'Imogen');

PROCEDURE SUB54 (SQLCODE, SQLSTATE);
      DELETE FROM STAFFc;

PROCEDURE SUB55 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFc VALUES
                  ('E1','Alice',12,'Deale',NULL);

PROCEDURE SUB56 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFc VALUES
                  ('E2','Betty',10,'Vienna','E1');

PROCEDURE SUB57 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFc VALUES
                  ('E3','Carmen',13,'Vienna','E2');

PROCEDURE SUB58 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFc VALUES
                  ('E4','Don',12,'Deale','E2');

PROCEDURE SUB59 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFc VALUES
                  ('E5','Don',12,'Deale','E1');

PROCEDURE SUB60 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFc VALUES
                  ('E6','Tom',14,'Gettysburg','E5');

PROCEDURE SUB61 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFc VALUES
                  ('E7','Kingdom',18,'Gettysburg','E7');

PROCEDURE SUB62 (SQLCODE, SQLSTATE);
      DELETE FROM STAFF_CTS2;

PROCEDURE SUB63 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS2 VALUES
                  ('E1','Alice',12,'Deale');

PROCEDURE SUB64 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS2 VALUES
                  ('E1','Alice',12,'Deale');

PROCEDURE SUB65 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS2 VALUES
                  ('E2','Betty',10,'Vienna');

PROCEDURE SUB66 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS2 VALUES
                  ('E3','Carmen',13,'Vienna');

PROCEDURE SUB67 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS2 VALUES
                  ('E3','Carmen',13,'Vienna');

PROCEDURE SUB68 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS2 VALUES
                  ('E3','Carmen',13,'Vienna');

PROCEDURE SUB69 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS2 VALUES
                  ('E4','Don',12,'Deale');

PROCEDURE SUB70 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS2 VALUES
                  ('E6','Don',12,'Deale');

PROCEDURE SUB71 (SQLCODE, SQLSTATE);
      DELETE FROM STAFF_CTS;

PROCEDURE SUB72 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS VALUES
                  ('P1','Deale',12,'Don');

PROCEDURE SUB73 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS VALUES
                  ('P3','Vienna',10,'Betty');

PROCEDURE SUB74 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS VALUES
                  ('P3','Vienna',10,'Betty');

PROCEDURE SUB75 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS VALUES
                  ('P4','Vienna',13,'Carmen');

PROCEDURE SUB76 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF_CTS VALUES
                  ('P5','Prague',15,'Ed');

PROCEDURE SUB77 (SQLCODE, SQLSTATE);
      DELETE FROM EMPLOYEES2;

PROCEDURE SUB78 (SQLCODE, SQLSTATE);
      INSERT INTO EMPLOYEES2 VALUES ('Atherton',1)
                 ;

PROCEDURE SUB79 (SQLCODE, SQLSTATE);
      INSERT INTO EMPLOYEES2 VALUES ('Botham',2)
                 ;

PROCEDURE SUB80 (SQLCODE, SQLSTATE);
      INSERT INTO EMPLOYEES2 VALUES ('Cowdrey',3)
                 ;

PROCEDURE SUB81 (SQLCODE, SQLSTATE);
      INSERT INTO EMPLOYEES2 VALUES ('Dev',4);

PROCEDURE SUB82 (SQLCODE, SQLSTATE);
      INSERT INTO EMPLOYEES2 VALUES ('Edmunds',5)
                 ;

PROCEDURE SUB83 (SQLCODE, SQLSTATE);
      INSERT INTO EMPLOYEES2 VALUES ('Fields',6)
                 ;

PROCEDURE SUB84 (SQLCODE, SQLSTATE);
      INSERT INTO EMPLOYEES2 VALUES ('Gower',7);

PROCEDURE SUB85 (SQLCODE, SQLSTATE);
      DELETE FROM A;

PROCEDURE SUB86 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (1, 15);

PROCEDURE SUB87 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (3, 17);

PROCEDURE SUB88 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (7, 11);

PROCEDURE SUB89 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (5, 9);

PROCEDURE SUB90 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (13, 13);

PROCEDURE SUB91 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (9, 5);

PROCEDURE SUB92 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (11, 7);

PROCEDURE SUB93 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (17, 3);

PROCEDURE SUB94 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (15, 1);

PROCEDURE SUB95 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (13, 5);

PROCEDURE SUB96 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (13, 15);

PROCEDURE SUB97 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (11, 1);

PROCEDURE SUB98 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (5, 5);

PROCEDURE SUB99 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (5, 3);

PROCEDURE SUB100 (SQLCODE, SQLSTATE);
      INSERT INTO A VALUES (1, 1);

PROCEDURE SUB101 (SQLCODE, SQLSTATE);
      DELETE FROM TT;

PROCEDURE SUB102 (SQLCODE, SQLSTATE);
      INSERT INTO TT (TTA, TTC) VALUES (1, 99);

PROCEDURE SUB103 (SQLCODE, SQLSTATE);
      INSERT INTO TT (TTA, TTB) VALUES (2, 98);

PROCEDURE SUB104 (SQLCODE, SQLSTATE);
      INSERT INTO TT VALUES (3, 97, 96);

PROCEDURE SUB105 (SQLCODE, SQLSTATE);
      INSERT INTO TT (TTA) VALUES (4);

PROCEDURE SUB106 (SQLCODE, SQLSTATE);
      INSERT INTO TT VALUES (5, 42, 26);

PROCEDURE SUB107 (SQLCODE, SQLSTATE);
      DELETE FROM TU;

PROCEDURE SUB108 (SQLCODE, SQLSTATE);
      INSERT INTO TU VALUES ('ab', 3);

PROCEDURE SUB109 (SQLCODE, SQLSTATE);
      INSERT INTO TU (TUE) VALUES (5);

PROCEDURE SUB110 (SQLCODE, SQLSTATE);
      INSERT INTO TU VALUES ('cd', 4);

PROCEDURE SUB111 (SQLCODE, SQLSTATE);
      INSERT INTO TU (TUE) VALUES (11);

PROCEDURE SUB112 (SQLCODE, SQLSTATE);
      INSERT INTO TU VALUES ('ef', 12);

PROCEDURE SUB113 (SQLCODE, SQLSTATE);
      INSERT INTO TU VALUES ('gh', 11);

PROCEDURE SUB114 (SQLCODE, SQLSTATE);
      DELETE FROM TT2;

PROCEDURE SUB115 (SQLCODE, SQLSTATE);
      INSERT INTO TT2 VALUES (1,INTERVAL '17-3' YEAR TO
                  MONTH,13);

PROCEDURE SUB116 (SQLCODE, SQLSTATE);
      INSERT INTO TT2 (TTA,TTB) VALUES (2,INTERVAL '5-6'
                  YEAR TO MONTH);

PROCEDURE SUB117 (SQLCODE, SQLSTATE);
      INSERT INTO TT2 (TTA) VALUES (3);

PROCEDURE SUB118 (SQLCODE, SQLSTATE);
      INSERT INTO TT2 (TTA,TTC) VALUES (4,20);

PROCEDURE SUB119 (SQLCODE, SQLSTATE);
      INSERT INTO TT2 VALUES (5,INTERVAL '60-2' YEAR TO
                  MONTH,19);

PROCEDURE SUB120 (SQLCODE, SQLSTATE);
      DELETE FROM TV;

PROCEDURE SUB121 (SQLCODE, SQLSTATE);
      INSERT INTO TV VALUES (1,'a');

PROCEDURE SUB122 (SQLCODE, SQLSTATE);
      INSERT INTO TV VALUES (2,'b');

PROCEDURE SUB123 (SQLCODE, SQLSTATE);
      INSERT INTO TV VALUES (3,'c');

PROCEDURE SUB124 (SQLCODE, SQLSTATE);
      INSERT INTO TV VALUES (4,'d');

PROCEDURE SUB125 (SQLCODE, SQLSTATE);
      INSERT INTO TV VALUES (5,'e');

PROCEDURE SUB126 (SQLCODE, SQLSTATE);
      DELETE FROM TW;

PROCEDURE SUB127 (SQLCODE, SQLSTATE);
      INSERT INTO TW VALUES ('b',2);

PROCEDURE SUB128 (SQLCODE, SQLSTATE);
      INSERT INTO TW VALUES ('g',1);

PROCEDURE SUB129 (SQLCODE, SQLSTATE);
      INSERT INTO TW VALUES ('f',2);

PROCEDURE SUB130 (SQLCODE, SQLSTATE);
      INSERT INTO TW VALUES ('h',4);

PROCEDURE SUB131 (SQLCODE, SQLSTATE);
      INSERT INTO TW VALUES ('i',5);

PROCEDURE SUB132 (SQLCODE, SQLSTATE);
      DELETE FROM TX;

PROCEDURE SUB133 (SQLCODE, SQLSTATE);
      INSERT INTO TX (TX1, TX3) VALUES (1, 'Susan')
                 ;

PROCEDURE SUB134 (SQLCODE, SQLSTATE);
      INSERT INTO TX (TX1, TX2) VALUES (2, 'lemon')
                 ;

PROCEDURE SUB135 (SQLCODE, SQLSTATE);
      INSERT INTO TX VALUES (3, 'apple', '');

PROCEDURE SUB136 (SQLCODE, SQLSTATE);
      INSERT INTO TX VALUES (4, 'melon', 'Peter')
                 ;

PROCEDURE SUB137 (SQLCODE, SQLSTATE);
      INSERT INTO TX VALUES (5, 'peach', 'Matthew')
                 ;

PROCEDURE SUB138 (SQLCODE, SQLSTATE);
      DELETE FROM TEST12849B;

PROCEDURE SUB139 (SQLCODE, SQLSTATE);
      INSERT INTO TEST12849B VALUES (1);

PROCEDURE SUB140 (SQLCODE, SQLSTATE);
      INSERT INTO TEST12849B VALUES (2);

PROCEDURE SUB141 (SQLCODE, SQLSTATE);
      INSERT INTO TEST12849B VALUES (3);

PROCEDURE SUB142 (SQLCODE, SQLSTATE);
      INSERT INTO TEST12849B VALUES (4);

PROCEDURE SUB143 (SQLCODE, SQLSTATE);
      DELETE FROM TABX760;

PROCEDURE SUB144 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABX760 VALUES
                  (10,'SPYROS',25000);

PROCEDURE SUB145 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABX760 VALUES
                  (11,'ALEXIS',18000);

PROCEDURE SUB146 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABX760 VALUES (12,'LAMBIS',9000)
                 ;

PROCEDURE SUB147 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABX760 VALUES (13,'ELENI',4000)
                 ;

PROCEDURE SUB148 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABX760 VALUES
                  (14,'MARIOS',47000);

PROCEDURE SUB149 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABX760 VALUES
                  (15,'NICKOLAS',78000);

PROCEDURE SUB150 (SQLCODE, SQLSTATE);
      DELETE FROM TABCS;

PROCEDURE SUB151 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABCS VALUES (1, _CS 'NICKOS',
                  _CS 'MARIA');

PROCEDURE SUB152 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABCS VALUES (2, _CS 'BILL',
                  _CS 'TAKIS');

PROCEDURE SUB153 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABCS VALUES (3, _CS 'NICKOS',
                  _CS 'TAKIS');

PROCEDURE SUB154 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABCS VALUES (4, _CS 'MARIA',
                  _CS 'TAKIS');

PROCEDURE SUB155 (SQLCODE, SQLSTATE);
      DELETE FROM TTIME3;

PROCEDURE SUB156 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TTIME3 VALUES (
                    1,TIME '23:05:00',TIME '12:15:00-11:45',
                    TIMESTAMP '1995-07-07 08:15:00+03:05');

PROCEDURE SUB157 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TTIME3 VALUES(
                    2,TIME '05:10:00',TIME '00:07:00+08:39', 
                    TIMESTAMP '2000-10-09 03:03:00+04:05');

PROCEDURE SUB158 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TTIME3 VALUES (
                    3,TIME '12:11:00',TIME '23:19:00+10:32', 
                    TIMESTAMP '1997-01-16 12:17:00-12:16');

PROCEDURE SUB159 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TTIME3 VALUES (
                    4,TIME '05:10:00',TIME '00:07:00+08:39', 
                    TIMESTAMP '2000-10-09 03:03:00+04:05');

PROCEDURE SUB160 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TTIME3 VALUES (
                    5,TIME '17:39:00',TIME '08:28:00-11:45', 
                    TIMESTAMP '1994-12-31 20:00:00+04:05');

PROCEDURE SUB161 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TTIME3 VALUES (
                    6,TIME '17:39:00',TIME '08:28:00-11:45', 
                    TIMESTAMP '1994-12-31 20:00:00+04:05');

PROCEDURE SUB162 (SQLCODE, SQLSTATE);
      DELETE FROM CL_STANDARD;

PROCEDURE SUB163 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_STANDARD VALUES
                  (1000,'NICKOS',4000,'ATHENS');

PROCEDURE SUB164 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_STANDARD VALUES
                  (1001,'MARIA',4001,'RHODES');

PROCEDURE SUB165 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_STANDARD VALUES
                  (1002,'MAKIS',4002,'HANIA');

PROCEDURE SUB166 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_STANDARD VALUES
                  (1003,'GEORGE',4003,'ARTA');

PROCEDURE SUB167 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_STANDARD VALUES
                  (1004,'MORRIS',4004,'PARGA');

PROCEDURE SUB168 (SQLCODE, SQLSTATE);
      DELETE FROM TABLE728a;

PROCEDURE SUB169 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABLE728a VALUES
                  ('NICKOS','GEORGE');

PROCEDURE SUB170 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABLE728a VALUES
                  ('HARRY','TANIA');

PROCEDURE SUB171 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABLE728a VALUES ('KILLER',NULL)
                 ;

PROCEDURE SUB172 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABLE728a VALUES (NULL,NULL)
                 ;

PROCEDURE SUB173 (SQLCODE, SQLSTATE);
      DELETE FROM TAB734;

PROCEDURE SUB174 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TAB734 VALUES (N'   !',N'*  *')
                 ;

PROCEDURE SUB175 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TAB734 VALUES (N' * ',N'+ +')
                 ;

PROCEDURE SUB176 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TAB734 VALUES (N'+ +',N'+ +')
                 ;

PROCEDURE SUB177 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TAB734 VALUES (NULL,N' + ')
                 ;

PROCEDURE SUB178 (SQLCODE, SQLSTATE);
      DELETE FROM CL_DATA_TYPE;

PROCEDURE SUB179 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE VALUES
                  ('GEORGE',1,10,100);

PROCEDURE SUB180 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE VALUES
                  ('NICK',2,20,200);

PROCEDURE SUB181 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE VALUES
                  ('PAUL',3,30,300);

PROCEDURE SUB182 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE VALUES
                  ('PETER',4,40,400);

PROCEDURE SUB183 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE VALUES
                  ('KEVIN',5,50,500);

PROCEDURE SUB184 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE VALUES
                  ('JASON',6,60,600);

PROCEDURE SUB185 (SQLCODE, SQLSTATE);
      COMMIT WORK;