      *
          EXEC SQL INCLUDE SQLCA END-EXEC. 
      *
          EXEC SQL BEGIN DECLARE SECTION END-EXEC.
       01 CUSTOMER-RECORD.
          03  CUSTOMER-ID                         PIC X(10).
          03  CUSTOMER-NAME                       PIC X(30).
          03  CUSTOMER-ADDR-1                     PIC X(40).
          03  CUSTOMER-ADDR-2                     PIC X(40).
          03  CUSTOMER-CITY                       PIC X(15).
          03  CUSTOMER-STATE                      PIC XX.
          03  CUSTOMER-ZIP                        PIC X(10).
          03  CUSTOMER-PHONE                      PIC X(15).
          03  CUSTOMER-CONTACT                    PIC X(20).
          EXEC SQL END DECLARE SECTION END-EXEC.
      *

