dcl
        1 record,
          2 name  character(30) varying,
          2 addr  character(30) varying,
          2 city  character(20) varying,
          2 state character(10) varying,
          2 zip   fixed decimal(6),
          2 phone character(12) varying;