[next] [previous] [contents]
!RECORD Templates
RECORD Test1
GROUP Group_1(4)
STRING My_string_1 = 10
REAL My_real_1
INTEGER My_integer_1
END GROUP
END RECORD
RECORD Test2
GROUP Group_2
STRING My_string_2 = 10
REAL My_real_2
INTEGER My_integer_2
END GROUP
END RECORD
RECORD Test3
STRING My_string_3 = 10
REAL My_real_3
INTEGER My_integer_3
END RECORD
!Declarations
DECLARE Test1 First_test1, &
Second_test1, &
Array_of_test1(3)
DECLARE Test2 First_test2
DECLARE Test3 First_test3, &
Array_of_test3(10)
!Program logic starts here
! A single RECORD instance is assigned to another single instance
First_test1 = Second_test1
! An array element is assigned to a single instance
Second_test1 = Array_of_test1(2)
! And vice versa
Array_of_test1(2) = Second_test1