21 lines
350 B
Plaintext
21 lines
350 B
Plaintext
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
|