Can you please compile and run the following: $set preprocess(prexml) endp id division. program-id. writexml. environment division. input-output section. file-control. select customers assign to "customers.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(256) value "customers.xml". 01 new-name pic x(256) value "newcust.xml". procedure division. open output customers display xml-status move "12345" to customer-id move "chris glazier" to customer-name write customerdb 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.
↧