Problem in sales order shipper maintenance (7.9.8)

[shafee212]

I am facing a problem in sales order shipper maint cim .

when using multi-entry ..
Item Number: 0106 VTO-CDL 710mlX12
Order:
Customer Ref:
Model Year: Order: SO113437 Line: 5
Quantity: 64 UM: CS UM Conversion: 1.0000
Site: 391 Location: IRN
Lot/Serial:
Reference:
Multi Entry: yes Comments: No
Issue Detail - Quantity: 64 CS
Site Location Lot/Serial Reference Quantity
-------- -------- ------------------ --------- ------------

Site Location Lot/Serial Reference Quantity
Total lot/serial quantity entered: 0
Site Location Lot/Serial Reference Quantity
391 900 STD-09876 64.0
Adding new record
Site Location Lot/Serial Reference Quantity
391 900 STD-09876 64
Total lot/serial quantity entered: 64
Site Location Lot/Serial Reference Quantity
391 900 STD-09876 64.0
Total lot/serial quantity entered: 64
Issue Detail - Quantity: 64 CS
Site Location Lot/Serial Reference Quantity
-------- -------- ------------------ --------- ------------
391 900 STD-09876 64.0
** Array subscript 0 is out of range. (26)
** Unable to update Field. (142)
SYSTEM ERROR: Memory violation. (49)
** Save file named core for analysis by Progress Software Corporation. (439) .......





my cim program is


OUTPUT TO VALUE("sh.cim").
PUT UNFORMATTED m_wsite space(2) "~"~"" space(2) trim(m_cust) space(2) "-" SKIP
"." skip
"." SKIP .
FOR EACH tt_release NO-LOCK WHERE ttr_part <> "" AND ttr_qty >= 1 BREAK BY ttr_part :
PUT UNFORMATTED ttr_nbr space(2) ttr_line SKIP
ttr_qty_release FORMAT ">>>>>>>9" space(2) "-" space(2) "-" space(2) "-" space(2)
"-" space(2) "-" space(2) "-" space(2) "yes" space(2) "-" space(2) SKIP
.

FOR EACH tt_pick_stock WHERE ttps_nbr = ttr_nbr
AND ttps_line = ttr_line
AND ttps_part = ttr_part
AND ttps_qty >= 1
NO-LOCK :
PUT UNFORMATTED """" ttps_site """"
space(2) """" ttps_loc """"
space(2) """" ttps_lot """"
space(2) """" ttps_ref """" SKIP
ttps_qty SKIP .


END . /*for each tt_pick_stock*/
PUT UNFORMATTED "." skip
.
END . /*FOR EACH tt_release*/

PUT UNFORMATTED "." SKIP
"-" SKIP

"." SKIP .
OUTPUT CLOSE .
lp10:
DO ON ERROR UNDO lp10 :

INPUT FROM value("sh.cim") .
OUTPUT TO VALUE("sh.log") .
{gprun.i ""icshmt.p"" "(m_wsite, m_cust, ""iss-so"", ?, output v_recid)" }
/*{gprun.i ""rcshmt.p""}*/
/* Print shipper */

OUTPUT CLOSE .
INPUT CLOSE .
batchrun = no.


output of cim file is :-

391 "" 112049 -
.
.
SO113437 5
64 - - - - - - yes -
"391" "900" "STD-09876" ""
64
.
SO113434 3
1170 - - - - - - yes -
"391" "900" "STD-11111" ""
18
"391" "900" "STD-212321" ""
1151.75
.
SO113437 1
252 - - - - - - yes -
"391" "900" "STD-09098" ""
252
.
SO113437 7
78 - - - - - - yes -
"391" "900" "STD-12398" ""
78
.
SO113434 4
20 - - - - - - yes -
"391" "900" "wooden-pallet" ""
20
.
.
-
.