Problem:

Customer was creating the XML XD description using the following:

XD  XML-SOURCE-IN                                  

      LABEL RECORDS ARE STANDARD                     

      RECORDING MODE IS F                            

      BLOCK CONTAINS 0.                              

and when compiled would receive an error which pointed to the SELECT statement for XML-SOURCE-IN.

Resolution:

When using the XML file extensions the standard COBOL file I-O clauses are not allowed in the XD paragraph.

It should instead look like the following:

XD  XML-SOURCE-IN.

The SELECT statement should also include a FILE STATUS clause and the status should be defined as a PIC S9(9) data item in WORKING-STORAGE.