MAP...END MAP

Statement: Specifies mapped field declarations that are part of a UNION declaration within a STRUCTURE statement. For more information, see UNION...END UNION.

Example

UNION
  MAP
     CHARACTER*20 string
  END MAP
  MAP
     INTEGER*2 number(10)
  END MAP
END UNION

UNION
  MAP
     RECORD /Cartesian/ xcoord, ycoord
  END MAP
  MAP
     RECORD /Polar/ length, angle
  END MAP
END UNION