<>,( 3WACTRW - 10/11/9633Copyright (c) 1995 Transportation Software Systems83"WACTRW -06/01/90- DETAIL ACTIVITY REPORT WEB VERSION" 23OPEN (888,MODE="O_CREATE,O_TRUNC")"./traceme.txt"!3SETTRACE (888)(53"1.JCUST, 2.JITEM, 3.JIACT, 4.JCONS, 5.JISRT,7.CCNVZ*-E,JCUST,JITEM,JIACT,JCONS,CCNVZ. (/ -Ƅ2'$h'SKIN<$h&SKIN=h<gU# F[U#  !"PU##$%&'(ZU#)*+,-.dE " 7$/NXC0010 73961A 102Un/01234oZ3F CUST1$="NXC001" THEN LET ITEM1$="SQC56496-4 ",ITEM2$=ITEM1$,DAYSBACK=999; GOTO NOENTERp@@s /SAMPLE$2t /CNA001$2xU$5'CO_CODE $6//)$7 %Yz%Mz%Dz8 $982, 2 $93ALL ACTIVITY$: 9 %Yz%Mz%Dz7$::016$:.::.:$:: 0 $;I<$<,< PFILE=/u/tmp/۩ө.prnPWEB /
"utencode.wbb0r$iView ALL Activity for Item 2/i$='TESTMODEU$>$,>JILOT$?$,?UYWEOD05+$WACTR1 $@AB######0-$CDbE3"CUSTOMERS""$F56,FUU6U$FUU@1FUUJ0U	 56UT2 :&0 :&
U^- :MTHEND$@:U
r
G|F3PRINT @(0,22),'CL',"** PRINTING DETAIL ACTIVITY REPORT  ** ",A1$(3,6)3"ITEMS", ;S$:
$:
$HF1HUU$EU ;I
HUU ;S
HU
#U
 ;I$HUU= ;S0$HUHHH1U1HUU* $ݨ$IJ 
U3PRINT A2$,"    ",A1$' ;I
	:U. ;S(######:U3"ACTIVITY RECORDS"Q3"F7=ITEM/LOT ACTIVITY IND. F8=OPEN BAL PRINTED FLAG. F9=OPEN BAL CALCULATED FLAG&,$KHLMNO0
1KU:$U
K $KUUDU1KUUE3LET RECS=RECS+1N N$O#X #
Ub #
O
Ul #@UvL NA$NLU K#K@U$A#
0 $BU LU$L* $$$$ݨ$$ $A$$  $RU $SU $AU $CUUUU3" END OF ACTIVITY ITEM/LOTU$N YU3"LOT# K
	UU1OUU$KU # K#	UU*U4UU
>U3"END OF CUSTOMERH$DD D=URU\UfU3"CALC OPENING BALACESp$Cz!U K
U #:U $B$C%  $R$CC%  $A$CC%  $S$CC%!
K $KU U!U  K#U1KUUUU$IIC8U3"PRINT OPENING BALANCE$DD D=U;$PPALLET


	CP M$MU!O/U#
'2: OPENING BALANCENCBU"WU!/U
	 '2: OPENING BALANCENCB$U"$GGC.88U3"CUSTOMER TOTALS"B#/LF!-END OF ACTIVITY-L]/ULF*** CUSTOMER TOTALS ***-OPENING BALANCEJG#BV8/U-CLOSING BALANCEJG#B`$QRSTj8t+U#3"GENERATE OPEN INVENTORY BALANCE RECORD~8U
3"SET MTD END DATE8U3"RECIEPT$CC%$DD D=	UU$U%;$PPALLET###	%P9utencode.wbb&q3"2011.01.18 SRR #4601$ef3"2011.01.18 SRR #4601 replace +FNENC$(CVS(C3$,3)) with +IBREF$$gƄg
#
gREC: Ug'
2#g2' / &gO
(%B $/$g g1eg2fgI}3PRINT (6,ERR=L8000)@(2),A3$(21,10),@(15),"REC: ",S2$,@(39),fny2kbb$(A3$(31,6))," ",D3$(2)," / ",C3$,@(78),A3:M$," ",B3$(2,1)/g8
U3"SHIPMENT$CC%
$DDV D=	UU$$%%(15'U&U28     ,
$W,$W    ,<$U' -$-- U'F+$V,W, -  .PU(ZU&$*'d-U( *$**ݨ*n;$PPALLET###	%Pp$efqw$efx3PRINT (6,ERR=L8000)@(2),L$,@(15),"SHP: ",B4$(1,15),@(39),fny2kbb$(A3$(31,6))," ",E3$," / ",C3$,@(78),A3:M$," ",B3$(2,1),AHREF2$z$gƄg
AgSHP: *g' 2# ( / &gO	(%#B ${6$g g3eg4f۩gH}/g3"PRINT (6)@(20),G4$8U3"ADJUST$CC%$DD D=	UU$;$PPALLET###	%P|/UA
ADJUSTMENT'2# ( / &N%B $8
U3"COMMENTS $DD D=	UU$/U-&8U3"CLOSING BALANCE$DD;$PPALLET


	CP" LU),/ M$/U
	 6D O

*/ULF  O
$DD@[/U'2@ *** INACTIVE ***NCB$GGCU*JMU)/UA'2@ CLOSING BALANCENCBT$='TESTMODEU*^>
AU+XhDU+ CX5/?
A C######0 X######0r CX"|U*c,cJSHRT?$Y1c
U,Y4U,3PRINT (6)@(67),"RATE: ",RATE:"##0.00"; LET L=L+1 /
$DD D<U$GGC!$JJCCLM ZYYU#8!U3"ITEM TOTALS FOR LOTTED ITEMS;$[PALLET


	I[;$\PALLET


	J\/U
	 -OPENING BALANCEIIBLF*** ITEM TOTALS ***-CLOSING BALANCECHJ#BLF$DD ZYU#84U$$DD/U
	 8&U3"PGE HDR0$DEE:$]Pݨ^D$_STOCK ACTIVITY DETAILN3PAGE HEADER HEREl$]Pݨ_v/
	 - /PERIOD FROM :/://: THRU @/@//@/m/
ITEM / LOTD E S C R I P T I O N'DATE  REFERENCE/  STORER #HPIECESS/'-HI EY
/
	 8
U3"ERROR "
2U3/
BBDUMPPF4-3CALL "WJBITEMSHOW",C$+C9$(1,6)+ITEM1$,ITEXT$ $4p4U%3READ 'JARHH' $`Ua?1 #R#&U-`Ua U-8*@3errorTE$o An error ۩(Ө at line ۩(Ө" in prog ۩#^E2u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD 0buH$b19buI0 b'Y2KSLIDE$b20uL8buM]u3yymmdd$ to julian numericu 1bu$b19bu0 b'Y2KSLIDE$b20u$c$cbuu5$cӨbbbu8cu]u3yymmdd (numeric) to ccccmmdd$v 1cv$b19۩(c000000v0 b'Y2KSLIDE$b20vH8bvR]y .by"*$db d $dd y,)$b0d3SET TO "9" OR ":"y68byr]y| /by0$dlܨb Өb0y8(dby]y 2jy $j/jy/$jj/j/jy8jz]zD 3kzIYU4$l k l9$kkl%۩klklU4zKYU5$lk l9$kkl%۩klklU5zN$m%&+=:#<>"zPnmzR`U6$lmnk l9$kkl%۩klklU6zT*nzV6U7$l k l$kl+U7zX8kzb]XY1Z8A1B1C1D1E1F1G1H1ZT1A2B2C2D2C2D2E2F2G2H2F2G2I2J2H2K2L2M2N2O2I2Q2A3B3A3C3D3E3A4B4C4D4E4F4CUST1ITEM1ITEM2 DAYSBACK FUTUREUSETEXTCC9TODAYTODAY FIRSTDAYA9S0NDUMMYJILOT TESTPRINTERDLMB0LPK1CK2T8T9K3F7F8F9KPALLETSW1W2C1O1S2G4D4 JILOT_AMTRATEO0 T8_PALLETS T9_PALLETSAC0AS1S3YYYYYYYAHREF1AHREF2ALINESKINALINKZZZTHATXENCENCERRORATITEXTIBREFITEMENCL31L32L33L34NOENTERL90L130L8000L9000L150L6100L7800L215L220L900L330L800L340L1000L450L1100L7000L7100L7200L7300L7500L890L7600L840L5000L1010L1099L1070L1110L1120L6000L7700L9100L7160L7144L7170L7510L7515L7513L7517L9149Y2KAY2KBY2K1Y2K2Y2KBBENCL1210L1220L1299L1310ENCERRORATITEXTIBREFL31L32L33L34NOENTERL90L130L8000L9000L150L6100L7800L215L220L900L330L800L340L1000L450L1100L7000L7100L7200L7300L7500L890L7600L840L5000L1010L1099L1070L1110L1120L6000L7700L9100L7160L7144L7170L7510L7515L7513L7517L9149Y2KAY2KBY2K1Y2K2Y2KBBENCL2210L2299L2310?