Маркировка обуви с чего начать : УКМ-4

declare
  doc DBMS_XMLDOM.DOMDocument;                                                                                        
  xdata  XMLTYPE;
  c CLOB;
begin
  dbms_lob.createtemporary(c, true);
  dbms_lob.append(c, '<updateItems>');
  for xdata in (
               select 
               --XMLATTRIBUTES("fullness", 'i'),
               XMLELEMENT("item",
                 XMLELEMENT("article", c.article),
                 XMLELEMENT("name", c.name),
                 XMLELEMENT("measure", 'шт'),
                 XMLELEMENT("measprec", 1),
                 XMLELEMENT("groupId", c.idclass),
                 XMLELEMENT("egaisType", 3)
                       ) xml
        from SMCARD c, Supermag.SACardClass, Supermag.SACardClass R1
       where Supermag.SACardClass.ID = c.IDClass
         and c.IDClass = R1.ID
         and R1.Tree like '31.7.%'
      ) loop
      
      dbms_lob.append(c, xdata.xml.getClobVal());
       
  end loop;
  dbms_lob.append(c, '</updateItems>');
  
  doc := DBMS_XMLDOM.NewDOMDocument(c);
  DBMS_XMLDOM.WRITETOFILE(doc, 'TEMP/updateItems_[99999]_[I].xml', 'utf-8');

end;