I have an XML server in production and it meets big demands.
But lately I'm having problems that in reading the XML input I'm getting the -9 error.
When analyzing the error I verified that it is returned when the input of the XML is very large, in this case 10251 bytes.
I made some tests opening the input as a sequential file with the input: "CI" (input) and moving the string, for a variable and reading it, the same error did not occur, I was able to read the xml normally.
It seems to me that COBOL has some limitation for the ": CGI:", because I tested with a smaller content and the error did not occur.
I am sending a sample program where you can simulate the error and the xml that is sent and the error occurs. For the program to terminate without error, only decrease the XML that the error will not occur.
In the example program if you uncomment the line '* SELECT XML-FILE ASSIGN ADDRESS OF MY-FILLE' and comment 'SELECT XML-FILE ASSIGN TO: CGI: ", and uncomment the string with the xml that is mounted, you will verify that the error does not occur.
This program is giving me a lot of work because my server is in production and I'm having a lot of errors, and my clients are complaining.
------------------------------------------------------------------
example.cbl
------------------------------------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
* SELECT XML-FILE ASSIGN ADDRESS OF MY-FILLE
SELECT XML-FILE ASSIGN TO ":CGI:"
ORGANIZATION IS XML
DOCUMENT-TYPE IS OMITTED
FILE STATUS IS XML-FILE-STATUS.
DATA DIVISION.
FILE SECTION.
XD XML-FILE.
01 XML-SOPHUS IDENTIFIED BY "SophusBusiness"
COUNT IN XML-SOPHUS-COUNT.
03 XML-SOLICITACAO IDENTIFIED BY "solicitacao"
COUNT IN XML-SOLICITACAO-COUNT.
05 XML-VERSAO PIC X(20) IDENTIFIED
BY "versao"
COUNT IN XML-VERSAO-COUNT.
05 XML-OPERADOR PIC 9(08) IDENTIFIED
BY "operador"
COUNT IN XML-OPERADOR-COUNT.
05 XML-SENHA PIC X(16) IDENTIFIED
BY "senha"
COUNT IN XML-SENHA-COUNT.
05 XML-UUID PIC X(80) IDENTIFIED
BY "uuid"
COUNT IN XML-UUID-COUNT.
05 XML-MODULO PIC 9(02) IDENTIFIED
BY "modulo"
COUNT IN XML-MODULO-COUNT.
05 XML-SUBMODULO PIC 9(02) IDENTIFIED
BY "submodulo"
COUNT IN XML-SUBMODULO-COUNT.
05 XML-OPERACAO PIC 9(02) IDENTIFIED
BY "operacao"
COUNT IN XML-OPERACAO-COUNT.
05 XML-DEVICE PIC X(200) IDENTIFIED
BY "device"
COUNT IN XML-DEVICE-COUNT.
05 XML-CORDOVA PIC X(200) IDENTIFIED
BY "cordova"
COUNT IN XML-CORDOVA-COUNT.
05 XML-MODEL PIC X(200) IDENTIFIED
BY "model"
COUNT IN XML-MODEL-COUNT.
05 XML-PLATFORM PIC X(200) IDENTIFIED
BY "platform"
COUNT IN XML-PLATFORM-COUNT.
05 XML-VERSION PIC X(200) IDENTIFIED
BY "version"
COUNT IN XML-VERSION-COUNT.
05 XML-MANUFACTURER PIC X(200) IDENTIFIED
BY "manufacturer"
COUNT IN XML-MANUFACTURER-COUNT.
05 XML-ISVIRTUAL PIC X(200) IDENTIFIED
BY "isVirtual"
COUNT IN XML-ISVIRTUAL-COUNT.
05 XML-SERIAL PIC X(200) IDENTIFIED
BY "serial"
COUNT IN XML-SERIAL-COUNT.
05 XML-TOKENCELULAR PIC X(200) IDENTIFIED
BY "tokenCelular"
COUNT IN XML-TOKENCELULAR-COUNT.
05 XML-INFORMACOESSIM PIC X(999) IDENTIFIED
BY "informcoesSIM"
COUNT IN XML-INFORMACOESSIM-COUNT.
* DADOS PARA CONSULTA ASSOCIADO
05 XML-TIPOPESQ PIC 9(02) IDENTIFIED
BY "tipopesq"
COUNT IN XML-TIPOPESQ-COUNT.
05 XML-PESQUISA PIC X(120) IDENTIFIED
BY "pesquisa"
COUNT IN XML-PESQUISA-COUNT.
* DADOS PARA AUTORIZACAO DE PAGAMENTO
05 XML-NUM-BORDERO PIC 9(10) IDENTIFIED
BY "bordero"
COUNT IN XML-NUM-BORDERO-COUNT.
05 XML-ID-LANC PIC X(17) IDENTIFIED
BY "idlanc"
COUNT IN XML-ID-LANC-COUNT.
05 XML-ORIGEM-LANC PIC X(01) IDENTIFIED
BY "origem"
COUNT IN XML-ORIGEM-LANC-COUNT.
05 XML-ROWID-LANC PIC X(32) IDENTIFIED
BY "rowid"
COUNT IN XML-ROWID-LANC-COUNT.
05 XML-MOTIVO-LANC PIC X(600) IDENTIFIED
BY "motivo"
COUNT IN XML-MOTIVO-LANC-COUNT.
05 XML-FUNC-LANC PIC 9(08) IDENTIFIED
BY "funcLanc"
COUNT IN XML-FUNC-LANC-COUNT.
05 XML-MULT-BORDEROS IDENTIFIED BY "borderos"
COUNT IN XML-MULT-BORDEROS-COUNT.
07 XML-MULT-BORDERO PIC 9(10) IDENTIFIED
BY "bordero"
COUNT IN XML-MULT-BORDERO-COUNT.
* UTILIZADO PARA LISTAGEM POR DATAS
05 XML-DATAI PIC X(08) IDENTIFIED
BY "dataI"
COUNT IN XML-DATAI-COUNT.
05 XML-DATAF PIC X(08) IDENTIFIED
BY "dataF"
COUNT IN XML-DATAF-COUNT.
* UTILIZADO QUANDO APROVAÇÃO POR LANÇAMENTO
05 XML-MULT-LANCS IDENTIFIED BY "lancamentos"
COUNT IN XML-MULT-LANCS-COUNT.
07 XML-MULT-LANC PIC X(32) IDENTIFIED
BY "lancamento"
COUNT IN XML-MULT-LANC-COUNT.
* DADOS PARA CONSULTA CONVENIO
05 XML-CONVENIO-REGI PIC 9(08) IDENTIFIED
BY "convRegi"
COUNT IN XML-CONVENIO-COD-COUNT.
05 XML-CONVENIO-COD PIC 9(05) IDENTIFIED
BY "convenio"
COUNT IN XML-CONVENIO-COD-COUNT.
05 XML-CONVENIO-CODTIT PIC 9(08) IDENTIFIED
BY "titular"
COUNT IN XML-CONVENIO-CODTIT-COUNT.
05 XML-CONVENIO-CODDEP PIC 9(08) IDENTIFIED
BY "dependente"
COUNT IN XML-CONVENIO-CODDEP-COUNT.
* DADOS PARA EXCLUSAO E RESPOSTA DA MENSAGEM
05 XML-MULT-MSGS IDENTIFIED BY "mensagens"
COUNT IN XML-MULT-MSGS-COUNT.
07 XML-MULT-MSG IDENTIFIED BY "mensagem"
COUNT IN XML-MULT-MSG-COUNT.
09 XML-MENSAGEM-CHAVE PIC X(20) IDENTIFIED
BY "chave"
COUNT IN XML-MENSAGEM-CHAVE-COUNT.
09 XML-MENSAGEM-TEXTO PIC X(4000) IDENTIFIED
BY "texto"
COUNT IN XML-MENSAGEM-TEXTO-COUNT.
03 XML-STATUS IDENTIFIED BY "status"
COUNT IN XML-STATUS-COUNT.
05 XML-ERRO PIC 9(02) IDENTIFIED
BY "erro"
COUNT IN XML-ERRO-COUNT.
05 XML-MSG PIC X(300) IDENTIFIED
BY "msg"
COUNT IN XML-MSG-COUNT.
05 XML-IP PIC X(16) IDENTIFIED
BY "ip"
COUNT IN XML-IP-COUNT.
03 XML-PERMISSOES IDENTIFIED BY "permissoes"
COUNT IN XML-PERMISSOES-COUNT.
05 XML-MADM PIC X(01) IDENTIFIED
BY "mADM"
COUNT IN XML-MADM-COUNT.
05 XML-MCRM PIC X(01) IDENTIFIED
BY "mCRM"
COUNT IN XML-MCRM-COUNT.
05 XML-MCRM-PERM IDENTIFIED BY "mCRMPerm"
COUNT IN XML-MCRM-PERM-COUNT.
07 XML-MCRM01 PIC X(01) IDENTIFIED
BY "CRM01"
COUNT IN XML-MCRM01-COUNT.
05 XML-MSCM PIC X(01) IDENTIFIED
BY "mSCM"
COUNT IN XML-MSCM-COUNT.
05 XML-MSCM-PERM IDENTIFIED BY "mSCMPerm"
COUNT IN XML-MSCM-PERM-COUNT.
07 XML-MSCM01 PIC X(01) IDENTIFIED
BY "SCM01"
COUNT IN XML-MSCM01-COUNT.
05 XML-MSCA PIC X(01) IDENTIFIED
BY "mSCA"
COUNT IN XML-MSCA-COUNT.
05 XML-MSCA-PERM IDENTIFIED BY "mSCAPerm"
COUNT IN XML-MSCA-PERM-COUNT.
07 XML-MSCA01 PIC X(01) IDENTIFIED
BY "SCA01"
COUNT IN XML-MSCA01-COUNT.
07 XML-MSCA02 PIC X(01) IDENTIFIED
BY "SCA02"
COUNT IN XML-MSCA02-COUNT.
07 XML-MSCA03 PIC X(01) IDENTIFIED
BY "SCA03"
COUNT IN XML-MSCA03-COUNT.
05 XML-MSCC PIC X(01) IDENTIFIED
BY "mSCC"
COUNT IN XML-MSCC-COUNT.
05 XML-MSCPC PIC X(01) IDENTIFIED
BY "mSCPC"
COUNT IN XML-MSCPC-COUNT.
05 XML-MSCPC-PERM IDENTIFIED BY "mSCPCPerm"
COUNT IN XML-MSCPC-PERM-COUNT.
07 XML-MSCPC01 PIC X(01) IDENTIFIED
BY "SCPC01"
COUNT IN XML-MSCPC01-COUNT.
07 XML-MSCPC02 PIC X(01) IDENTIFIED
BY "SCPC02"
COUNT IN XML-MSCPC02-COUNT.
05 XML-MJURIDICO PIC X(01) IDENTIFIED
BY "mJURIFICO"
COUNT IN XML-MJURIDICO-COUNT.
05 XML-MJUNTA PIC X(01) IDENTIFIED
BY "mJUNTA"
COUNT IN XML-MJUNTA-COUNT.
03 XML-DADOS IDENTIFIED BY "dados"
COUNT IN XML-DADOS-COUNT.
05 XML-REGIONAL PIC X(08) IDENTIFIED
BY "regional"
COUNT IN XML-REGIONAL-COUNT.
05 XML-ENTIDADE PIC N(65) IDENTIFIED
BY "entidade"
COUNT IN XML-ENTIDADE-COUNT.
05 XML-LOGO PIC N(40) IDENTIFIED
BY "logo"
COUNT IN XML-LOGO-COUNT.
05 XML-LOGOW PIC 9(04) IDENTIFIED
BY "logoW"
COUNT IN XML-LOGOW-COUNT.
05 XML-LOGOH PIC 9(04) IDENTIFIED
BY "logoH"
COUNT IN XML-LOGOH-COUNT.
05 XML-FUNC PIC 9(08) IDENTIFIED
BY "func"
COUNT IN XML-REGIONAL-COUNT.
05 XML-NOME PIC N(65) IDENTIFIED
BY "nome"
COUNT IN XML-NOME-COUNT.
05 XML-NIVEL PIC X(01) IDENTIFIED
BY "nivel"
COUNT IN XML-NIVEL-COUNT.
05 XML-TOTMSGS PIC 9(10) IDENTIFIED
BY "totMsgs"
COUNT IN XML-TOTMSGS-COUNT.
05 XML-NOVAMSG PIC X(01) IDENTIFIED
BY "novaMsg"
COUNT IN XML-NOVAMSG-COUNT.
05 XML-APROVA-LANC PIC X(01) IDENTIFIED
BY "aprovaLanc"
COUNT IN XML-APROVA-LANC-COUNT.
05 XML-CORES IDENTIFIED BY "cores"
COUNT IN XML-CORES-COUNT.
07 XML-TELA PIC X(07) IDENTIFIED
BY "tela"
COUNT IN XML-TELA-COUNT.
07 XML-TOPO PIC X(07) IDENTIFIED
BY "topo"
COUNT IN XML-TIPO-COUNT.
07 XML-CAIXA PIC X(07) IDENTIFIED
BY "caixa"
COUNT IN XML-CAIXA-COUNT.
07 XML-MENUF PIC X(07) IDENTIFIED
BY "menuF"
COUNT IN XML-MENU-COUNT.
07 XML-CABDIVF PIC X(07) IDENTIFIED
BY "cabdivF"
COUNT IN XML-CABDIVF-COUNT.
07 XML-DIV PIC X(07) IDENTIFIED
BY "div"
COUNT IN XML-DIV-COUNT.
07 XML-USU PIC X(07) IDENTIFIED
BY "usu"
COUNT IN XML-USU-COUNT.
07 XML-MENU PIC X(07) IDENTIFIED
BY "menu"
COUNT IN XML-MENU-COUNT.
07 XML-BC PIC X(07) IDENTIFIED
BY "bc"
COUNT IN XML-BC-COUNT.
07 XML-CAB PIC X(07) IDENTIFIED
BY "cab"
COUNT IN XML-CAB-COUNT.
07 XML-SUBCAB PIC X(07) IDENTIFIED
BY "subcab"
COUNT IN XML-SUBCAB-COUNT.
07 XML-CABDIV PIC X(07) IDENTIFIED
BY "cabdiv"
COUNT IN XML-CABDIV-COUNT.
07 XML-DESC PIC X(07) IDENTIFIED
BY "desc"
COUNT IN XML-DESC-COUNT.
07 XML-CAMPOL PIC X(07) IDENTIFIED
BY "campoL"
COUNT IN XML-CAMPOL-COUNT.
07 XML-CAMPOF PIC X(07) IDENTIFIED
BY "campoF"
COUNT IN XML-CAMPOF-COUNT.
03 XML-RETORNO IDENTIFIED BY "retorno"
COUNT IN XML-RETORNO-COUNT.
05 XML-STRING PIC X(63000) IDENTIFIED
BY "string"
COUNT IN XML-STRING-COUNT.
05 XML-ASSOCIADOS IDENTIFIED BY "associados"
COUNT IN XML-ASSOCIADOS-COUNT.
07 XML-ASSOCIADO IDENTIFIED BY "associado"
COUNT IN XML-ASSOCIADO-COUNT.
09 XML-ASS-DESC PIC X(150) IDENTIFIED
BY "descricao"
COUNT IN XML-ASS-DESC-COUNT.
09 XML-ASS-COD PIC 9(08) IDENTIFIED
BY "codigo"
COUNT IN XML-ASS-COD-COUNT.
09 XML-ASS-NOME PIC N(40) IDENTIFIED
BY "nome"
COUNT IN XML-ASS-NOME-COUNT.
09 XML-ASS-RAZAO PIC N(50) IDENTIFIED
BY "razao"
COUNT IN XML-ASS-RAZAO-COUNT.
09 XML-ASS-DOCTO PIC X(18) IDENTIFIED
BY "documento"
COUNT IN XML-ASS-DOCTO-COUNT.
09 XML-ASS-TEL1 PIC X(15) IDENTIFIED
BY "telefone1"
COUNT IN XML-ASS-TEL1-COUNT.
09 XML-ASS-TEL2 PIC X(15) IDENTIFIED
BY "telefone2"
COUNT IN XML-ASS-TEL1-COUNT.
09 XML-ASS-FAX PIC X(10) IDENTIFIED
BY "fax"
COUNT IN XML-ASS-FAX-COUNT.
09 XML-ASS-CONT PIC X(70) IDENTIFIED
BY "contato"
COUNT IN XML-ASS-CONT-COUNT.
09 XML-ASS-EMAIL1 PIC X(120) IDENTIFIED
BY "email1"
COUNT IN XML-ASS-EMAIL1-COUNT.
09 XML-ASS-EMAIL2 PIC X(120) IDENTIFIED
BY "email2"
COUNT IN XML-ASS-EMAIL2-COUNT.
09 XML-ASS-SITE PIC X(130) IDENTIFIED
BY "site"
COUNT IN XML-ASS-SITE-COUNT.
09 XML-ASS-END PIC X(80) IDENTIFIED
BY "endereco"
COUNT IN XML-ASS-END-COUNT.
09 XML-ASS-NUM PIC X(20) IDENTIFIED
BY "numero"
COUNT IN XML-ASS-NUM-COUNT.
09 XML-ASS-COMP PIC X(50) IDENTIFIED
BY "complemento"
COUNT IN XML-ASS-COMP-COUNT.
09 XML-ASS-BAIRRO PIC X(40) IDENTIFIED
BY "bairro"
COUNT IN XML-ASS-BAIRRO-COUNT.
09 XML-ASS-MUNI PIC X(35) IDENTIFIED
BY "cidade"
COUNT IN XML-ASS-MUNI-COUNT.
09 XML-ASS-UF PIC X(02) IDENTIFIED
BY "uf"
COUNT IN XML-ASS-UF-COUNT.
09 XML-ASS-CEP PIC X(10) IDENTIFIED
BY "cep"
COUNT IN XML-ASS-CEP-COUNT.
09 XML-ASS-SITU PIC X(10) IDENTIFIED
BY "situacao"
COUNT IN XML-ASS-SITUACAO-COUNT.
* UTILIZADO QUANDO APROVAÇÃO POR BORDEROS
05 XML-BORDEROS IDENTIFIED BY "borderos"
COUNT IN XML-BORDEROS-COUNT.
07 XML-BORDERO IDENTIFIED BY "bordero"
COUNT IN XML-BORDERO-COUNT.
09 XML-BORD-NUM PIC X(10) IDENTIFIED
BY "numero"
COUNT IN XML-BORD-NUM-COUNT.
09 XML-BORD-DATA PIC X(10) IDENTIFIED
BY "data"
COUNT IN XML-BORD-DATA-COUNT.
09 XML-BORD-VALOR PIC X(14) IDENTIFIED
BY "valor"
COUNT IN XML-BORD-DATA-COUNT.
09 XML-BORD-TOTLANC PIC 9(10) IDENTIFIED
BY "totlanc"
COUNT IN XML-BORD-TOTLANC-COUNT.
09 XML-BORD-DESCR PIC X(600) IDENTIFIED
BY "descr"
COUNT IN XML-BORD-TOTLANC-COUNT.
09 XML-BORD-ORCADO PIC X(01) IDENTIFIED
BY "orcados"
COUNT IN XML-BORD-ORCADO-COUNT.
09 XML-BORD-NAPROV PIC X(01) IDENTIFIED
BY "nAprova"
COUNT IN XML-BORD-NAPROV-COUNT.
09 XML-BORD-LANCS IDENTIFIED BY "lancamentos"
COUNT IN XML-BORD-LANCS-COUNT.
11 XML-BORD-LANC IDENTIFIED BY "lancamento"
COUNT IN XML-BORD-LANC-COUNT.
13 XML-BORDLANC-ID PIC X(32) IDENTIFIED
BY "idlanc"
COUNT IN XML-BORDLANC-ID-COUNT.
13 XML-BORDLANC-FORCOD
PIC 9(08) IDENTIFIED
BY "forcod"
COUNT IN
XML-BORDLANC-FORCOD-COUNT.
13 XML-BORDLANC-FORNOME
PIC X(80) IDENTIFIED
BY "fornome"
COUNT IN
XML-BORDLANC-FORNOME-COUNT.
13 XML-BORDLANC-ORCADO
PIC X(1) IDENTIFIED
BY "orcado"
COUNT IN
XML-BORDLANC-ORCADO-COUNT.
13 XML-BORDLANC-DESPESA
PIC X(60) IDENTIFIED
BY "despesa"
COUNT IN
XML-BORDLANC-DESPESA-COUNT.
13 XML-BORDLANC-DESCR
PIC X(300) IDENTIFIED
BY "descriLanc"
COUNT IN
XML-BORDLANC-DESCR-COUNT.
13 XML-BORDLANC-DOC
PIC 9(10) IDENTIFIED
BY "doc"
COUNT IN
XML-BORDLANC-DOC-COUNT.
13 XML-BORDLANC-SERIE
PIC X(40) IDENTIFIED
BY "serie"
COUNT IN
XML-BORDLANC-SERIE-COUNT.
13 XML-BORDLANC-MEIOPAGTO
PIC X(100) IDENTIFIED
BY "meiopagto"
COUNT IN
XML-BORDLANC-MEIOPAGTO-COUNT.
13 XML-BORDLANC-VENC
PIC X(10) IDENTIFIED
BY "venc"
COUNT IN
XML-BORDLANC-VENC-COUNT.
13 XML-BORDLANC-DTPAGTO
PIC X(10) IDENTIFIED
BY "dtpagto"
COUNT IN
XML-BORDLANC-DTPAGTO-COUNT.
13 XML-BORDLANC-VALOR
PIC X(14) IDENTIFIED
BY "valorlanc"
COUNT IN
XML-BORDLANC-VALOR-COUNT.
13 XML-BORDLANC-NROBACEN
PIC 9(03) IDENTIFIED
BY "nrobacen"
COUNT IN
XML-BORDLANC-NROBACEN-COUNT.
13 XML-BORDLANC-BCONOME
PIC X(70) IDENTIFIED
BY "bconome"
COUNT IN
XML-BORDLANC-BCONOME-COUNT.
13 XML-BORDLANC-BCORAZAO
PIC X(90) IDENTIFIED
BY "bcorazao"
COUNT IN
XML-BORDLANC-BCORAZAO-COUNT.
13 XML-BORDLANC-BCOAGE
PIC 9(05) IDENTIFIED
BY "bcoage"
COUNT IN
XML-BORDLANC-BCOAGE-COUNT.
13 XML-BORDLANC-BCOAGED
PIC X(01) IDENTIFIED
BY "bcoaged"
COUNT IN
XML-BORDLANC-BCOAGED-COUNT.
13 XML-BORDLANC-BCOAGEN
PIC X(60) IDENTIFIED
BY "bcoagen"
COUNT IN
XML-BORDLANC-BCOAGEN-COUNT.
13 XML-BORDLANC-BCOCON
PIC 9(10) IDENTIFIED
BY "bcocon"
COUNT IN
XML-BORDLANC-BCOCON-COUNT.
13 XML-BORDLANC-BCOCOND
PIC X(01) IDENTIFIED
BY "bcocond"
COUNT IN
XML-BORDLANC-BCOCOND-COUNT.
13 XML-BORDLANC-TPPAGTO
PIC 9(02) IDENTIFIED
BY "tppagto"
COUNT IN
XML-BORDLANC-TPPAGTO-COUNT.
13 XML-BORDLANC-PAGTOD
PIC X(60) IDENTIFIED
BY "pagtod"
COUNT IN
XML-BORDLANC-PAGTOD-COUNT.
13 XML-BORDLANC-FORMA
PIC 9(02) IDENTIFIED
BY "forma"
COUNT IN
XML-BORDLANC-FORMA-COUNT.
13 XML-BORDLANC-FORMAD
PIC X(60) IDENTIFIED
BY "formad"
COUNT IN
XML-BORDLANC-FORMAD-COUNT.
13 XML-BORDLANC-FORMAF
PIC X(200) IDENTIFIED
BY "formaf"
COUNT IN
XML-BORDLANC-FORMAF-COUNT.
13 XML-BORDLANC-ORIGEM
PIC X(01) IDENTIFIED
BY "origem"
COUNT IN
XML-BORDLANC-ORIGEM-COUNT.
13 XML-BORDLANC-ROWID
PIC X(32) IDENTIFIED
BY "rowid"
COUNT IN
XML-BORDLANC-ROWID-COUNT.
13 XML-BORDLANC-QUESTIO PIC X(01) IDENTIFIED
BY "questionado"
COUNT IN XML-BORDLANC-QUESTIO-COUNT.
13 XML-BORDLANC-REJEI PIC X(01) IDENTIFIED
BY "rejeitado"
COUNT IN XML-BORDLANC-REJEI-COUNT.
13 XML-BORDLANC-NREJ PIC X(01) IDENTIFIED
BY "nRejeita"
COUNT IN XML-BORDLANC-NREJ-COUNT.
13 XML-BORDLANC-NAPROV PIC X(01) IDENTIFIED
BY "nAprovaLanc"
COUNT IN XML-BORDLANC-NAPROV-COUNT.
13 XML-BORD-HISTS IDENTIFIED BY "historicos"
COUNT IN XML-BORD-HISTS-COUNT.
15 XML-BORD-HIST IDENTIFIED BY "historico"
COUNT IN XML-BORD-HIST-COUNT.
17 XML-BORD-HIST-DATA
PIC X(10) IDENTIFIED
BY "histData"
COUNT IN
XML-BORD-HIST-DATA-COUNT.
17 XML-BORD-HIST-HORA
PIC X(08) IDENTIFIED
BY "histHora"
COUNT IN
XML-BORD-HIST-HORA-COUNT.
17 XML-BORD-HIST-FUNC
PIC 9(08) IDENTIFIED
BY "histFunc"
COUNT IN
XML-BORD-HIST-FUNC-COUNT.
17 XML-BORD-HIST-NOME
PIC X(70) IDENTIFIED
BY "histNome"
COUNT IN
XML-BORD-HIST-NOME-COUNT.
17 XML-BORD-HIST-MOTIVO
PIC X(600) IDENTIFIED
BY "histMotivo"
COUNT IN
XML-BORD-HIST-MOTIVO-COUNT.
17 XML-BORD-HIST-NUMBORD
PIC 9(10) IDENTIFIED
BY "histNumBord"
COUNT IN
XML-BORD-HIST-NUMBORD-COUNT.
17 XML-BORD-HIST-REENVIO
PIC X(01) IDENTIFIED
BY "histReenvio"
COUNT IN
XML-BORD-HIST-REENVIO-COUNT.
05 XML-LANC-FUNCS IDENTIFIED BY "operadoresLanc"
COUNT IN XML-LANC-FUNCS-COUNT.
07 XML-LANC-FUNC IDENTIFIED BY "operadorLanc"
COUNT IN XML-LANC-FUNC-COUNT.
09 XML-LANC-FUNC-COD PIC 9(08)
IDENTIFIED BY "codigoOperadorLanc"
COUNT IN XML-LANC-FUNC-COD-COUNT.
09 XML-LANC-FUNC-NOME PIC X(70)
IDENTIFIED BY "nomeOperadorLanc"
COUNT IN XML-LANC-FUNC-NOME-COUNT.
05 XML-TITSDEPS IDENTIFIED BY "titularesDependentes"
COUNT IN XML-TITSDEPS-COUNT.
07 XML-TITDEP IDENTIFIED BY "titularDependente"
COUNT IN XML-TITDEP-COUNT.
09 XML-TITDEP-CODTIT PIC 9(08)
IDENTIFIED BY "codigoTitular"
COUNT IN XML-TITDEP-CODTIT-COUNT.
09 XML-TITDEP-NOMETIT PIC X(50)
IDENTIFIED BY "nomeTitular"
COUNT IN XML-TITDEP-NOMETIT-COUNT.
09 XML-TITDEP-CODDEP PIC 9(08)
IDENTIFIED BY "codigoDependente"
COUNT IN XML-TITDEP-CODDEP-COUNT.
09 XML-TITDEP-NOMEDEP PIC X(50)
IDENTIFIED BY "nomeDependente"
COUNT IN XML-TITDEP-NOMEDEP-COUNT.
09 XML-TITDEP-CODCONV PIC 9(05)
IDENTIFIED BY "codigoConvenio"
COUNT IN XML-TITDEP-CODCONV-COUNT.
09 XML-TITDEP-NOMECONV PIC X(30)
IDENTIFIED BY "nomeConvenio"
COUNT IN XML-TITDEP-NOMECONV-COUNT.
09 XML-TITDEP-CODEMP PIC 9(08)
IDENTIFIED BY "codigoEmpresa"
COUNT IN XML-TITDEP-CODEMP-COUNT.
09 XML-TITDEP-NOMEEMP PIC X(50)
IDENTIFIED BY "nomeEmpresa"
COUNT IN XML-TITDEP-NOMEEMP-COUNT.
09 XML-TITDEP-SITUEMP PIC X(01)
IDENTIFIED BY "situEmpresa"
COUNT IN XML-TITDEP-SITUEMP-COUNT.
05 XML-MENSAGENS IDENTIFIED BY "mensagens"
COUNT IN XML-MENSAGENS-COUNT.
07 XML-MENSAGEM IDENTIFIED BY "mensagem"
COUNT IN XML-MENSAGEM-COUNT.
09 XML-MSG-CHAVE PIC X(20) IDENTIFIED
BY "chaveMsg"
COUNT IN XML-MSG-CHAVE-COUNT.
09 XML-MSG-DATA PIC X(08) IDENTIFIED
BY "dataMsg"
COUNT IN XML-MSG-DATA-COUNT.
09 XML-MSG-HORA PIC X(06) IDENTIFIED
BY "horaMsg"
COUNT IN XML-MSG-HORA-COUNT.
09 XML-MSG-FUNC PIC 9(08) IDENTIFIED
BY "funcMsg"
COUNT IN XML-MSG-FUNC-COUNT.
09 XML-MSG-FUNCN PIC X(50) IDENTIFIED
BY "funcNMsg"
COUNT IN XML-MSG-FUNCN-COUNT.
09 XML-MSG-TIT PIC X(50) IDENTIFIED
BY "tituloMsg"
COUNT IN XML-MSG-TIT-COUNT.
09 XML-MSG-MSG PIC X(4000) IDENTIFIED
BY "msgMsg"
COUNT IN XML-MSG-MSG-COUNT.
09 XML-MSG-ACAO PIC X(4000) IDENTIFIED
BY "acaoMsg"
COUNT IN XML-MSG-ACAO-COUNT.
09 XML-MSG-TXTBTNACAO PIC X(200) IDENTIFIED
BY "txtBtnAcao"
COUNT IN XML-MSG-ACAO-COUNT.
09 XML-MSG-RESPONDE PIC X(01) IDENTIFIED
BY "respondeMsg"
COUNT IN XML-MSG-RESPONDE-COUNT.
09 XML-MSG-RESPONDEU PIC X(01) IDENTIFIED
BY "respondeuMsg"
COUNT IN XML-MSG-RESPONDEU-COUNT.
09 XML-MSG-NAOLIDA PIC X(01) IDENTIFIED
BY "naoLida"
COUNT IN XML-MSG-NAOLIDA-COUNT.
WORKING-STORAGE SECTION.
01 XML-FILE-STATUS PIC S9(9) COMP.
01 WK-ERRO PIC -------9 VALUE ZEROS.
01 MY-FILLE PIC X(63) VALUE SPACES.
PROCEDURE DIVISION.
* STRING
* '<?xml version="1.0" encoding="UTF-8"?>'
* '<SophusBusiness>'
* ' <solicitacao>'
* ' <modulo>98</modulo>'
* ' <submodulo>1</submodulo>'
* ' <operacao>2</operacao>'
* ' <operador>77777</operador>'
* ' <versao>1.1.2</versao>'
* ' <uuid>asdfg12345</uuid>'
* ' <device />'
* ' <cordova />'
* ' <model />'
* ' <platform />'
* ' <version />'
* ' <manufacturer />'
* ' <isVirtual />'
* ' <serial />'
* ' <informcoesSIM />'
* ' <tokenCelular />'
* ' <mensagens>'
* ' <mensagem>'
* ' <chave>21012019141318124091</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019141204655838</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019141159172181</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019140426241487</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019140139113838</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019140003276079</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019135927518638</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019135742106556</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019135503041920</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019134626475382</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019132653432614</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019132500147275</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019131402691917</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019111806544397</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019111701444678</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019104806652769</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019104806651683</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019104729969472</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019104729964375</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019104604892918</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019104347436600</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019104201506257</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019103511971396</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019102800513990</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019102408982136</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019101913402522</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019101834455754</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019093302996801</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019093128741025</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019092915107140</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019092752850407</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>21012019091955610067</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>17012019154507069484</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>17012019084700370746</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>17012019084630134431</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>17012019084616657562</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>17012019084616599752</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>17012019084616540909</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>17012019084107401957</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>17012019083224382014</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019160036526282</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037553002</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037491458</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037433488</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037368140</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037313910</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037254369</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037184186</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037128129</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114037062520</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114036993238</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114036935868</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019114036868985</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113948828363</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113944329357</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113925008361</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113924957874</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113924902306</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113924850452</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113924795810</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113924736577</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113924680608</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113924625199</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>16012019113924562256</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151813773870</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151810374003</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151807130633</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151803386292</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709739832</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709683215</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709625877</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709571676</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709513766</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709449908</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709391591</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709323244</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709244062</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709185761</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709129663</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709076750</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151709019132</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151708961825</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151536548266</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151514557392</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151453106349</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409775080</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409704122</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409649994</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409591827</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409535866</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409475961</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409420414</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409366335</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409310101</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409225720</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409169988</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409114538</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409057255</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151409005514</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151408949538</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151408894111</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151408841095</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019151408770450</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145357563415</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145353298962</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145243022845</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242963188</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242892877</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242818212</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242754494</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242700161</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242616674</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242560789</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242505956</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242449464</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242396243</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242340698</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242286536</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242231333</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242169950</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242116126</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242063427</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145242009216</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145241949411</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145241893642</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145241835491</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145241782182</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145241725655</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145241670069</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145241613089</chave>'
* ' <texto />'
* ' </mensagem>'
* ' <mensagem>'
* ' <chave>15012019145241547592</chave>'
* ' <texto />'
* ' </mensagem>'
* ' </mensagens>'
* ' </solicitacao>'
* '</SophusBusiness>'
* INTO MY-FILLE
MOVE "xml.xml" TO MY-FILLE
DISPLAY "START" UPON SYSERR
OPEN INPUT XML-FILE
IF XML-FILE-STATUS NOT = ZEROS
MOVE XML-FILE-STATUS TO WK-ERRO
DISPLAY "ERROR OPEN XML-FILE " WK-ERRO UPON SYSERR
EXHIBIT NAMED XML-FILE-STATUS
STOP RUN
END-IF
READ XML-FILE
IF XML-FILE-STATUS < 0
MOVE XML-FILE-STATUS TO WK-ERRO
DISPLAY "ERROR READ XML-FILE " WK-ERRO UPON SYSERR
EXHIBIT NAMED XML-FILE-STATUS
STOP RUN
END-IF
START XML-FILE KEY XML-SOLICITACAO
READ XML-FILE NEXT KEY XML-SOLICITACAO
START XML-FILE KEY IS XML-MULT-MSGS
IF XML-FILE-STATUS < 0
MOVE XML-FILE-STATUS TO WK-ERRO
DISPLAY "ERROR STAT MULT-MSGS " WK-ERRO UPON SYSERR
EXHIBIT NAMED XML-FILE-STATUS
STOP RUN
END-IF
PERFORM UNTIL EXIT
READ XML-FILE NEXT KEY IS XML-MULT-MSGS
IF XML-FILE-STATUS NOT = 0
EXIT PERFORM
END-IF
START XML-FILE KEY IS XML-MULT-MSG
IF XML-FILE-STATUS < 0
EXIT PERFORM
END-IF
PERFORM UNTIL EXIT
READ XML-FILE NEXT KEY IS XML-MULT-MSG
IF XML-FILE-STATUS NOT = 0
EXIT PERFORM
END-IF
IF XML-MENSAGEM-CHAVE NOT = SPACES
DISPLAY XML-MENSAGEM-CHAVE UPON SYSERR
END-IF
END-PERFORM
DISPLAY "END" UPON SYSERR
STOP RUN.
--------------------------------------------------------------
file.xml
--------------------------------------------------------------
<?xml version="1.0" encoding="UTF-8"?><SophusBusiness><solicitacao><modulo>98</modulo><submodulo>1</submodulo><operacao>2</operacao><operador>77777</operador><versao>1.1.2</versao><uuid>asdfg12345</uuid><device></device><cordova></cordova><model></model><platform></platform><version></version><manufacturer></manufacturer><isVirtual></isVirtual><serial></serial><informcoesSIM><![CDATA[]]></informcoesSIM><tokenCelular><![CDATA[]]></tokenCelular><mensagens><mensagem><chave>21012019161754601354</chave><texto /></mensagem><mensagem><chave>21012019161435732212</chave><texto /></mensagem><mensagem><chave>21012019161320286445</chave><texto /></mensagem><mensagem><chave>21012019160919750551</chave><texto /></mensagem><mensagem><chave>21012019160540445553</chave><texto /></mensagem><mensagem><chave>21012019160203441776</chave><texto /></mensagem><mensagem><chave>21012019160123286161</chave><texto /></mensagem><mensagem><chave>21012019155935176847</chave><texto /></mensagem><mensagem><chave>21012019155926076720</chave><texto /></mensagem><mensagem><chave>21012019155917325745</chave><texto /></mensagem><mensagem><chave>21012019154934956872</chave><texto /></mensagem><mensagem><chave>21012019154847678967</chave><texto /></mensagem><mensagem><chave>21012019154742699661</chave><texto /></mensagem><mensagem><chave>21012019154617456895</chave><texto /></mensagem><mensagem><chave>21012019154041825233</chave><texto /></mensagem><mensagem><chave>21012019150236124750</chave><texto /></mensagem><mensagem><chave>21012019141318124091</chave><texto /></mensagem><mensagem><chave>21012019141204655838</chave><texto /></mensagem><mensagem><chave>21012019141159172181</chave><texto /></mensagem><mensagem><chave>21012019140426241487</chave><texto /></mensagem><mensagem><chave>21012019140139113838</chave><texto /></mensagem><mensagem><chave>21012019140003276079</chave><texto /></mensagem><mensagem><chave>21012019135927518638</chave><texto /></mensagem><mensagem><chave>21012019135742106556</chave><texto /></mensagem><mensagem><chave>21012019135503041920</chave><texto /></mensagem><mensagem><chave>21012019134626475382</chave><texto /></mensagem><mensagem><chave>21012019134626472555</chave><texto /></mensagem><mensagem><chave>21012019132653432614</chave><texto /></mensagem><mensagem><chave>21012019132500147275</chave><texto /></mensagem><mensagem><chave>21012019131402691917</chave><texto /></mensagem><mensagem><chave>21012019111806548215</chave><texto /></mensagem><mensagem><chave>21012019111806544397</chave><texto /></mensagem><mensagem><chave>21012019111701447197</chave><texto /></mensagem><mensagem><chave>21012019111701444678</chave><texto /></mensagem><mensagem><chave>21012019104806652769</chave><texto /></mensagem><mensagem><chave>21012019104806651683</chave><texto /></mensagem><mensagem><chave>21012019104729969472</chave><texto /></mensagem><mensagem><chave>21012019104729964375</chave><texto /></mensagem><mensagem><chave>21012019104604892918</chave><texto /></mensagem><mensagem><chave>21012019104347436600</chave><texto /></mensagem><mensagem><chave>21012019104201506257</chave><texto /></mensagem><mensagem><chave>21012019103511971396</chave><texto /></mensagem><mensagem><chave>21012019102800513990</chave><texto /></mensagem><mensagem><chave>21012019102408982136</chave><texto /></mensagem><mensagem><chave>21012019101913402522</chave><texto /></mensagem><mensagem><chave>21012019101834455754</chave><texto /></mensagem><mensagem><chave>21012019093302996801</chave><texto /></mensagem><mensagem><chave>21012019093128741025</chave><texto /></mensagem><mensagem><chave>21012019092915107140</chave><texto /></mensagem><mensagem><chave>21012019092752850407</chave><texto /></mensagem><mensagem><chave>21012019091955610067</chave><texto /></mensagem><mensagem><chave>17012019154507069484</chave><texto /></mensagem><mensagem><chave>17012019084700370746</chave><texto /></mensagem><mensagem><chave>17012019084630134431</chave><texto /></mensagem><mensagem><chave>17012019084616657562</chave><texto /></mensagem><mensagem><chave>17012019084616599752</chave><texto /></mensagem><mensagem><chave>17012019084616540909</chave><texto /></mensagem><mensagem><chave>17012019084107401957</chave><texto /></mensagem><mensagem><chave>17012019083224382014</chave><texto /></mensagem><mensagem><chave>16012019160036526282</chave><texto /></mensagem><mensagem><chave>16012019114037553002</chave><texto /></mensagem><mensagem><chave>16012019114037491458</chave><texto /></mensagem><mensagem><chave>16012019114037433488</chave><texto /></mensagem><mensagem><chave>16012019114037368140</chave><texto /></mensagem><mensagem><chave>16012019114037313910</chave><texto /></mensagem><mensagem><chave>16012019114037254369</chave><texto /></mensagem><mensagem><chave>16012019114037184186</chave><texto /></mensagem><mensagem><chave>16012019114037128129</chave><texto /></mensagem><mensagem><chave>16012019114037062520</chave><texto /></mensagem><mensagem><chave>16012019114036993238</chave><texto /></mensagem><mensagem><chave>16012019114036935868</chave><texto /></mensagem><mensagem><chave>16012019114036868985</chave><texto /></mensagem><mensagem><chave>16012019113948828363</chave><texto /></mensagem><mensagem><chave>16012019113944329357</chave><texto /></mensagem><mensagem><chave>16012019113925008361</chave><texto /></mensagem><mensagem><chave>16012019113924957874</chave><texto /></mensagem><mensagem><chave>16012019113924902306</chave><texto /></mensagem><mensagem><chave>16012019113924850452</chave><texto /></mensagem><mensagem><chave>16012019113924795810</chave><texto /></mensagem><mensagem><chave>16012019113924736577</chave><texto /></mensagem><mensagem><chave>16012019113924680608</chave><texto /></mensagem><mensagem><chave>16012019113924625199</chave><texto /></mensagem><mensagem><chave>16012019113924562256</chave><texto /></mensagem><mensagem><chave>15012019151813773870</chave><texto /></mensagem><mensagem><chave>15012019151810374003</chave><texto /></mensagem><mensagem><chave>15012019151807130633</chave><texto /></mensagem><mensagem><chave>15012019151803386292</chave><texto /></mensagem><mensagem><chave>15012019151709739832</chave><texto /></mensagem><mensagem><chave>15012019151709683215</chave><texto /></mensagem><mensagem><chave>15012019151709625877</chave><texto /></mensagem><mensagem><chave>15012019151709571676</chave><texto /></mensagem><mensagem><chave>15012019151709513766</chave><texto /></mensagem><mensagem><chave>15012019151709449908</chave><texto /></mensagem><mensagem><chave>15012019151709391591</chave><texto /></mensagem><mensagem><chave>15012019151709323244</chave><texto /></mensagem><mensagem><chave>15012019151709244062</chave><texto /></mensagem><mensagem><chave>15012019151709185761</chave><texto /></mensagem><mensagem><chave>15012019151709129663</chave><texto /></mensagem><mensagem><chave>15012019151709076750</chave><texto /></mensagem><mensagem><chave>15012019151709019132</chave><texto /></mensagem><mensagem><chave>15012019151708961825</chave><texto /></mensagem><mensagem><chave>15012019151536548266</chave><texto /></mensagem><mensagem><chave>15012019151514557392</chave><texto /></mensagem><mensagem><chave>15012019151453106349</chave><texto /></mensagem><mensagem><chave>15012019151409775080</chave><texto /></mensagem><mensagem><chave>15012019151409704122</chave><texto /></mensagem><mensagem><chave>15012019151409649994</chave><texto /></mensagem><mensagem><chave>15012019151409591827</chave><texto /></mensagem><mensagem><chave>15012019151409535866</chave><texto /></mensagem><mensagem><chave>15012019151409475961</chave><texto /></mensagem><mensagem><chave>15012019151409420414</chave><texto /></mensagem><mensagem><chave>15012019151409366335</chave><texto /></mensagem><mensagem><chave>15012019151409310101</chave><texto /></mensagem><mensagem><chave>15012019151409225720</chave><texto /></mensagem><mensagem><chave>15012019151409169988</chave><texto /></mensagem><mensagem><chave>15012019151409114538</chave><texto /></mensagem><mensagem><chave>15012019151409057255</chave><texto /></mensagem><mensagem><chave>15012019151409005514</chave><texto /></mensagem><mensagem><chave>15012019151408949538</chave><texto /></mensagem><mensagem><chave>15012019151408894111</chave><texto /></mensagem><mensagem><chave>15012019151408841095</chave><texto /></mensagem><mensagem><chave>15012019151408770450</chave><texto /></mensagem><mensagem><chave>15012019145357563415</chave><texto /></mensagem><mensagem><chave>15012019145353298962</chave><texto /></mensagem><mensagem><chave>15012019145243022845</chave><texto /></mensagem><mensagem><chave>15012019145242963188</chave><texto /></mensagem><mensagem><chave>15012019145242892877</chave><texto /></mensagem><mensagem><chave>15012019145242818212</chave><texto /></mensagem><mensagem><chave>15012019145242754494</chave><texto /></mensagem><mensagem><chave>15012019145242700161</chave><texto /></mensagem><mensagem><chave>15012019145242616674</chave><texto /></mensagem><mensagem><chave>15012019145242560789</chave><texto /></mensagem><mensagem><chave>15012019145242505956</chave><texto /></mensagem><mensagem><chave>15012019145242449464</chave><texto /></mensagem><mensagem><chave>15012019145242396243</chave><texto /></mensagem><mensagem><chave>15012019145242340698</chave><texto /></mensagem><mensagem><chave>15012019145242286536</chave><texto /></mensagem><mensagem><chave>15012019145242231333</chave><texto /></mensagem><mensagem><chave>15012019145242169950</chave><texto /></mensagem><mensagem><chave>15012019145242116126</chave><texto /></mensagem><mensagem><chave>15012019145242063427</chave><texto /></mensagem><mensagem><chave>15012019145242009216</chave><texto /></mensagem><mensagem><chave>15012019145241949411</chave><texto /></mensagem><mensagem><chave>15012019145241893642</chave><texto /></mensagem><mensagem><chave>15012019145241835491</chave><texto /></mensagem><mensagem><chave>15012019145241782182</chave><texto /></mensagem><mensagem><chave>15012019145241725655</chave><texto /></mensagem><mensagem><chave>15012019145241670069</chave><texto /></mensagem><mensagem><chave>15012019145241613089</chave><texto /></mensagem><mensagem><chave>15012019145241547592</chave><texto /></mensagem></mensagens></solicitacao></SophusBusiness>