!	CRS_RESERVE_SEL.SCP			REB, 05-OCT-1989 09:41

.LABEL BEGIN
	FORM CRS_RESERVE_SEL
	.IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED

!	GET #CRS_LAST_USED=$CRS_LAST_USED

	FOR FIRST CRS_RESERVE WITH .ROOM BEGINNING #ROOM AND -
		.BEG_DT BEGINNING #BEG_DT AND -
		.BEG_TIME BEGINNING #BEG_TIME AND -
		.END_TIME BEGINNING #END_TIME AND -
		.MEETING <=> #MEETING -
	DO GET #CRS_LAST_USED=.CRS_KEY
	.IF $CRS_LAST_USED EQS #CRS_LAST_USED THEN .GOTO NOTHING_SELECTED
	GET $CRS_LAST_USED=#CRS_LAST_USED
	.GOTO EXIT_PROCEDURE

.LABEL NOTHING_SELECTED
	OA$MSG_PURGE
	DISPLAY Your SELection does not exist.
	.GOTO EXIT_PROCEDURE

.LABEL CANCELLED
	OA$MSG_PURGE
	DISPLAY Operation has been cancelled at the User's request.
	.GOTO EXIT_PROCEDURE

.LABEL EXIT_PROCEDURE
	.EXIT