Skip to main content

In the applications we have mounted on HP-UX to write the XML using the command "write" are always written with pretty print format, ie with tabs.

Is there any way that these XML are written without this pretty print format?

Regards.

In the applications we have mounted on HP-UX to write the XML using the command "write" are always written with pretty print format, ie with tabs.

Is there any way that these XML are written without this pretty print format?

Regards.

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.

In the applications we have mounted on HP-UX to write the XML using the command "write" are always written with pretty print format, ie with tabs.

Is there any way that these XML are written without this pretty print format?

Regards.

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.

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

In the applications we have mounted on HP-UX to write the XML using the command "write" are always written with pretty print format, ie with tabs.

Is there any way that these XML are written without this pretty print format?

Regards.

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.

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

In the applications we have mounted on HP-UX to write the XML using the command "write" are always written with pretty print format, ie with tabs.

Is there any way that these XML are written without this pretty print format?

Regards.

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.      

In the applications we have mounted on HP-UX to write the XML using the command "write" are always written with pretty print format, ie with tabs.

Is there any way that these XML are written without this pretty print format?

Regards.

Its works.

Thanks and regards.

Terms & ConditionsAccessibility statement