COMPILE ROUTINE FIX_LOCATION(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Send_Dyn,Send_Info
DECLARE FUNCTION Get_Status, Set_Printer



OPEN 'LOCATION' To File.In THEN

	FOR I = 2 TO 50
	
		LOCATIONKEY = 'FGS*':I
		
		LOCREC = 'Bin ':I
				
		WRITE LocRec ON File.In,LocationKey THEN		
			SEND_DYN(LOCATIONKEY:' ':LOCREC)
		END
					
	NEXT I


END



IF Get_Status(errCode) THEN DEBUG


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