added LSL2 stored procedures

LSL2/STPROC/TEST_LOC_LABELS.txt

@@ -0,0 +1,32 @@
+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