       01  ACCTMNUI.
           05  FILLER            PIC  X(0012).
      *    -------------------------------
           05  SNAMEML PIC S9(0004) COMP.
           05  SNAMEMF PIC  X(0001).
           05  FILLER REDEFINES SNAMEMF.
               10  SNAMEMA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  SNAMEMI PIC  X(0012).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FNAMEML PIC S9(0004) COMP.
           05  FNAMEMF PIC  X(0001).
           05  FILLER REDEFINES FNAMEMF.
               10  FNAMEMA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  FNAMEMI PIC  X(0001).
      *    -------------------------------
           05  REQML PIC S9(0004) COMP.
           05  REQMF PIC  X(0001).
           05  FILLER REDEFINES REQMF.
               10  REQMA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  REQMI PIC  X(0001).
      *    -------------------------------
           05  ACCTML PIC S9(0004) COMP.
           05  ACCTMF PIC  X(0001).
           05  FILLER REDEFINES ACCTMF.
               10  ACCTMA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  ACCTMI PIC  X(0005).
      *    -------------------------------
           05  PRTRML PIC S9(0004) COMP.
           05  PRTRMF PIC  X(0001).
           05  FILLER REDEFINES PRTRMF.
               10  PRTRMA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  PRTRMI PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  SUMTTLML PIC S9(0004) COMP.
           05  SUMTTLMF PIC  X(0001).
           05  FILLER REDEFINES SUMTTLMF.
               10  SUMTTLMA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  SUMTTLMI PIC  X(0079).
           05  SUMLNMD OCCURS 6  TIMES.
      *    -------------------------------
               10  SUMLNML PIC S9(0004) COMP.
               10  SUMLNMF PIC  X(0001).
               10  FILLER REDEFINES SUMLNMF.
                   15  SUMLNMA PIC  X(0001).
               10  FILLER        PIC  X(4).
               10  SUMLNMI PIC  X(0079).
      *    -------------------------------
           05  MSGML PIC S9(0004) COMP.
           05  MSGMF PIC  X(0001).
           05  FILLER REDEFINES MSGMF.
               10  MSGMA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  MSGMI PIC  X(0060).
           05  FILLER            PIC  X(0001).
       01  ACCTMNUO REDEFINES ACCTMNUI.
           05  FILLER            PIC  X(0012).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  SNAMEMC PIC  X(0001).
           05  SNAMEMP PIC  X(0001).
           05  SNAMEMH PIC  X(0001).
           05  SNAMEMV PIC  X(0001).
           05  SNAMEMO PIC  X(0012).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  FNAMEMC PIC  X(0001).
           05  FNAMEMP PIC  X(0001).
           05  FNAMEMH PIC  X(0001).
           05  FNAMEMV PIC  X(0001).
           05  FNAMEMO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  REQMC PIC  X(0001).
           05  REQMP PIC  X(0001).
           05  REQMH PIC  X(0001).
           05  REQMV PIC  X(0001).
           05  REQMO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  ACCTMC PIC  X(0001).
           05  ACCTMP PIC  X(0001).
           05  ACCTMH PIC  X(0001).
           05  ACCTMV PIC  X(0001).
           05  ACCTMO PIC  X(0005).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  PRTRMC PIC  X(0001).
           05  PRTRMP PIC  X(0001).
           05  PRTRMH PIC  X(0001).
           05  PRTRMV PIC  X(0001).
           05  PRTRMO PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  SUMTTLMC PIC  X(0001).
           05  SUMTTLMP PIC  X(0001).
           05  SUMTTLMH PIC  X(0001).
           05  SUMTTLMV PIC  X(0001).
           05  SUMTTLMO PIC  X(0079).
      *    -------------------------------
           05  SUMLNMD OCCURS 6  TIMES.
               10  FILLER        PIC  X(3).
               10  SUMLNMC PIC  X(0001).
               10  SUMLNMP PIC  X(0001).
               10  SUMLNMH PIC  X(0001).
               10  SUMLNMV PIC  X(0001).
               10  SUMLNMO PIC  X(0079).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  MSGMC PIC  X(0001).
           05  MSGMP PIC  X(0001).
           05  MSGMH PIC  X(0001).
           05  MSGMV PIC  X(0001).
           05  MSGMO PIC  X(0060).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
       01  ACCTDTLI.
           05  FILLER            PIC  X(0012).
      *    -------------------------------
           05  TITLEDL PIC S9(0004) COMP.
           05  TITLEDF PIC  X(0001).
           05  FILLER REDEFINES TITLEDF.
               10  TITLEDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  TITLEDI PIC  X(0014).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  ACCTDL PIC S9(0004) COMP.
           05  ACCTDF PIC  X(0001).
           05  FILLER REDEFINES ACCTDF.
               10  ACCTDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  ACCTDI PIC  X(0005).
      *    -------------------------------
           05  SNAMEDL PIC S9(0004) COMP.
           05  SNAMEDF PIC  X(0001).
           05  FILLER REDEFINES SNAMEDF.
               10  SNAMEDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  SNAMEDI PIC  X(0018).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FNAMEDL PIC S9(0004) COMP.
           05  FNAMEDF PIC  X(0001).
           05  FILLER REDEFINES FNAMEDF.
               10  FNAMEDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  FNAMEDI PIC  X(0012).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  MIDL PIC S9(0004) COMP.
           05  MIDF PIC  X(0001).
           05  FILLER REDEFINES MIDF.
               10  MIDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  MIDI PIC  X(0001).
      *    -------------------------------
           05  TTLDL PIC S9(0004) COMP.
           05  TTLDF PIC  X(0001).
           05  FILLER REDEFINES TTLDF.
               10  TTLDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  TTLDI PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  TELDL PIC S9(0004) COMP.
           05  TELDF PIC  X(0001).
           05  FILLER REDEFINES TELDF.
               10  TELDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  TELDI PIC  X(0010).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  ADDR1DL PIC S9(0004) COMP.
           05  ADDR1DF PIC  X(0001).
           05  FILLER REDEFINES ADDR1DF.
               10  ADDR1DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  ADDR1DI PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  ADDR2DL PIC S9(0004) COMP.
           05  ADDR2DF PIC  X(0001).
           05  FILLER REDEFINES ADDR2DF.
               10  ADDR2DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  ADDR2DI PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  ADDR3DL PIC S9(0004) COMP.
           05  ADDR3DF PIC  X(0001).
           05  FILLER REDEFINES ADDR3DF.
               10  ADDR3DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  ADDR3DI PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  AUTH1DL PIC S9(0004) COMP.
           05  AUTH1DF PIC  X(0001).
           05  FILLER REDEFINES AUTH1DF.
               10  AUTH1DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  AUTH1DI PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  AUTH2DL PIC S9(0004) COMP.
           05  AUTH2DF PIC  X(0001).
           05  FILLER REDEFINES AUTH2DF.
               10  AUTH2DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  AUTH2DI PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  AUTH3DL PIC S9(0004) COMP.
           05  AUTH3DF PIC  X(0001).
           05  FILLER REDEFINES AUTH3DF.
               10  AUTH3DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  AUTH3DI PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  AUTH4DL PIC S9(0004) COMP.
           05  AUTH4DF PIC  X(0001).
           05  FILLER REDEFINES AUTH4DF.
               10  AUTH4DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  AUTH4DI PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  CARDSDL PIC S9(0004) COMP.
           05  CARDSDF PIC  X(0001).
           05  FILLER REDEFINES CARDSDF.
               10  CARDSDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  CARDSDI PIC  X(0001).
      *    -------------------------------
           05  IMODL PIC S9(0004) COMP.
           05  IMODF PIC  X(0001).
           05  FILLER REDEFINES IMODF.
               10  IMODA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  IMODI PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  IDAYDL PIC S9(0004) COMP.
           05  IDAYDF PIC  X(0001).
           05  FILLER REDEFINES IDAYDF.
               10  IDAYDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  IDAYDI PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  IYRDL PIC S9(0004) COMP.
           05  IYRDF PIC  X(0001).
           05  FILLER REDEFINES IYRDF.
               10  IYRDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  IYRDI PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  RSNDL PIC S9(0004) COMP.
           05  RSNDF PIC  X(0001).
           05  FILLER REDEFINES RSNDF.
               10  RSNDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  RSNDI PIC  X(0001).
      *    -------------------------------
           05  CCODEDL PIC S9(0004) COMP.
           05  CCODEDF PIC  X(0001).
           05  FILLER REDEFINES CCODEDF.
               10  CCODEDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  CCODEDI PIC  X(0001).
      *    -------------------------------
           05  APPRDL PIC S9(0004) COMP.
           05  APPRDF PIC  X(0001).
           05  FILLER REDEFINES APPRDF.
               10  APPRDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  APPRDI PIC  X(0003).
      *    -------------------------------
           05  SCODE1DL PIC S9(0004) COMP.
           05  SCODE1DF PIC  X(0001).
           05  FILLER REDEFINES SCODE1DF.
               10  SCODE1DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  SCODE1DI PIC  X(0001).
      *    -------------------------------
           05  SCODE2DL PIC S9(0004) COMP.
           05  SCODE2DF PIC  X(0001).
           05  FILLER REDEFINES SCODE2DF.
               10  SCODE2DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  SCODE2DI PIC  X(0001).
      *    -------------------------------
           05  SCODE3DL PIC S9(0004) COMP.
           05  SCODE3DF PIC  X(0001).
           05  FILLER REDEFINES SCODE3DF.
               10  SCODE3DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  SCODE3DI PIC  X(0001).
      *    -------------------------------
           05  STATTLDL PIC S9(0004) COMP.
           05  STATTLDF PIC  X(0001).
           05  FILLER REDEFINES STATTLDF.
               10  STATTLDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  STATTLDI PIC  X(0015).
      *    -------------------------------
           05  STATDL PIC S9(0004) COMP.
           05  STATDF PIC  X(0001).
           05  FILLER REDEFINES STATDF.
               10  STATDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  STATDI PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  LIMTTLDL PIC S9(0004) COMP.
           05  LIMTTLDF PIC  X(0001).
           05  FILLER REDEFINES LIMTTLDF.
               10  LIMTTLDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  LIMTTLDI PIC  X(0018).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  LIMITDL PIC S9(0004) COMP.
           05  LIMITDF PIC  X(0001).
           05  FILLER REDEFINES LIMITDF.
               10  LIMITDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  LIMITDI PIC  X(0008).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  HISTTLDL PIC S9(0004) COMP.
           05  HISTTLDF PIC  X(0001).
           05  FILLER REDEFINES HISTTLDF.
               10  HISTTLDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  HISTTLDI PIC  X(0071).
      *    -------------------------------
           05  HIST1DL PIC S9(0004) COMP.
           05  HIST1DF PIC  X(0001).
           05  FILLER REDEFINES HIST1DF.
               10  HIST1DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  HIST1DI PIC  X(0061).
      *    -------------------------------
           05  HIST2DL PIC S9(0004) COMP.
           05  HIST2DF PIC  X(0001).
           05  FILLER REDEFINES HIST2DF.
               10  HIST2DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  HIST2DI PIC  X(0061).
      *    -------------------------------
           05  HIST3DL PIC S9(0004) COMP.
           05  HIST3DF PIC  X(0001).
           05  FILLER REDEFINES HIST3DF.
               10  HIST3DA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  HIST3DI PIC  X(0061).
      *    -------------------------------
           05  MSGDL PIC S9(0004) COMP.
           05  MSGDF PIC  X(0001).
           05  FILLER REDEFINES MSGDF.
               10  MSGDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  MSGDI PIC  X(0060).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  VFYDL PIC S9(0004) COMP.
           05  VFYDF PIC  X(0001).
           05  FILLER REDEFINES VFYDF.
               10  VFYDA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  VFYDI PIC  X(0001).
       01  ACCTDTLO REDEFINES ACCTDTLI.
           05  FILLER            PIC  X(0012).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  TITLEDC PIC  X(0001).
           05  TITLEDP PIC  X(0001).
           05  TITLEDH PIC  X(0001).
           05  TITLEDV PIC  X(0001).
           05  TITLEDO PIC  X(0014).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  ACCTDC PIC  X(0001).
           05  ACCTDP PIC  X(0001).
           05  ACCTDH PIC  X(0001).
           05  ACCTDV PIC  X(0001).
           05  ACCTDO PIC  X(0005).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  SNAMEDC PIC  X(0001).
           05  SNAMEDP PIC  X(0001).
           05  SNAMEDH PIC  X(0001).
           05  SNAMEDV PIC  X(0001).
           05  SNAMEDO PIC  X(0018).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  FNAMEDC PIC  X(0001).
           05  FNAMEDP PIC  X(0001).
           05  FNAMEDH PIC  X(0001).
           05  FNAMEDV PIC  X(0001).
           05  FNAMEDO PIC  X(0012).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  MIDC PIC  X(0001).
           05  MIDP PIC  X(0001).
           05  MIDH PIC  X(0001).
           05  MIDV PIC  X(0001).
           05  MIDO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  TTLDC PIC  X(0001).
           05  TTLDP PIC  X(0001).
           05  TTLDH PIC  X(0001).
           05  TTLDV PIC  X(0001).
           05  TTLDO PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  TELDC PIC  X(0001).
           05  TELDP PIC  X(0001).
           05  TELDH PIC  X(0001).
           05  TELDV PIC  X(0001).
           05  TELDO PIC  X(0010).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  ADDR1DC PIC  X(0001).
           05  ADDR1DP PIC  X(0001).
           05  ADDR1DH PIC  X(0001).
           05  ADDR1DV PIC  X(0001).
           05  ADDR1DO PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  ADDR2DC PIC  X(0001).
           05  ADDR2DP PIC  X(0001).
           05  ADDR2DH PIC  X(0001).
           05  ADDR2DV PIC  X(0001).
           05  ADDR2DO PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  ADDR3DC PIC  X(0001).
           05  ADDR3DP PIC  X(0001).
           05  ADDR3DH PIC  X(0001).
           05  ADDR3DV PIC  X(0001).
           05  ADDR3DO PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  AUTH1DC PIC  X(0001).
           05  AUTH1DP PIC  X(0001).
           05  AUTH1DH PIC  X(0001).
           05  AUTH1DV PIC  X(0001).
           05  AUTH1DO PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  AUTH2DC PIC  X(0001).
           05  AUTH2DP PIC  X(0001).
           05  AUTH2DH PIC  X(0001).
           05  AUTH2DV PIC  X(0001).
           05  AUTH2DO PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  AUTH3DC PIC  X(0001).
           05  AUTH3DP PIC  X(0001).
           05  AUTH3DH PIC  X(0001).
           05  AUTH3DV PIC  X(0001).
           05  AUTH3DO PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  AUTH4DC PIC  X(0001).
           05  AUTH4DP PIC  X(0001).
           05  AUTH4DH PIC  X(0001).
           05  AUTH4DV PIC  X(0001).
           05  AUTH4DO PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  CARDSDC PIC  X(0001).
           05  CARDSDP PIC  X(0001).
           05  CARDSDH PIC  X(0001).
           05  CARDSDV PIC  X(0001).
           05  CARDSDO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  IMODC PIC  X(0001).
           05  IMODP PIC  X(0001).
           05  IMODH PIC  X(0001).
           05  IMODV PIC  X(0001).
           05  IMODO PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  IDAYDC PIC  X(0001).
           05  IDAYDP PIC  X(0001).
           05  IDAYDH PIC  X(0001).
           05  IDAYDV PIC  X(0001).
           05  IDAYDO PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  IYRDC PIC  X(0001).
           05  IYRDP PIC  X(0001).
           05  IYRDH PIC  X(0001).
           05  IYRDV PIC  X(0001).
           05  IYRDO PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  RSNDC PIC  X(0001).
           05  RSNDP PIC  X(0001).
           05  RSNDH PIC  X(0001).
           05  RSNDV PIC  X(0001).
           05  RSNDO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  CCODEDC PIC  X(0001).
           05  CCODEDP PIC  X(0001).
           05  CCODEDH PIC  X(0001).
           05  CCODEDV PIC  X(0001).
           05  CCODEDO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  APPRDC PIC  X(0001).
           05  APPRDP PIC  X(0001).
           05  APPRDH PIC  X(0001).
           05  APPRDV PIC  X(0001).
           05  APPRDO PIC  X(0003).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  SCODE1DC PIC  X(0001).
           05  SCODE1DP PIC  X(0001).
           05  SCODE1DH PIC  X(0001).
           05  SCODE1DV PIC  X(0001).
           05  SCODE1DO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  SCODE2DC PIC  X(0001).
           05  SCODE2DP PIC  X(0001).
           05  SCODE2DH PIC  X(0001).
           05  SCODE2DV PIC  X(0001).
           05  SCODE2DO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  SCODE3DC PIC  X(0001).
           05  SCODE3DP PIC  X(0001).
           05  SCODE3DH PIC  X(0001).
           05  SCODE3DV PIC  X(0001).
           05  SCODE3DO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  STATTLDC PIC  X(0001).
           05  STATTLDP PIC  X(0001).
           05  STATTLDH PIC  X(0001).
           05  STATTLDV PIC  X(0001).
           05  STATTLDO PIC  X(0015).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  STATDC PIC  X(0001).
           05  STATDP PIC  X(0001).
           05  STATDH PIC  X(0001).
           05  STATDV PIC  X(0001).
           05  STATDO PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  LIMTTLDC PIC  X(0001).
           05  LIMTTLDP PIC  X(0001).
           05  LIMTTLDH PIC  X(0001).
           05  LIMTTLDV PIC  X(0001).
           05  LIMTTLDO PIC  X(0018).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  LIMITDC PIC  X(0001).
           05  LIMITDP PIC  X(0001).
           05  LIMITDH PIC  X(0001).
           05  LIMITDV PIC  X(0001).
           05  LIMITDO PIC  X(0008).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  HISTTLDC PIC  X(0001).
           05  HISTTLDP PIC  X(0001).
           05  HISTTLDH PIC  X(0001).
           05  HISTTLDV PIC  X(0001).
           05  HISTTLDO PIC  X(0071).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  HIST1DC PIC  X(0001).
           05  HIST1DP PIC  X(0001).
           05  HIST1DH PIC  X(0001).
           05  HIST1DV PIC  X(0001).
           05  HIST1DO PIC  X(0061).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  HIST2DC PIC  X(0001).
           05  HIST2DP PIC  X(0001).
           05  HIST2DH PIC  X(0001).
           05  HIST2DV PIC  X(0001).
           05  HIST2DO PIC  X(0061).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  HIST3DC PIC  X(0001).
           05  HIST3DP PIC  X(0001).
           05  HIST3DH PIC  X(0001).
           05  HIST3DV PIC  X(0001).
           05  HIST3DO PIC  X(0061).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  MSGDC PIC  X(0001).
           05  MSGDP PIC  X(0001).
           05  MSGDH PIC  X(0001).
           05  MSGDV PIC  X(0001).
           05  MSGDO PIC  X(0060).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  VFYDC PIC  X(0001).
           05  VFYDP PIC  X(0001).
           05  VFYDH PIC  X(0001).
           05  VFYDV PIC  X(0001).
           05  VFYDO PIC  X(0001).
      *    -------------------------------
       01  ACCTERRI.
           05  FILLER            PIC  X(0012).
      *    -------------------------------
           05  TRANEL PIC S9(0004) COMP.
           05  TRANEF PIC  X(0001).
           05  FILLER REDEFINES TRANEF.
               10  TRANEA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  TRANEI PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  PGMEL PIC S9(0004) COMP.
           05  PGMEF PIC  X(0001).
           05  FILLER REDEFINES PGMEF.
               10  PGMEA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  PGMEI PIC  X(0008).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  RSNEL PIC S9(0004) COMP.
           05  RSNEF PIC  X(0001).
           05  FILLER REDEFINES RSNEF.
               10  RSNEA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  RSNEI PIC  X(0060).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILEEL PIC S9(0004) COMP.
           05  FILEEF PIC  X(0001).
           05  FILLER REDEFINES FILEEF.
               10  FILEEA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  FILEEI PIC  X(0022).
           05  FILLER            PIC  X(0001).
       01  ACCTERRO REDEFINES ACCTERRI.
           05  FILLER            PIC  X(0012).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  TRANEC PIC  X(0001).
           05  TRANEP PIC  X(0001).
           05  TRANEH PIC  X(0001).
           05  TRANEV PIC  X(0001).
           05  TRANEO PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  PGMEC PIC  X(0001).
           05  PGMEP PIC  X(0001).
           05  PGMEH PIC  X(0001).
           05  PGMEV PIC  X(0001).
           05  PGMEO PIC  X(0008).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  RSNEC PIC  X(0001).
           05  RSNEP PIC  X(0001).
           05  RSNEH PIC  X(0001).
           05  RSNEV PIC  X(0001).
           05  RSNEO PIC  X(0060).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  FILEEC PIC  X(0001).
           05  FILEEP PIC  X(0001).
           05  FILEEH PIC  X(0001).
           05  FILEEV PIC  X(0001).
           05  FILEEO PIC  X(0022).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
       01  ACCTMSGI.
           05  FILLER            PIC  X(0012).
      *    -------------------------------
           05  MSGL PIC S9(0004) COMP.
           05  MSGF PIC  X(0001).
           05  FILLER REDEFINES MSGF.
               10  MSGA PIC  X(0001).
           05  FILLER            PIC  X(4).
           05  MSGI PIC  X(0079).
       01  ACCTMSGO REDEFINES ACCTMSGI.
           05  FILLER            PIC  X(0012).
      *    -------------------------------
           05  FILLER            PIC  X(3).
           05  MSGC PIC  X(0001).
           05  MSGP PIC  X(0001).
           05  MSGH PIC  X(0001).
           05  MSGV PIC  X(0001).
           05  MSGO PIC  X(0079).
      *    -------------------------------
