Quantcast
Channel: Net Express / Server Express - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 191
↧

Micro Focus Server Express 5.1 Wrap Pack 12 - xml reading gets looped and blends data.

February 14, 2018, 5:50 am
$
0
0

When reading the xml tags, when the <ultimos> tag comes in 3 nodes and does not come in the room, the cobol generates a loop that blends the data, bringing data from the first into the 4 register.

In this case, the <ultimos> tag did not appear on the last node, and it generates a loop that blends the data.
If it comes, the program works normally.

----------------------------------------------------------------------

resp.xml

----------------------------------------------------------------------

<?xml version="1.0" encoding="UTF-8"?>
<empresarialplatinum>
<administradores>
<administradores_pf>
<administrador_pf>
<consultas>
<resumo>
<qtd_total>2</qtd_total>
<data_ultima>09022018</data_ultima>
</resumo>
<totais>
<consulta>2</consulta>
<credito>0</credito>
<cheque>0</cheque>
</totais>
<consulta_mes_vigente>
<data>08022018</data>
<quantidade>2</quantidade>
</consulta_mes_vigente>
<consultas_mes>
<mes_ano>012018</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>122017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>112017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>102017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>092017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>082017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>072017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>062017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>052017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>042017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>032017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>022017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<ultimos>
<consulta>
<data>07022018</data>
<empresa>SULAMERICA</empresa>
</consulta>
<consulta>
<data>07022018</data>
<empresa>BRADESCO SEGUROS/WSBAREBV-PROD</empresa>
</consulta>
</ultimos>
</consultas>
</administrador_pf>
<administrador_pf>
<consultas>
<resumo>
<qtd_total>1</qtd_total>
<data_ultima>09022018</data_ultima>
</resumo>
<totais>
<consulta>1</consulta>
<credito>0</credito>
<cheque>0</cheque>
</totais>
<consulta_mes_vigente>
<data>08022018</data>
</consulta_mes_vigente>
<consultas_mes>
<mes_ano>012018</mes_ano>
<quantidade>1</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>122017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>112017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>102017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>092017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>082017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>072017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>062017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>052017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>042017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>032017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>022017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<ultimos>
<consulta>
<data>31012018</data>
<empresa>BRADESCO SEGUROS/WSBAREBV-PROD</empresa>
</consulta>
</ultimos>
</consultas>
</administrador_pf>
<administrador_pf>
<consultas>
<resumo>
<qtd_total>4</qtd_total>
<data_ultima>09022018</data_ultima>
</resumo>
<totais>
<consulta>4</consulta>
<credito>0</credito>
<cheque>0</cheque>
</totais>
<consulta_mes_vigente>
<data>08022018</data>
<quantidade>1</quantidade>
</consulta_mes_vigente>
<consultas_mes>
<mes_ano>012018</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>122017</mes_ano>
<quantidade>1</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>112017</mes_ano>
<quantidade>2</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>102017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>092017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>082017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>072017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>062017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>052017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>042017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>032017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>022017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<ultimos>
<consulta>
<data>06022018</data>
<empresa>CAIXA ECONOMICA FEDERAL</empresa>
</consulta>
<consulta>
<data>29122017</data>
<empresa>CAIXA ECONOMICA FEDERAL</empresa>
</consulta>
<consulta>
<data>15112017</data>
<empresa>CAIXA ECONOMICA FEDERAL</empresa>
</consulta>
<consulta>
<data>14112017</data>
<empresa>CAIXA ECONOMICA FEDERAL</empresa>
</consulta>
</ultimos>
</consultas>
</administrador_pf>
<administrador_pf>
<consultas>
<resumo>
<qtd_total>0</qtd_total>
<data_ultima>08022018</data_ultima>
</resumo>
<totais>
<consulta>0</consulta>
<credito>0</credito>
<cheque>0</cheque>
</totais>
<consulta_mes_vigente>
<data>08022018</data>
<quantidade>0</quantidade>
</consulta_mes_vigente>
<consultas_mes>
<mes_ano>012018</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>122017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>112017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>102017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>092017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>082017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>072017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>062017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>052017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>042017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>032017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
<consultas_mes>
<mes_ano>022017</mes_ano>
<quantidade>0</quantidade>
</consultas_mes>
</consultas>
</administrador_pf>
</administradores_pf>
</administradores>
</empresarialplatinum>

----------------------------------------------------------------------

lerefx77.cbl

----------------------------------------------------------------------

      $set preprocess(prexml) nowarn endp
       IDENTIFICATION DIVISION.
       PROGRAM-ID.    LEREFX77.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
            DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

           SELECT XML-FILE ASSIGN TO "resp.xml"
                  ORGANIZATION    IS XML
                  DOCUMENT-TYPE   IS OMITTED
                  FILE STATUS     IS XML-FILE-STATUS.

       DATA DIVISION.
       FILE SECTION.

       XD XML-FILE.
        01 XML-EFX33-XML IDENTIFIED BY "empresarialplatinum".
           02 XML-EFX33-036 IDENTIFIED BY "administradores".
              03 XML-EFX33-037-F-ADMS
                 IDENTIFIED BY "administradores_pf".
                 04 XML-EFX33-037-F-ADM
                    IDENTIFIED BY "administrador_pf".
                    05 XML-EFX33-037-FA-CONS
                       IDENTIFIED BY "consultas".
                       06 XML-EFX33-037-FACON-RES
                          IDENTIFIED BY "resumo".
                          07 XML-EFX33-037-FACONR-QTDE        PIC X(08)
                             IDENTIFIED BY "qtd_total".
                          07 XML-EFX33-037-FACONR-DATA        PIC X(08)
                             IDENTIFIED BY "data_ultima".
                       06 XML-EFX33-037-FACON-TOT
                          IDENTIFIED BY "totais".
                          07 XML-EFX33-037-FACONT-CON         PIC X(08)
                             IDENTIFIED BY "consulta".
                          07 XML-EFX33-037-FACONT-CRED        PIC X(08)
                             IDENTIFIED BY "credito".
                          07 XML-EFX33-037-FACONT-CH          PIC X(08)
                             IDENTIFIED BY "cheque".
                       06 XML-EFX33-037-FACON-VIG
                          IDENTIFIED BY "consulta_mes_vigente".
                          07 XML-EFX33-037-FACONV-DATA        PIC X(08)
                             IDENTIFIED BY "data".
                          07 XML-EFX33-037-FACONV-QTDE        PIC X(08)
                             IDENTIFIED BY "quantidade".
                       06 XML-EFX33-037-FACON-MES
                          IDENTIFIED BY "consultas_mes".
                          07 XML-EFX33-037-FACONM-DATA        PIC X(06)
                             IDENTIFIED BY "mes_ano".
                          07 XML-EFX33-037-FACONM-QTDE        PIC X(08)
                             IDENTIFIED BY "quantidade".
                       06 XML-EFX33-037-FACON-ULT
                          IDENTIFIED BY "ultimos".
                          07 XML-EFX33-037-FACONU-CON
                             IDENTIFIED BY "consulta".
                             08 XML-EFX33-037-FACONUC-DT      PIC X(08)
                                IDENTIFIED BY "data".
                             08 XML-EFX33-037-FACONUC-EMP     PIC X(50)
                                IDENTIFIED BY "empresa".
                             08 XML-EFX33-037-FACONUC-QT      PIC X(08)
                                IDENTIFIED BY "quantidade".
      *................................................................*
       WORKING-STORAGE SECTION.
       01 XML-FILE-STATUS           PIC S9(9) COMP.
       01 ERRO-XML                  PIC 9(9)     VALUE ZEROS.
       01 WK-MSG                    PIC X(250)   VALUE SPACES.
       01 WK-COUNT                  PIC 9(05)     VALUE ZEROS.
       01 OK                        PIC X        VALUE SPACES.
      *................................................................*
       PROCEDURE DIVISION.
       INICIO.
           OPEN INPUT XML-FILE
           IF XML-FILE-STATUS NOT = ZEROS
              MOVE XML-FILE-STATUS     TO ERRO-XML
              STRING "ERRO ABERTURA XML >> " ERRO-XML INTO WK-MSG
              GO TO FIM
           END-IF
           .

       LER-XML.
           READ XML-FILE
           IF XML-FILE-STATUS < 0
              EXHIBIT NAMED XML-FILE-STATUS
              GO TO FIM
           END-IF

           DISPLAY "Resposta da Consulta"
           DISPLAY "--------------------"
           DISPLAY "  "

           PERFORM LER-RESP
           IF ERRO-XML NOT = ZEROS
              GO TO FIM
           END-IF

           DISPLAY "FIM DO ARQUIVO"
           .

       FIM.
           IF ERRO-XML NOT = ZEROS
              DISPLAY WK-MSG
           END-IF
           CLOSE XML-FILE
           STOP RUN.
      *-----------------------------------------------------------------
       LER-RESP.
           START XML-FILE KEY XML-EFX33-XML
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF
           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-XML
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF
              
              PERFORM LER-EFX33-036
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-036.
           START XML-FILE KEY XML-EFX33-036
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   ADMINSTRADORES  "
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-036
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              PERFORM LER-EFX33-037-F-ADMS
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-F-ADMS.
           START XML-FILE KEY XML-EFX33-037-F-ADMS
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   ADMINSTRADORES  PF "
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-037-F-ADMS
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              PERFORM LER-EFX33-037-F-ADM
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-F-ADM.
           START XML-FILE KEY XML-EFX33-037-F-ADM
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   ADMINSTRADOR  PF "
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              add 1 to wk-count

              display "ADMINSTRADOR " WK-COUNT 
              DISPLAY "------------"
              READ XML-FILE NEXT KEY XML-EFX33-037-F-ADM
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              PERFORM LER-EFX33-037-FA-CONS
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-FA-CONS.
           START XML-FILE KEY XML-EFX33-037-FA-CONS
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   CONSULTAS"
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-037-FA-CONS
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              PERFORM LER-EFX33-037-FACON-RES
              PERFORM LER-EFX33-037-FACON-TOT
              PERFORM LER-EFX33-037-FACON-VIG
              PERFORM LER-EFX33-037-FACON-MES
              PERFORM LER-EFX33-037-FACON-ULT

           END-PERFORM
           accept ok
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-FACON-RES.
           START XML-FILE KEY XML-EFX33-037-FACON-RES
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   RESUMO "
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-037-FACON-RES
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              DISPLAY XML-EFX33-037-FACONR-QTDE
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-FACON-TOT.
           START XML-FILE KEY XML-EFX33-037-FACON-TOT
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   TOTAIS "
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-037-FACON-TOT
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              DISPLAY XML-EFX33-037-FACONT-CON
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-FACON-VIG.
           START XML-FILE KEY XML-EFX33-037-FACON-VIG
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   VIGENTE"
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-037-FACON-VIG
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              DISPLAY XML-EFX33-037-FACONV-QTDE
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-FACON-MES.
           START XML-FILE KEY XML-EFX33-037-FACON-MES
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   MES    "
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-037-FACON-MES
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              DISPLAY XML-EFX33-037-FACONM-DATA
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-FACON-ULT.
           START XML-FILE KEY XML-EFX33-037-FACON-ULT
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   ULTIMOS  "
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-037-FACON-ULT
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              PERFORM LER-EFX33-037-FACONU-CON
           END-PERFORM
           EXIT.
      *-----------------------------------------------------------------
       LER-EFX33-037-FACONU-CON.
           START XML-FILE KEY XML-EFX33-037-FACONU-CON
           IF XML-FILE-STATUS < 0
              EXIT PARAGRAPH
           END-IF

           DISPLAY " "
           DISPLAY "   CONSULTA "
           DISPLAY "------------"
           DISPLAY " "

           PERFORM UNTIL EXIT
              IF ERRO-XML NOT = ZEROS
                 EXIT PERFORM
              END-IF
             
              READ XML-FILE NEXT KEY XML-EFX33-037-FACONU-CON
              IF XML-FILE-STATUS NOT = 0
                 EXIT PERFORM
              END-IF

              DISPLAY XML-EFX33-037-FACONUC-EMP
           END-PERFORM
           EXIT.
↧
Search
Viewing all articles
Browse latest Browse all 191

Trending Articles

Practice Sheet of Right form of verbs for HSC Students

September 22, 2019, 11:40 pm

Download: FK ft Shenky – Nakuyewa ”Prod by: Shenky”

February 16, 2017, 4:24 pm

How to win at Markstrat (Markstrat Tips and Tricks) – Vodites

January 5, 2014, 10:34 pm

Ominde Commission Report and Recommendations – Ominde Report of 1964

March 16, 2015, 5:14 am

Bureau of Internal Revenue: Regional Offices (Directory)

January 9, 2014, 11:06 pm

GO 53 on Enhancement of Ex-gratia upto 5 Lakhs Toddy Tappers in Telangana

March 26, 2017, 11:23 pm

Cakewalk CA-2A Leveling Amplifier v2.0.1.97 WiN, v2.0.1.96 OSX Incl Keygen

October 17, 2016, 7:20 am

Mp3 Download: Mdu - Kunjenjenjena

December 7, 2017, 8:16 am

How the kill the job , when DTP request running for long hours.

July 26, 2013, 2:41 am

Microsoft Intune から展開しているアプリのアップデートについて

October 17, 2016, 4:11 am

18-year-old girl was beaten for half an hour by two Northampton men in 'an...

September 1, 2017, 10:00 pm

Car crash in Dunton Bassett leaves driver in critical condition

October 7, 2014, 7:51 am

Macky 2, Two Others In Road Accident

March 29, 2015, 5:34 am

Application log 00000000000000089514: Could not convert queue DLVST90CLNT

May 14, 2015, 11:27 pm

Detroit mafia: D’Anna Brothers agree to plea deal

April 21, 2016, 6:56 am

Delivery block field greyed out using VA02

January 26, 2016, 2:52 pm

Muloraki Au

June 22, 2016, 1:44 am

【個人撮影】スマホのプライベート映像♪「中に出さないで///」カラオケ屋での生ハメ撮りが流出ｗ【リベンジポルノ】＠PornHub

October 12, 2017, 2:23 pm

BREAKING NEWS: Diamond Platnumz Is Reported Dead After Ghastly Car Accident

February 9, 2018, 4:56 am

FIAT 500 B0111 B0112

July 5, 2018, 10:31 am
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>