33 lines
453 B
Plaintext
33 lines
453 B
Plaintext
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
|