COMPILE ROUTINE TEST_CARTON_PACK(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, comm_Dialog_Carton_Pack, ErrMsg
DECLARE FUNCTION Get_Status, Utility, Dialog_Box

$INSERT COC_EQU

EQU CRLF$ TO \0D0A\

debug
ShipNo = 73110

AllCartonData = Dialog_Box('DIALOG_CARTON_PACK',@WINDOW,ShipNo)


DEBUG

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

RETURN