This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

funcion XML IMPORT TEXT using stylesheet HELP !!!!!!!

Does anyone know how to define the <Document> tag in the stylesheet when it comes with the attribute <Document xmlns="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08">.

I only manage to do it when I only leave the <Document> tag, when I add the attribute it returns this error

Error: 20[0] - in function: GetRootNode

Currently in the stylesheet, I have only implemented this

<xsl:template match="Document">

  <xsl:element name="Docume54">

  <xsl:value-of select="."/>

  <xsl:apply-templates select="@* | node()"/>

</xsl:element>

</xsl:template>

  • Suggested Answer

    0

    Dear Enrique,

    In your <xsl:stylesheet> element, you can declare a namespace alias;

    <xsl:stylesheet version="1.0"
    xmlns:xsl="">www.w3.org/.../Transform" xmlns:d="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08"
    >

    Then modify your <xsl:template> to:
    <xsl:template match="d:Document">

    The above is the recommended practice.  Remember that all the elements subordinate to the <Document xmlns="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08"> will have the same namespace inherited from the parent element.

    An alternative way to match the <Document xmlns="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08"> element would be:
    <xsl:template match="local-name() = 'Document'">
    This method is not recommended, since it will match elements named Document regardless of namespace.

  • 0 in reply to 

    Hi Tom, 

    Thanks alot

    I have tried both , doesn´t work , sure im not doing well

    This is the XML

    <Document xmlns="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08">

    <BkToCstmrDbtCdtNtfctn>

    <GrpHdr>

    <MsgId>NONREF</MsgId>

     <CreDtTm>2022-11-07T09:21:09.479+00:00</CreDtTm>               </GrpHdr>

    <Ntfctn>

    <Id>10308867</Id>

    <Acct>

     <Id>

    <Othr>

    <Id>MESEURBCOEESMMXXX001101980001BCE</Id>

    </Othr>

    </Id>

    <Ownr>

    <Id>

    <OrgId>

    <AnyBIC>BCOEESMMXXX</AnyBIC>

    </OrgId>

    </Id>

    </Ownr>

    </Acct>

    <Ntry>

    <NtryRef>2272295</NtryRef>

    <Amt Ccy="EUR">2022.00</Amt>

    <CdtDbtInd>CRDT</CdtDbtInd>

    <Sts>

    <Cd>BOOK</Cd>

    </Sts>

    <BookgDt>

    <DtTm>2022-11-07T09:21:09.395+00:00</DtTm>

    </BookgDt>

    <ValDt>

    <Dt>2022-11-07</Dt>

    </ValDt>

    <BkTxCd>

    <Prtry>

    <Cd>LIQT</Cd>

    </Prtry>

    </BkTxCd>

    <NtryDtls>

    <TxDtls>

    <Refs>

    <InstrId>4145679</InstrId>

    <EndToEndId>T2 TC RTGS AH ID1</EndToEndId>

    </Refs><Amt Ccy="EUR">2022.00</Amt>

    <RltdPties>

    <DbtrAcct>

    <Id>

    <Othr>

    <Id>RESEURBCOEESMMXXX001201980001BCE</Id>

    </Othr>

    </Id>

    </DbtrAcct>

    <CdtrAcct>

    <Id>

    <Othr>

    <Id>MESEURBCOEESMMXXX001101980001BCE</Id>

    </Othr>

    </Id>

    </CdtrAcct>

    </RltdPties>

    <LclInstrm>

    <Prtry>LIIE</Prtry>

    </LclInstrm>

    </TxDtls>

    </NtryDtls>

    </Ntry>

    </Ntfctn>

    </BkToCstmrDbtCdtNtfctn>

    </Document>

    This is the stylesheet working

    <?xml version="1.0" encoding="utf-8"?>
    <xsl:stylesheet version="1.0" xmlns:xsl="">www.w3.org/.../Transform"
    xmlns:msxsl="urn:schemas-microsoft-com:xslt" exclude-result-prefixes="msxsl" >
    <xsl:output method="xml" indent="yes"/>

    <xsl:template match="Document">
    <xsl:element name="Docume54">
    <xsl:value-of select="."/>
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="Document/BkToCstmrDbtCdtNtfctn/GrpHdr/MsgId">
    <xsl:element name="campo1">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="Document/BkToCstmrDbtCdtNtfctn/GrpHdr/CreDtTm">
    <xsl:element name="campo2">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="Document/BkToCstmrDbtCdtNtfctn/Ntfctn/Id">
    <xsl:element name="campo3">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="Document/BkToCstmrDbtCdtNtfctn/Ntfctn/Acct/Id/Othr/Id">
    <xsl:element name="campo4">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="Document/BkToCstmrDbtCdtNtfctn/Ntfctn/Acct/Ownr/Id/OrgId/AnyBIC">
    <xsl:element name="campo5">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="Document/BkToCstmrDbtCdtNtfctn/Ntfctn/Ntry/NtryRef">
    <xsl:element name="campo6">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    ...... the same for all fields

    I have to do like that because to many fields and levels called Id for example

    If I tried the first solution 

    I changed stylesheet like that 

    BROWSE /home/u020402/batload/toint54.xslprueba1 -------------------------------------
    COMMAND ===>
    ************************************************************************************
    <?xml version="1.0" encoding="utf-8"?>
    <xsl:stylesheet version="1.0" xmlns:xsl="">www.w3.org/.../Transform"
    xmlns:d="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08">

    <xsl:output method="xml" indent="yes"/>

    <xsl:template match="d:Document">
    <xsl:element name="docume54">
    <xsl:value-of select="."/>
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="d:Document/BkToCstmrDbtCdtNtfctn/GrpHdr/MsgId">
    <xsl:element name="campo1">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="d:Document/BkToCstmrDbtCdtNtfctn/GrpHdr/CreDtTm">
    <xsl:element name="campo2">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="d:Document/BkToCstmrDbtCdtNtfctn/Ntfctn/Id">
    <xsl:element name="campo3">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="d:Document/BkToCstmrDbtCdtNtfctn/Ntfctn/Acct/Id/Othr/Id">
    <xsl:element name="campo4">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    With this code , now yes,  found rootnode but doesn´t convert something, nothing at all.

    If y try the second 

    BROWSE /home/u020402/batload/toint54.xsl ------------------------------------------------------
    COMMAND ===>
    ************************************************************************************ TOP OF DAT
    <?xml version="1.0" encoding="utf-8"?>
    <xsl:stylesheet version="1.0" xmlns:xsl="">www.w3.org/.../Transform"
    xmlns:msxsl="urn:schemas-microsoft-com:xslt" exclude-result-prefixes="msxsl" >
    <xsl:output method="xml" indent="yes"/>

    <xsl:template match="local-name() = 'Document'">
    <xsl:element name="Docume54">
    <xsl:value-of select="."/>
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="Document/BkToCstmrDbtCdtNtfctn/GrpHdr/MsgId">
    <xsl:element name="campo1">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    <xsl:template match="Document/BkToCstmrDbtCdtNtfctn/GrpHdr/CreDtTm">
    <xsl:element name="campo2">
    <xsl:apply-templates select="@* | node()"/>
    </xsl:element>
    </xsl:template>

    I have this 

    Uno:CA54<Document xmlns="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08"><BkT
    estoy en z
    Status: +0030
    Error: 30[4] - in function: LoadStyleSheet
    /ONLINE/bin/toint54.xsl
    error
    xsltCompileIdKeyPattern : expecting 'key' or 'id' or node type
    compilation error: file /ONLINE/bin/toint54.xsl line 6 element template
    xsltCompilePattern : failed to compile 'local-name() = 'Document''
    kike cod-txe>

    What i'm doing worng?

  • 0 in reply to 

    Enrique,

    Since this is for XML IMPORT FILE, can you please post the COBOL data structure that is the target for the import?  That would help me provide a much less complex XSL solution.

    Thanks!

  • 0 in reply to 

    This XSLT might be closer to what you want. Although XSL uses declarative programming, sometimes a straightforward procedural programming approach is easier.

    <xsl:stylesheet version="1.0" xmlns:xsl="">www.w3.org/.../Transform"
    xmlns:d="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08"
    exclude-result-prefixes="d">

    <xsl:output method="xml" indent="yes" encoding="utf-8"/>

    <xsl:template match="/">
    <docume54>
    <campo1><xsl:value-of select="d:Document/d:BkToCstmrDbtCdtNtfctn/d:GrpHdr/d:MsgId"/></campo1>
    <campo2><xsl:value-of select="d:Document/d:BkToCstmrDbtCdtNtfctn/d:GrpHdr/d:CreDtTm"/></campo2>
    <campo3><xsl:value-of select="d:Document/d:BkToCstmrDbtCdtNtfctn/d:Ntfctn/d:Id"/></campo3>
    <campo4><xsl:value-of select="d:Document/d:BkToCstmrDbtCdtNtfctn/d:Ntfctn/d:Acct/d:Id/d:Othr/d:Id"/></campo4>
    </docume54>
    </xsl:template>

    </xsl:stylesheet>

    The output produced is 

    <?xml version="1.0" encoding="UTF-8"?>
    <docume54>
    <campo1>NONREF</campo1>
    <campo2>2022-11-07T09:21:09.479+00:00</campo2>
    <campo3>10308867</campo3>
    <campo4>MESEURBCOEESMMXXX001101980001BCE</campo4>
    </docume54>

  • 0 in reply to 

    hi Tom ,

    this is the data structure

    01 Docume54.
    02 campo1 PIC X(35).
    02 campo2 PIC X(80).
    02 campo3 pic x(35).
    02 campo4 pic x(34).
    02 campo5 pic x(80).
    02 campo6 pic x(35).
    02 AmtGroup1.
    03 Amt1 PIC zzzzzzzzzzzzzzzzzz,99.
    03 Attr-Ccy1 PIC X(80).
    02 campo7 pic x(80).
    02 campo8 pic x(80).
    02 campo9 pic x(80).
    02 campo10 pic x(80).
    02 campo11 pic x(80).
    02 campo12 pic x(04).
    02 AmtGroup2.
    03 Amt2 PIC zzzzzzzzzzzzzzzzzz,99.
    03 Attr-Ccy2 PIC X(80).
    02 campo13 pic x(35).
    02 campo14 pic x(35).
    02 campo15 pic x(80).
    02 AmtGroup3.
    03 Amt3 PIC zzzzzzzzzzzzzzzzzz,99.
    03 Attr-Ccy3 PIC X(80).
    02 campo16 pic x(80).
    02 campo17 PIC X(34).
    02 campo18 pic x(80).
    02 campo19 PIC X(34).
    02 campo20 PIC X(80).
    02 campo21 PIC X(80).
    02 campo22 PIC X(35).
    02 campo23 PIC X(35).
    02 campo24 PIC X(140).

    Actually is working but i have to make some transformations before like leave the tag like that <Document>

    I'm trying to make a conversor for the target2 messaging,  xml to text   and text to Xml.

    Using xml export text having the same problem 

    I only can obtein the tag like <Document> and later on i have to add the namespace before send the xml

  • 0 in reply to 

    hi , 

    i didn't know that i have to add "d:" each node , i thought only in the begging like that 

    <xsl:template match="d:Document/BkToCstmrDbtCdtNtfctn/GrpHdr/MsgId">

    Tomorrow at work ill try like this 

    <xsl:template match="d:Document/d:BkToCstmrDbtCdtNtfctn/d:GrpHdr/d:MsgId">

    this is tha way inst it?

  • 0 in reply to 
    later on i have to add the namespace before send the xml

    On XML EXPORT TEXT, you would use the XSLT to make the transformations, and to create a <Document> element with a namespace.  

    QUESTION:

    Are you using any XML/XSLT tool for creating and testing the XSLT?  If not, (1) on Windows you can use Notepad++ with the 'XML Tools' plugin, or (2) on Linux/Unix use command line tool 'xsltproc', to test the XSLT outside of COBOL.  My methodology is to debug the XSLT using a non-COBOL tool before using it in XML EXPORT/IMPORT TEXT.  (I use Stylus Studio, but it has a license fee.  Notepad++ and xsltproc are free.)

  • 0 in reply to 

    Dear Enrique,

    Yes, that match expression with the added namespace alias (in the example 'd:') on each node of the path should match.  

    However, I urge you to look at my second post from today:
    RE: funcion XML IMPORT TEXT using stylesheet HELP !!!!!!!
    This shows a way that is more procedural, and very simple.

  • 0 in reply to 

    Hi Tom,

    thanks thanks alot im learning how you cant imagine.

    I have been tryiing with notepad ++ i dint know , is the first time working with .xslt , lerning by my own.(now i can prove with notepad ++)

    I got it, working , thanks Tom I just tried now 

    <Document xmlns="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08"><BkToCstmrDbtCdtNtfctn><GrpHdr><MsgId>NONREF</MsgId><CreDtTm>2022-11-07T09:21:09.479+00:00</CreDtTm>

    i obtain 

    documen54-->NONREF                             2022-11-07T09:21:09.479+00:00                                                   10308867                           MESEURBCOEESMMXXX0011019800

    as soon as i add d: at each node everything is working.

    Tom thank thanks , now next case, ill try xml export text i need to add  xmlns="urn:iso:std:iso:20022:tech:xsd:camt.054.001.08" only at document tag.

  • 0 in reply to 

    Tom another question,

    i have a xsd that give me a COBOL data structure big to big , the second half of the sctruture is the same as the first one just change one lvl, when i have this structure the program get crazy, i mean it doesn´t know where he is.

    I post the scruture for one message 

    ¿what is the best way to manage this message?

    How the names are the same the levels calls as a field.......

    Do i have to move one by one each tag?

    I have tried to move the second half of the struture, but wih stylesheet i cant , only works one of them. or move the first half automatic o the second one , one by one each tag, but never both together

      01 Documen9.
    02 FICdtTrf.
    03 GrpHdr.
    04 MsgId PIC X(35).
    04 CreDtTm PIC X(80).
    04 NbOfTxs PIC X(80).
    04 SttlmInf.
    05 SttlmMtd PIC X(80).
    05 ClrSys.
    06 Cd PIC X(80).
    03 CdtTrfTxInf.
    04 PmtId.
    05 InstrId PIC X(35).
    05 EndToEndId PIC X(35).
    05 UETR PIC X(80).
    05 ClrSysRef PIC X(35).
    04 PmtTpInf.
    05 InstrPrty PIC X(80).
    05 SvcLvl occurs 3 times.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 LclInstrm.
    06 Cd PIC X(35).
    06 Prtry PIC X(35).
    05 CtgyPurp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    04 IntrBkSttlmAmtg2.
    05 IntrBkSttlmAmt PIC S9(18)V9(2).
    05 Attr-Ccy PIC X(80).
    04 IntrBkSttlmDt PIC X(80).
    04 SttlmPrty PIC X(80).
    04 SttlmTmIndctn.
    05 CdtDtTm PIC X(80).
    04 SttlmTmReq.
    05 TillTm PIC X(80).
    05 FrTm PIC X(80).
    05 RjctTm PIC X(80).
    04 PrvsInstgAgt1.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70) .
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    07 AdrLine PIC X(35) occurs 3 times.
    04 PrvsInstgAgt1Acct.
    05 Id.
    06 IBAN PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 PrvsInstgAgt2.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    04 PrvsInstgAgt2Acct.
    05 Id .
    06 IBAN PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 PrvsInstgAgt3.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    04 PrvsInstgAgt3Acct.
    05 Id.
    06 IBAN PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 InstgAgt.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 LEI PIC X(80).
    04 InstdAgt.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 LEI PIC X(80).
    04 IntrmyAgt1.
    05 FinInstnId.
    06 BICF1 PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70) .
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    07 AdrLine PIC X(35) occurs 3 times.
    04 IntrmyAgt1Acct.
    05 Id.
    06 IBA1 PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp .
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 IntrmyAgt2.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70) .
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    04 IntrmyAgt2Acct.
    05 Id.
    06 IBAN PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 IntrmyAgt3.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    04 IntrmyAgt3Acct.
    05 Id.
    06 IBAN PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 Dbtr.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    07 AdrLine PIC X(35) occurs 3 times.
    04 DbtrAcct.
    05 Id.
    06 IBAN PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 DbtrAgt.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    07 AdrLine PIC X(35) occurs 3 times.
    04 DbtrAgtAcct.
    05 Id.
    06 IBAN PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 CdtrAgt.
    05 FinInstnId.
    06 BICF1 PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    07 AdrLine PIC X(35) occurs 3 times.
    04 CdtrAgtAcct.
    05 Id.
    06 IBA1 PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 Cdtr.
    05 FinInstnId.
    06 BICFI PIC X(80).
    06 ClrSysMmbId.
    07 ClrSysId.
    08 Cd PIC X(5).
    07 MmbId PIC X(28).
    06 LEI PIC X(80).
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    07 AdrLine PIC X(35) occurs 3 times.
    04 CdtrAcct.
    05 Id .
    06 IBA1 PIC X(80).
    06 Othr.
    07 Id PIC X(34).
    07 SchmeNm.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Issr PIC X(35).
    05 Tp.
    06 Cd PIC X(4).
    06 Prtry PIC X(35).
    05 Ccy PIC X(80).
    05 Nm PIC X(70).
    05 Prxy.
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Id PIC X(320).
    04 InstrForCdtrAgt occurs 2 times.
    05 C1 PIC X(80).
    05 InstrIn1 PIC X(140).
    04 InstrForNxtAgt occurs 6 times.
    05 InstrInf PIC X(35).
    04 Purp.
    05 Cd PIC X(4).
    05 Prtry PIC X(35).
    04 RmtInf.
    05 Ustr1 PIC X(140).
    04 UndrlygCstmrCdtTrf .
    05 UltmtDbtr.
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    06 Id.
    07 OrgId.
    08 AnyBIC PIC X(80).
    08 LEI PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    07 PrvtId.
    08 DtAndPlcOfBirth.
    09 BirthDt PIC X(80).
    09 PrvcOfBirth PIC X(35).
    09 CityOfBirth PIC X(35).
    09 CtryOfBirth PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    06 CtryOfRes PIC X(80).
    05 InitgPty.
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    06 Id.
    07 OrgId.
    08 AnyBIC PIC X(80).
    08 LEI PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    07 PrvtId.
    08 DtAndPlcOfBirth.
    09 BirthDt PIC X(80).
    09 PrvcOfBirth PIC X(35).
    09 CityOfBirth PIC X(35).
    09 CtryOfBirth PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    06 CtryOfRes PIC X(80).
    05 Dbtr.
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    07 AdrLine PIC X(35) occurs 3 times.
    06 Id.
    07 OrgId.
    08 AnyBIC PIC X(80).
    08 LEI PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    07 PrvtId.
    08 DtAndPlcOfBirth.
    09 BirthDt PIC X(80).
    09 PrvcOfBirth PIC X(35).
    09 CityOfBirth PIC X(35).
    09 CtryOfBirth PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    06 CtryOfRes PIC X(80).
    06 CtctDtls.
    07 Nm PIC X(140).
    07 PhneNb PIC X(30).
    07 MobNb PIC X(30).
    07 FaxNb PIC X(30).
    07 EmailAdr PIC X(320).
    05 DbtrAcct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 DbtrAgt.
    06 FinInstnId.
    07 BICFI PIC X(80).
    07 ClrSysMmbId.
    08 ClrSysId.
    09 Cd PIC X(5).
    08 MmbId PIC X(28).
    07 LEI PIC X(80).
    07 Nm PIC X(140).
    07 PstlAdr.
    08 Dept PIC X(70).
    08 SubDept PIC X(70).
    08 StrtNm PIC X(70).
    08 BldgNb PIC X(16).
    08 BldgNm PIC X(35).
    08 Flr PIC X(70).
    08 PstBx PIC X(16).
    08 Room PIC X(70).
    08 PstCd PIC X(16).
    08 TwnNm PIC X(35).
    08 TwnLctnNm PIC X(35).
    08 DstrctNm PIC X(35).
    08 CtrySubDvsn PIC X(35).
    08 Ctry PIC X(80).
    08 AdrLine PIC X(35) occurs 3 times.
    05 DbtrAgtAcct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 PrvsInstgAgt1.
    06 FinInstnId.
    07 BICFI PIC X(80).
    07 ClrSysMmbId.
    08 ClrSysId.
    09 Cd PIC X(5).
    08 MmbId PIC X(28).
    07 LEI PIC X(80).
    07 Nm PIC X(140).
    07 PstlAdr.
    08 Dept PIC X(70).
    08 SubDept PIC X(70).
    08 StrtNm PIC X(70).
    08 BldgNb PIC X(16).
    08 BldgNm PIC X(35).
    08 Flr PIC X(70).
    08 PstBx PIC X(16).
    08 Room PIC X(70).
    08 PstCd PIC X(16).
    08 TwnNm PIC X(35).
    08 TwnLctnNm PIC X(35).
    08 DstrctNm PIC X(35).
    08 CtrySubDvsn PIC X(35).
    08 Ctry PIC X(80).
    08 AdrLine PIC X(35) occurs 3 times.
    05 PrvsInstgAgt1Acct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 PrvsInstgAgt2.
    06 FinInstnId.
    07 BICFI PIC X(80).
    07 ClrSysMmbId.
    08 ClrSysId.
    09 Cd PIC X(5).
    08 MmbId PIC X(28).
    07 LEI PIC X(80).
    07 Nm PIC X(140).
    07 PstlAdr.
    08 Dept PIC X(70).
    08 SubDept PIC X(70).
    08 StrtNm PIC X(70).
    08 BldgNb PIC X(16).
    08 BldgNm PIC X(35).
    08 Flr PIC X(70).
    08 PstBx PIC X(16).
    08 Room PIC X(70).
    08 PstCd PIC X(16).
    08 TwnNm PIC X(35).
    08 TwnLctnNm PIC X(35).
    08 DstrctNm PIC X(35).
    08 CtrySubDvsn PIC X(35).
    08 Ctry PIC X(80).
    05 PrvsInstgAgt2Acct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 PrvsInstgAgt3.
    06 FinInstnId.
    07 BICFI PIC X(80).
    07 ClrSysMmbId.
    08 ClrSysId.
    09 Cd PIC X(5).
    08 MmbId PIC X(28).
    07 LEI PIC X(80).
    07 Nm PIC X(140).
    07 PstlAdr.
    08 Dept PIC X(70).
    08 SubDept PIC X(70).
    08 StrtNm PIC X(70).
    08 BldgNb PIC X(16).
    08 BldgNm PIC X(35).
    08 Flr PIC X(70).
    08 PstBx PIC X(16).
    08 Room PIC X(70).
    08 PstCd PIC X(16).
    08 TwnNm PIC X(35).
    08 TwnLctnNm PIC X(35).
    08 DstrctNm PIC X(35).
    08 CtrySubDvsn PIC X(35).
    08 Ctry PIC X(80).
    05 PrvsInstgAgt3Acct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 IntrmyAgt1.
    06 FinInstnId.
    07 BICFI PIC X(80).
    07 ClrSysMmbId.
    08 ClrSysId.
    09 Cd PIC X(5).
    08 MmbId PIC X(28).
    07 LEI PIC X(80).
    07 Nm PIC X(140).
    07 PstlAdr.
    08 Dept PIC X(70).
    08 SubDept PIC X(70).
    08 StrtNm PIC X(70).
    08 BldgNb PIC X(16).
    08 BldgNm PIC X(35).
    08 Flr PIC X(70).
    08 PstBx PIC X(16).
    08 Room PIC X(70).
    08 PstCd PIC X(16).
    08 TwnNm PIC X(35).
    08 TwnLctnNm PIC X(35).
    08 DstrctNm PIC X(35).
    08 CtrySubDvsn PIC X(35).
    08 Ctry PIC X(80).
    08 AdrLine PIC X(35) occurs 3 times.
    05 IntrmyAgt1Acct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 IntrmyAgt2.
    06 FinInstnId.
    07 BICFI PIC X(80).
    07 ClrSysMmbId.
    08 ClrSysId.
    09 Cd PIC X(5).
    08 MmbId PIC X(28).
    07 LEI PIC X(80).
    07 Nm PIC X(140).
    07 PstlAdr.
    08 Dept PIC X(70).
    08 SubDept PIC X(70).
    08 StrtNm PIC X(70).
    08 BldgNb PIC X(16).
    08 BldgNm PIC X(35).
    08 Flr PIC X(70).
    08 PstBx PIC X(16).
    08 Room PIC X(70).
    08 PstCd PIC X(16).
    08 TwnNm PIC X(35).
    08 TwnLctnNm PIC X(35).
    08 DstrctNm PIC X(35).
    08 CtrySubDvsn PIC X(35).
    08 Ctry PIC X(80).
    05 IntrmyAgt2Acct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 IntrmyAgt3.
    06 FinInstnId.
    07 BICFI PIC X(80).
    07 ClrSysMmbId .
    08 ClrSysId .
    09 Cd PIC X(5).
    08 MmbId PIC X(28).
    07 LEI PIC X(80).
    07 Nm PIC X(140).
    07 PstlAdr.
    08 Dept PIC X(70).
    08 SubDept PIC X(70).
    08 StrtNm PIC X(70).
    08 BldgNb PIC X(16).
    08 BldgNm PIC X(35).
    08 Flr PIC X(70).
    08 PstBx PIC X(16).
    08 Room PIC X(70).
    08 PstCd PIC X(16).
    08 TwnNm PIC X(35).
    08 TwnLctnNm PIC X(35).
    08 DstrctNm PIC X(35).
    08 CtrySubDvsn PIC X(35).
    08 Ctry PIC X(80).
    05 IntrmyAgt3Acct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 CdtrAgt.
    06 FinInstnId.
    07 BICFI PIC X(80).
    07 ClrSysMmbId.
    08 ClrSysId.
    09 Cd PIC X(5).
    08 MmbId PIC X(28).
    07 LEI PIC X(80).
    07 Nm PIC X(140).
    07 PstlAdr.
    08 Dept PIC X(70).
    08 SubDept PIC X(70).
    08 StrtNm PIC X(70).
    08 BldgNb PIC X(16).
    08 BldgNm PIC X(35).
    08 Flr PIC X(70).
    08 PstBx PIC X(16).
    08 Room PIC X(70).
    08 PstCd PIC X(16).
    08 TwnNm PIC X(35).
    08 TwnLctnNm PIC X(35).
    08 DstrctNm PIC X(35).
    08 CtrySubDvsn PIC X(35).
    08 Ctry PIC X(80).
    08 AdrLine PIC X(35) occurs 3 times.
    05 CdtrAgtAcct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 Cdtr.
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    07 AdrLine PIC X(35) occurs 3 times.
    06 Id.
    07 OrgId.
    08 AnyBIC PIC X(80).
    08 LEI PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    07 PrvtId.
    08 DtAndPlcOfBirth.
    09 BirthDt PIC X(80).
    09 PrvcOfBirth PIC X(35).
    09 CityOfBirth PIC X(35).
    09 CtryOfBirth PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    06 CtryOfRes PIC X(80).
    05 CdtrAcct.
    06 Id.
    07 IBAN PIC X(80).
    07 Othr.
    08 Id PIC X(34).
    08 SchmeNm.
    09 Cd PIC X(4).
    09 Prtry PIC X(35).
    08 Issr PIC X(35).
    06 Tp.
    07 Cd PIC X(4).
    07 Prtry PIC X(35).
    06 Ccy PIC X(80).
    06 Nm PIC X(70).
    06 Prxy.
    07 Tp.
    08 Cd PIC X(4).
    08 Prtry PIC X(35).
    07 Id PIC X(320).
    05 UltmtCdtr.
    06 Nm PIC X(140).
    06 PstlAdr.
    07 Dept PIC X(70).
    07 SubDept PIC X(70).
    07 StrtNm PIC X(70).
    07 BldgNb PIC X(16).
    07 BldgNm PIC X(35).
    07 Flr PIC X(70).
    07 PstBx PIC X(16).
    07 Room PIC X(70).
    07 PstCd PIC X(16).
    07 TwnNm PIC X(35).
    07 TwnLctnNm PIC X(35).
    07 DstrctNm PIC X(35).
    07 CtrySubDvsn PIC X(35).
    07 Ctry PIC X(80).
    06 Id.
    07 OrgId.
    08 AnyBIC PIC X(80).
    08 LEI PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    07 PrvtId.
    08 DtAndPlcOfBirth.
    09 BirthDt PIC X(80).
    09 PrvcOfBirth PIC X(35).
    09 CityOfBirth PIC X(35).
    09 CtryOfBirth PIC X(80).
    08 Othr occurs 2 times.
    09 Id PIC X(35).
    09 SchmeNm.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    06 CtryOfRes PIC X(80).
    05 InstrForCdtrAgt occurs 2 times.
    06 Cd PIC X(80).
    06 InstrInf PIC X(140).
    05 InstrForNxtAgt occurs 6 times.
    06 InstrInf PIC X(35).
    05 RmtInf.
    06 Ustrd PIC X(140).
    06 Strd.
    07 RfrdDocInf.
    08 Tp.
    09 CdOrPrtry.
    10 Cd PIC X(80).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    08 Nb PIC X(35).
    08 RltdDt PIC X(80).
    08 LineDtls.
    09 Id.
    10 Tp.
    11 CdOrPrtry.
    12 Cd PIC X(4).
    12 Prtry PIC X(35).
    11 Issr PIC X(35).
    10 Nb PIC X(35).
    10 RltdDt PIC X(80).
    09 Desc PIC X(35).
    09 Amt.
    10 DuePyblAmtg5.
    11 DuePyblAmt PIC S9(18)V9(5).
    11 Attr-Ccy PIC X(80).
    10 DscntApldAmt.
    11 Tp.
    12 Cd PIC X(4).
    12 Prtry PIC X(35).
    11 Amtg5.
    12 Amt PIC S9(18)V9(5).
    12 Attr-Ccy PIC X(80).
    10 CdtNoteAmtg5.
    11 CdtNoteAmt PIC S9(18)V9(5).
    11 Attr-Ccy PIC X(80).
    10 TaxAmt.
    11 Tp.
    12 Cd PIC X(4).
    12 Prtry PIC X(35).
    11 Amtg5.
    12 Amt PIC S9(18)V9(5).
    12 Attr-Ccy PIC X(80).
    10 AdjstmntAmtAndRsn.
    11 Amtg5.
    12 Amt PIC S9(18)V9(5).
    12 Attry-Ccy PIC X(80).
    11 CdtDbtInd PIC X(80).
    11 Rsn PIC X(4).
    11 AddtlInf PIC X(140).
    10 RmtdAmtg5.
    11 RmtdAmt PIC S9(18)V9(5).
    11 Attr-Ccy PIC X(80).
    07 RfrdDocAmt.
    08 DuePyblAmtg5.
    09 DuePyblAmt PIC S9(18)V9(5).
    09 Attr-Ccy PIC X(80).
    08 DscntApldAmt.
    09 Tp.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Amtg5.
    10 Amt PIC S9(18)V9(5).
    10 Attr-Ccy PIC X(80).
    08 CdtNoteAmtg5..
    09 CdtNoteAmt PIC S9(18)V9(5).
    09 Attr-Ccy PIC X(80).
    08 TaxAmt.
    09 Tp.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Amtg5.
    10 Amt PIC S9(18)V9(5).
    10 Attr-Ccy PIC X(80).
    08 AdjstmntAmtAndRsn.
    09 Amtg5.
    10 Amt PIC S9(18)V9(5).
    10 Attr-Ccy PIC X(80).
    09 CdtDbtInd PIC X(80).
    09 Rsn PIC X(4).
    09 AddtlInf PIC X(140).
    08 RmtdAmtg5.
    09 RmtdAmt PIC S9(18)V9(5).
    09 Attr-Ccy PIC X(80).
    07 CdtrRefInf.
    08 Tp.
    09 CdOrPrtry.
    10 Cd PIC X(80).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    08 Ref PIC X(35).
    07 Invcr.
    08 Nm PIC X(140).
    08 PstlAdr.
    09 Dept PIC X(70).
    09 SubDept PIC X(70).
    09 StrtNm PIC X(70).
    09 BldgNb PIC X(16).
    09 BldgNm PIC X(35).
    09 Flr PIC X(70).
    09 PstBx PIC X(16).
    09 Room PIC X(70).
    09 PstCd PIC X(16).
    09 TwnNm PIC X(35).
    09 TwnLctnNm PIC X(35).
    09 DstrctNm PIC X(35).
    09 CtrySubDvsn PIC X(35).
    09 Ctry PIC X(80).
    08 Id.
    09 OrgId.
    10 AnyBIC PIC X(80).
    10 LEI PIC X(80).
    10 Othr occurs 2 times.
    11 Id PIC X(35).
    11 SchmeNm.
    12 Cd PIC X(4).
    12 Prtry PIC X(35).
    11 Issr PIC X(35).
    09 PrvtId.
    10 DtAndPlcOfBirth.
    11 BirthDt PIC X(80).
    11 PrvcOfBirth PIC X(35).
    11 CityOfBirth PIC X(35).
    11 CtryOfBirth PIC X(80).
    10 Othr occurs 2 times.
    11 Id PIC X(35).
    11 SchmeNm.
    12 Cd PIC X(4).
    12 Prtry PIC X(35).
    11 Issr PIC X(35).
    08 CtryOfRes PIC X(80).
    07 Invcee.
    08 Nm PIC X(140).
    08 PstlAdr.
    09 Dept PIC X(70).
    09 SubDept PIC X(70).
    09 StrtNm PIC X(70).
    09 BldgNb PIC X(16).
    09 BldgNm PIC X(35).
    09 Flr PIC X(70).
    09 PstBx PIC X(16).
    09 Room PIC X(70).
    09 PstCd PIC X(16).
    09 TwnNm PIC X(35).
    09 TwnLctnNm PIC X(35).
    09 DstrctNm PIC X(35).
    09 CtrySubDvsn PIC X(35).
    09 Ctry PIC X(80).
    08 Id.
    09 OrgId.
    10 AnyBIC PIC X(80).
    10 LEI PIC X(80).
    10 Othr occurs 2 times.
    11 Id PIC X(35).
    11 SchmeNm.
    12 Cd PIC X(4).
    12 Prtry PIC X(35).
    11 Issr PIC X(35).
    09 PrvtId.
    10 DtAndPlcOfBirth.
    11 BirthDt PIC X(80).
    11 PrvcOfBirth PIC X(35).
    11 CityOfBirth PIC X(35).
    11 CtryOfBirth PIC X(80).
    10 Othr occurs 2 times.
    11 Id PIC X(35).
    11 SchmeNm.
    12 Cd PIC X(4).
    12 Prtry PIC X(35).
    11 Issr PIC X(35).
    08 CtryOfRes PIC X(80).
    07 TaxRmt.
    08 Cdtr.
    09 TaxId PIC X(35).
    09 RegnId PIC X(35).
    09 TaxTp PIC X(35).
    08 Dbtr.
    09 TaxId PIC X(35).
    09 RegnId PIC X(35).
    09 TaxTp PIC X(35).
    09 Authstn.
    10 Titl PIC X(35).
    10 Nm PIC X(140).
    08 UltmtDbtr.
    09 TaxId PIC X(35).
    09 RegnId PIC X(35).
    09 TaxTp PIC X(35).
    09 Authstn.
    10 Titl PIC X(35).
    10 Nm PIC X(140).
    08 AdmstnZone PIC X(35).
    08 RefNb PIC X(140).
    08 Mtd PIC X(35).
    08 TtlTaxblBaseAmtg5.
    09 TtlTaxblBaseAmt PIC S9(18)V9(5).
    09 Attr-Ccy PIC X(80).
    08 TtlTaxAmtg5.
    09 TtlTaxAmt PIC S9(18)V9(5).
    09 Ccy PIC X(80).
    08 Dt PIC X(80).
    08 SeqNb PIC S9(18).
    08 Rcrd.
    09 Tp PIC X(35).
    09 Ctgy PIC X(35).
    09 CtgyDtls PIC X(35).
    09 DbtrSts PIC X(35).
    09 CertId PIC X(35).
    09 FrmsCd PIC X(35).
    09 Prd.
    10 Yr PIC X(80).
    10 Tp PIC X(80).
    10 FrToDt.
    11 FrDt PIC X(80).
    11 ToDt PIC X(80).
    09 TaxAmt.
    10 Rate PIC S9(11)V9(10).
    10 TaxblBaseAmtg5.
    11 TaxblBaseAmt PIC S9(18)V9(5).
    11 Attr-Ccy PIC X(80).
    10 TtlAmtg5.
    11 TtlAmt PIC S9(18)V9(5).
    11 Attr-Ccy PIC X(80).
    10 Dtls.
    11 Prd.
    12 Yr PIC X(80).
    12 Tp PIC X(80).
    12 FrToDt.
    13 FrDt PIC X(80).
    13 ToDt PIC X(80).
    11 Amtg5.
    12 Amt PIC S9(18)V9(5).
    12 Attr-Ccy PIC X(80).
    09 AddtlInf PIC X(140).
    07 GrnshmtRmt.
    08 Tp.
    09 CdOrPrtry.
    10 Cd PIC X(4).
    10 Prtry PIC X(35).
    09 Issr PIC X(35).
    08 Grnshee.
    09 Nm PIC X(140).
    09 PstlAdr.
    10 Dept PIC X(70).
    10 SubDept PIC X(70).
    10 StrtNm PIC X(70).
    10 BldgNb PIC X(16).
    10 BldgNm PIC X(35).
    10 Flr PIC X(70).
    10 PstBx PIC X(16).
    10 Room PIC X(70).
    10 PstCd PIC X(16).
    10 TwnNm PIC X(35).
    10 TwnLctnNm PIC X(35).
    10 DstrctNm PIC X(35).
    10 CtrySubDvsn PIC X(35).
    10 Ctry PIC X(80).
    09 Id.
    10 OrgId.
    11 AnyBIC PIC X(80).
    11 LEI PIC X(80).
    11 Othr occurs 2 times.
    12 Id PIC X(35).
    12 SchmeNm.
    13 Cd PIC X(4).
    13 Prtry PIC X(35).
    12 Issr PIC X(35).
    10 PrvtId.
    11 DtAndPlcOfBirth.
    12 BirthDt PIC X(80).
    12 PrvcOfBirth PIC X(35).
    12 CityOfBirth PIC X(35).
    12 CtryOfBirth PIC X(80).
    11 Othr occurs 2 times.
    12 Id PIC X(35).
    12 SchmeNm.
    13 Cd PIC X(4).
    13 Prtry PIC X(35).
    12 Issr PIC X(35).
    09 CtryOfRes PIC X(80).
    08 GrnshmtAdmstr.
    09 Nm PIC X(140).
    09 PstlAdr.
    10 Dept PIC X(70).
    10 SubDept PIC X(70).
    10 StrtNm PIC X(70).
    10 BldgNb PIC X(16).
    10 BldgNm PIC X(35).
    10 Flr PIC X(70).
    10 PstBx PIC X(16).
    10 Room PIC X(70).
    10 PstCd PIC X(16).
    10 TwnNm PIC X(35).
    10 TwnLctnNm PIC X(35).
    10 DstrctNm PIC X(35).
    10 CtrySubDvsn PIC X(35).
    10 Ctry PIC X(80).
    09 Id.
    10 OrgId.
    11 AnyBIC PIC X(80).
    11 LEI PIC X(80).
    11 Othr occurs 2 times.
    12 Id PIC X(35).
    12 SchmeNm.
    13 Cd PIC X(4).
    13 Prtry PIC X(35).
    12 Issr PIC X(35).
    10 PrvtId.
    11 DtAndPlcOfBirth.
    12 BirthDt PIC X(80).
    12 PrvcOfBirth PIC X(35).
    12 CityOfBirth PIC X(35).
    12 CtryOfBirth PIC X(80).
    11 Othr occurs 2 times.
    12 Id PIC X(35).
    12 SchmeNm.
    13 Cd PIC X(4).
    13 Prtry PIC X(35).
    12 Issr PIC X(35).
    09 CtryOfRes PIC X(80).
    08 RefNb PIC X(140).
    08 Dt PIC X(80).
    08 RmtdAmtg5.
    09 RmtdAmt PIC S9(18)V9(5).
    09 Attr-Ccy PIC X(80).
    08 FmlyMdclInsrncInd PIC X(80).
    08 MplyeeTermntnInd PIC X(80).
    07 AddtlRmtInf PIC X(140) occurs 3 times.
    05 InstdAmtg5.
    06 InstdAmt PIC S9(18)V9(5).
    06 Attr-Ccy PIC X(80).