MAP and END MAP

Statement: Specifies mapped field declarations that are part of a UNION declaration within a STRUCTURE declaration.

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