集合代入

集合代入文では,変数と式は,引用する集合と同じ構造を持っていなくてはなりません。

集合代入文は,等号の右辺の集合の個々の欄の値を,左辺の集合の対応する欄に代入します。どちらの集合も,同じ構造で宣言されていなくてはなりません。

次の例は,有効な集合代入を示しています。

	STRUCTURE /DATE/
	  INTEGER*1 DAY, MONTH
	  INTEGER*2 YEAR
	END STRUCTURE
 
	RECORD /DATE/ TODAY, THIS_WEEK(7)
	STRUCTURE /APPOINTMENT/
	  ...
	  RECORD /DATE/ APP_DATE
	END STRUCTURE

	RECORD /APPOINTMENT/ MEETING

	DO I = 1,7
	  CALL GET_DATE (TODAY)
	  THIS_WEEK(I) = TODAY
	  THIS_WEEK(I).DAY = TODAY.DAY + 1
	END DO
	MEETING.APP_DATE = TODAY