COMPILE ROUTINE TEST_Cass_LABELS(Dummy)
ROWDEF(CHARSTR)

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

RDSNo = 270008

Print_Cass_Ship_Label(RDSNo)

*Print_CleanRoom_Labels_Thermal(RDSNo)


GOTO Bail

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

END