! APPL_UP.SCP
!	Allows the user to go to the top entry of his current data.

	GET $THEKEY = appl_entry.%NEXT[""]
	.if $thekey eqs "" then .goto file_empty

	for first appl_entry with .%key == $thekey do -
		GET $APPL_FLD1 = .FLD1 -
		\\GET $APPL_FLD2 = .FLD2 -
		\\GET $APPL_FLD3 = .FLD3 -
		\\GET $APPL_FLD4 = .FLD4 

	DISPLAY Top of Log

	.exit

.label file_empty

	get $thekey = $appl_fld1 = $appl_fld2 = $appl_fld3 = $appl_fld4 = ""
	display File is empty
	.exit