!	crs_reserve_i.scp			reb, 28-Sep-1989 13:39

.label begin_here
	get #b_dt=#e_dt=#beg_dt=#end_dt=#beg_time=#end_time=""
	form crs_reserve_i
	.if oa$form_terminator = 112 then .goto cancelled

	date_convert #b_dt,#beg_dt,7
	.if #b_dt eqs "" then get #b_dt="19890101"

	date_convert #e_dt,#end_dt,7
	.if #e_dt eqs "" then get #e_dt="21991231"

	get #b_dt=#b_dt:8
	get #e_dt=#e_dt:8

	.if #beg_time eqs "" then get #beg_time="00:00"
	.if #end_time eqs "" then get #end_time="23:59"

.label index
	form auto select for crs_reserve with -
		.room beginning #room and -
		.crs_key:8 ges #b_dt and -
		.crs_key:8:15 les #e_dt and -
		.beg_time ges #beg_time and -
		.end_time les #end_time and -
		.meeting <=> #meeting and -
		.am_yn beginning #am_yn and -
		.contact1 <=> #contact1 -
	do sel_style -
		.room:15 -
		.beg_dt:13 -
		.beg_time:7 -
		.end_time:7 -
		.contact1:20 -
		.meeting:40 -
	/style=file/list="crs_index.tmp"

	dump_cache crs_index.tmp
	.if oa$dir:"*.*".%whole["crs_index.tmp"] eqs "" then -
		.goto nothing_found
	merge crs_reserve_i.blp,crs.tmp
	get oa$dcl='$ set term/width=130'
	list crs.tmp
	get oa$dcl='$ set term/width=80'

.label print_prompt
	prompt "Do you want to print this list? [Y/N] "
	oa$fld_stay
	.if oa$prompt_text:1 eqs "Y" then .goto print
	.if oa$prompt_text:1 eqs "N" then .goto cleanup
	.goto print_prompt

.label print
	get #print_file="crs.tmp"
	get #print_format="NONE"
	get #print_listfile="crs_reserve_i"
	do wpprint

.label cleanup
	delete crs_index.tmp
	delete crs.tmp
	.goto exit_procedure

.label nothing_found
	oa$msg_purge
	display No records met your specified criteria.
	.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