DECLARE LONG CONSTANT emp_fixed_info = 4 + 9 + 2
  MAP (emp_buffer) LONG badge, &
                            STRING social_sec_num = 9, &
                            BYTE name_length, &
                                    address_length, &
                                    FILL (60)
  MAP DYNAMIC (emp_buffer) STRING emp_name, &
                                                  emp_address
  WHILE 1%
  GET #1
  REMAP (emp_buffer) STRING FILL = emp_fixed_info, &
                                                    emp_name = name_length, &
                                                    emp_address = address_length
  NEXT