       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  SNAMEMC PIC  X(0001).
           05  SNAMEMP PIC  X(0001).
           05  SNAMEMH PIC  X(0001).
           05  SNAMEMV PIC  X(0001).
           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  FNAMEMC PIC  X(0001).
           05  FNAMEMP PIC  X(0001).
           05  FNAMEMH PIC  X(0001).
           05  FNAMEMV PIC  X(0001).
           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  REQMC PIC  X(0001).
           05  REQMP PIC  X(0001).
           05  REQMH PIC  X(0001).
           05  REQMV PIC  X(0001).
           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  ACCTMC PIC  X(0001).
           05  ACCTMP PIC  X(0001).
           05  ACCTMH PIC  X(0001).
           05  ACCTMV PIC  X(0001).
           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  PRTRMC PIC  X(0001).
           05  PRTRMP PIC  X(0001).
           05  PRTRMH PIC  X(0001).
           05  PRTRMV PIC  X(0001).
           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  SUMTTLMC PIC  X(0001).
           05  SUMTTLMP PIC  X(0001).
           05  SUMTTLMH PIC  X(0001).
           05  SUMTTLMV PIC  X(0001).
           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  SUMLNMC PIC  X(0001).
               10  SUMLNMP PIC  X(0001).
               10  SUMLNMH PIC  X(0001).
               10  SUMLNMV PIC  X(0001).
               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  MSGMC PIC  X(0001).
           05  MSGMP PIC  X(0001).
           05  MSGMH PIC  X(0001).
           05  MSGMV PIC  X(0001).
           05  MSGMI PIC  X(0060).
           05  FILLER            PIC  X(0001).
       01  ACCTMNUO REDEFINES ACCTMNUI.
           05  FILLER            PIC  X(0012).
           05  FILLER            PIC  X(7).
           05  SNAMEMO PIC  X(0012).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  FNAMEMO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  REQMO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  ACCTMO PIC  X(0005).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  PRTRMO PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  SUMTTLMO PIC  X(0079).
      *    -------------------------------
           05  SUMLNMD OCCURS 6  TIMES.
               10  FILLER        PIC  X(7).
               10  SUMLNMO PIC  X(0079).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           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  TITLEDC PIC  X(0001).
           05  TITLEDP PIC  X(0001).
           05  TITLEDH PIC  X(0001).
           05  TITLEDV PIC  X(0001).
           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  ACCTDC PIC  X(0001).
           05  ACCTDP PIC  X(0001).
           05  ACCTDH PIC  X(0001).
           05  ACCTDV PIC  X(0001).
           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  SNAMEDC PIC  X(0001).
           05  SNAMEDP PIC  X(0001).
           05  SNAMEDH PIC  X(0001).
           05  SNAMEDV PIC  X(0001).
           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  FNAMEDC PIC  X(0001).
           05  FNAMEDP PIC  X(0001).
           05  FNAMEDH PIC  X(0001).
           05  FNAMEDV PIC  X(0001).
           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  MIDC PIC  X(0001).
           05  MIDP PIC  X(0001).
           05  MIDH PIC  X(0001).
           05  MIDV PIC  X(0001).
           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  TTLDC PIC  X(0001).
           05  TTLDP PIC  X(0001).
           05  TTLDH PIC  X(0001).
           05  TTLDV PIC  X(0001).
           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  TELDC PIC  X(0001).
           05  TELDP PIC  X(0001).
           05  TELDH PIC  X(0001).
           05  TELDV PIC  X(0001).
           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  ADDR1DC PIC  X(0001).
           05  ADDR1DP PIC  X(0001).
           05  ADDR1DH PIC  X(0001).
           05  ADDR1DV PIC  X(0001).
           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  ADDR2DC PIC  X(0001).
           05  ADDR2DP PIC  X(0001).
           05  ADDR2DH PIC  X(0001).
           05  ADDR2DV PIC  X(0001).
           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  ADDR3DC PIC  X(0001).
           05  ADDR3DP PIC  X(0001).
           05  ADDR3DH PIC  X(0001).
           05  ADDR3DV PIC  X(0001).
           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  AUTH1DC PIC  X(0001).
           05  AUTH1DP PIC  X(0001).
           05  AUTH1DH PIC  X(0001).
           05  AUTH1DV PIC  X(0001).
           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  AUTH2DC PIC  X(0001).
           05  AUTH2DP PIC  X(0001).
           05  AUTH2DH PIC  X(0001).
           05  AUTH2DV PIC  X(0001).
           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  AUTH3DC PIC  X(0001).
           05  AUTH3DP PIC  X(0001).
           05  AUTH3DH PIC  X(0001).
           05  AUTH3DV PIC  X(0001).
           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  AUTH4DC PIC  X(0001).
           05  AUTH4DP PIC  X(0001).
           05  AUTH4DH PIC  X(0001).
           05  AUTH4DV PIC  X(0001).
           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  CARDSDC PIC  X(0001).
           05  CARDSDP PIC  X(0001).
           05  CARDSDH PIC  X(0001).
           05  CARDSDV PIC  X(0001).
           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  IMODC PIC  X(0001).
           05  IMODP PIC  X(0001).
           05  IMODH PIC  X(0001).
           05  IMODV PIC  X(0001).
           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  IDAYDC PIC  X(0001).
           05  IDAYDP PIC  X(0001).
           05  IDAYDH PIC  X(0001).
           05  IDAYDV PIC  X(0001).
           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  IYRDC PIC  X(0001).
           05  IYRDP PIC  X(0001).
           05  IYRDH PIC  X(0001).
           05  IYRDV PIC  X(0001).
           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  RSNDC PIC  X(0001).
           05  RSNDP PIC  X(0001).
           05  RSNDH PIC  X(0001).
           05  RSNDV PIC  X(0001).
           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  CCODEDC PIC  X(0001).
           05  CCODEDP PIC  X(0001).
           05  CCODEDH PIC  X(0001).
           05  CCODEDV PIC  X(0001).
           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  APPRDC PIC  X(0001).
           05  APPRDP PIC  X(0001).
           05  APPRDH PIC  X(0001).
           05  APPRDV PIC  X(0001).
           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  SCODE1DC PIC  X(0001).
           05  SCODE1DP PIC  X(0001).
           05  SCODE1DH PIC  X(0001).
           05  SCODE1DV PIC  X(0001).
           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  SCODE2DC PIC  X(0001).
           05  SCODE2DP PIC  X(0001).
           05  SCODE2DH PIC  X(0001).
           05  SCODE2DV PIC  X(0001).
           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  SCODE3DC PIC  X(0001).
           05  SCODE3DP PIC  X(0001).
           05  SCODE3DH PIC  X(0001).
           05  SCODE3DV PIC  X(0001).
           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  STATTLDC PIC  X(0001).
           05  STATTLDP PIC  X(0001).
           05  STATTLDH PIC  X(0001).
           05  STATTLDV PIC  X(0001).
           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  STATDC PIC  X(0001).
           05  STATDP PIC  X(0001).
           05  STATDH PIC  X(0001).
           05  STATDV PIC  X(0001).
           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  LIMTTLDC PIC  X(0001).
           05  LIMTTLDP PIC  X(0001).
           05  LIMTTLDH PIC  X(0001).
           05  LIMTTLDV PIC  X(0001).
           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  LIMITDC PIC  X(0001).
           05  LIMITDP PIC  X(0001).
           05  LIMITDH PIC  X(0001).
           05  LIMITDV PIC  X(0001).
           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  HISTTLDC PIC  X(0001).
           05  HISTTLDP PIC  X(0001).
           05  HISTTLDH PIC  X(0001).
           05  HISTTLDV PIC  X(0001).
           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  HIST1DC PIC  X(0001).
           05  HIST1DP PIC  X(0001).
           05  HIST1DH PIC  X(0001).
           05  HIST1DV PIC  X(0001).
           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  HIST2DC PIC  X(0001).
           05  HIST2DP PIC  X(0001).
           05  HIST2DH PIC  X(0001).
           05  HIST2DV PIC  X(0001).
           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  HIST3DC PIC  X(0001).
           05  HIST3DP PIC  X(0001).
           05  HIST3DH PIC  X(0001).
           05  HIST3DV PIC  X(0001).
           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  MSGDC PIC  X(0001).
           05  MSGDP PIC  X(0001).
           05  MSGDH PIC  X(0001).
           05  MSGDV PIC  X(0001).
           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  VFYDC PIC  X(0001).
           05  VFYDP PIC  X(0001).
           05  VFYDH PIC  X(0001).
           05  VFYDV PIC  X(0001).
           05  VFYDI PIC  X(0001).
       01  ACCTDTLO REDEFINES ACCTDTLI.
           05  FILLER            PIC  X(0012).
           05  FILLER            PIC  X(7).
           05  TITLEDO PIC  X(0014).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  ACCTDO PIC  X(0005).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  SNAMEDO PIC  X(0018).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  FNAMEDO PIC  X(0012).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  MIDO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  TTLDO PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  TELDO PIC  X(0010).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  ADDR1DO PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  ADDR2DO PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  ADDR3DO PIC  X(0024).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  AUTH1DO PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  AUTH2DO PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  AUTH3DO PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  AUTH4DO PIC  X(0032).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  CARDSDO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  IMODO PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  IDAYDO PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  IYRDO PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  RSNDO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  CCODEDO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  APPRDO PIC  X(0003).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  SCODE1DO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  SCODE2DO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  SCODE3DO PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  STATTLDO PIC  X(0015).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  STATDO PIC  X(0002).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  LIMTTLDO PIC  X(0018).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  LIMITDO PIC  X(0008).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  HISTTLDO PIC  X(0071).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  HIST1DO PIC  X(0061).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  HIST2DO PIC  X(0061).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  HIST3DO PIC  X(0061).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  MSGDO PIC  X(0060).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           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  TRANEC PIC  X(0001).
           05  TRANEP PIC  X(0001).
           05  TRANEH PIC  X(0001).
           05  TRANEV PIC  X(0001).
           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  PGMEC PIC  X(0001).
           05  PGMEP PIC  X(0001).
           05  PGMEH PIC  X(0001).
           05  PGMEV PIC  X(0001).
           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  RSNEC PIC  X(0001).
           05  RSNEP PIC  X(0001).
           05  RSNEH PIC  X(0001).
           05  RSNEV PIC  X(0001).
           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  FILEEC PIC  X(0001).
           05  FILEEP PIC  X(0001).
           05  FILEEH PIC  X(0001).
           05  FILEEV PIC  X(0001).
           05  FILEEI PIC  X(0022).
           05  FILLER            PIC  X(0001).
       01  ACCTERRO REDEFINES ACCTERRI.
           05  FILLER            PIC  X(0012).
           05  FILLER            PIC  X(7).
           05  TRANEO PIC  X(0004).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  PGMEO PIC  X(0008).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           05  RSNEO PIC  X(0060).
           05  FILLER            PIC  X(0001).
      *    -------------------------------
           05  FILLER            PIC  X(7).
           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  MSGC PIC  X(0001).
           05  MSGP PIC  X(0001).
           05  MSGH PIC  X(0001).
           05  MSGV PIC  X(0001).
           05  MSGI PIC  X(0079).
       01  ACCTMSGO REDEFINES ACCTMSGI.
           05  FILLER            PIC  X(0012).
           05  FILLER            PIC  X(7).
           05  MSGO PIC  X(0079).
      *    -------------------------------
