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