! CD_PRINT_BRIEF.SCP  

!	This script prints a brief description of the records contained in
! the current index.
.LABEL START
!DISPLAY "Creating directory listing of selected records . . ."
 	GET OA$DISPLAY=OA$_DIR_CREDIRLST\force
	GET #SELFILE="CDLIST.SEL"
	.IF OA$DIR:"*.*".%WHOLE[#SELFILE] == "" THEN .GOTO NO_SEL
	get oa$page_length = 61
	MERGE CDBRIEF.BLP,CDBRIEF.LIS,CDLIST.SEL,CDHDRB.BLP
	APPEND OA$LIB:FF.LIS CDBRIEF.LIS
	GET #PRINT_FILE="CDBRIEF.LIS"
	GET #PRINT_DSAB="ASCII"\DO WPPRINT
	.EXIT

.LABEL NO_SEL
!DISPLAY "You must do an Index to create the selection of records to print"
 	GET OA$DISPLAY=OA$_DIR_NOINDAVA