MAP...END MAP

STRUCTURE 文内で UNION 宣言の一部としてマップする欄宣言を指定します。詳細は,「UNION...END UNION」を参照してください。

	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