COMPILE ROUTINE TEST_WMI_LABELS(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE  Set_Status, Send_Info, Print_WMI_Labels, Print_WMO_Labels
DECLARE FUNCTION Get_Status,obj_Order

WONo = 131586

Print_WMI_Labels(WONo)


Print_WMO_Labels(WONo)

GOTO Bail

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

END