<>J:>! 3JBEPOS3 /$q'$sesrecccalamari "JBUSERBRANDLIST($q'ULOGIN2-$JBPLANU$ 2 7$$,JBPLAN<-$JBITEMU$ H F$$JITEMU$X YP0$ JBDEALERSU$ " R,$ JBDEALERSXREFU$ Z1$ JBPROGRAMSU$  d($ JBREGIONSU$  n'$JBBRANDSU$ x'$JBSTATESU$4 5 $$,JBREGIONSOLDNEW $$,JBDEALERSOLDNEW $$,JBDEALERSOLDNEW*$ JBSTATENUMSU$ %$JBDIVSU$ %$JBTERRU$ : IO)/CS JBB Transfer File ImportH$@mv /usr/guests/ftpjbb/Inbox/* /u/webjbb/imports/ >/dev/null 2>&1 $>/$/u/webjbb/imports/ ,|ls 1Ȱ ./  orderhead$ # /No Files Found&/processing file -- , IO"Hit to process: $  $ $, ) JBB ASC %$ JBB $ header  $ $, 3handle dealer codes,$  itemmaint' $ $, "3handle creating items,$ 6 $ $, @J$  _sback.csv^p|6/ALL PROCESSING COMPLETE!! #(31000 ----- item file import1 : /   H$۩$$@E@C@V@W.* /@V$@V@VӨ/@V8$@@@@:A@ B$@J@K@L@M@N@OL $A@QL@R@S@T@UV $@!AZ"$@C @JB $@Q`4$yz @ER$yRze $AUj[ өA@ ' COMPANYAB4$@E@Ez@Ez3REMOVE PROGRAM CODEt$@Iy@Ez~L)/!POSSIBLE DUPE ITEM (OK FOR JBB) :@E3------ check if on whse file$Z85 ZZ*$[J1JIM001@I۩[[%$\@V۩\\@$]N^000_@PL`abc@$d1efgNh ZeLX[[\]^_i`abcdejfgklmnohpl&/ITEM HANDLING COMPLETE! : "8"3^1000 "----- orders file import$ $$M&$/ orderdetail' $0$,0/#$s /u/tmp/CWRK۩s  Rs@*$t$,ts410\1 14> $HLt11R4\3//DETAILS READ COMPLETE... BEGIN HEADERS...f1 : fp $z1t1/$uuMissing Detail for order: f 1   2+$۩ƿƿ3FIX 1/11/04.  ƹ$ƹ4111111$1۩ @@@~/$@?@@$@>@.$@A@B $@!A $@E@C@F@D 4$yz @ER$yRz  1A@E  1A@E  C @AB 4$@E@Ez@Ez3REMOVE PROGRAM CODE $$@$ ),1 .$A3 12/14/2004 RCC 8 B B$@#@G L$@<@@=@ VL Y ` Y3DUPLICATE ORDER BAD `$v$v@F j j $}@F t<JBLOGW@?ITRANSFER FILE IMPORT-۩#v ~f 3DONE K/GRUN THE QTYORD UPDATE ROUTINE AT 14000 TO SET THE QTYORD FOR NEW ITEMS! /COMPLETE! : "  3^1000 "---- programs import /PROCESSING PROGRAMS... 1 :  /     $۩ $@@ $@@ $@@ $@@  $@!A & L 0 :3DONE <E/LIST OF INACTIVE DEALERS:LFLIST OF BAD DEALERS:LF N83^1000 "---- dealers import"$",<$ _sback.csv$$,ɷO_CREATE,O_TRUNC1     "$۩$@$,1̯$A3 12/14/2004 RCC3do the sendback file record 1̯2/Missing Dealer Code!! : $`$@@@@@@@@@@@" L@5 AA(/@ Dealer is not in ACTIVE STATUS!E AA$@ ^3DONE!/DEALER PROCESSING COMPLETE...8U$8U$$,, IMPORT.tpl1 ,,.tpl1,83error.3^1000 "import orders from the JBPLANORIG FILEj$bBB040010*BB040011*DK04005*VX040017560*AB04A2N0017933*AB04A2Q0017978*AB04A2P0017963*AB04A2Q0018011*$$, JBPLANORIG   23 1 @CGP ө@C*  @B.3IF I.REQUESTED_DATE$<"1040101" THEN GOTO 5100P$@?@@@>@.@A@BZ$@!A@E@C@F@Dn4$yz @ER$yRzxI @EAB4$@E@Ez@Ez3REMOVE PROGRAM CODE} ө@E* @ER041@EJ3FIND RECORD(JBDEALERS,KEY=I.DEALER$,KNUM=5,DOM=5260)JBDEALERS$; GOTO 5280 @$$@#@G> @G-ZZ03 *ZZ06 *C90005 *MX9029 **$@<@@=@$v$v@F v(/@? @# @$ @E @FKLJBLOGW@?ITRANSFER FILE IMPORT-۩#v/DOM --"|3DONE/COMPLETE! : "p73^1000 "acknowldge the transfer, send the sendback filezX$EPOS File Import Complete*The following set of files were processed. C$$, to move files to processed : 8:$mv / *.???  processed $8#(39000 outta here#23processing complete#<*/processing for file complete!#&3completely done&'310000 "clear JITEM'$wJ1JIM0011Xw'$'$$xX1X'. xw'8 4Xx'B'$*3^1000 "file defs+R/u/webjbb/wf/JBDEALERS   Ư Ʋ ƽ + +R/u/webjbb/wf/JBADDRESS   Ư Ʋ ƽ ++-R/u/webjbb/wf/JBADDRTEMP ++JR/u/webjbb/wf/JBPLAN.NEW owNNNwƊƾ+ +*>R/u/webjbb/wf/JBITEMƯ +4+>ER/u/webjbb/wf/JBACCESS Dd+H+RTR/u/webjbb/wf/JBTERR$"d+W.3^1000 "QUICK ENTRY OF STATES."REGIN: 7."DIVIS: 8. ./"STATE: 6/ ./ 5 5/&$@96@:7@;8/0 L45/: /5//D3QUICK FIX OF STATES DIVISIONS/N 145/X @:S $@:C/b$@;@:/l L45/v/N23^1000 REWRITE FILE2122 12 @DF*22 @225 @DF &$@3JB@382@38122 @2222 @PW221@AB22$@@21@JB22$@@2221@PW2$@@2 L24/@G @ @ @ @ @226(3---- SET QTYORD FOR ITEMS WITH QTYORD=06 /PROCESSING ITEM ORDER QTY...6166"17 A66F$ $ JBBALALLOCA     6  66/< #= 6 $A( 6 L7 678:=3^1000 "---- SCAN DELAERS BUILD OLD REGION NEW REGION FILE: 1:/@G @ @::>#3^1000 " EXPAND THE JBSTATES FILE>1$$,/u/tmp/PWDIV.txt1 @>>14>>14{$5{>>?$ @9 / @9 NO UPDATE>>$>/@9 @ >$@> L45>>?>? 3 ^100 "---- COPY REGIONS?1 ? ? 1 ?* 9? ?4/ ?> ?H$@@r@@?R L?\? ?D3^100 "---- scan plans for territory/statecode convert to statenum?1?? 1? @?? USA@??1@???/"??? /@ @ @ @@1@@$@@@ L@$?Bh%3scan to fix the PW Dealers DivisionsBj+$ JBDEALERSOLDU$ Bm 1B 1B,3CALL "uttplcp.wbb",JBDEALERSOLD$,JBDEALERS$B& @@BB1@B$@@@@C5 @PW $@@@@@@C LC&BFP23SCAN PLANS FOR A DEALER CODE, CHANGE THE DIVISIONFZ1F[Fd(1 @A990704 FdFn/F$@99 @AZZ99 F LFFdJ8D3^1000 "read the dealer.txt tab delim file create dealers if neededJL&$/u/webjbb/imports/dealers2.txtJV$$,J_$J`3 $F۩( :C(1*=09),*Jb J 1J>$" $$JK  K2$@3A@ K<@3KFJKF1@3KPJKZ!$ @#0000۩Kd$@%@Kn$@&@Kx$@'@K$@(@K$@)@K$@*@K$@+@K$@,@K( @@MN $@356K( @WN@KK$@K $@!AK3IF POS(CVS(R.DEALER_COUNTRY$,3)="USA*INTL*")=0 THEN LET R.DEALER$=A.F1$,R.DEALER_STATE$=" ",R.REGION$="9",R.DIVISION$="97"; GOSUB 19800; GOTO 19560K KKK @AB$@K @JB$@K @PW$@K @ KK@$@K4@5K. @*L63NORMAL STATE/DIVISIONK^ @TA*SW*WN*97*IP*MX*PW*50*/$@#@@ @<I@=97MXLhLe @99*19*DF*91*98*?$@#@@@@<@@=@MXLhL/LFLF DIVISION: @LF"a TO ACCEPT, 'F1'-INTERNATIONAL, '99'-PUT IN HOUSE(RETAIN DEALER CODE) OR ENTER NEW DIVISION: L"$@L8 99*$@#@@ @<9@=99LhL"S $@OTHER K$ZZ@#ZZ@۩@<9@=@LhL,5$ZZ@#ZZ@۩@<9@=@LhL6$@<@:@=@L@$@LJ$@#L^LT)$(Ө0000L^ LhLTLhLLmLrLmL^LrLA@ @#L|KL!3handle lookup of unknown regionsL$@#@$L$ @$19$819LL53IF I.DEALER$(1,2)="TA" THEN LET DIV$="97"; GOTO 4540L /LFL(" ENTER DIVISION:(OR EXACT CODE): 8L! 8INT$@-OTHERKL,$@#ZZ8۩ @<8@=8L $@* L$@3@$L8L3DONEL/COMPLETE! : "MMX(3display dealer info accept Mb /LFM8R3scan for divsR 1R R 1R@R&RR0/@ (RbRU03-scan dealers file for invalid /wrong statenumsUY3GET LIST OF STATNUM/CODEU1UU 1V) @GZZ*91*19*DF*99UV @$@ $$@ $@V4$@ U$V@ @UVA 03@04UVB 08@09UVC 13@14UVT%/@G @ @ -->VhW3IF NEWNUM$<>"" THEN LET JBDEALERS.STATENUM$=NEWNUM$; WRITE RECORD(JBDEALERS)JBDEALERS$WUY$1YY1YjY$7$@ $@@Y.YYj8Y3^100 " fix dealer codeY>3 get bad dealer code, get new state code, get new dealer codeY=3 write new dealer code, remove old dealer, scan/update plansY3 update JBDEALERSOLDNEWZ"Bad Dealer code: Z /$A 1ݯZ/,Z1")new state code (OR 91XXXX dealer code) : ZS D$A  1߯Z23 THIS EXISTS ALREADYZ$Z,$$۩(0000 Z(1߯Z2ZZ2#/Creating new dealer code : Z<$@G@ZF LZK 4ZP1ZRZd$Zx1Zi ZdZn#/OLD-NEW UPDATE :  Zr 4ZsLZdZtZ1ݼZZ1Z @ZZ+/PLAN CHANGE : @ NEW DEALER: Z$@LZZ/ cOMPLETYE! : ZY]?3^1000 " fix division code on plans, when a dealers changes div]-]$]$#]1]]1^]$/ ]$@]9 JBGETPLAN] @@]^/2 @^ $@^" @ ZZ91A *]^$@@L^]^3^$#^/ complete ^a$3^1000 " batch fix dealer divisionsa1aa 1a @SWaa @TAC@100aa/( @a $@99a"3WRITE RECORD(JBDEALERS)JBDEALERS$bae.3SCAN IMPORT HEADER FILES FOR DUPLICATE ORDERSe6$$,%