! APPL_NEXT.SCP

!	This procedure gets the next APPL Item Item from the selection list
! and makes it the current item

.LABEL GET_NEXT
	NEXT_LIST APPLLIST.SEL
	.IF $NEXT_LIST_ITEM EQS "" THEN .GOTO END_OF_LIST

	.IF appl_entry.%KEY[$NEXT_LIST_ITEM] EQS "" THEN .GOTO GET_NEXT

	GET $THEKEY = $NEXT_LIST_ITEM
	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 Next list item selected
	.EXIT

.LABEL END_OF_LIST
	DISPLAY You have reached the end of the selection list

.LABEL EXIT_PROCEDURE
	.EXIT