-- Anhängen der Felder von MERKMAL_AD an MERKKMAL

ALTER TABLE MERKMAL ADD (
	MENORMALSERNR	VARCHAR2(20),
	MEPRUEFMITSERNR	VARCHAR2(20),
	MEANZGERAET	VARCHAR2(40),
	MEREFTEILNRSTR	VARCHAR2(20),
	MEREFTEILBEZ	VARCHAR2(40),
	MEREFTEILIST	FLOAT,
	MEREFTEILTEMP	FLOAT,
	MEREFTEILNR	NUMBER(5,0),
	MEREFTEILSERNR	VARCHAR2(20),
	MEKALTEILUNRSTR	VARCHAR2(20),
	MEKALTEILUBEZ	VARCHAR2(40),
	MEKALTEILUIST	FLOAT,
	MEKALTEILUTEMP	FLOAT,
	MEKALTEILUNR	NUMBER(5,0),
	MEKALTEILUSERNR	VARCHAR2(20),
	MEKALTEILMNRSTR	VARCHAR2(20),
	MEKALTEILMBEZ	VARCHAR2(40),
	MEKALTEILMIST	FLOAT,
	MEKALTEILMTEMP	FLOAT,
	MEKALTEILMNR	NUMBER(5,0),
	MEKALTEILMSERNR	VARCHAR2(20),
	MEKALTEILONRSTR	VARCHAR2(20),
	MEKALTEILOBEZ	VARCHAR2(40),
	MEKALTEILOIST	FLOAT,
	MEKALTEILOTEMP	FLOAT,
	MEKALTEILONR	NUMBER(5,0),
	MEKALTEILOSERNR	VARCHAR2(20),
	MEUEBERKAN	NUMBER(5,0),
	MEMERKCODE	VARCHAR2(40),
	MEMERKINDEX	VARCHAR2(20),
	MEMERKTEXT	VARCHAR2(50),
	MEBEARBZUST	VARCHAR2(80),
	MEELEMCODE	VARCHAR2(40),
	MEELEMINDEX	VARCHAR2(20),
	MEELEMTEXT	VARCHAR2(50),
	MEELEMADR	VARCHAR2(20),
	MEFREIFELD	NUMBER(3,0),
	MECALIBADD	FLOAT,
	MECALIBMULT	FLOAT,
	MEANZNIAUSGEF	NUMBER(10,0),
	MEGCKONVART	NUMBER(3,0),
	MEANZREF	NUMBER(5,0),
	MEREFPKTX	NUMBER(5,0),
	MEREFPKTY	NUMBER(5,0),
	MEREFPKTZ	NUMBER(5,0)
);

COMMIT;


CREATE OR REPLACE PROCEDURE M_AD2M AS
   CURSOR C_M_AD IS
      SELECT * FROM MERKMAL_AD;
BEGIN
   FOR rec IN C_M_AD LOOP  
      UPDATE MERKMAL SET
	MENORMALSERNR   = rec.MENORMALSERNR,
	MEPRUEFMITSERNR	= rec.MEPRUEFMITSERNR,
	MEANZGERAET	= rec.MEANZGERAET,
	MEREFTEILNRSTR	= rec.MEREFTEILNRSTR,
	MEREFTEILBEZ	= rec.MEREFTEILBEZ,
	MEREFTEILIST	= rec.MEREFTEILIST,
	MEREFTEILTEMP	= rec.MEREFTEILTEMP,
	MEREFTEILNR	= rec.MEREFTEILNR,
	MEREFTEILSERNR	= rec.MEREFTEILSERNR,
	MEKALTEILUNRSTR	= rec.MEKALTEILUNRSTR,
	MEKALTEILUBEZ	= rec.MEKALTEILUBEZ,
	MEKALTEILUIST	= rec.MEKALTEILUIST,
	MEKALTEILUTEMP	= rec.MEKALTEILUTEMP,
	MEKALTEILUNR	= rec.MEKALTEILUNR,
	MEKALTEILUSERNR	= rec.MEKALTEILUSERNR,
	MEKALTEILMNRSTR	= rec.MEKALTEILMNRSTR,
	MEKALTEILMBEZ	= rec.MEKALTEILMBEZ,
	MEKALTEILMIST	= rec.MEKALTEILMIST,
	MEKALTEILMTEMP	= rec.MEKALTEILMTEMP,
	MEKALTEILMNR	= rec.MEKALTEILMNR,
	MEKALTEILMSERNR	= rec.MEKALTEILMSERNR,
	MEKALTEILONRSTR	= rec.MEKALTEILONRSTR,
	MEKALTEILOBEZ	= rec.MEKALTEILOBEZ,
	MEKALTEILOIST	= rec.MEKALTEILOIST,
	MEKALTEILOTEMP	= rec.MEKALTEILOTEMP,
	MEKALTEILONR	= rec.MEKALTEILONR,
	MEKALTEILOSERNR	= rec.MEKALTEILOSERNR,
	MEUEBERKAN	= rec.MEUEBERKAN,
	MEMERKCODE	= rec.MEMERKCODE,
	MEMERKINDEX	= rec.MEMERKINDEX,
	MEMERKTEXT	= rec.MEMERKTEXT,
	MEBEARBZUST	= rec.MEBEARBZUST,
	MEELEMCODE	= rec.MEELEMCODE,
	MEELEMINDEX	= rec.MEELEMINDEX,
	MEELEMTEXT	= rec.MEELEMTEXT,
	MEELEMADR	= rec.MEELEMADR,
	MEFREIFELD	= rec.MEFREIFELD,
	MECALIBADD	= rec.MECALIBADD,
	MECALIBMULT	= rec.MECALIBMULT,
	MEANZNIAUSGEF	= rec.MEANZNIAUSGEF,
	MEGCKONVART	= rec.MEGCKONVART,
	MEANZREF	= rec.MEANZREF,
	MEREFPKTX	= rec.MEREFPKTX,
	MEREFPKTY	= rec.MEREFPKTY
      WHERE MERKMAL.METEIL = rec.METEIL AND MERKMAL.MEMERKMAL = rec.MEMERKMAL;
   END LOOP;
END; 
/

execute M_AD2M;

drop procedure M_AD2M;
commit;