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