*ACCTREC - ACCOUNT FILE RECORD. VSAM RECORD LAYOUT. 
      *THIS RECORD IS USED AS THE INTO PARAMETER OF A CICS READ, WRITE, ETC. AS IN:
      *    EXEC CICS READNEXT DATASET('ACCTFIL') INTO(ACCTREC)
      *        LENGTH(ACCT-LNG) RIDFLD(ACCTDO OF ACCTREC) RESP(CICS-RESP) END-EXEC.
      *BECAUSE EACH SQL COLUMN NAME MUST BE UNIQUE, EACH ELEMENTARY DATA ITEM NAME MUST LIKEWISE BE UNIQUE.

         02  R-ACCTDO                   PIC X(5).
         02  R-NAMEDO.
             05  R-SNAMEDO              PIC X(18).
             05  R-FNAMEDO              PIC X(12).
         02  R-MIDO                     PIC X.
         02  R-TTLDO                    PIC X(4).
         02  R-TELDO                    PIC X(10).
         02  R-ADDR1DO                  PIC X(24).
         02  R-ADDR2DO                  PIC X(24).
         02  R-ADDR3DO                  PIC X(24).
         02  R-AUTH1DO                  PIC X(32).
         02  R-AUTH2DO                  PIC X(32).
         02  R-AUTH3DO                  PIC X(32). 
         02  R-AUTH4DO                  PIC X(32).
         02  R-CARDSDO                  PIC X.
         02  R-IMODO                    PIC X(2).
         02  R-IDAYDO                   PIC X(2).
         02  R-IYRDO                    PIC X(2).
         02  R-RSNDO                    PIC X.
         02  R-CCODEDO                  PIC X.
         02  R-APPRDO                   PIC X(3).
         02  R-SCODE1DO                 PIC X.
         02  R-SCODE2DO                 PIC X.
         02  R-SCODE3DO                 PIC X.
         02  R-STATDO                   PIC X(2).
         02 R-LIMITDO                   PIC 9(5)V9(2).
         02  R-PAY1.
             04  R-PAY1-YYYYMMDD        PIC 9(8).
             04  R-PAY1-PAYMENT         PIC 9(4)V99.
             04  R-PAY1-BALANCE         PIC 9(5)V99.
         02  R-PAY2.
             04  R-PAY2-YYYYMMDD        PIC 9(8) PACKED-DECIMAL.
             04  R-PAY2-PAYMENT         PIC 9(4)V99 PACKED-DECIMAL.
             04  R-PAY2-BALANCE         PIC 9(5)V99 PACKED-DECIMAL.
         02 R-PAY3.
             04  R-PAY3-YYYYMMDD        PIC 9(8) BINARY.
             04  R-PAY3-PAYMENT         PIC S9(4)V99 PACKED-DECIMAL.
             04  R-PAY3-BALANCE         PIC S9(5)V99 PACKED-DECIMAL.