001 PROMPT 07_R.01_01/AGDD.sql
002 SET echo OFF;
003 set linesize 132;
004 drop table AGDD_data2tag cascade constraints;
005 drop table AGDD_data cascade constraints;
006 create table AGDD_data (
007 AGDD_data_id number(10),
008 VERS number(10),
009 VNAME varchar2(4),
010 LENAGDD number(10),
011 NLINE number(10),
012 data CLOB default empty_clob()
013 ) ;
014
015 alter table AGDD_data add constraint AGDD_data_pk
016 primary key (AGDD_data_id);
017
018 create table AGDD_data2tag (
019 AGDD_vers varchar2(255),
020 AGDD_data_id number(10)
021 ) ;
022
023 alter table AGDD_data2tag add constraint AGDD_data2tag_pk
024 primary key (AGDD_vers, AGDD_data_id);
025 alter table AGDD_data2tag add constraint AGDD_data2tag_vers_fk
026 foreign key (AGDD_vers) references hvs_nodevers (vers_name);
027 alter table AGDD_data2tag add constraint AGDD_data2tag_data_fk
028 foreign key (AGDD_data_id) references AGDD_data (AGDD_data_id);
029
030 delete from hvs_relation where CHILD_NODENAME = 'AGDD';
031 delete from hvs_nodevers where VERS_NAME = 'MuonSpectrometer-07';
032 delete from hvs_nodevers where NODE_NAME = 'AGDD';
033 delete from hvs_node where NODE_NAME = 'AGDD';
034
035 insert into hvs_node values ('AGDD','MuonSpectrometer', '');
036 insert into hvs_nodevers values ('AGDD', 'AGDD-07', '');
037 insert into hvs_nodevers values ('MuonSpectrometer','MuonSpectrometer-07','');
038 insert into hvs_relation values ('MuonSpectrometer','MuonSpectrometer-07','AGDD','AGDD-07');
039 insert into AGDD_data (
040 AGDD_data_id,
041 VERS,
042 VNAME,
043 LENAGDD,
044 NLINE,
045 data
046 ) values ( 0,
047 7,'R.01',207817, 51955,
048 empty_clob()
049 );
050 insert into AGDD_data2tag values ('AGDD-07', 0);
051 DECLARE
052 lobloc CLOB;
053 req utl_http.req;
054 resp utl_http.resp;
055 text VARCHAR2(32767);
056 amount INTEGER(10) := 0;
057 offset INTEGER(10) := 0;
058 TRUE BOOLEAN;
059 BEGIN
060 SELECT data INTO lobloc
061 FROM AGDD_data
062 WHERE AGDD_data_id = 0 FOR UPDATE;
063 offset := DBMS_LOB.GETLENGTH(lobloc)+2;
064 req := utl_http.begin_request(
065 'http://baranov.home.cern.ch/baranov/sql/07_R.01_01.Light/AGDDtemp.data');
066 resp := utl_http.get_response(req);
067 LOOP
068 text := ' ';
069 UTL_HTTP.READ_TEXT(resp, text, NULL);
070
071 amount := length(text);
072 DBMS_LOB.WRITEAPPEND(lobloc,amount,text);
073 END LOOP;
074 utl_http.end_response(resp);
075 EXCEPTION
076 WHEN utl_http.end_of_body
077 THEN utl_http.end_response(resp);
078 END;
079 /
080
081 comment on column AGDD_data.AGDD_data_id is 'Unique identifier';
082 comment on column AGDD_data.VERS is 'VERSION ';
083 comment on column AGDD_data.VNAME is 'NAME ';
084 comment on column AGDD_data.LENAGDD is 'STRING LENGTH ';
085 comment on column AGDD_data.NLINE is 'CHAR4 NUMBER ';
086 comment on column AGDD_data.DATA is '(NLINE)-ASCII ';
| Due to the LXR bug, the updates fail sometimes to remove references to deleted files. The Saturday's full rebuilds fix these problems |
|
This page was automatically generated by the
LXR engine.
|
|