I have run the program with debugging. The result is : 000000000+ 000000172+ +000000000 +000000000 This is oke. But the problem is not the making of a file but after the reading. The result by reading the xml-file is : 000000000+ 000000001+ +000000000 +000014657 The coding is : $set preprocess(prexml) endp id division. program-id. readxml. environment division. input-output section. file-control. select customers assign to filename-xml organization is xml document-type is omitted file status is xml-status. data division. file section. xd customers. 01 customerdb identified by "customerdb" count in customerdb-count. 05 customer-record identified by "customer-record" count in customer-record-count. 10 customer-id pic X(5) identified by "customer-id" count in customer-id-count. 10 customer-name pic X(20) identified by "customer-name" count in customer-name-count. working-storage section. 01 xml-status pic s9(9) value 0. 01 old-name pic x(100) . 01 new-name pic x(256) . 01 filename-xml. 03 deel-1 pic x(047) value "K:\applicaties\egu\egu_3.0\r\development\batch\". 03 deel-2 pic x(036) value "data\export\extern\cak\customers.xml". 01 filename-new. 03 deel-1 pic x(047) value "K:\applicaties\egu\egu_3.0\r\development\batch\". 03 deel-2 pic x(036) value "data\export\extern\svb\customers.xml". procedure division. move filename-xml to old-name move filename-new to new-name open input customers display xml-status read customers display xml-status close customers call "CBL_COPY_FILE" using old-name new-name display return-code call "CBL_DELETE_FILE" using old-name display return-code stop run.
↧