! CD_delete.scp
! written 2-4-88 A.D. Hull - DEC

	.IF $CD_KEY EQS "" THEN .GOTO NO_CURRENT_ITEM

	 YESNO_PROMPT\OA$FLD_STAY
	.IF OA$PROMPT_TEXT EQS 'Y' THEN -
	 FORM CD_entry/MODE=DELETE/ONE_ENTRY/SAVE_START="$CD_COMPOSER,$CD_TITLE,$CD_SERIAL_NO" -
	\IFEXIT\GET $CD_COMPOSER=$CD_TITLE=$CD_SERIAL_NO=$CD_TTIME=$CD_KEY="" -
	\display CD Info has been deleted
	.exit

.label no_current_item

 	DISPLAY CD Info must be SELected to delete it\FORCE 
	.exit