The next stage is to create an XML document from the content of a COBOL data structure. To do this, more logic is added to the original COBOL program. The added text is shown in bold.
Identification Division. Program-Id. Getting-Started. Data Division. Working-Storage Section. 01 Customer-Address. 02 Cust-Name Pic X(128). 02 Address-1 Pic X(128). 02 Address-2 Pic X(128). 02 Address-3. 03 City Pic X(64). 03 State Pic X(2). 03 Zip Pic 9(5) Value 0 Binary. Copy "lixmlall.cpy". Procedure Division. A. XML INITIALIZE. If Not XML-OK Go To Z. XML EXPORT FILE Customer-Address "Address" "getstarted#customer-address". If Not XML-OK Go To Z. Z. Copy "lixmltrm.cpy". GoBack. Copy "lixmldsp.cpy". End Program Getting-Started.
The XML EXPORT FILE statement is used to create an XML document from the content of a COBOL data structure. This statement has three arguments: the data structure name, the desired filename, and the root name of the model files.
A value of zero is added to the zip code field so that the field has a valid numeric value.
As you would expect, the data structure name is customer-address. Almost all of the XML statements may set an unsuccessful or warning status value; that is, a status value for which the condition-name XML-OK is false following the execution of the XML statement. It is good practice to follow every XML statement with a status test, such as, If Not XML-OK Go To Z.
The program is again compiled and run from the command line as follows:
cobol getstarted.cbl xmlgen(ws) noobj; run getstarted