Ja tausend Dank!
Hast mich gut durchgeführt
funktioniert jetzt einwandfrei:
Code:
       //-----------------------------------------------------------------------
       // Prozedur XML speichern
       //-----------------------------------------------------------------------
     P xmltosql        B
     D                 PI
     D file_name       S            900A
     D anz1            S              5I 0
     D anz2            S              5I 0
     D anz3            S              5I 0
      /free
        exec sql set option commit=*CHG;
        exec sql declare c2 cursor for
          select info_req.*
          from xmltable('/ExCustomerDataList/Customer'
               passing xmlparse(document get_xml_file('/home/codaho/test.xml'))
               columns
        RIONID         varchar(20)     path 'CustomerNo',
        RIANZA         varchar(5)      path 'NoOfSuccessfullOrders',
        RIAUFO         decimal(11, 2) path 'Balance'


                       ) info_req;




        exec sql open C2;
        dou (sqlcode <> *zeros) and sqlcode <> 326;
        exec sql fetch c2 into :rionid :anz1, :rianza :anz2, :riaufo :anz3;
          write risk00r;
        enddo;
      /end-free
     P                 E