COMPILE ROUTINE TEST_LOC_LABELS(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE  Set_Status, Send_Info, Print_Cass_Ship_Label, Print_Loc_Label
DECLARE FUNCTION Get_Status,obj_Order


OPEN 'LOCATION' TO FileIn ELSE
	GOTO Bail
END

SELECT FileIn

Done = 0

LOOP
	READNEXT Key ELSE Done = 1
UNTIL Done
	WH = Key[1,'*']
	Loc = Key[COL2()+1,'*']
	Print_Loc_Label(WH,Loc)
REPEAT



GOTO Bail

* * * * * * *
Bail:
* * * * * * *

END
