摘要：近来之前的项目数据出现了问题，原因是由于之前在设计数据库的时候把时间字段设置成了字符串式，所以给后期的数据操作带来了很大的麻烦，这里提醒一下各位程序猿，以后在开发项目的时候时间字段一定要是时间字段，不要为了方便操作就设成字符串，这样
摘要：近来之前的项目数据出现了问题，原因是由于之前在设计数据库的时候把时间字段设置成了字符串&＃26684;式，所以给后期的数据操作带来了很大的麻烦，这里提醒一下各位程序猿，以后在开发项目的时候时间字段一定要是时间字段，不要为了方便操作就设成字符串，这样后期改你带来的麻烦是你想象不到的，接下来就看看我解决这个问题的方法吧！
一：存储数据的零时表：
二：零时表里CLOB字段里面存储的xml字符串&＃26684;式：
三：存储解析完成的xml的数据表：
四：执行解析CLOB字段里面xml字符串的存储过程SQL：
CREATE OR REPLACE PROCEDURE MIP.MIP_PARSE (xmlStr IN CLOB)
IS
STYP VARCHAR2 (100);
RENO VARCHAR2 (100);
AIRLINE VARCHAR2 (100);
FFID VARCHAR2 (100);
FFID_A VARCHAR2 (100);
FFID_D VARCHAR2 (100);
ABNS VARCHAR2 (100);
ACFT VARCHAR2 (100);
CHDT VARCHAR2 (100);
EIBT VARCHAR2 (100);
FATA VARCHAR2 (100);
FETA VARCHAR2 (100);
FSTA VARCHAR2 (100);
LMDT VARCHAR2 (100);
LMUR VARCHAR2 (100);
PSTM VARCHAR2 (100);
RWAY VARCHAR2 (100);
SPOT VARCHAR2 (100);
STND VARCHAR2 (100);
SDEC VARCHAR2 (100);
A_TOBT VARCHAR2 (100);
A_WEATHER VARCHAR2 (100);
ASAT VARCHAR2 (100);
BCTM VARCHAR2 (100);
BOTM VARCHAR2 (100);
BETM VARCHAR2 (100);
BSTM VARCHAR2 (100);
C_TOBT VARCHAR2 (100);
COBT VARCHAR2 (100);
CTOT VARCHAR2 (100);
DINT VARCHAR2 (100);
DLAB VARCHAR2 (100);
DNAP VARCHAR2 (100);
DOUT VARCHAR2 (100);
EDDI VARCHAR2 (100);
EOBT VARCHAR2 (100);
EPGT VARCHAR2 (100);
EPOT VARCHAR2 (100);
FATD VARCHAR2 (100);
FSTD VARCHAR2 (100);
OFTM VARCHAR2 (100);
STDI VARCHAR2 (100);
TSAT VARCHAR2 (100);
FLIGHTNUMBER VARCHAR2 (100);
FLIGHTMARK VARCHAR2 (100);
ALAP VARCHAR2 (100);
APRT VARCHAR2 (100);
DPRT VARCHAR2 (100);
PARK VARCHAR2 (100);
INTERNALORINTERNATIONAL VARCHAR2 (100);
TERMINAL VARCHAR2 (100);
GROUNDDISTRIBUTION VARCHAR2 (100);
--定义出港信息表要格式的时间字段
A_TOBT_D VARCHAR2 (100);
ASAT_D VARCHAR2 (100);
BCTM_D VARCHAR2 (100);
BOTM_D VARCHAR2 (100);
BETM_D VARCHAR2 (100);
C_TOBT_D VARCHAR2 (100);
COBT_D VARCHAR2 (100);
CTOT_D VARCHAR2 (100);
DINT_D VARCHAR2 (100);
DOUT_D VARCHAR2 (100);
EDDI_D VARCHAR2 (100);
EOBT_D VARCHAR2 (100);
EPGT_D VARCHAR2 (100);
EPOT_D VARCHAR2 (100);
FATD_D VARCHAR2 (100);
FSTD_D VARCHAR2 (100);
LMDT_D VARCHAR2 (100);
OFTM_D VARCHAR2 (100);
STDI_D VARCHAR2 (100);
TSAT_D VARCHAR2 (100);
--定义进港信息表要格式化的时间字段
BSTM_A VARCHAR2 (100);
EIBT_A VARCHAR2 (100);
FATA_A VARCHAR2 (100);
FETA_A VARCHAR2 (100);
FSTA_A VARCHAR2 (100);
LMDT_A VARCHAR2 (100);
PSTM_A VARCHAR2 (100);
SPOT_A VARCHAR2 (100);
COUNTS NUMBER(36);
--定义出港信息要修改的除时间外的字段
STND_D VARCHAR2 (100);
A_WEATHER_D VARCHAR2 (100);
ABNS_D VARCHAR2 (100);
ACFT_D VARCHAR2 (100);
AIRLINE_D VARCHAR2 (100);
DLAB_D VARCHAR2 (100);
DNAP_D VARCHAR2 (100);
LMUR_D VARCHAR2 (100);
RENO_D VARCHAR2 (100);
RWAY_D VARCHAR2 (100);
DPRT_D VARCHAR2 (100);
PARK_D VARCHAR2 (100);
INTERNALORINTERNATIONAL_D VARCHAR2 (100);
TERMINAL_D VARCHAR2 (100);
GROUNDDISTRIBUTION_D VARCHAR2 (100);
--定义进港信息要修改的除时间外的字段
ABNS_A VARCHAR2 (100);
ACFT_A VARCHAR2 (100);
AIRLINE_A VARCHAR2 (100);
ALAP_A VARCHAR2 (100);
APRT_A VARCHAR2 (100);
CHDT_A VARCHAR2 (100);
RENO_A VARCHAR2 (100);
LMUR_A VARCHAR2 (100);
RWAY_A VARCHAR2 (100);
STND_A VARCHAR2 (100);
PARK_A VARCHAR2 (100);
INTERNALORINTERNATIONAL_A VARCHAR2 (100);
TERMINAL_A VARCHAR2 (100);
GROUNDDISTRIBUTION_A VARCHAR2 (100);
BEGIN
STYP := GetXmlNodeValue (xmlStr, &＃39;STYP&＃39;);
RENO := GetXmlNodeValue (xmlStr, &＃39;RENO&＃39;);
FFID := GetXmlNodeValue (xmlStr, &＃39;FFID&＃39;);
ABNS := GetXmlNodeValue (xmlStr, &＃39;ABNS&＃39;);
ACFT := GetXmlNodeValue (xmlStr, &＃39;ACFT&＃39;);
CHDT := GetXmlNodeValue (xmlStr, &＃39;CHDT&＃39;);
EIBT := GetXmlNodeValue (xmlStr, &＃39;EIBT&＃39;);
FATA := GetXmlNodeValue (xmlStr, &＃39;FATA&＃39;);
FETA := GetXmlNodeValue (xmlStr, &＃39;FETA&＃39;);
FSTA := GetXmlNodeValue (xmlStr, &＃39;FSTA&＃39;);
LMDT := GetXmlNodeValue (xmlStr, &＃39;LMDT&＃39;);
LMUR := GetXmlNodeValue (xmlStr, &＃39;LMUR&＃39;);
PSTM := GetXmlNodeValue (xmlStr, &＃39;PSTM&＃39;);
RWAY := GetXmlNodeValue (xmlStr, &＃39;RWAY&＃39;);
SPOT := GetXmlNodeValue (xmlStr, &＃39;SPOT&＃39;);
STND := GetXmlNodeValue (xmlStr, &＃39;STND&＃39;);
SDEC := GetXmlNodeValue (xmlStr, &＃39;STND&＃39;);
A_TOBT := GetXmlNodeValue (xmlStr, &＃39;A_TOBT&＃39;);
A_WEATHER := GetXmlNodeValue (xmlStr, &＃39;A_WEATHER&＃39;);
ALAP := GetXmlNodeValue (xmlStr, &＃39;ALAP&＃39;);
APRT := GetXmlNodeValue (xmlStr, &＃39;APRT&＃39;);
ASAT := GetXmlNodeValue (xmlStr, &＃39;ASAT&＃39;);
BCTM := GetXmlNodeValue (xmlStr, &＃39;BCTM&＃39;);
BOTM := GetXmlNodeValue (xmlStr, &＃39;BOTM&＃39;);
BETM := GetXmlNodeValue (xmlStr, &＃39;BETM&＃39;);
BSTM := GetXmlNodeValue (xmlStr, &＃39;BSTM&＃39;);
C_TOBT := GetXmlNodeValue (xmlStr, &＃39;C_TOBT&＃39;);
COBT := GetXmlNodeValue (xmlStr, &＃39;COBT&＃39;);
CTOT := GetXmlNodeValue (xmlStr, &＃39;CTOT&＃39;);
DINT := GetXmlNodeValue (xmlStr, &＃39;DINT&＃39;);
DLAB := GetXmlNodeValue (xmlStr, &＃39;DLAB&＃39;);
DNAP := GetXmlNodeValue (xmlStr, &＃39;DNAP&＃39;);
DOUT := GetXmlNodeValue (xmlStr, &＃39;DOUT&＃39;);
EDDI := GetXmlNodeValue (xmlStr, &＃39;EDDI&＃39;);
EOBT := GetXmlNodeValue (xmlStr, &＃39;EOBT&＃39;);
EPGT := GetXmlNodeValue (xmlStr, &＃39;EPGT&＃39;);
EPOT := GetXmlNodeValue (xmlStr, &＃39;EPOT&＃39;);
FATD := GetXmlNodeValue (xmlStr, &＃39;FATD&＃39;);
FSTD := GetXmlNodeValue (xmlStr, &＃39;FSTD&＃39;);
OFTM := GetXmlNodeValue (xmlStr, &＃39;OFTM&＃39;);
STDI := GetXmlNodeValue (xmlStr, &＃39;STDI&＃39;);
TSAT := GetXmlNodeValue (xmlStr, &＃39;TSAT&＃39;);
DPRT := GetXmlNodeValue (xmlStr, &＃39;DPRT&＃39;);
PARK := GetXmlNodeValue (xmlStr, &＃39;PARK&＃39;);
INTERNALORINTERNATIONAL := GetXmlNodeValue (xmlStr, &＃39;INTERNALORINTERNATIONAL&＃39;);
TERMINAL := GetXmlNodeValue (xmlStr, &＃39;TERMINAL&＃39;);
GROUNDDISTRIBUTION := GetXmlNodeValue (xmlStr, &＃39;GROUNDDISTRIBUTION&＃39;);
--出港信息表中时间字段的时间格式函数的用法
A_TOBT_D := FORMATDATEVALUE (A_TOBT, &＃39;A_TOBT_D&＃39;);
ASAT_D := FORMATDATEVALUE (ASAT, &＃39;ASAT_D&＃39;);
BCTM_D := FORMATDATEVALUE (BCTM, &＃39;BCTM_D&＃39;);
BOTM_D := FORMATDATEVALUE (BOTM, &＃39;BOTM_D&＃39;);
BETM_D := FORMATDATEVALUE (BETM, &＃39;BETM_D&＃39;);
C_TOBT_D := FORMATDATEVALUE (C_TOBT, &＃39;C_TOBT_D&＃39;);
COBT_D := FORMATDATEVALUE (COBT, &＃39;COBT_D&＃39;);
CTOT_D := FORMATDATEVALUE (CTOT, &＃39;CTOT_D&＃39;);
DINT_D := FORMATDATEVALUE (DINT, &＃39;DINT_D&＃39;);
DOUT_D := FORMATDATEVALUE (DOUT, &＃39;DOUT_D&＃39;);
EDDI_D := FORMATDATEVALUE (EDDI, &＃39;EDDI_D&＃39;);
EOBT_D := FORMATDATEVALUE (EOBT, &＃39;EOBT_D&＃39;);
EPGT_D := FORMATDATEVALUE (EPGT, &＃39;EPGT_D&＃39;);
EPOT_D := FORMATDATEVALUE (EPOT, &＃39;EPOT_D&＃39;);
FATD_D := FORMATDATEVALUE (FATD, &＃39;FATD_D&＃39;);
FSTD_D := FORMATDATEVALUE (FSTD, &＃39;FSTD_D&＃39;);
LMDT_D := FORMATDATEVALUE (LMDT, &＃39;LMDT_D&＃39;);
OFTM_D := FORMATDATEVALUE (OFTM, &＃39;OFTM_D&＃39;);
STDI_D := FORMATDATEVALUE (STDI, &＃39;STDI_D&＃39;);
TSAT_D := FORMATDATEVALUE (TSAT, &＃39;TSAT_D&＃39;);
--进港信息表中时间字段的时间格式函数的用法
EIBT_A := FORMATDATEVALUE (EIBT, &＃39;EIBT_A&＃39;);
FATA_A := FORMATDATEVALUE (FATA, &＃39;FATA_A&＃39;);
FETA_A := FORMATDATEVALUE (FETA, &＃39;FETA_A&＃39;);
FSTA_A := FORMATDATEVALUE (FSTA, &＃39;FSTA_A&＃39;);
LMDT_A := FORMATDATEVALUE (LMDT, &＃39;LMDT_A&＃39;);
PSTM_A := FORMATDATEVALUE (PSTM, &＃39;PSTM_A&＃39;);
SPOT_A := FORMATDATEVALUE (SPOT, &＃39;SPOT_A&＃39;);
BSTM_A := FORMATDATEVALUE (BSTM, &＃39;BSTM_A&＃39;);
--出港信息要修改的除时间外的字段
STND_D := GetXmlNodeValue (xmlStr, &＃39;STND&＃39;);
A_WEATHER_D := GetXmlNodeValue (xmlStr, &＃39;A_WEATHER&＃39;);
ABNS_D := GetXmlNodeValue (xmlStr, &＃39;ABNS&＃39;);
ACFT_D := GetXmlNodeValue (xmlStr, &＃39;ACFT&＃39;);
AIRLINE_D := GetXmlNodeValue (xmlStr, &＃39;AIRLINE&＃39;);
DLAB_D := GetXmlNodeValue (xmlStr, &＃39;DLAB&＃39;);
DNAP_D := GetXmlNodeValue (xmlStr, &＃39;DNAP&＃39;);
LMUR_D := GetXmlNodeValue (xmlStr, &＃39;LMUR&＃39;);
RENO_D := GetXmlNodeValue (xmlStr, &＃39;RENO&＃39;);
RWAY_D := GetXmlNodeValue (xmlStr, &＃39;RWAY&＃39;);
DPRT_D := GetXmlNodeValue (xmlStr, &＃39;DPRT&＃39;);
PARK_D := GetXmlNodeValue (xmlStr, &＃39;PARK&＃39;);
TERMINAL_D := GetXmlNodeValue (xmlStr, &＃39;TERMINAL&＃39;);
GROUNDDISTRIBUTION_D := GetXmlNodeValue (xmlStr, &＃39;GROUNDDISTRIBUTION&＃39;);
--进港信息要修改的除时间外的字段
ABNS_A := GetXmlNodeValue (xmlStr, &＃39;ABNS&＃39;);
ACFT_A := GetXmlNodeValue (xmlStr, &＃39;ACFT&＃39;);
AIRLINE_A := GetXmlNodeValue (xmlStr, &＃39;AIRLINE&＃39;);
ALAP_A := GetXmlNodeValue (xmlStr, &＃39;ALAP&＃39;);
APRT_A := GetXmlNodeValue (xmlStr, &＃39;APRT&＃39;);
CHDT_A := GetXmlNodeValue (xmlStr, &＃39;CHDT&＃39;);
RENO_A := GetXmlNodeValue (xmlStr, &＃39;RENO&＃39;);
LMUR_A := GetXmlNodeValue (xmlStr, &＃39;LMUR&＃39;);
RWAY_A := GetXmlNodeValue (xmlStr, &＃39;RWAY&＃39;);
STND_A := GetXmlNodeValue (xmlStr, &＃39;STND&＃39;);
PARK_A := GetXmlNodeValue (xmlStr, &＃39;PARK&＃39;);
TERMINAL_A := GetXmlNodeValue (xmlStr, &＃39;TERMINAL&＃39;);
GROUNDDISTRIBUTION_A := GetXmlNodeValue (xmlStr, &＃39;GROUNDDISTRIBUTION&＃39;);
IF STYP = &＃39;FGIS&＃39; THEN
IF INSTR(FFID,&＃39;-D-&＃39;) > 0 THEN
FFID_D := FFID;
--截取航空公司代码
AIRLINE := SUBSTR(FFID_D,0,2);
--截取航班号
FLIGHTNUMBER := SUBSTR(FFID_D,INSTR(FFID_D,&＃39;-&＃39;,1)+1,INSTR(FFID_D,&＃39;-&＃39;,INSTR(FFID_D,&＃39;-&＃39;,1)+1)-INSTR(FFID_D,&＃39;-&＃39;,1)-1);
--截取出港标志
FLIGHTMARK := SUBSTR(FFID_D,INSTR(FFID_D,&＃39;-&＃39;,2,2)+1,INSTR(FFID_D,&＃39;-&＃39;,2,3)-1-INSTR(FFID_D,&＃39;-&＃39;,2,2));
--截取进离港标志
INTERNALORINTERNATIONAL := SUBSTR(FFID_D,-1);
--UPDATE之前要先根据FFID查询一下看看数据表中是否已经存在该条数据，如果存在就UPDATE,如果不存在就SAVE
SELECT COUNT(1) INTO COUNTS FROM TB_CMS_FLGTINFO_D where FFID = FFID_D;
IF COUNTS > 0 THEN
IF A_TOBT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET A_TOBT = A_TOBT_D WHERE FFID = FFID_D;
END IF;
IF A_WEATHER_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET A_WEATHER = A_WEATHER_D WHERE FFID = FFID_D;
END IF;
IF ABNS_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET ABNS = ABNS_D WHERE FFID = FFID_D;
END IF;
IF ACFT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET ACFT = ACFT_D WHERE FFID = FFID_D;
END IF;
IF ASAT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET ASAT = ASAT_D WHERE FFID = FFID_D;
END IF;
IF BCTM_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET BCTM = BCTM_D WHERE FFID = FFID_D;
END IF;
IF BOTM_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET BOTM = BOTM_D WHERE FFID = FFID_D;
END IF;
IF BETM_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET BETM = BETM_D WHERE FFID = FFID_D;
END IF;
IF C_TOBT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET C_TOBT = C_TOBT_D WHERE FFID = FFID_D;
END IF;
IF COBT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET COBT = COBT_D WHERE FFID = FFID_D;
END IF;
IF CTOT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET CTOT = CTOT_D WHERE FFID = FFID_D;
END IF;
IF DINT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DINT = DINT_D WHERE FFID = FFID_D;
END IF;
IF DLAB_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DLAB = DLAB_D WHERE FFID = FFID_D;
END IF;
IF DNAP_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DNAP = DNAP_D WHERE FFID = FFID_D;
END IF;
IF DOUT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DOUT = DOUT_D WHERE FFID = FFID_D;
END IF;
IF EDDI_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET EDDI = EDDI_D WHERE FFID = FFID_D;
END IF;
IF EOBT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET EOBT = EOBT_D WHERE FFID = FFID_D;
END IF;
IF EPGT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET EPGT = EPGT_D WHERE FFID = FFID_D;
END IF;
IF EPOT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET EPOT = EPOT_D WHERE FFID = FFID_D;
END IF;
IF FATD_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET FATD = FATD_D WHERE FFID = FFID_D;
END IF;
IF FSTD_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET FSTD = FSTD_D WHERE FFID = FFID_D;
END IF;
IF LMDT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET LMDT = LMDT_D WHERE FFID = FFID_D;
END IF;
IF LMUR_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET LMUR = LMUR_D WHERE FFID = FFID_D;
END IF;
IF OFTM_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET OFTM = OFTM_D WHERE FFID = FFID_D;
END IF;
IF RENO_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET RENO = RENO_D WHERE FFID = FFID_D;
END IF;
IF RWAY_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET RWAY = RWAY_D WHERE FFID = FFID_D;
END IF;
IF STDI_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET STDI = STDI_D WHERE FFID = FFID_D;
END IF;
IF STND_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET STND = STND_D WHERE FFID = FFID_D;
END IF;
IF TSAT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET TSAT = TSAT_D WHERE FFID = FFID_D;
END IF;
IF DPRT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DPRT = DPRT_D WHERE FFID = FFID_D;
END IF;
IF PARK_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET PARK = PARK_D WHERE FFID = FFID_D;
END IF;
IF TERMINAL_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET TERMINAL = TERMINAL_D WHERE FFID = FFID_D;
END IF;
IF GROUNDDISTRIBUTION_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET GROUNDDISTRIBUTION = GROUNDDISTRIBUTION_D WHERE FFID = FFID_D;
END IF;
ELSE
INSERT INTO TB_CMS_FLGTINFO_D (ID,A_TOBT,A_WEATHER,ABNS,ACFT,AIRLINE,ASAT,BCTM,BOTM,BETM,C_TOBT,COBT,CTOT,DINT,DLAB,DNAP,DOUT,DPRT,EDDI,EOBT,EPGT,EPOT,FATD,FFID,FLIGHTNUMBER,
FLIGHTMARK,FSTD,GROUNDDISTRIBUTION,INTERNALORINTERNATIONAL,LMDT,LMUR,OFTM,PARK,RENO,RWAY,STDI,STND,TERMINAL,TSAT)
VALUES (FLGTINFO_D_SEQ.NEXTVAL,
A_TOBT_D,
A_WEATHER,
ABNS,
ACFT,
AIRLINE,
ASAT_D,
BCTM_D,
BOTM_D,
BETM_D,
C_TOBT_D,
COBT_D,
CTOT_D,
DINT_D,
DLAB,
DNAP,
DOUT_D,
DPRT,
EDDI_D,
EOBT_D,
EPGT_D,
EPOT_D,
FATD_D,
FFID_D,
FLIGHTNUMBER,
FLIGHTMARK,
FSTD_D,
GROUNDDISTRIBUTION,
INTERNALORINTERNATIONAL,
LMDT_D,
LMUR,
OFTM_D,
PARK,
RENO,
RWAY,
STDI_D,
STND,
TERMINAL,
TSAT_D);
END IF;
ELSE
FFID_A := FFID;
--截取航空公司代码
AIRLINE := SUBSTR(FFID_A,0,2);
--截取航班号
FLIGHTNUMBER := SUBSTR(FFID_A,INSTR(FFID_A,&＃39;-&＃39;,1)+1,INSTR(FFID_A,&＃39;-&＃39;,INSTR(FFID_A,&＃39;-&＃39;,1)+1)-INSTR(FFID_A,&＃39;-&＃39;,1)-1);
--截取出港标志
FLIGHTMARK := SUBSTR(FFID_A,INSTR(FFID_A,&＃39;-&＃39;,2,2)+1,INSTR(FFID_A,&＃39;-&＃39;,2,3)-1-INSTR(FFID_A,&＃39;-&＃39;,2,2));
--截取进离港标志
INTERNALORINTERNATIONAL := SUBSTR(FFID_A,-1);
--UPDATE之前要先根据FFID查询一下看看数据表中是否已经存在该条数据，如果存在就UPDATE,如果不存在就SAVE
SELECT COUNT(1) INTO COUNTS FROM TB_CMS_FLGTINFO_A where FFID = FFID_A;
IF COUNTS > 0 THEN
IF ABNS_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET ABNS = ABNS_A WHERE FFID = FFID_A;
END IF;
IF ACFT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET ACFT = ACFT_A WHERE FFID = FFID_A;
END IF;
IF ALAP_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET ALAP = ALAP_A WHERE FFID = FFID_A;
END IF;
IF BSTM_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET BSTM = BSTM_A WHERE FFID = FFID_A;
END IF;
IF CHDT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET CHDT = CHDT_A WHERE FFID = FFID_A;
END IF;
IF RENO_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET RENO = RENO_A WHERE FFID = FFID_A;
END IF;
IF EIBT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET EIBT = EIBT_A WHERE FFID = FFID_A;
END IF;
IF FATA_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET FATA = FATA_A WHERE FFID = FFID_A;
END IF;
IF FETA_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET FETA = FETA_A WHERE FFID = FFID_A;
END IF;
IF FSTA_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET FSTA = FSTA_A WHERE FFID = FFID_A;
END IF;
IF LMDT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET LMDT = LMDT_A WHERE FFID = FFID_A;
END IF;
IF LMUR_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET LMUR = LMUR_A WHERE FFID = FFID_A;
END IF;
IF PSTM_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET PSTM = PSTM_A WHERE FFID = FFID_A;
END IF;
IF RWAY_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET RWAY = RWAY_A WHERE FFID = FFID_A;
END IF;
IF SPOT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET SPOT = SPOT_A WHERE FFID = FFID_A;
END IF;
IF STND_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET STND = STND_A WHERE FFID = FFID_A;
END IF;
IF APRT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET APRT = APRT_A WHERE FFID = FFID_A;
END IF;
IF PARK_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET PARK = PARK_A WHERE FFID = FFID_A;
END IF;
IF TERMINAL_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET TERMINAL = TERMINAL_A WHERE FFID = FFID_A;
END IF;
IF GROUNDDISTRIBUTION_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET GROUNDDISTRIBUTION = GROUNDDISTRIBUTION_A WHERE FFID = FFID_A;
END IF;
ELSE
INSERT INTO TB_CMS_FLGTINFO_A (ID,ABNS,ACFT,AIRLINE,ALAP,BSTM,CHDT,APRT,FFID,FLIGHTNUMBER,FLIGHTMARK,GROUNDDISTRIBUTION,INTERNALORINTERNATIONAL,RENO,EIBT,FATA,FETA,FSTA,LMDT,LMUR,PARK,PSTM,RWAY,SPOT,STND,TERMINAL)
VALUES (FLGTINFO_A_SEQ.NEXTVAL,
ABNS,
ACFT,
AIRLINE,
ALAP,
BSTM_A,
CHDT,
APRT,
FFID_A,
FLIGHTNUMBER,
FLIGHTMARK,
GROUNDDISTRIBUTION,
INTERNALORINTERNATIONAL,
RENO,
EIBT_A,
FATA_A,
FETA_A,
FSTA_A,
LMDT_A,
LMUR,
PARK,
PSTM_A,
RWAY,
SPOT_A,
STND,
TERMINAL);
END IF;
END IF;
ELSE
IF INSTR(FFID,&＃39;-D-&＃39;) > 0 THEN
FFID_D := FFID;
--截取航空公司代码
AIRLINE := SUBSTR(FFID_D,0,2);
--截取航班号
FLIGHTNUMBER := SUBSTR(FFID_D,INSTR(FFID_D,&＃39;-&＃39;,1)+1,INSTR(FFID_D,&＃39;-&＃39;,INSTR(FFID_D,&＃39;-&＃39;,1)+1)-INSTR(FFID_D,&＃39;-&＃39;,1)-1);
--截取出港标志
FLIGHTMARK := SUBSTR(FFID_D,INSTR(FFID_D,&＃39;-&＃39;,2,2)+1,INSTR(FFID_D,&＃39;-&＃39;,2,3)-1-INSTR(FFID_D,&＃39;-&＃39;,2,2));
--截取进离港标志
INTERNALORINTERNATIONAL := SUBSTR(FFID_D,-1);
--UPDATE之前要先根据FFID查询一下看看数据表中是否已经存在该条数据，如果存在就UPDATE,如果不存在就SAVE
SELECT COUNT(1) INTO COUNTS FROM TB_CMS_FLGTINFO_D where FFID = FFID_D;
IF COUNTS > 0 THEN
IF A_TOBT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET A_TOBT = A_TOBT_D WHERE FFID = FFID_D;
END IF;
IF A_WEATHER_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET A_WEATHER = A_WEATHER_D WHERE FFID = FFID_D;
END IF;
IF ABNS_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET ABNS = ABNS_D WHERE FFID = FFID_D;
END IF;
IF ACFT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET ACFT = ACFT_D WHERE FFID = FFID_D;
END IF;
IF ASAT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET ASAT = ASAT_D WHERE FFID = FFID_D;
END IF;
IF BCTM_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET BCTM = BCTM_D WHERE FFID = FFID_D;
END IF;
IF BOTM_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET BOTM = BOTM_D WHERE FFID = FFID_D;
END IF;
IF BETM_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET BETM = BETM_D WHERE FFID = FFID_D;
END IF;
IF C_TOBT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET C_TOBT = C_TOBT_D WHERE FFID = FFID_D;
END IF;
IF COBT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET COBT = COBT_D WHERE FFID = FFID_D;
END IF;
IF CTOT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET CTOT = CTOT_D WHERE FFID = FFID_D;
END IF;
IF DINT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DINT = DINT_D WHERE FFID = FFID_D;
END IF;
IF DLAB_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DLAB = DLAB_D WHERE FFID = FFID_D;
END IF;
IF DNAP_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DNAP = DNAP_D WHERE FFID = FFID_D;
END IF;
IF DOUT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DOUT = DOUT_D WHERE FFID = FFID_D;
END IF;
IF EDDI_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET EDDI = EDDI_D WHERE FFID = FFID_D;
END IF;
IF EOBT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET EOBT = EOBT_D WHERE FFID = FFID_D;
END IF;
IF EPGT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET EPGT = EPGT_D WHERE FFID = FFID_D;
END IF;
IF EPOT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET EPOT = EPOT_D WHERE FFID = FFID_D;
END IF;
IF FATD_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET FATD = FATD_D WHERE FFID = FFID_D;
END IF;
IF FSTD_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET FSTD = FSTD_D WHERE FFID = FFID_D;
END IF;
IF LMDT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET LMDT = LMDT_D WHERE FFID = FFID_D;
END IF;
IF LMUR_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET LMUR = LMUR_D WHERE FFID = FFID_D;
END IF;
IF OFTM_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET OFTM = OFTM_D WHERE FFID = FFID_D;
END IF;
IF RENO_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET RENO = RENO_D WHERE FFID = FFID_D;
END IF;
IF RWAY_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET RWAY = RWAY_D WHERE FFID = FFID_D;
END IF;
IF STDI_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET STDI = STDI_D WHERE FFID = FFID_D;
END IF;
IF SDEC != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET SDEC = SDEC WHERE FFID = FFID_D;
END IF;
IF TSAT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET TSAT = TSAT_D WHERE FFID = FFID_D;
END IF;
IF DPRT_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET DPRT = DPRT_D WHERE FFID = FFID_D;
END IF;
IF PARK_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET PARK = PARK_D WHERE FFID = FFID_D;
END IF;
IF TERMINAL_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET TERMINAL = TERMINAL_D WHERE FFID = FFID_D;
END IF;
IF GROUNDDISTRIBUTION_D != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_D SET GROUNDDISTRIBUTION = GROUNDDISTRIBUTION_D WHERE FFID = FFID_D;
END IF;
ELSE
INSERT INTO TB_CMS_FLGTINFO_D (ID,A_TOBT,A_WEATHER,ABNS,ACFT,AIRLINE,ASAT,BCTM,BOTM,BETM,C_TOBT,COBT,CTOT,DINT,DLAB,DNAP,DOUT,DPRT,EDDI,EOBT,EPGT,EPOT,FATD,FFID,FLIGHTNUMBER,
FLIGHTMARK,FSTD,GROUNDDISTRIBUTION,INTERNALORINTERNATIONAL,LMDT,LMUR,OFTM,PARK,RENO,RWAY,STDI,SDEC,TERMINAL,TSAT)
VALUES (FLGTINFO_D_SEQ.NEXTVAL,
A_TOBT_D,
A_WEATHER,
ABNS,
ACFT,
AIRLINE,
ASAT_D,
BCTM_D,
BOTM_D,
BETM_D,
C_TOBT_D,
COBT_D,
CTOT_D,
DINT_D,
DLAB,
DNAP,
DOUT_D,
DPRT,
EDDI_D,
EOBT_D,
EPGT_D,
EPOT_D,
FATD_D,
FFID_D,
FLIGHTNUMBER,
FLIGHTMARK,
FSTD_D,
GROUNDDISTRIBUTION,
INTERNALORINTERNATIONAL,
LMDT_D,
LMUR,
OFTM_D,
PARK,
RENO,
RWAY,
STDI_D,
SDEC,
TERMINAL,
TSAT_D);
END IF;
ELSE
FFID_A := FFID;
--截取航空公司代码
AIRLINE := SUBSTR(FFID_A,0,2);
--截取航班号
FLIGHTNUMBER := SUBSTR(FFID_A,INSTR(FFID_A,&＃39;-&＃39;,1)+1,INSTR(FFID_A,&＃39;-&＃39;,INSTR(FFID_A,&＃39;-&＃39;,1)+1)-INSTR(FFID_A,&＃39;-&＃39;,1)-1);
--截取出港标志
FLIGHTMARK := SUBSTR(FFID_A,INSTR(FFID_A,&＃39;-&＃39;,2,2)+1,INSTR(FFID_A,&＃39;-&＃39;,2,3)-1-INSTR(FFID_A,&＃39;-&＃39;,2,2));
--截取进离港标志
INTERNALORINTERNATIONAL := SUBSTR(FFID_A,-1);
--UPDATE之前要先根据FFID查询一下看看数据表中是否已经存在该条数据，如果存在就UPDATE,如果不存在就SAVE
SELECT COUNT(1) INTO COUNTS FROM TB_CMS_FLGTINFO_A where FFID = FFID_A;
IF COUNTS > 0 THEN
IF ABNS_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET ABNS = ABNS_A WHERE FFID = FFID_A;
END IF;
IF ACFT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET ACFT = ACFT_A WHERE FFID = FFID_A;
END IF;
IF ALAP_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET ALAP = ALAP_A WHERE FFID = FFID_A;
END IF;
IF BSTM_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET BSTM = BSTM_A WHERE FFID = FFID_A;
END IF;
IF CHDT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET CHDT = CHDT_A WHERE FFID = FFID_A;
END IF;
IF RENO_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET RENO = RENO_A WHERE FFID = FFID_A;
END IF;
IF EIBT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET EIBT = EIBT_A WHERE FFID = FFID_A;
END IF;
IF FATA_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET FATA = FATA_A WHERE FFID = FFID_A;
END IF;
IF FETA_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET FETA = FETA_A WHERE FFID = FFID_A;
END IF;
IF FSTA_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET FSTA = FSTA_A WHERE FFID = FFID_A;
END IF;
IF LMDT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET LMDT = LMDT_A WHERE FFID = FFID_A;
END IF;
IF LMUR_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET LMUR = LMUR_A WHERE FFID = FFID_A;
END IF;
IF PSTM_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET PSTM = PSTM_A WHERE FFID = FFID_A;
END IF;
IF RWAY_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET RWAY = RWAY_A WHERE FFID = FFID_A;
END IF;
IF SPOT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET SPOT = SPOT_A WHERE FFID = FFID_A;
END IF;
IF STND_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET STND = STND_A WHERE FFID = FFID_A;
END IF;
IF APRT_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET APRT = APRT_A WHERE FFID = FFID_A;
END IF;
IF PARK_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET PARK = PARK_A WHERE FFID = FFID_A;
END IF;
IF TERMINAL_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET TERMINAL = TERMINAL_A WHERE FFID = FFID_A;
END IF;
IF GROUNDDISTRIBUTION_A != &＃39; &＃39; THEN
UPDATE TB_CMS_FLGTINFO_A SET GROUNDDISTRIBUTION = GROUNDDISTRIBUTION_A WHERE FFID = FFID_A;
END IF;
ELSE
INSERT INTO TB_CMS_FLGTINFO_A (ID,ABNS,ACFT,AIRLINE,ALAP,BSTM,CHDT,APRT,FFID,FLIGHTNUMBER,FLIGHTMARK,GROUNDDISTRIBUTION,INTERNALORINTERNATIONAL,RENO,EIBT,FATA,FETA,FSTA,LMDT,LMUR,PARK,PSTM,RWAY,SPOT,STND,TERMINAL)
VALUES (FLGTINFO_A_SEQ.NEXTVAL,
ABNS,
ACFT,
AIRLINE,
ALAP,
BSTM_A,
CHDT,
APRT,
FFID_A,
FLIGHTNUMBER,
FLIGHTMARK,
GROUNDDISTRIBUTION,
INTERNALORINTERNATIONAL,
RENO,
EIBT_A,
FATA_A,
FETA_A,
FSTA_A,
LMDT_A,
LMUR,
PARK,
PSTM_A,
RWAY,
SPOT_A,
STND,
TERMINAL);
END IF;
END IF;
END IF;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE (SQLERRM);
END MIP_PARSE;
/
五：存储过程里面用到的Function.SQL:
CREATE OR REPLACE FUNCTION MIP.FormatDateValue (key VARCHAR2, value VARCHAR2) RETURN VARCHAR2 IS --定义几个变量，出来解析过来的时间字符串 --日月年时分(11OCT141024) Str VARCHAR2(32); AA VARCHAR2(32); DAY VARCHAR2(32); MOUNTH VARCHAR2(32); YEAR VARCHAR2(32); HOUR VARCHAR2(32); MINUTE VARCHAR2(32); ValueReturn VARCHAR2 (64); BEGIN IF key != &＃39; &＃39; THEN DAY := SUBSTR(key,0,2); MOUNTH := SUBSTR(key,3,3); IF INSTR (MOUNTH,&＃39;JAN&＃39;) > 0 THEN MOUNTH := 01; END IF; IF INSTR (MOUNTH,&＃39;FEB&＃39;) > 0 THEN MOUNTH := 02; END IF; IF INSTR (MOUNTH,&＃39;MAR&＃39;) > 0 THEN MOUNTH := 03; END IF; IF INSTR (MOUNTH,&＃39;APR&＃39;) > 0 THEN MOUNTH := 04; END IF; IF INSTR (MOUNTH,&＃39;MAY&＃39;) > 0 THEN MOUNTH := 05; END IF; IF INSTR (MOUNTH,&＃39;JUN&＃39;) > 0 THEN MOUNTH := 06; END IF; IF INSTR (MOUNTH,&＃39;JUL&＃39;) > 0 THEN MOUNTH := 07; END IF; IF INSTR (MOUNTH,&＃39;AUG&＃39;) > 0 THEN MOUNTH := 08; END IF; IF INSTR (MOUNTH,&＃39;SEP&＃39;) > 0 THEN MOUNTH := 09; END IF; IF INSTR (MOUNTH,&＃39;OCT&＃39;) > 0 THEN MOUNTH := 10; END IF; IF INSTR (MOUNTH,&＃39;NOV&＃39;) > 0 THEN MOUNTH := 11; END IF; IF INSTR (MOUNTH,&＃39;DEC&＃39;) > 0 THEN MOUNTH := 12; END IF; YEAR := SUBSTR(key,6,2); HOUR := SUBSTR(key,8,2); MINUTE := SUBSTR(key,-2); AA := 20; Str := 0; --日月年时分(11OCT141017) IF length(MOUNTH) <2 THEN MOUNTH := Str||MOUNTH; ValueReturn := AA || YEAR || &＃39;-&＃39; || MOUNTH || &＃39;-&＃39; || DAY || &＃39; &＃39; || HOUR || &＃39;:&＃39; || MINUTE; ELSE ValueReturn := AA || YEAR || &＃39;-&＃39; || MOUNTH || &＃39;-&＃39; || DAY || &＃39; &＃39; || HOUR || &＃39;:&＃39; || MINUTE; END IF; --ValueReturn := HOUR || &＃39;:&＃39; || MINUTE; RETURN ValueReturn; ELSE ValueReturn := &＃39; &＃39;; RETURN ValueReturn; END IF; END FormatDateValue; /
六：最后是调用存储过程执行解析Clob字段里面的xml字符串的游标SQL：
/* Formatted on 2015/1/15 14:20:27 (QP5 v5.115.810.9015) */
DECLARE
--定义游标
CURSOR c_cursor
IS
--这里查询指定时间内的数据，根据时间判断一下id>那个编号开始
SELECT MBINMSGS_CLOB_MSG FROM MBINMSGS_TEMP;
v_MBINMSGS_CLOB_MSG MBINMSGS_TEMP.MBINMSGS_CLOB_MSG%TYPE;
BEGIN
--打开游标
OPEN c_cursor;
--提取游标数据
FETCH c_cursor INTO v_MBINMSGS_CLOB_MSG;
WHILE c_cursor%FOUND
LOOP
DBMS_OUTPUT.put_line (v_MBINMSGS_CLOB_MSG);
FETCH c_cursor INTO v_MBINMSGS_CLOB_MSG;
MIP_PARSE(v_MBINMSGS_CLOB_MSG);
END LOOP;
END;
京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有