           02  DOACCT               PIC X(5).
           02  DOSNAME              PIC X(18).
           02  DOFNAME              PIC X(12).
           02  DOMI                 PIC X.
           02  DOTTL                PIC X(4).
           02  DOTEL                PIC X(10).
           02  DOADDR1              PIC X(24).
           02  DOADDR2              PIC X(24).
           02  DOADDR3              PIC X(24).
           02  DOAUTH1              PIC X(32).
           02  DOAUTH2              PIC X(32).
           02  DOAUTH3              PIC X(32).
           02  DOAUTH4              PIC X(32).
           02  DOCARDS              PIC X.
           02  DOIMO                PIC X(2).
           02  DOIDAY               PIC X(2).
           02  DOIYR                PIC X(2).
           02  DORSN                PIC X.
           02  DOCCODE              PIC X.
           02  DOAPPR               PIC X(3).
           02  DOSCODE1             PIC X.
           02  DOSCODE2             PIC X.
           02  DOSCODE3             PIC X.
           02  DOSTAT               PIC X(2).
           02  DOLIMIT              PIC X(8).
