! APPL_PRINT_FULL.SCP

!	This script prints a FULL description of the records contained in
! the current index.

!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 APPLFULL.BLP,APPLFULL.LIS,APPLLIST.SEL,APPLHDRF.BLP
	GET #PRINT_FILE="APPLFULL.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