<>  I 3JBPREVIEWDEALERS REPORT3 /$&'$sesrecccalamari "JBUSERBRANDLIST($&'ULOGINP0$ JBDEALERSU$  Q,$ JBDEALERSXREFU$D EZ1$ JBPROGRAMSU$  x'$JBSTATESU$$ % $'$,'JBDEALERSOLDNEW $2$,2JBDEALERSOLDNEW*$ JBSTATENUMSU$( )%$JBDIVSU$* +%$JBTERRU$, -P$6/u/webjbb/tmp/3 _preview.htm$7$,7O_CREATE,O_TRUNC6L7+/CS JBB PREVIEW DEALERS REPORT3// remember to mv /usr/guests/ftpjbb/Inbox/* .6/2ALWAYS IMPORT DEALE FIRST, THEN ITEMS, THEN ORDERS@/$/usr/guests/ftpjbb/Inbox/$lc J"CEEnter File Name to Process: #( F$3$$,%$< JBB$<,>3goto 14000 to do the UPDATE of temp xref dealers for JBEPOS3^1000 "---- dealers report7$/"./,/4
5   L713DONE/6 COMPLETE! : "UO"CLAre you Sure? ('YES'/) : YES YES$$8U$$,, IMPORT.tpl1,,.tpl1,83error653^1000 "---- fix dealer code before running in JBEPOS6,.orig6.$B$C$,CO_CREATE,O_TRUNC617 7x6   6$ ۩6,$=8>9 <$=:>;6+$@?@= ?7x6 $@****6$0>? 1 07 $  07x3write7 LC 7673done8@3rename the files!!!TPLCFFF1FF1 TPLIMPORT JBPROGRAMSJBPROGRAMSIMPORTDOITYESNOA JBDEALERS JBDEALERS JBPROGRAMSABARIJBDEALERSIMPORT R.DEALER I.DEALER R.DEALER_ADD1 I.DEALER_ADD1 R.DEALER_ADD2 I.DEALER_ADD2 R.DEALER_ADD3 I.DEALER_ADD3 R.DEALER_ADD4 I.DEALER_ADD4 R.DEALER_CITY I.DEALER_CITY R.DEALER_STATE I.DEALER_STATE R.DEALER_ZIP I.DEALER_ZIP R.LASTDEALERCODE JBSTATES JBSTATESDUMMYJBDEALERSOLDNEW JBSTATENUMS JBSTATENUMSJBDIVSJBDIVSJBTERRJBTERRQQQ SENDDEALERLJBDEALERSOLDNEW2FFORIGBRTDD PREVIEWFILEPREVIEWJBB1JBB2ASC1ASC2JBBXJBB1XJBB2XJBBXJBB ALLDEALERSFF1FIXFIXJBDEALERSXREFJBDEALERSXREF JBDEALERSXREF.DEALERTO PREPFILE AREYOUSURE~R_STATE R.DEALER_ZIP I.DEALER_ZIP R.LASTDEALERCODE JBSTATES JBSTATESDUMMYJBDEALERSOLDNEW JBSTATENUMS JBSTATENUMSJBDIVSJBDIVSJBTERRJBTERRQQQ SENDDEALERLJBDEALERSOLDNEW2FFORIGBRTDD PREVIEWFILEPREVIEWJBB1JBB2ASC1ASC2JBBXJBB1XJBB2XJBBXJBB ALLDEALERSFF1FIXFIX PREPFILE AREYOUSURENJBITEMTPLJBITEMJBPLANCF JBBRANDS JBBRANDSFF1FF1FFT JBREGIONS JBREGIONS TPLIMPORT JBPROGRAMSJBPROGRAMSIMPORTDOITYESNOA JBDEALERS JBDEALERS JBPROGRAMSABARI R.STATUSJBDEALERSIMPORT R.DEALER I.DEALER R.DEALER_ADD1 I.DEALER_ADD1 R.DEALER_ADD2 I.DEALER_ADD2 R.DEALER_ADD3 I.DEALER_ADD3 R.DEALER_ADD4 I.DEALER_ADD4 R.DEALER_CITY I.DEALER_CITY R.DEALER_STATE I.DEALER_STATE R.DEALER_ZIP I.DEALER_ZIP R.DEALER_COUNTRY I.DEALER_COUNTRY I.DEALER_TERRITORY JBPLANIMPORT R.LASTDEALERCODE JBSTATES JBSTATESDIV JBSTATES.REGION R.REGION R.DIVISION JBITEMIMPORTJITEMJITEMDUMMYJBREGIONSOLDNEWJBDEALERSOLDNEW JBSTATENUMS JBSTATENUMS JBSTATENUMS.STATEJBDIVSJBDIVSJBTERRJBTERR JBTERR.STATENUM STATENUM JBSTATES.DIVNUM R.STATENUMDIV1 R.ABTERR R.JBTERR SENDBACKFILE SENDBACKQQQ SENDDEALERLS S.DEALER_ADD3 S.DEALER_CITY S.DEALER_ZIP S.DEALER_COUNTRY S.DIVISION S.DEALER S.DEALER_ADD1 S.DEALER_ADD2 S.STATENUM S.JBTERR S.DEALER_ADD4JBDEALERSOLDNEW2JBPLAN2PREUPDATEFILE PREUPDATE PREPFILE AREYOUSURE@E9@F97r!@7 @ |@$@=@>. @13NORMAL STATE/DIVISIOND @&TA**$@%@&@ @EI@F97Z @& 91*19*DF*:$@%@&@@&@E@&@F@&/LF DIVISION: @LF"a TO ACCEPT, 'F1'-INTERNATIONAL, '99'-PUT IN HOUSE(RETAIN DEALER CODE) OR ENTER NEW DIVISION: $@8 99*$@%@&@ @E9@F99S $@6OTHER h$ZZ@%ZZ@۩@E9@F@5$ZZ@%ZZ@۩@E9@F@$@E@C@F@$@$@%)$(Ө0000  L L@&@% $@%!3handle lookup of unknown regions&$@%@&0$ @&19$A19b:53IF I.DEALER$(1,2)="TA" THEN LET DIV$="97"; GOTO 4540D /LFN(" ENTER DIVISION:(OR EXACT CODE): AX! AINT$@6OTHERhb,$@%ZZA۩ @EA@FAl $@1 v$@<@&83DONE/COMPLETE! : "UO"CLAre you Sure? ('YES'/) : YES YES$$8U$$,, IMPORT.tpl1,,.tpl1,83error3do the sendback file record 1`$@@@@@@@@@@@ L.3^1000 "import orders from the JBPLANORIG FILEj$bBB040010*BB040011*DK04005*VX040017560*AB04A2N0017933*AB04A2Q0017978*AB04A2P0017963*AB04A2Q0018011*$$, JBPLANORIG   ;3 1 @LGP ө@L*  @K.3IF I.REQUESTED_DATE$<"1040101" THEN GOTO 5100P$@H@I@G@7@J@KZ$@#A@N@L@O@Mn4$ @NR$RxI @NAB4$@N@N@N3REMOVE PROGRAM CODE} ө@N* @NR041@NJ3FIND RECORD(JBDEALERS,KEY=I.DEALER$,KNUM=5,DOM=5260)JBDEALERS$; GOTO 5280 @&$@%@P> @P-ZZ03 *ZZ06 *C90005 *MX9029 **$@E@@F@$$@O (/@H @% @& @N @OKLJBLOGW@HITRANSFER FILE IMPORT-۩#/DOM --"|3DONE/COMPLETE! : "p73^1000 "acknowldge the transfer, send the sendback filezX$EPOS File Import Complete*The following set of files were processed. 8$$,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: @."DIVIS: A. ./"STATE: ?/ ./ > >/&$@B?@C@@DA/0 L=>/: />//D3QUICK FIX OF STATES DIVISIONS/N 1=>/X @CS $@CC/b$@D@C/l L=>/v/N23^1000 REWRITE FILE2122 12 @DF*22 @225 @DF &$@3JB@382@38122 @2222 @PW221@AB22$@@21@JB22$@@2221@PW2$@@2 L24/@P @ @ @ @ @226(3---- SET QTYORD FOR ITEMS WITH QTYORD=061661 A66F$$ JBBALALLOCA6 66/< #=6"6 $A(6 L7 6:=3^1000 "---- SCAN DELAERS BUILD OLD REGION NEW REGION FILE: 1:/@P @ @::>#3^1000 " EXPAND THE JBSTATES FILE>1$$,/u/tmp/PWDIV.txt1 @>>1=>>1=$>>>?$ @B / @B NO UPDATE>>$>/@B @ >$@> L=>>>?>? 3 ^100 "---- COPY REGIONS?1 ? ? 1 ?* 9? ?4/ ?> ?H$@@{@@?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$@K. @1L63NORMAL STATE/DIVISIONK^ @TA*SW*WN*97*IP*MX*PW*50*/$@%@@ @EI@F97MXLhLe @99*19*DF*91*98*?$@%@@@@E@@F@MXLhL/LFLF DIVISION: @LF"a TO ACCEPT, 'F1'-INTERNATIONAL, '99'-PUT IN HOUSE(RETAIN DEALER CODE) OR ENTER NEW DIVISION: L"$@L8 99*$@%@@ @E9@F99LhL"S $@OTHER K$ZZ@%ZZ@۩@E9@F@LhL,5$ZZ@%ZZ@۩@E9@F@LhL6$@E@C@F@L@$@LJ$@%L^LT)$(Ө0000L^ LhLTLhLLmLrLmL^LrLA@ @%L|KL!3handle lookup of unknown regionsL$@%@&L$ @&19$A19LL53IF I.DEALER$(1,2)="TA" THEN LET DIV$="97"; GOTO 4540L /LFL(" ENTER DIVISION:(OR EXACT CODE): AL! AINT$@6OTHERKL,$@%ZZA۩ @EA@FAL $@1 L$@<@&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) @PZZ*91*19*DF*99UV @$@ $$@ $@V4$@ U$V@ @UVA 03@04UVB 08@09UVC 13@14UVT%/@P @ @ -->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 1Z/,Z1")new state code (OR 91XXXX dealer code) : ZS D$A  1Z23 THIS EXISTS ALREADYZ$Z,$$۩(0000 Z(1Z2ZZ2#/Creating new dealer code : Z<$@P@ZF LZK 4ZP1ZRZd$Zx1Zi ZdZn#/OLD-NEW UPDATE :  Zr 4ZsLZdZtZ1ZZ1Z @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 @^ $@^$@@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$$,%
U 1    $ ۩$@#@ @A $AA۩A@ $@1D@E $@****$0@F1 0 1'@01 0[$1
35@4@4@4@4@4@, @  @"5U$11@ @4@4@4@4@4@, @ @!5$11