Migration from RMCOBOL: XML Extensions

[Migrated content. Thread originally posted on 21 December 2011]

Hello,

I have this program that works correctly in RM/COBOL. It generates an XML document with the XML extensions libraries.


       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROVAXML2.
       AUTHOR. mossa.
       DATE-WRITTEN. 20080304.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. LEVEL-6.
       OBJECT-COMPUTER. LEVEL-6.
       SPECIAL-NAMES.
           DECIMAL-POINT COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAR-PROGRAMA.
          03 url                          pic x(100).
          03 xmlrespuesta                 pic x(50).           
          03  request-payload             usage pointer.
          03  response-payload            usage pointer.
          03  response-error              usage pointer.
          03  response-status             pic 9(3) value zero.
          03  response-len                pic s9(4).
          03  a-single-char               pic x.
          03  longrequest.
              05 filler                   pic x occurs 1 to 65000
                                         times depending on counters.
          03 counters                     pic 9(5).

          03 Returned-text                pic x(1031).
          03 RUTA-MODELO                  PIC X(150).
          03 RUTA-PLANTILLA               PIC X(150).
          03 IDJOB                        PIC X(100).
          03 RESULTAT-WEBSERVICE          PIC X(10).
          03 STAT-TRABAJO PIC X(2).
          03 LOC-TRABAJO  PIC X(100).     
         
       01 XML-RESPUESTA.
          03 returnResult pic x(100).               
             
       01 PATH-MODELO PIC X(100)
               VALUE "/MNG/DESA/XML/".                     
       01 PATH-PLANTILLA PIC X(100)
               VALUE "/MNG/DESA/XML/".               
               
           Copy "lixmlall.cpy".         
       
       01 parametros-ws001.                     
           02 ws001-parametres-entrada.
                03 ws001-indata.
                   04  ws001-remoteurl        pic x(30).
                   04  ws001-pcontenttype     pic x(50).
                   04  ws001-attachmentid     pic x(50).
                   04  ws001-binarydata       pic X(99999).
                   
      /
       PROCEDURE DIVISION.
       INICIO SECTION.
       INI-1.           


           INITIALIZE VAR-PROGRAMA.
           INITIALIZE parametros-ws001.           
           
           xml initialize.
           if not xml-ok then             
              DISPLAY "ERROR XML INITIALIZE"
              GO TO FIN-PROGRAMA
           end-if.
      **           
           INITIALIZE ws001-parametres-entrada.
           MOVE "12345" TO ws001-binarydata.
             
           MOVE SPACES TO RUTA-MODELO
           STRING
               PATH-MODELO
                DELIMITED BY SPACES
               "BASE0085-WS1"
                DELIMITED BY SIZE
           INTO RUTA-MODELO.
             
           MOVE SPACES TO RUTA-PLANTILLA
           STRING
               PATH-PLANTILLA
                DELIMITED BY SPACES
               "BASE0085-WS1PL.XSL"
                DELIMITED BY SIZE
           INTO RUTA-PLANTILLA.
                       
           DISPLAY "RUTA-MODEL: ", RUTA-MODELO
           DISPLAY "RUTA-PLANTILLA: ", RUTA-PLANTILLA
           XML EXPORT TEXT
               ws001-parametres-entrada
               request-payload
               RUTA-MODELO
               RUTA-PLANTILLA.
               
           if not XML-OK then
               DISPLAY "ERROR EXPORT"
           end-if.
      **     
           xml put text
               request-payload
               "./P1".
           if not xml-ok then             
              DISPLAY  "ERROR " XML-STATUS " EN XML PUT"
              stop run
           else
              DISPLAY  "OK. THE PROGRAM HAS GENERATED: ./P1.xml"
           end-if.
      **     
           XML TERMINATE.
       
       FIN-PROGRAMA.                         
           GOBACK.

But when I want to compile/build it with Visual Cobol I receive the next error:

os.init:

os.init.windows:

os.init.unix:

init:

pre.build.cfg.New_Configuration:

os.init:

os.init.windows:

os.init.unix:

init:

cfg.New_Configuration:
    [cobol]
    [cobol] Compiling (64-bit) PROVAXML2.cbl...
    [cobol] * 019-C Program checked with non-optimal alignment. Optimal alignment is 8
    [cobol] * 013-R Illegal intermediate code (at 0X349 in seg 0)
    [cobol] cob64: error(s) in code generation: /MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/outEcl/PROVAXML2.int
    [cobol] Compilation complete with 0 errors, 0 warnings, 0 notices and an exit code of 1
[cobollink] Linking (64-bit) PROVAXML2.so...
[cobollink] cob64: error opening: PROVAXML2.o
[cobollink] Link complete with errors
[cobollink]


BUILD FAILED
Build finished with 1 errors, 0 warnings, 0 notices and a maximum exit code of 1

/MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/.cobolBuild:142: Build errors have occurred

Total time: 0 seconds



The program resides on a remote AIX server. I've tried to compile the program from the same remote server using the "cob" command, and also from Eclipse (Windows), and in both cases I get the same error.

I've used the next compiler directives

SHOW-DIR
CALLFH(ACUFH)
RM "GIVING"
RM "ANSI"
NOOPTIONAL-FILE
REMOVE"TIMEOUT"


I think maybe I have to attach a library of XML Extensions but I do not know how ..


Where can be the problem?


Thanks in advance

The RM COBOL XML Extensions are currently only supported in native code under Windows platforms and not on Unix platforms.

I am unsure as to the current plan for implementing XML Extensions under Unix/Linux.

Perhaps Product Management could chime in here and enlighten us?

[Migrated content. Thread originally posted on 21 December 2011]

Hello,

I have this program that works correctly in RM/COBOL. It generates an XML document with the XML extensions libraries.


       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROVAXML2.
       AUTHOR. mossa.
       DATE-WRITTEN. 20080304.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. LEVEL-6.
       OBJECT-COMPUTER. LEVEL-6.
       SPECIAL-NAMES.
           DECIMAL-POINT COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAR-PROGRAMA.
          03 url                          pic x(100).
          03 xmlrespuesta                 pic x(50).           
          03  request-payload             usage pointer.
          03  response-payload            usage pointer.
          03  response-error              usage pointer.
          03  response-status             pic 9(3) value zero.
          03  response-len                pic s9(4).
          03  a-single-char               pic x.
          03  longrequest.
              05 filler                   pic x occurs 1 to 65000
                                         times depending on counters.
          03 counters                     pic 9(5).

          03 Returned-text                pic x(1031).
          03 RUTA-MODELO                  PIC X(150).
          03 RUTA-PLANTILLA               PIC X(150).
          03 IDJOB                        PIC X(100).
          03 RESULTAT-WEBSERVICE          PIC X(10).
          03 STAT-TRABAJO PIC X(2).
          03 LOC-TRABAJO  PIC X(100).     
         
       01 XML-RESPUESTA.
          03 returnResult pic x(100).               
             
       01 PATH-MODELO PIC X(100)
               VALUE "/MNG/DESA/XML/".                     
       01 PATH-PLANTILLA PIC X(100)
               VALUE "/MNG/DESA/XML/".               
               
           Copy "lixmlall.cpy".         
       
       01 parametros-ws001.                     
           02 ws001-parametres-entrada.
                03 ws001-indata.
                   04  ws001-remoteurl        pic x(30).
                   04  ws001-pcontenttype     pic x(50).
                   04  ws001-attachmentid     pic x(50).
                   04  ws001-binarydata       pic X(99999).
                   
      /
       PROCEDURE DIVISION.
       INICIO SECTION.
       INI-1.           


           INITIALIZE VAR-PROGRAMA.
           INITIALIZE parametros-ws001.           
           
           xml initialize.
           if not xml-ok then             
              DISPLAY "ERROR XML INITIALIZE"
              GO TO FIN-PROGRAMA
           end-if.
      **           
           INITIALIZE ws001-parametres-entrada.
           MOVE "12345" TO ws001-binarydata.
             
           MOVE SPACES TO RUTA-MODELO
           STRING
               PATH-MODELO
                DELIMITED BY SPACES
               "BASE0085-WS1"
                DELIMITED BY SIZE
           INTO RUTA-MODELO.
             
           MOVE SPACES TO RUTA-PLANTILLA
           STRING
               PATH-PLANTILLA
                DELIMITED BY SPACES
               "BASE0085-WS1PL.XSL"
                DELIMITED BY SIZE
           INTO RUTA-PLANTILLA.
                       
           DISPLAY "RUTA-MODEL: ", RUTA-MODELO
           DISPLAY "RUTA-PLANTILLA: ", RUTA-PLANTILLA
           XML EXPORT TEXT
               ws001-parametres-entrada
               request-payload
               RUTA-MODELO
               RUTA-PLANTILLA.
               
           if not XML-OK then
               DISPLAY "ERROR EXPORT"
           end-if.
      **     
           xml put text
               request-payload
               "./P1".
           if not xml-ok then             
              DISPLAY  "ERROR " XML-STATUS " EN XML PUT"
              stop run
           else
              DISPLAY  "OK. THE PROGRAM HAS GENERATED: ./P1.xml"
           end-if.
      **     
           XML TERMINATE.
       
       FIN-PROGRAMA.                         
           GOBACK.

But when I want to compile/build it with Visual Cobol I receive the next error:

os.init:

os.init.windows:

os.init.unix:

init:

pre.build.cfg.New_Configuration:

os.init:

os.init.windows:

os.init.unix:

init:

cfg.New_Configuration:
    [cobol]
    [cobol] Compiling (64-bit) PROVAXML2.cbl...
    [cobol] * 019-C Program checked with non-optimal alignment. Optimal alignment is 8
    [cobol] * 013-R Illegal intermediate code (at 0X349 in seg 0)
    [cobol] cob64: error(s) in code generation: /MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/outEcl/PROVAXML2.int
    [cobol] Compilation complete with 0 errors, 0 warnings, 0 notices and an exit code of 1
[cobollink] Linking (64-bit) PROVAXML2.so...
[cobollink] cob64: error opening: PROVAXML2.o
[cobollink] Link complete with errors
[cobollink]


BUILD FAILED
Build finished with 1 errors, 0 warnings, 0 notices and a maximum exit code of 1

/MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/.cobolBuild:142: Build errors have occurred

Total time: 0 seconds



The program resides on a remote AIX server. I've tried to compile the program from the same remote server using the "cob" command, and also from Eclipse (Windows), and in both cases I get the same error.

I've used the next compiler directives

SHOW-DIR
CALLFH(ACUFH)
RM "GIVING"
RM "ANSI"
NOOPTIONAL-FILE
REMOVE"TIMEOUT"


I think maybe I have to attach a library of XML Extensions but I do not know how ..


Where can be the problem?


Thanks in advance

Hello Chris,

You mean that the RM COBOL XML Extensions aren't supported in native code under linux plataforms in VisualCobol system, isnt'it?

I have tested the previous program (native code) under linux plataforms but in a RM/COBOL system, and it works correctly..

Thank you

[Migrated content. Thread originally posted on 21 December 2011]

Hello,

I have this program that works correctly in RM/COBOL. It generates an XML document with the XML extensions libraries.


       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROVAXML2.
       AUTHOR. mossa.
       DATE-WRITTEN. 20080304.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. LEVEL-6.
       OBJECT-COMPUTER. LEVEL-6.
       SPECIAL-NAMES.
           DECIMAL-POINT COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAR-PROGRAMA.
          03 url                          pic x(100).
          03 xmlrespuesta                 pic x(50).           
          03  request-payload             usage pointer.
          03  response-payload            usage pointer.
          03  response-error              usage pointer.
          03  response-status             pic 9(3) value zero.
          03  response-len                pic s9(4).
          03  a-single-char               pic x.
          03  longrequest.
              05 filler                   pic x occurs 1 to 65000
                                         times depending on counters.
          03 counters                     pic 9(5).

          03 Returned-text                pic x(1031).
          03 RUTA-MODELO                  PIC X(150).
          03 RUTA-PLANTILLA               PIC X(150).
          03 IDJOB                        PIC X(100).
          03 RESULTAT-WEBSERVICE          PIC X(10).
          03 STAT-TRABAJO PIC X(2).
          03 LOC-TRABAJO  PIC X(100).     
         
       01 XML-RESPUESTA.
          03 returnResult pic x(100).               
             
       01 PATH-MODELO PIC X(100)
               VALUE "/MNG/DESA/XML/".                     
       01 PATH-PLANTILLA PIC X(100)
               VALUE "/MNG/DESA/XML/".               
               
           Copy "lixmlall.cpy".         
       
       01 parametros-ws001.                     
           02 ws001-parametres-entrada.
                03 ws001-indata.
                   04  ws001-remoteurl        pic x(30).
                   04  ws001-pcontenttype     pic x(50).
                   04  ws001-attachmentid     pic x(50).
                   04  ws001-binarydata       pic X(99999).
                   
      /
       PROCEDURE DIVISION.
       INICIO SECTION.
       INI-1.           


           INITIALIZE VAR-PROGRAMA.
           INITIALIZE parametros-ws001.           
           
           xml initialize.
           if not xml-ok then             
              DISPLAY "ERROR XML INITIALIZE"
              GO TO FIN-PROGRAMA
           end-if.
      **           
           INITIALIZE ws001-parametres-entrada.
           MOVE "12345" TO ws001-binarydata.
             
           MOVE SPACES TO RUTA-MODELO
           STRING
               PATH-MODELO
                DELIMITED BY SPACES
               "BASE0085-WS1"
                DELIMITED BY SIZE
           INTO RUTA-MODELO.
             
           MOVE SPACES TO RUTA-PLANTILLA
           STRING
               PATH-PLANTILLA
                DELIMITED BY SPACES
               "BASE0085-WS1PL.XSL"
                DELIMITED BY SIZE
           INTO RUTA-PLANTILLA.
                       
           DISPLAY "RUTA-MODEL: ", RUTA-MODELO
           DISPLAY "RUTA-PLANTILLA: ", RUTA-PLANTILLA
           XML EXPORT TEXT
               ws001-parametres-entrada
               request-payload
               RUTA-MODELO
               RUTA-PLANTILLA.
               
           if not XML-OK then
               DISPLAY "ERROR EXPORT"
           end-if.
      **     
           xml put text
               request-payload
               "./P1".
           if not xml-ok then             
              DISPLAY  "ERROR " XML-STATUS " EN XML PUT"
              stop run
           else
              DISPLAY  "OK. THE PROGRAM HAS GENERATED: ./P1.xml"
           end-if.
      **     
           XML TERMINATE.
       
       FIN-PROGRAMA.                         
           GOBACK.

But when I want to compile/build it with Visual Cobol I receive the next error:

os.init:

os.init.windows:

os.init.unix:

init:

pre.build.cfg.New_Configuration:

os.init:

os.init.windows:

os.init.unix:

init:

cfg.New_Configuration:
    [cobol]
    [cobol] Compiling (64-bit) PROVAXML2.cbl...
    [cobol] * 019-C Program checked with non-optimal alignment. Optimal alignment is 8
    [cobol] * 013-R Illegal intermediate code (at 0X349 in seg 0)
    [cobol] cob64: error(s) in code generation: /MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/outEcl/PROVAXML2.int
    [cobol] Compilation complete with 0 errors, 0 warnings, 0 notices and an exit code of 1
[cobollink] Linking (64-bit) PROVAXML2.so...
[cobollink] cob64: error opening: PROVAXML2.o
[cobollink] Link complete with errors
[cobollink]


BUILD FAILED
Build finished with 1 errors, 0 warnings, 0 notices and a maximum exit code of 1

/MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/.cobolBuild:142: Build errors have occurred

Total time: 0 seconds



The program resides on a remote AIX server. I've tried to compile the program from the same remote server using the "cob" command, and also from Eclipse (Windows), and in both cases I get the same error.

I've used the next compiler directives

SHOW-DIR
CALLFH(ACUFH)
RM "GIVING"
RM "ANSI"
NOOPTIONAL-FILE
REMOVE"TIMEOUT"


I think maybe I have to attach a library of XML Extensions but I do not know how ..


Where can be the problem?


Thanks in advance

Yes, that is correct, the XML Extensions are not currently supported in Visual COBOL on Unix platforms.

[Migrated content. Thread originally posted on 21 December 2011]

Hello,

I have this program that works correctly in RM/COBOL. It generates an XML document with the XML extensions libraries.


       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROVAXML2.
       AUTHOR. mossa.
       DATE-WRITTEN. 20080304.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. LEVEL-6.
       OBJECT-COMPUTER. LEVEL-6.
       SPECIAL-NAMES.
           DECIMAL-POINT COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAR-PROGRAMA.
          03 url                          pic x(100).
          03 xmlrespuesta                 pic x(50).           
          03  request-payload             usage pointer.
          03  response-payload            usage pointer.
          03  response-error              usage pointer.
          03  response-status             pic 9(3) value zero.
          03  response-len                pic s9(4).
          03  a-single-char               pic x.
          03  longrequest.
              05 filler                   pic x occurs 1 to 65000
                                         times depending on counters.
          03 counters                     pic 9(5).

          03 Returned-text                pic x(1031).
          03 RUTA-MODELO                  PIC X(150).
          03 RUTA-PLANTILLA               PIC X(150).
          03 IDJOB                        PIC X(100).
          03 RESULTAT-WEBSERVICE          PIC X(10).
          03 STAT-TRABAJO PIC X(2).
          03 LOC-TRABAJO  PIC X(100).     
         
       01 XML-RESPUESTA.
          03 returnResult pic x(100).               
             
       01 PATH-MODELO PIC X(100)
               VALUE "/MNG/DESA/XML/".                     
       01 PATH-PLANTILLA PIC X(100)
               VALUE "/MNG/DESA/XML/".               
               
           Copy "lixmlall.cpy".         
       
       01 parametros-ws001.                     
           02 ws001-parametres-entrada.
                03 ws001-indata.
                   04  ws001-remoteurl        pic x(30).
                   04  ws001-pcontenttype     pic x(50).
                   04  ws001-attachmentid     pic x(50).
                   04  ws001-binarydata       pic X(99999).
                   
      /
       PROCEDURE DIVISION.
       INICIO SECTION.
       INI-1.           


           INITIALIZE VAR-PROGRAMA.
           INITIALIZE parametros-ws001.           
           
           xml initialize.
           if not xml-ok then             
              DISPLAY "ERROR XML INITIALIZE"
              GO TO FIN-PROGRAMA
           end-if.
      **           
           INITIALIZE ws001-parametres-entrada.
           MOVE "12345" TO ws001-binarydata.
             
           MOVE SPACES TO RUTA-MODELO
           STRING
               PATH-MODELO
                DELIMITED BY SPACES
               "BASE0085-WS1"
                DELIMITED BY SIZE
           INTO RUTA-MODELO.
             
           MOVE SPACES TO RUTA-PLANTILLA
           STRING
               PATH-PLANTILLA
                DELIMITED BY SPACES
               "BASE0085-WS1PL.XSL"
                DELIMITED BY SIZE
           INTO RUTA-PLANTILLA.
                       
           DISPLAY "RUTA-MODEL: ", RUTA-MODELO
           DISPLAY "RUTA-PLANTILLA: ", RUTA-PLANTILLA
           XML EXPORT TEXT
               ws001-parametres-entrada
               request-payload
               RUTA-MODELO
               RUTA-PLANTILLA.
               
           if not XML-OK then
               DISPLAY "ERROR EXPORT"
           end-if.
      **     
           xml put text
               request-payload
               "./P1".
           if not xml-ok then             
              DISPLAY  "ERROR " XML-STATUS " EN XML PUT"
              stop run
           else
              DISPLAY  "OK. THE PROGRAM HAS GENERATED: ./P1.xml"
           end-if.
      **     
           XML TERMINATE.
       
       FIN-PROGRAMA.                         
           GOBACK.

But when I want to compile/build it with Visual Cobol I receive the next error:

os.init:

os.init.windows:

os.init.unix:

init:

pre.build.cfg.New_Configuration:

os.init:

os.init.windows:

os.init.unix:

init:

cfg.New_Configuration:
    [cobol]
    [cobol] Compiling (64-bit) PROVAXML2.cbl...
    [cobol] * 019-C Program checked with non-optimal alignment. Optimal alignment is 8
    [cobol] * 013-R Illegal intermediate code (at 0X349 in seg 0)
    [cobol] cob64: error(s) in code generation: /MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/outEcl/PROVAXML2.int
    [cobol] Compilation complete with 0 errors, 0 warnings, 0 notices and an exit code of 1
[cobollink] Linking (64-bit) PROVAXML2.so...
[cobollink] cob64: error opening: PROVAXML2.o
[cobollink] Link complete with errors
[cobollink]


BUILD FAILED
Build finished with 1 errors, 0 warnings, 0 notices and a maximum exit code of 1

/MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/.cobolBuild:142: Build errors have occurred

Total time: 0 seconds



The program resides on a remote AIX server. I've tried to compile the program from the same remote server using the "cob" command, and also from Eclipse (Windows), and in both cases I get the same error.

I've used the next compiler directives

SHOW-DIR
CALLFH(ACUFH)
RM "GIVING"
RM "ANSI"
NOOPTIONAL-FILE
REMOVE"TIMEOUT"


I think maybe I have to attach a library of XML Extensions but I do not know how ..


Where can be the problem?


Thanks in advance

Hello,

I believed that Xml Extensions were supported on Unix systems since version 2.0 (this is the version I am evaluating under an AIX right now).

I am trying to follow these instructions:

Building from your COBOL development system

This requires that you put additional code into your program that specifies use of the XML preprocessor.

Before you build your XML-enabled COBOL, you must insert the following code on the first line of your program before the Identification Division:

$set {preprocess | p}(prexml) [{out | o} (outname)] [warn]
[{preprocess | p} (ppname)] endp

where the parameters are:

{preprocess | p}
The pre-processor to be used.
{out | o} outname
The fully preprocessed output source file, outname. This output source file contains native COBOL processed from the XML syntax.
warn
Cause diagnostic warnings on parsing to be presented by PREXML.
ppname
The preprocessor name you want to use to read source files and process COPY statements. Preprocessors can be nested.

For example:

$set p(prexml) warn endp

But I am obtainig the following error:
[03500309@aixlab0102]:>VC_COMPI2 PROVA8                                         
/swmango/visualcobol2.0/devhub/bin/cob -z PROVA8.CBL -U -P                     
     2$set p(prexml) warn endp                                                 
*  53-S*****                                                           (   0)**
**    Directive P invalid or not allowed here                                   
cob64: error(s) in compilation: PROVA8.CBL                                     
I was also dealing with cbl2xml without that directive, but I got these errors after using the generated copy:
[03500309@aixlab0102]:>/swmango/visualcobol2.0/devhub/bin/cbl2xml PROVA8.CBL   
Micro Focus CBL2XML Version 7.0.3.0                                             
Copyright (C) Micro Focus 1984-2012. All rights reserved.                       
                                                                               
Checking PROVA8.CBL for errors                                                 
    16  01 rootItem identified by "rootItem" count in rootItem-count.           
* 781-S***********************                                               **
**    01 Group item must have the EXTERNAL-FORM clause.                         

[Migrated content. Thread originally posted on 21 December 2011]

Hello,

I have this program that works correctly in RM/COBOL. It generates an XML document with the XML extensions libraries.


       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROVAXML2.
       AUTHOR. mossa.
       DATE-WRITTEN. 20080304.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. LEVEL-6.
       OBJECT-COMPUTER. LEVEL-6.
       SPECIAL-NAMES.
           DECIMAL-POINT COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAR-PROGRAMA.
          03 url                          pic x(100).
          03 xmlrespuesta                 pic x(50).           
          03  request-payload             usage pointer.
          03  response-payload            usage pointer.
          03  response-error              usage pointer.
          03  response-status             pic 9(3) value zero.
          03  response-len                pic s9(4).
          03  a-single-char               pic x.
          03  longrequest.
              05 filler                   pic x occurs 1 to 65000
                                         times depending on counters.
          03 counters                     pic 9(5).

          03 Returned-text                pic x(1031).
          03 RUTA-MODELO                  PIC X(150).
          03 RUTA-PLANTILLA               PIC X(150).
          03 IDJOB                        PIC X(100).
          03 RESULTAT-WEBSERVICE          PIC X(10).
          03 STAT-TRABAJO PIC X(2).
          03 LOC-TRABAJO  PIC X(100).     
         
       01 XML-RESPUESTA.
          03 returnResult pic x(100).               
             
       01 PATH-MODELO PIC X(100)
               VALUE "/MNG/DESA/XML/".                     
       01 PATH-PLANTILLA PIC X(100)
               VALUE "/MNG/DESA/XML/".               
               
           Copy "lixmlall.cpy".         
       
       01 parametros-ws001.                     
           02 ws001-parametres-entrada.
                03 ws001-indata.
                   04  ws001-remoteurl        pic x(30).
                   04  ws001-pcontenttype     pic x(50).
                   04  ws001-attachmentid     pic x(50).
                   04  ws001-binarydata       pic X(99999).
                   
      /
       PROCEDURE DIVISION.
       INICIO SECTION.
       INI-1.           


           INITIALIZE VAR-PROGRAMA.
           INITIALIZE parametros-ws001.           
           
           xml initialize.
           if not xml-ok then             
              DISPLAY "ERROR XML INITIALIZE"
              GO TO FIN-PROGRAMA
           end-if.
      **           
           INITIALIZE ws001-parametres-entrada.
           MOVE "12345" TO ws001-binarydata.
             
           MOVE SPACES TO RUTA-MODELO
           STRING
               PATH-MODELO
                DELIMITED BY SPACES
               "BASE0085-WS1"
                DELIMITED BY SIZE
           INTO RUTA-MODELO.
             
           MOVE SPACES TO RUTA-PLANTILLA
           STRING
               PATH-PLANTILLA
                DELIMITED BY SPACES
               "BASE0085-WS1PL.XSL"
                DELIMITED BY SIZE
           INTO RUTA-PLANTILLA.
                       
           DISPLAY "RUTA-MODEL: ", RUTA-MODELO
           DISPLAY "RUTA-PLANTILLA: ", RUTA-PLANTILLA
           XML EXPORT TEXT
               ws001-parametres-entrada
               request-payload
               RUTA-MODELO
               RUTA-PLANTILLA.
               
           if not XML-OK then
               DISPLAY "ERROR EXPORT"
           end-if.
      **     
           xml put text
               request-payload
               "./P1".
           if not xml-ok then             
              DISPLAY  "ERROR " XML-STATUS " EN XML PUT"
              stop run
           else
              DISPLAY  "OK. THE PROGRAM HAS GENERATED: ./P1.xml"
           end-if.
      **     
           XML TERMINATE.
       
       FIN-PROGRAMA.                         
           GOBACK.

But when I want to compile/build it with Visual Cobol I receive the next error:

os.init:

os.init.windows:

os.init.unix:

init:

pre.build.cfg.New_Configuration:

os.init:

os.init.windows:

os.init.unix:

init:

cfg.New_Configuration:
    [cobol]
    [cobol] Compiling (64-bit) PROVAXML2.cbl...
    [cobol] * 019-C Program checked with non-optimal alignment. Optimal alignment is 8
    [cobol] * 013-R Illegal intermediate code (at 0X349 in seg 0)
    [cobol] cob64: error(s) in code generation: /MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/outEcl/PROVAXML2.int
    [cobol] Compilation complete with 0 errors, 0 warnings, 0 notices and an exit code of 1
[cobollink] Linking (64-bit) PROVAXML2.so...
[cobollink] cob64: error opening: PROVAXML2.o
[cobollink] Link complete with errors
[cobollink]


BUILD FAILED
Build finished with 1 errors, 0 warnings, 0 notices and a maximum exit code of 1

/MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/.cobolBuild:142: Build errors have occurred

Total time: 0 seconds



The program resides on a remote AIX server. I've tried to compile the program from the same remote server using the "cob" command, and also from Eclipse (Windows), and in both cases I get the same error.

I've used the next compiler directives

SHOW-DIR
CALLFH(ACUFH)
RM "GIVING"
RM "ANSI"
NOOPTIONAL-FILE
REMOVE"TIMEOUT"


I think maybe I have to attach a library of XML Extensions but I do not know how ..


Where can be the problem?


Thanks in advance

XML Extensions are available for RM/COBOL compatibility.

This is something completely different than the XMLIO preprocessor that you are referencing in your post.
This comes from Net Express/Server Express.

The XML IO preprocessor that you are trying to use is supported in Visual COBOL 2.0 Dev Hub.

We tested here and it worked fine:
>cob -v test-xml.cbl
cob64 -C nolist -v test-xml.cbl
* Micro Focus COBOL V2.0 revision 001 Compiler
* Copyright (C) Micro Focus 1984-2012. All rights reserved.
* Accepted - verbose
* Accepted - nolist
* Compiling test-xml.cbl
Micro Focus Embedded XML/HTML Preprocessor
Version a.b.cc Copyright (C) Micro Focus 1984-2012. All rights reserved.
* Total Messages: 0
* Data: 2072 Code: 321

So, the XML preprocessor is available and working in the Dev Hub.

The strange output you’re seeing:

cob -z PROVA8.CBL -U –P
2$set p(prexml) warn endp
* 53-S***** ( 0)**
** Directive P invalid or not allowed here

is caused by a syntax error in the “cob” command line.
It seems “VC_COMPI2” is issuing a “cob” command line that includes syntax errors.

Is the $set p(prexml) warn endp statement the first line in your source program or are you trying to pass this on the command line? It should be the first line in your source program.

On you second issue I am not sure what you are trying to do with CBL2XML.
This utility takes a COBOL file description as input (in a copybook) and will generate an XML enabled version of that copybook as output.

The input must be standard COBOL, not XML enabled COBOL.

This is why you are seeing those errors when you run it against a generated xml-enabled copyfile.

[Migrated content. Thread originally posted on 21 December 2011]

Hello,

I have this program that works correctly in RM/COBOL. It generates an XML document with the XML extensions libraries.


       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROVAXML2.
       AUTHOR. mossa.
       DATE-WRITTEN. 20080304.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. LEVEL-6.
       OBJECT-COMPUTER. LEVEL-6.
       SPECIAL-NAMES.
           DECIMAL-POINT COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAR-PROGRAMA.
          03 url                          pic x(100).
          03 xmlrespuesta                 pic x(50).           
          03  request-payload             usage pointer.
          03  response-payload            usage pointer.
          03  response-error              usage pointer.
          03  response-status             pic 9(3) value zero.
          03  response-len                pic s9(4).
          03  a-single-char               pic x.
          03  longrequest.
              05 filler                   pic x occurs 1 to 65000
                                         times depending on counters.
          03 counters                     pic 9(5).

          03 Returned-text                pic x(1031).
          03 RUTA-MODELO                  PIC X(150).
          03 RUTA-PLANTILLA               PIC X(150).
          03 IDJOB                        PIC X(100).
          03 RESULTAT-WEBSERVICE          PIC X(10).
          03 STAT-TRABAJO PIC X(2).
          03 LOC-TRABAJO  PIC X(100).     
         
       01 XML-RESPUESTA.
          03 returnResult pic x(100).               
             
       01 PATH-MODELO PIC X(100)
               VALUE "/MNG/DESA/XML/".                     
       01 PATH-PLANTILLA PIC X(100)
               VALUE "/MNG/DESA/XML/".               
               
           Copy "lixmlall.cpy".         
       
       01 parametros-ws001.                     
           02 ws001-parametres-entrada.
                03 ws001-indata.
                   04  ws001-remoteurl        pic x(30).
                   04  ws001-pcontenttype     pic x(50).
                   04  ws001-attachmentid     pic x(50).
                   04  ws001-binarydata       pic X(99999).
                   
      /
       PROCEDURE DIVISION.
       INICIO SECTION.
       INI-1.           


           INITIALIZE VAR-PROGRAMA.
           INITIALIZE parametros-ws001.           
           
           xml initialize.
           if not xml-ok then             
              DISPLAY "ERROR XML INITIALIZE"
              GO TO FIN-PROGRAMA
           end-if.
      **           
           INITIALIZE ws001-parametres-entrada.
           MOVE "12345" TO ws001-binarydata.
             
           MOVE SPACES TO RUTA-MODELO
           STRING
               PATH-MODELO
                DELIMITED BY SPACES
               "BASE0085-WS1"
                DELIMITED BY SIZE
           INTO RUTA-MODELO.
             
           MOVE SPACES TO RUTA-PLANTILLA
           STRING
               PATH-PLANTILLA
                DELIMITED BY SPACES
               "BASE0085-WS1PL.XSL"
                DELIMITED BY SIZE
           INTO RUTA-PLANTILLA.
                       
           DISPLAY "RUTA-MODEL: ", RUTA-MODELO
           DISPLAY "RUTA-PLANTILLA: ", RUTA-PLANTILLA
           XML EXPORT TEXT
               ws001-parametres-entrada
               request-payload
               RUTA-MODELO
               RUTA-PLANTILLA.
               
           if not XML-OK then
               DISPLAY "ERROR EXPORT"
           end-if.
      **     
           xml put text
               request-payload
               "./P1".
           if not xml-ok then             
              DISPLAY  "ERROR " XML-STATUS " EN XML PUT"
              stop run
           else
              DISPLAY  "OK. THE PROGRAM HAS GENERATED: ./P1.xml"
           end-if.
      **     
           XML TERMINATE.
       
       FIN-PROGRAMA.                         
           GOBACK.

But when I want to compile/build it with Visual Cobol I receive the next error:

os.init:

os.init.windows:

os.init.unix:

init:

pre.build.cfg.New_Configuration:

os.init:

os.init.windows:

os.init.unix:

init:

cfg.New_Configuration:
    [cobol]
    [cobol] Compiling (64-bit) PROVAXML2.cbl...
    [cobol] * 019-C Program checked with non-optimal alignment. Optimal alignment is 8
    [cobol] * 013-R Illegal intermediate code (at 0X349 in seg 0)
    [cobol] cob64: error(s) in code generation: /MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/outEcl/PROVAXML2.int
    [cobol] Compilation complete with 0 errors, 0 warnings, 0 notices and an exit code of 1
[cobollink] Linking (64-bit) PROVAXML2.so...
[cobollink] cob64: error opening: PROVAXML2.o
[cobollink] Link complete with errors
[cobollink]


BUILD FAILED
Build finished with 1 errors, 0 warnings, 0 notices and a maximum exit code of 1

/MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/.cobolBuild:142: Build errors have occurred

Total time: 0 seconds



The program resides on a remote AIX server. I've tried to compile the program from the same remote server using the "cob" command, and also from Eclipse (Windows), and in both cases I get the same error.

I've used the next compiler directives

SHOW-DIR
CALLFH(ACUFH)
RM "GIVING"
RM "ANSI"
NOOPTIONAL-FILE
REMOVE"TIMEOUT"


I think maybe I have to attach a library of XML Extensions but I do not know how ..


Where can be the problem?


Thanks in advance

Chris Glazier originally wrote:

XML Extensions are available for RM/COBOL compatibility.

This is something completely different than the XMLIO preprocessor that you are referencing in your post.
This comes from Net Express/Server Express.

The XML IO preprocessor that you are trying to use is supported in Visual COBOL 2.0 Dev Hub.

We tested here and it worked fine:
>cob -v test-xml.cbl
cob64 -C nolist -v test-xml.cbl
* Micro Focus COBOL V2.0 revision 001 Compiler
* Copyright (C) Micro Focus 1984-2012. All rights reserved.
* Accepted - verbose
* Accepted - nolist
* Compiling test-xml.cbl
Micro Focus Embedded XML/HTML Preprocessor
Version a.b.cc Copyright (C) Micro Focus 1984-2012. All rights reserved.
* Total Messages: 0
* Data: 2072 Code: 321

So, the XML preprocessor is available and working in the Dev Hub.

The strange output you’re seeing:

cob -z PROVA8.CBL -U –P
2$set p(prexml) warn endp
* 53-S***** ( 0)**
** Directive P invalid or not allowed here

is caused by a syntax error in the “cob” command line.
It seems “VC_COMPI2” is issuing a “cob” command line that includes syntax errors.

Is the $set p(prexml) warn endp statement the first line in your source program or are you trying to pass this on the command line? It should be the first line in your source program.

Yes, the set directive is the first line in my program.

Chris Glazier originally wrote:

On you second issue I am not sure what you are trying to do with CBL2XML.
This utility takes a COBOL file description as input (in a copybook) and will generate an XML enabled version of that copybook as output.

The input must be standard COBOL, not XML enabled COBOL.

This is why you are seeing those errors when you run it against a generated xml-enabled copyfile.

I use cbl2xml to generate the Xml version of the copybook and then I substitute mine by the generated one.

[Migrated content. Thread originally posted on 21 December 2011]

Hello,

I have this program that works correctly in RM/COBOL. It generates an XML document with the XML extensions libraries.


       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROVAXML2.
       AUTHOR. mossa.
       DATE-WRITTEN. 20080304.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. LEVEL-6.
       OBJECT-COMPUTER. LEVEL-6.
       SPECIAL-NAMES.
           DECIMAL-POINT COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAR-PROGRAMA.
          03 url                          pic x(100).
          03 xmlrespuesta                 pic x(50).           
          03  request-payload             usage pointer.
          03  response-payload            usage pointer.
          03  response-error              usage pointer.
          03  response-status             pic 9(3) value zero.
          03  response-len                pic s9(4).
          03  a-single-char               pic x.
          03  longrequest.
              05 filler                   pic x occurs 1 to 65000
                                         times depending on counters.
          03 counters                     pic 9(5).

          03 Returned-text                pic x(1031).
          03 RUTA-MODELO                  PIC X(150).
          03 RUTA-PLANTILLA               PIC X(150).
          03 IDJOB                        PIC X(100).
          03 RESULTAT-WEBSERVICE          PIC X(10).
          03 STAT-TRABAJO PIC X(2).
          03 LOC-TRABAJO  PIC X(100).     
         
       01 XML-RESPUESTA.
          03 returnResult pic x(100).               
             
       01 PATH-MODELO PIC X(100)
               VALUE "/MNG/DESA/XML/".                     
       01 PATH-PLANTILLA PIC X(100)
               VALUE "/MNG/DESA/XML/".               
               
           Copy "lixmlall.cpy".         
       
       01 parametros-ws001.                     
           02 ws001-parametres-entrada.
                03 ws001-indata.
                   04  ws001-remoteurl        pic x(30).
                   04  ws001-pcontenttype     pic x(50).
                   04  ws001-attachmentid     pic x(50).
                   04  ws001-binarydata       pic X(99999).
                   
      /
       PROCEDURE DIVISION.
       INICIO SECTION.
       INI-1.           


           INITIALIZE VAR-PROGRAMA.
           INITIALIZE parametros-ws001.           
           
           xml initialize.
           if not xml-ok then             
              DISPLAY "ERROR XML INITIALIZE"
              GO TO FIN-PROGRAMA
           end-if.
      **           
           INITIALIZE ws001-parametres-entrada.
           MOVE "12345" TO ws001-binarydata.
             
           MOVE SPACES TO RUTA-MODELO
           STRING
               PATH-MODELO
                DELIMITED BY SPACES
               "BASE0085-WS1"
                DELIMITED BY SIZE
           INTO RUTA-MODELO.
             
           MOVE SPACES TO RUTA-PLANTILLA
           STRING
               PATH-PLANTILLA
                DELIMITED BY SPACES
               "BASE0085-WS1PL.XSL"
                DELIMITED BY SIZE
           INTO RUTA-PLANTILLA.
                       
           DISPLAY "RUTA-MODEL: ", RUTA-MODELO
           DISPLAY "RUTA-PLANTILLA: ", RUTA-PLANTILLA
           XML EXPORT TEXT
               ws001-parametres-entrada
               request-payload
               RUTA-MODELO
               RUTA-PLANTILLA.
               
           if not XML-OK then
               DISPLAY "ERROR EXPORT"
           end-if.
      **     
           xml put text
               request-payload
               "./P1".
           if not xml-ok then             
              DISPLAY  "ERROR " XML-STATUS " EN XML PUT"
              stop run
           else
              DISPLAY  "OK. THE PROGRAM HAS GENERATED: ./P1.xml"
           end-if.
      **     
           XML TERMINATE.
       
       FIN-PROGRAMA.                         
           GOBACK.

But when I want to compile/build it with Visual Cobol I receive the next error:

os.init:

os.init.windows:

os.init.unix:

init:

pre.build.cfg.New_Configuration:

os.init:

os.init.windows:

os.init.unix:

init:

cfg.New_Configuration:
    [cobol]
    [cobol] Compiling (64-bit) PROVAXML2.cbl...
    [cobol] * 019-C Program checked with non-optimal alignment. Optimal alignment is 8
    [cobol] * 013-R Illegal intermediate code (at 0X349 in seg 0)
    [cobol] cob64: error(s) in code generation: /MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/outEcl/PROVAXML2.int
    [cobol] Compilation complete with 0 errors, 0 warnings, 0 notices and an exit code of 1
[cobollink] Linking (64-bit) PROVAXML2.so...
[cobollink] cob64: error opening: PROVAXML2.o
[cobollink] Link complete with errors
[cobollink]


BUILD FAILED
Build finished with 1 errors, 0 warnings, 0 notices and a maximum exit code of 1

/MNG/DESA/FUENTES/EQBASE/visual_cobol/provaRemot6_XML/.cobolBuild:142: Build errors have occurred

Total time: 0 seconds



The program resides on a remote AIX server. I've tried to compile the program from the same remote server using the "cob" command, and also from Eclipse (Windows), and in both cases I get the same error.

I've used the next compiler directives

SHOW-DIR
CALLFH(ACUFH)
RM "GIVING"
RM "ANSI"
NOOPTIONAL-FILE
REMOVE"TIMEOUT"


I think maybe I have to attach a library of XML Extensions but I do not know how ..


Where can be the problem?


Thanks in advance

Chris Glazier originally wrote:

XML Extensions are available for RM/COBOL compatibility.

This is something completely different than the XMLIO preprocessor that you are referencing in your post.
This comes from Net Express/Server Express.

The XML IO preprocessor that you are trying to use is supported in Visual COBOL 2.0 Dev Hub.

We tested here and it worked fine:
>cob -v test-xml.cbl
cob64 -C nolist -v test-xml.cbl
* Micro Focus COBOL V2.0 revision 001 Compiler
* Copyright (C) Micro Focus 1984-2012. All rights reserved.
* Accepted - verbose
* Accepted - nolist
* Compiling test-xml.cbl
Micro Focus Embedded XML/HTML Preprocessor
Version a.b.cc Copyright (C) Micro Focus 1984-2012. All rights reserved.
* Total Messages: 0
* Data: 2072 Code: 321

So, the XML preprocessor is available and working in the Dev Hub.

The strange output you’re seeing:

cob -z PROVA8.CBL -U –P
2$set p(prexml) warn endp
* 53-S***** ( 0)**
** Directive P invalid or not allowed here

is caused by a syntax error in the “cob” command line.
It seems “VC_COMPI2” is issuing a “cob” command line that includes syntax errors.

Is the $set p(prexml) warn endp statement the first line in your source program or are you trying to pass this on the command line? It should be the first line in your source program.

Yes, the set directive is the first line in my program.

Chris Glazier originally wrote:

On you second issue I am not sure what you are trying to do with CBL2XML.
This utility takes a COBOL file description as input (in a copybook) and will generate an XML enabled version of that copybook as output.

The input must be standard COBOL, not XML enabled COBOL.

This is why you are seeing those errors when you run it against a generated xml-enabled copyfile.

I use cbl2xml to generate the Xml version of the copybook and then I substitute mine by the generated one.