! APPL_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="APPLLIST.SEL"
	.IF OA$DIR:"*.*".%WHOLE[#SELFILE] == "" THEN .GOTO NO_SEL
	MERGE APPLBRIEF.BLP,APPLBRIEF.LIS,APPLLIST.SEL,APPLHDRB.BLP
	GET #PRINT_FILE="APPLBRIEF.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