<> $7 83JBBAL4 - RETURN INVENTORY BALANCES FOR A JBB ITEM/ORDERE$$, JBPLAN.tpl1 ,JBPLAN E$$, JBITEM.tpl1 ,JBITEM!C$$, JITEM.tpl1 ,JITEM"$$,JIACT(#Z@@d8/  !"#f$n;  1l$AJ1JIM001@$x1}#$@03USE THIS IF EXISTS $8$  $13&1l( l3LET A3LIST$=A3LIST$+A3$ B$J RRARAPID$ J R6$$1 $17 AӨRETURN $,J S6$ $2 23$32L3ADD TO STRINGV7$'%& '$&&۩A%V`<$&' (Ө&' ܨ@( 0000000000j!$&' A 8l3v$@-$@.@-3change 3/24 rcc$/@-$ 1 #JBSTALE1$ 3#(@3ERRORJ:$,ERROR ۩(Ө AT LINE ۩(Ө" ۩#TE2#( 3OUTTAHERE#&u3yymmdd (numeric) to ccccmmdd$v )v$*19۩()000000v0 *'Y2KSLIDE$*20vH8*vR]y *y"*$+* + $++ y,)$*0+3SET TO "9" OR ":"y68*yr]y| *y0$+lӨ*0 ܨ*y$*(+*y8*y4]3above does :01030 = 20001030 or 991231=19991231A3B3A3C3D3E3A5OHDDMGOCMDCMALOSHIAVAJIACTRCVSHPADJJBPLAN JBPLANTPLJBPLANJBITEM JBITEMTPLJBITEMJITEM JITEMTPLJITEMRICD1D2 ORDERLISTRDATE1 LSHIPDATESHIDIVSHITER SHIORDER JBITEM.ITEM_NOK1SP JBPLAN.QTYYYYYYYY ERRORMESSAGEJITEM.COMITTEDJITEM.ON_HANDCMT JBITEM.DATERAPIDRDATE2SDATE1SDATE2Y2K2Y2KAY2KB