Statement: Specifies mapped field declarations that are part of a UNION declaration within a STRUCTURE declaration. See STRUCTURE.
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