集合代入文では,変数と式は,引用する集合と同じ構造を持っていなくてはなりません。
集合代入文は,等号の右辺の集合の個々の欄の値を,左辺の集合の対応する欄に代入します。どちらの集合も,同じ構造で宣言されていなくてはなりません。
例
次の例は,有効な集合代入を示しています。
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