IDENTIFICATION DIVISION.
       PROGRAM-ID. RXSGEM.
      *  OPRETTET DEN 07/12-05 AF I2287
      *
      *        RXS: DATASKJUL TIL XML-BUFFERE  SDBSTEST.SLUTSTND.LIBRA
      * 2011-08-24 DE TO FØRSTE BUFFERE ER 16 MB
      * 2011-08-31 RETTET TILBAGE TIL 3 MB
      *
      **   MORTEN BOEGH  HTTP://WWW.RXS.SE      */
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  LIBRATID              PIC X(24)                              LIBRATID
                         VALUE 'LIBRATIDLIBRATIDLIBRATID'.              LIBRATID
       01  FILLER                REDEFINES LIBRATID.                    LIBRATID
           02      LT-PGMID-DTO-VERSION.                                LIBRATID
             03    LT-PGMID      PIC X(8).                              LIBRATID
             03    LT-DTO-VERSION.                                      LIBRATID
               04  LT-DTO        PIC X(6).                              LIBRATID
               04  LT-VERSION    PIC X(2).                              LIBRATID
           02      LT-TID        PIC X(8).                              LIBRATID
              COPY INCVAR.
       01  WS-BUFFER-1      PIC X(3000100).
      
       01  WS-BUFFER-2      PIC X(3000100).
      
       01          WS-XML-ELEMENT-G.
        02         FILLER          OCCURS 100.
         03        WS-XML-ELEMENT        PIC X(1000).
         03        WS-XML-ELEMENT-LGTH   PIC S9(8) COMP.
      
       01          WS-XML-ATTRIB-G.
        02         FILLER          OCCURS 100.
         03        WS-XML-ATTRIB         PIC X(1000).
         03        WS-XML-ATTRIB-LGTH    PIC S9(8) COMP.
      
       01          WS-XML-ATTRIB-VALUE-G.
        02         FILLER          OCCURS 100.
         03        WS-XML-ATTRIB-VALUE      PIC X(1000).
         03        WS-XML-ATTRIB-VALUE-LGTH PIC S9(8) COMP.
      
       01          WS-XML-TEXT-G.
        02         WS-XML-TEXT              PIC X(500000).
        02         WS-TEMP-XML-TEXT         PIC X(500000).
      
      
       LINKAGE SECTION.
       01  POINTER-1        POINTER.
       01  POINTER-2        POINTER.
       01  POINTER-3        POINTER.
       01  POINTER-4        POINTER.
       01  POINTER-5        POINTER.
       01  POINTER-6        POINTER.
       PROCEDURE DIVISION USING
           POINTER-1
           POINTER-2
           POINTER-3
           POINTER-4
           POINTER-5
           POINTER-6
           .
           SET POINTER-1 TO ADDRESS OF WS-BUFFER-1
           SET POINTER-2 TO ADDRESS OF WS-BUFFER-2
           SET POINTER-3 TO ADDRESS OF WS-XML-ELEMENT-G
           SET POINTER-4 TO ADDRESS OF WS-XML-ATTRIB-G
           SET POINTER-5 TO ADDRESS OF WS-XML-ATTRIB-VALUE-G
           SET POINTER-6 TO ADDRESS OF WS-XML-TEXT-G
           GOBACK.