added LSL2 stored procedures

LSL2/STPROC/TEST_CARTON_PACK.txt

@@ -0,0 +1,23 @@
+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