<>$ |X $3W321RO - 09/26/96 re-order report33Copyright (c) 1995 Transportation Software Systems73TRACEFILE$="/u/tmp/traceme"; ERASE TRACEFILE$,ERR=002683STRING TRACEFILE$; OPEN (999)TRACEFILE$; SETTRACE (999)9U3"W321R0 -10/18/94- REPORT INVENTORY JITEM/JILOT/JSLOT(031.JCUST 2.JITEM 3.JILOT 4.JSLOT 5.WITST 7.CCNVZ233"P(1)=BOOK, P(2)=ON HAND, P(3)=COM'D, P(4)=AVAIL, <*3"P(5)=DAMGD, P(6)=DMG'D COMT'D, P(7)=HOLDF3"IOLSPsU# Z[U# !"#$%&'()*+,-./01d#U#23456789n#U#:;<=>?@AxU#BCDEFF*F ,JCUST ,JITEM ,JILOT ,JSLOT ,WITST ,CCNVZ ,JISRT@U"GHHݨG*GGGG AG@$GG  G$GӨ G+E$~#G ~+$GG~%23G~8G] U 3"STARTIJKLMN53LET C1ST$=" PAUL",I1ST$=FILL(12),ILST$=FILL(12,"Z")${"|","m3LET CSVFILE1$="csvfiles/"+CVS(C1ST$,3)+".CSV"; LET CSVFILE$="/u/webtree/"+CSVFILE1$; ERASE CSVFILE$,ERR=026393STRING CSVFILE$; LET CSVFILE=106; OPEN (CSVFILE)CSVFILE$4, PFILE=/u/tmp/۩өv.prnPWEB /
9 O-
O($O

PP_QP"+$OOOW321R0,
RP-63$S######0-T##,###,##0-U#######-@U
3"CO.CD.JNU$G+INVENTORY REORDER REPORT - ITEM BY LOCATIONVGWVƄT$X'CO_CODE^U3300"RANGE OF CUSTOMERSh$YIrU
3400"RANGE OF ITEMS|U$ZYU$[YU$\N	$]I$^ LN$^U3800"SRT SEQU$_N`U3"MAIN CHAIN#$abcde: 
fghi 
fgjkXIUUU3L1100"NXT JCUST$lU lXU lYU&1lUU0U:
mnD ]IlJUNUXU3L1200"NXT JITEMbU oENDUl
fgjk$f+,-f+f.f+.f,f0f1i/v\ [NO$H+ܨ,ܨ-ܨ.ܨ-ܨӨ0 HU\F$iFfFmFmFfFnFnFfF"*FU YU=F$gFfFjFjFfF*F* \Y$pqQ
UUU1qU U 3L1300"NXT JILOTU!$rU rqqUU"1rUUy
gk$g346g3g59g359g4g7g6=F$iFgFjFjFgF*F)3"LET N_WGT=NUM(B3$(22,8)),T_WGT=N_WGT*A3? [N2 345679U#U$ \Y
$prU U#U *U3L1400"PROCESS JSLOT4
1pU%>U%3L1500"NXT JSLOTH$sU&R sppU&\1sUUfq
h$h<=>h<h?Ah<?Ah=h@h>p=F$iFhFkFkFhF*Fz? [N2 <=>?@AU%U'U%U&3L1600"END OF SUBLOTS
F kFgFU(*FU)BU($G2***  ITEM/LOT/LOCATION BALANCES DO NOT AGREE!  ***U*U)8U3L1800"NXT ITEM ]LU+
F jFfFU,*FU+j
U/3L5100"OK!tU0~U3L6000"SORT OPTIONS?$oU13L6100"NXT JITEM$qU2 qllU2 q	KU31qUUU4U2$oENDU48U3$oENDU58U3"PAGE HEADER@U6
$cc3PRINT (6)'FF',"AS OF: ",X$(31,8),"  ",D0$,@(B7),B7$,@(117),"PAGE: ",P,'LF',"ON: ",DAY,@(A7),C0$,@(114),"PROGRAM: ",X$(1,6),'LF', }2$}q3LET CSV$=Q$+"CUSTOMER"+QQ$+"ITEM"+QQ$+"DESCRIPTION"+QQ$+"ONHAND"+QQ$+"COMITTED"+QQ$+"AVAILABLE"+QQ$+"DAMAGED"+Q$3WRITE (CSVFILE)CSV$/

RE-ORDER REPORT : - 
[AS OF %Yd/%Mz/%Dz] (Ө#d##:##LFC


Click on Item Description to view last 30 days of activity(P/H
Quantities in red are UNDER THE RE-ORDER*]/UQuantities in magenta are within 20% of the RE-ORDER
/ /
2"/&ONFDAMAG</ITEM  BOOK&HAND.COM'D6AVAIL>DAMAGFCOM'DORE-ORDERWF$tP8ZU3L7100 "PRT ITEM DTLd@U6n( WICKEW$u$ux tueU $CDqU7UU7U8 $5U8 `*/
	
 ZY$vU9 //O/S; `3 CD!/TCSfDS `	/LF `$tta3LET CSV$=Q$+A2$(3,6)+QQ$+A2$(9,12)+QQ$+B2$+QQ$+STR(K2)+QQ$+STR(N2)+QQ$+STR(K2-N2)+QQ$+STR(L2)+Q$3WRITE (CSVFILE)CSV$@U8U$3L7200"PRT LOT DTL ^U:8U:@U6 tueU* `" \Y$tt/LF" `/2
," ]L/ 2	6U; ZY$vU9@3 2WICKEWU tue.U3RCC 7/20/L100PAGE BREAK DURING LOC PRINT8U-3"PRINT REPORT TOTALS U=3L7510"PRINT CUSTOMER TOTALS"Q/LFSTORER TOTALS:  BOOKmT-nTLBS@/ON HANDmT-nTLBSB/	COMMITTEDmT-nTLBSB/	AVAILABLEmT-nTLBS&@/DAMAGEDmT-nTLBS0H/DAMAGED COMMT'DmT-nTLBS:=/HOLDmT-nTLBSD?/FUTUREmT-nTLBSN/ -END OF REPORT-X8bU*3L7700"PRT MSG(Z$)l ZYU>v teU" `/U6LFGLF `$ttU>8U93L7900"PRT BALANCESF$#000000 iiMi$#ff00ff# ii$#ff0000,$$ `/viS$viS,viS4viS<viSDviSLviS$zy8U3"ERR=$ERROR ۩(Ө	 AT LINE ۩(Ө" IN ۩#E2/ERR  AT "U0$3"IF CTL=4 THEN GOTO 9000 ELSE RETRY9
U63"ERR MESG"$o*** PRINTER ERROR ***U? U.3"NO DATA*A/CLRB+*** NO DATA ON FILE ***   'CR' TO CONTINUE.4"U0>U03CLOSE (CSVFILE)?BBDUMPPFNHR\%U@U@f
U@<W321R0pA1B1C1D1E1F1G1H1I1J1A1B1K1L1M1N1O1P1Q1R1S1T1C1D1U1V1W1E1A2B2C2D2C2D2E2F2G2H2F2G2I2J2H2K2L2M2N2O2I2Q2A3A3B3C3D3E3B3F3A4B4A4B4C4D4E4F4A5A5B5B5IZZC1STI1STILSTLOTSLOCSTEXTXZ0Z8Z9MM8M9B7B7CCLSTBZEROLOCQSRTPRINT_LOTSSUMMARYNOT_SUMMARYH0V0PC0L9ILSPLTSTKCCWEP4K2K3K4LLINE_CHECKOLOOPERLOT_APPENDN_WGTT_WGTQQQWROTEHEADERZZFONT1FONTONFONTOFFE	ERRMSG11L10L31L32L33L34L35L8000CDL100L200L205L300L400L530L650L750L800L890L1000L1095L1100L5000L7000L1195L1200L6000L1900L7100L1290L1400L1800L1300L1310L1320L1399L7200L1500L1600L7300L1650L1699L7700L1899L1850L7500L8900L5100L9000L6100L6180L6280L6199L6299L8100L7121L7140L7900L7205L7230L7280L7510L7799L8010L9990WMASK5L1100L5000L7000L1195L1200L6000L1900L7100L1290L1400L1800L1300L1310L1320L1399L7200L1500L1600L7300L1650L1699L7700L1899L1850L7500L8900L5100L9000L6100L6180L6280L6199L6299L8100L7121L7140L7900L7205L7230L7280L7510L7799L8010L9990WMASK27140L7900L7205L7230L7280L7510L7799L8010L9990WMASKЃ230L7280L7510L7799L8010L9990WMASK