1   !   Example to show use of record instead of group.



30  RECORD EMP_NAME
	STRING	FIRST_NAME=30%
	STRING	MIDDLE_INITIAL=1%
	STRING	LAST_NAME=30%

    END RECORD


    RECORD  EMPLOYEE_REC
	VARIANT
	    CASE
		EMP_NAME    EMPLOYEE_NAME
	    CASE
		STRING	    FULL_NAME=61%
	END VARIANT

	SINGLE	    HOURLY_RATE
	SINGLE	    HOURS_WORKED

    END RECORD

    RECORD  OTHER_EMP_REC

	GROUP EMP_NAME
	    STRING  FIRST_NAME=30%
	    STRING  MIDDLE_INITIAL=1%
	    STRING  LAST_NAME=30%
	END GROUP

	SINGLE	    HOURLY_RATE
	SINGLE	    HOURS_WORKED

    END RECORD


40  DECLARE EMP_NAME	    LOCAL_NAME

    DECLARE EMPLOYEE_REC    E_REC
    DECLARE OTHER_EMP_REC   O_REC

    LOCAL_NAME::FIRST_NAME	= 'JOHN'
    LOCAL_NAME::MIDDLE_INITIAL	= 'Q'
    LOCAL_NAME::LAST_NAME	= 'PUBLIC'

    E_REC::EMPLOYEE_NAME	= LOCAL_NAME
    E_REC::HOURLY_RATE		= 55.05
    E_REC::HOURS_WORKED		= 62.0

    PRINT "Full Name: ";E_REC::FULL_NAME

60  O_REC::EMP_NAME::FIRST_NAME	= 'JANE'
    O_REC::EMP_NAME::MIDDLE_INITIAL = 'Q'
    O_REC::EMP_NAME::LAST_NAME	= 'PUBLIC'
    O_REC::HOURLY_RATE    = 35.45
    O_REC::HOURS_WORKED   = 28.25


32767	END