Write not pretty print xml format

Are you referring to xml files that are created using the prexml preprocessor?

Example:

$set preprocess(prexml) endp

select doc     assign address of mybuf

                     organization is xml

                     document-type is external doc-type

                     file status is doc-status.

xd doc.

01  root-tag            identified by root-tag-name.

    10  root-tag-name   pic x(80).

...

Thanks.

No, we referring to xml files that are created into cobol files (.CBL files).

Example:

     *

      INPUT-OUTPUT SECTION.

     *---------------------

      FILE-CONTROL.

     *-------------

          SELECT IBTFOETT ASSIGN TO FICH-XML-PAC8

                          ORGANIZATION IS XML

                          DOCUMENT-TYPE IS

                          "/sci/ficheros/data/SEPA/pacs.008.001.02.xsd"

                          CHECK VALIDITY ON INPUT

                          FILE STATUS IS FS-IBTFOETT.

     *

     *

      DATA DIVISION.

     *--------------

      FILE SECTION.

     *-------------

     *

      XD  IBTFOETT.

          01 TR-Document identified by "Document" count in

              TR-Document-count.

              02 TR-FIToFICstmrCdtTrf identified by "FIToFICstmrCdtTrf"

                 count in TR-FIToFICstmrCdtTrf-count.

                  03 TR-GrpHdr identified by "GrpHdr" count in

                      TR-GrpHdr-count.

     *-----------------------------------------------------------------

                      COPY IBTCCABT.

     *-----------------------------------------------------------------

                  03 TR-CdtTrfTxInf identified by "CdtTrfTxInf"

                      count in  TR-CdtTrfTxInf-count.

     *-----------------------------------------------------------------

                      COPY IBTCTRAN.

     *-----------------------------------------------------------------

No, we referring to xml files that are created into cobol files (.CBL files).

Example:

     *

      INPUT-OUTPUT SECTION.

     *---------------------

      FILE-CONTROL.

     *-------------

          SELECT IBTFOETT ASSIGN TO FICH-XML-PAC8

                          ORGANIZATION IS XML

                          DOCUMENT-TYPE IS

                          "/sci/ficheros/data/SEPA/pacs.008.001.02.xsd"

                          CHECK VALIDITY ON INPUT

                          FILE STATUS IS FS-IBTFOETT.

     *

     *

      DATA DIVISION.

     *--------------

      FILE SECTION.

     *-------------

     *

      XD  IBTFOETT.

          01 TR-Document identified by "Document" count in

              TR-Document-count.

              02 TR-FIToFICstmrCdtTrf identified by "FIToFICstmrCdtTrf"

                 count in TR-FIToFICstmrCdtTrf-count.

                  03 TR-GrpHdr identified by "GrpHdr" count in

                      TR-GrpHdr-count.

     *-----------------------------------------------------------------

                      COPY IBTCCABT.

     *-----------------------------------------------------------------

                  03 TR-CdtTrfTxInf identified by "CdtTrfTxInf"

                      count in  TR-CdtTrfTxInf-count.

     *-----------------------------------------------------------------

                      COPY IBTCTRAN.

     *-----------------------------------------------------------------

Yes, that is the xml preprocessor to which I was referring.

Try adding the NOT LINE ADVANCING clause to the select statement to remove formatting from the xml file.

Example:

   select xml-stream       assign to not line advancing "myxml.xml"                      
                                      organization is xml              
                                      file status is file-status.      

Its works.

Thanks and regards.