A*  Customers
      A                                      UNIQUE
      A          R CUS01RCD                  TEXT('Customer record')
      A            CUS01NBR       7S 0       TEXT('Customer number')
      A                                      COLHDG('Customer number')
      A            CUS01SEX       1A         TEXT('1-Mr, 2-Mrs, 3-Miss')
      A                                      COLHDG('1-Mr, 2-Mrs, 3-Miss')
      A                                      CCSID(65535)
      A            CUS01LNM      30A         TEXT('Last name')
      A                                      COLHDG('Last name')
      A                                      CCSID(65535)
      A            CUS01FNM      30A         TEXT('First name')
      A                                      COLHDG('First name')
      A                                      CCSID(65535)
      A            CUS01BTH       8A         TEXT('Birth date yyyymmdd')
      A                                      COLHDG('Birth date')
      A                                      CCSID(65535)
      A            CUS01PWD      30A         TEXT('Password')
      A                                      COLHDG('Password')
      A                                      CCSID(65535)
      A            CUS01ZIP      15A         TEXT('ZIP code')
      A                                      COLHDG('Zip Code')
      A                                      CCSID(65535)
      A            CUS01ADR      50A         TEXT('Address')
      A                                      COLHDG('Address')
      A                                      CCSID(65535)
      A            CUS01CIT      30A         TEXT('City')
      A                                      COLHDG('City')
      A                                      CCSID(65535)
      A            CUS01STA      30A         TEXT('State')
      A                                      COLHDG('State')
      A                                      CCSID(65535)
      A            CUS01CTR      30A         TEXT('Country')
      A                                      COLHDG('Country')
      A                                      CCSID(65535)
      A            CUS01EML      60A         TEXT('E-Mail')
      A                                      COLHDG('E-Mail')
      A                                      CCSID(65535)
      A            CUS01CCI       3S 0       TEXT('Credit Card Identifier')
      A                                      COLHDG('Credit card' 'ID')
      A            CUS01CCW      30A         TEXT('Credit Card owner')
      A                                      COLHDG('Credit card' 'owner')
      A                                      CCSID(65535)
      A            CUS01CCN      20A         TEXT('Credit card number')
      A                                      COLHDG('Credit card' 'number')
      A                                      CCSID(65535)
      A            CUS01CCY       4S 0       TEXT('Credit card expires on year .-
      A                                      .. (yyyy)')
      A                                      COLHDG('Expiration' 'year')
      A            CUS01CCM       2S 0       TEXT('Credit card expires on month -
      A                                      ...')
      A                                      COLHDG('Expiration' 'month')
      A          K CUS01NBR