<>3j/ )3WACTAA - WAREHOUSE ACTIVITY DOWNLOAD 39/16/92 RCC 3SEE XLOOK1 :3--10/21/92 Summarize like ITEM+LOT detail lines RCC-TSS-3- 050295 - MTJ - fix mask overflow LINE:5410 }*@@(/ d 3OPEN FILESn,JCUST$x,@JITEM$,@JIACT$,@JCONS$,@JISRT$., @JOPIN$ 3WAS ON 4 WITH JCONS, @JILOT$q , @JARHH$_ , @JARDH$e ,CCNVZ$, @JBLHH$b ,@JBLDH$c,@JARHE$a,@JCUST$j3$,JBLHH.THRU2009$,JBLDH.THRU2009H$J1JIT3 "YCOMCD",C$,C0$,10,10; IF C$="99" THEN GOTO 91003DEFINE VARIABLES< ƄƄ-Ƅ=Ƅ*P_&  ($ :$USTOCK ACTIVITY BY REFERENCE$VDetail/Summary$$ Ƅ3NUMBER OF COLUMNS IN REPORT *$  31/2 THE NUMBER OF COLUMNSX$ ##,##0.00- -##0.00% ########0--######0 ############$0,3DEFINE FUNCTIONS6>3CONVERT FROM MMDDYY TO YYMMDD@:3REMOVE SLASHESJF3CONVERT MM/DD/YY TO YYMMDDTD3CONVERT YYMMDD TO MMDDYY^7  Өݨ m8 ghkp [uv #*+,-.e#=>?@ABCDEFGHIJKLMNOPQ3 JITEM(2)#123456##XWYyz#g#h#k#p @$ /clg/wf/tmp/* _activity_۩(Өө.xls46$^,O_CREATE,O_TRUNC /u/whp/webnew>8$  HLR$ Recv DateTypeInvoice# Inbound Ref#RA No.(Waybill) Customer RA#Recv From (Seals)CarrierTrackingItem No Item DescQty DamageQtyWeight\ La$ Ship DateType BOL#/Adj# Storer Ref#PO Num Cons NameCons City,StateCarrierNumberItem No Item DescQty DamageQtyWeightf L3SETUP"$B3FIRST PAGE COUNTER3$"%3DEFAULT DATE$ "#%$TYES `N$"SUMMARY" DELIVERIES"RECEIPTS"OTHER$ }!}'$%N%N%Y$& ' z$( ) z$***$ %$N $"$2*$3 BLANK THE DESCRIPTION IF WERE NOT DOING EM/$VSUMMARY %N$VDETAIL1$w ww $zzzzzz=$x' xx $x zzzzzzzzzzzz'3DO THE SORT"$B3PRINT HEADER ON FIRST REC3JUMP RIGHT TO REPORT ROUTINE1`L!3get the next customer to processV1<[ *<` *< 3PRINT CUST$$<73em ----------- CUSTOMER OK , GET B/L OR W/R ----------10*@$;010fE ;*<LJ <$<;V ;<Y$<;| ; A ; D83------------------ RECEIPT HANDLING -------------------S$W***NOT FOUND***$_1_;R;f)3if not found in jarhh then look in jarhe6$a1a;R;f@3X*@%3----------------- HANDLE ADJUSTMENTS$;;"1`11 $1$3)$1$۩(Ө3000000J3, IF POS(A3$(1,36)+STR(ABS(A3):"000000")=TRANSFERADJS$)>0 THEN GOTO 16007$*** missing item ***11/x-43PRINT (6)A3$,"|",B3$,"|",A3,"|",C3$,"|",D3$,"|",E3$/;  ADJ 1%6 1 Y3-#####0d4 6:$۫; ADJ1%461 ۩(3-#####0۩(D L@83------------------ SHIPMENT/DELIVERY HANDLING ---------$f;f$c$$g 1bf1f@$c7$W **NOT FOUND**1;g $ 7XI g$gg g$g  $zz۩zz /;  DELVgg &g2W - z, zfg $3PRINT B/L DETAILS @ TL 3RANGE CHECK FOR ITEM ACTIVITY $\3STARTS OF OK $]*SRA '$^2] ^  & 1 1!  " 66(6)  8 3IT'S *NOT* IN RANGE &$\ v83END OF CWRK FILE$F($<2L< 3REPORT DONEF3GOSUB TOTALS RTNS#(>3-----------------PRINT THE DELIVERY/SHIPMENT DETAILS---------p3GET TRACKING NUM$no1cg.1c k g/+kILMSPPP3UNKNOWN RECORD TYPE3PRINT AN ITEM LINE0$m1;km$lmިkO$k gD$k/ k$lkިk~/k7kCkR(Өk ##0Y(Өk{(l  $#+$nnܨkool2$۫; SHIPgg gWzgkk۩(۩(۩(l < LFP3PRINT AN 'L' OR 'M' LINEZ %Y 3SUMMARYn 7Xx/k} $3END OF DETAILS& %N/LF$B/H DELIVERED **Yn{o $<$[[n[[o[[$no83 CONTROL BREAK ON CUST"/LF-*** TOTAL FOR STORER ***LFHRCVD:#=X[#z[# LFHDELV:#=X[# LINES:[z[# $, [-$@Q *J1JIM001=/TOTAL BILLING LOCS RECVD:  UPS/FEDEX: {8D8p!3------------ get tracking numberu$z1cg{.1c k g kL kM 3--- got one $k,  *** CHAMP$ 1 UPS 1Z$AT %%%A$$/ $[  *** FEDEX A$A $/ $Z FEDEX A$A$/ $ 3.8X3PRINT HEADERS / {/7ITEMDLOTQLINEZQTYdnDAMGv} NET WGT/$ 8x3CLEAR THE IOLIST FOR JITEM$=>?@GHPABCDEFIJKLMNOQ8?$124563RS8@ 3error trap;$~ERR:۩(Ө  at ۩(Ө" in prog ۩#E2#(3EOJ#*L
#-0CWRK۩#.#'3END ' 3SORT ROUTINE'53let F$=fid(3); let RECS=dec(F$(3,4));rem "DEAD CODE"'$6$/'WORKDIRCWRK۩(Өө/'&') R/@-'+$8't$0,0/'~!3PRINT @(0,20),'CL',"Sorting...",'$9:'19'(1*( 1::*(, 1 11 ((- 1!11(() \(3get rid of some things(q$22 222A11*11*5555 ($71$d(E 2S1$2D3ORDER TYPE INTO ADJ/DELV/RECPTS(0$77213 TYPE OF TRANS AND DATE(B$5d43PUT IN WARHOUSE REC # ORDER OR B/L# ORDER(E 2D1$6d63EXCEPT DELV IN B/L# ($77 (: 2A&$771 "3TO MAKE IT UNIQUE(3L07d3ADD IN JIACT KEY FOR EASE IN READING(>3LET RECS=RECS+1; IF MOD(RECS,100)=0 THEN PRINT @(20,20),SRT$,((* 3END OF SORT*H3IF RECS=0 THEN PRINT "No Records Selected....",'RB',; WAIT 2; GOTO 9000*8*3PRINT A ITEM HEADER*$*D$i***NOTFOUND***1jhh*i+\/;  RECVh h (h REVCD FROM: h _CARR: h+f $+z+3PRINT DETIALS++ Z3 TOTALS TABLES FOR ITEM TOTALS+8+*3PRINT RECEIPT DETAILS FROM THE JARDH FILE+e,eJARDH+$no+1eh++3+1e.|p+ p.|+ ph.|,$s;p,2$mWILWGTspqmr,$lmިp,8 7X,B% p,$t,L/p7pCpR(Өp##0Y(Өpl(Өp {l ,Q $,V $nnܨpool,`Z$$/h 3$h h h ,j$۫; RECVh h hh hpp۩(Өp۩(Өp ۩(l ,t L,~+,3PRINT THE COMMENTS,/p$,N3 IF CVS(JRH$[6],3)="" THEN LET JRH$[6]=PAD(JRD$[1],15); WRITE (JARH)JRH$[ALL],+.|3DONE PRINT THE RECEIPT TOTALS.~3 JARDHee,eJARDE+.3LET TWGT=NUM(JRH$[14]).=/I RECEIVED **Yn -###,###,##0{o. $.($[[n[[o.8u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD {uH${19{uI0 {'Y2KSLIDE${20uL8{uM]u3yymmdd$ to julian numericu {u${19{u0 {'Y2KSLIDE${20u$${uu5$Ө{{{u8u]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=19991231CC0Z8Z6Z7Z5M6XH2XX0M1M2M3M8YYPG1X7LF1 TESTMASK1JCUSTJITEMJIACTJCONSJISRTJOPINCCNVZCUST1CUST2DATE1DATE2TYPTYPITYP1ITEM1ITEM2BILL1BILL2CUSTB1C1D1E1FCWRKA3B3A3C3D3E3SRTRECSSRT1SRT2KCWRKKCWRK1A2B2C2D2C2D2E2F2G2H2F2G2I2J2K2L2M2N2O2I2Q2B3C3 PRINTITEMH11H22B4A4C4TTTBADTYPESX7JARHHTTTJARHEJBLHHJBLDHKEY1JARDHKKEY1JBHJRHJCU1JCUSTTJBDNETWGTWGTTQTYTWGTJRDJILOTEKJITDUMMYJBD1JRD1CCUST2IITEM2D4E4YYYYYYD9ERRORENCOUNTEREDF4 RECEIVEDFROMJARHXLFILEXLFILETRTDDTROLCUSTRAPP SHPCOUNTTLINES RCVCOUNTBLOCSBLOCS1AVAILDAMGAKEYA33B33A33C33D33E33 TRANSFERADJSJIDESCTRACKLLLL JBLHH2009 JBLDH2009DSENMY2KAY2K1Y2K2Y2KB