<>TSHP, 3JBIMPORT3 /$z'$sesrecccalamari "JBUSERBRANDLIST($z'ULOGIN2-$JBPLANU$ ;7$$,JBPLAN<-$JBITEMU$ QF$$JITEMU$a bP0$ JBDEALERSU$ $Z1$ JBPROGRAMSU$ d($ JBREGIONSU$  n'$JBBRANDSU$ x'$JBSTATESU$= > $$,JBREGIONSOLDNEW $$,JBDEALERSOLDNEW $$,JBDEALERSOLDNEW*$ JBSTATENUMSU$ %$JBDIVSU$ %$JBTERRU$ :$2WS0026 W90004 DF0019 DF0002 CC0168 :$2420064 ZZ68 ZZDF ZZDF 550003 0$(WNE0011 911368 190148 DF0002 0$(090017 ZZ91A ZZ19 ZZDF )/CS JBB Transfer File ImportD/@ remember to mv /usr/guests/ftpjbb/Inbox/* /u/webjbb/imports/L/HALWAYS IMPORT DEALE FIRST, THEN ITEMS, THEN ORDERS THEN QTYORDS AT 140009/$/u/webjbb/imports/$lc J"CEEnter File Name to Process: #( F$%  $ $, ) JBB ASC %$ JBB $"21-Items 2-Orders 3-Programs 4-Dealers 5-Sendback: 123 45p31000 ----- item file importU 1 : /   Q$۩$$@N@L@_@`.* /@_$@_@_Ө/@_8$@@@@:A@ B$@S@T@U@V@W@XL $A$@ZL@[@\@]@^V $@#AZ"$@C @JB $@Q`4$ @NR$Rj[ өA@ ' COMPANYAB4$@N@N@N3REMOVE PROGRAM CODEt$@R@N~L3DUPLICATE ITEM --- this is ok for JB items, they have different PRogram codes, but we just create more allocations for the same item3------ check if on whse file$c85 cc*$dJ1JIM001@R۩dd%$e@_۩ee@$fNg000h@YLijkl@$m1nopNq ceLaddefghrijklmnsoptuvwxqy"3^1000 "----- orders file importU J" Enter related Detail File Name: 8 F$ $$M $88 $9$,98#$| /u/tmp/CWRK۩|  R|@*$}$,}|419\: :4> $HL}::R4\3"-DETAILS READ COMPLETE, TO BEGIN HEADER: f1 : fp $z1}:/$~~Missing Detail for order: f :   ;+$۩ƿƿ3FIX 1/11/04.  ƹ$ƹ4111111$:۩ @I@/$@H@I$@G@7$@J@K $@#A $@N@L@O@M 4$ @NR$R  1A@N  1A@N  C @AB 4$@N@N@N3REMOVE PROGRAM CODE $,$ ! $ ! &+$"#@& # . ' $"**** ($!#  8 )C3should not get here means a special xref to nonexistent dealer? * . @& 8 B B$@%@P L$@E@@F@ VL Y ` Y3DUPLICATE ORDER BAD `$$@O j j $@O t<JBLOGW@HITRANSFER FILE IMPORT-۩# ~f 3DONE K/GRUN THE QTYORD UPDATE ROUTINE AT 14000 TO SET THE QTYORD FOR NEW ITEMS! /COMPLETE! : "  3^1000 "---- programs import U  1 :  /     $۩ $@@ $@@ $@@ $@!@"  $@#A & L 0 :3DONE D/COMPLETE! : " N3^1000 "---- dealers import$",<$ _sback.csv$$,ҷO_CREATE,O_TRUNCU 1     $$۩$@<@&,$ ! $ !+$"#@& #$!# C3should not get here means a special xref to nonexistent dealer?1@& @2 $@2 $@2@%0000۩$@'@($@)@*$@+@,"$@-@.,$@/@06$@1@2@$@3@4J$@5@6T$@@7@@7^ $@#AhM ө@6 USA*INTL**$@%@&@1 @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. C$$,ER/u/webjbb/wf/JBACCESS Dd+H+RTR/u/webjbb/wf/JBTERR$"d+W+\7R/u/webnew/pss/wf/PSORH +^+R/u/webnew/pss/wf/PSORD ƀ+f*R/u/webjbb/wf/WFMHEAD +p+zER/u/webjbb/wf/JBDEALERSXREF  +|.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 @^ $@^" @ 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$$,%m$A&LmmjqHA3--------------- SCAN JBPLAN change dealer code on pending ordersqM 1qO($AMX9008 AZZ75 qR 1q\ A(AqRqa A)qRqf @qRqp/q$@LqqRJBPLANJBITEMTPLJBITEMJBPLANCF JBBRANDS JBBRANDSFF1FF1FFT JBREGIONS JBREGIONS TPLIMPORT JBPROGRAMSJBPROGRAMSIMPORTDOITYESNOA JBDEALERS JBDEALERS JBPROGRAMSABARI R.RICPROGRAM I.RICPROGRAM R.RICBRAND I.RICBRAND R.PROGRAMYEAR I.PROGRAMYEAR R.PROGRAMNAME I.PROGRAMNAME 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_TERRITORYFF2FF2A2 JBPLANIMPORT R.LASTDEALERCODE JBSTATES JBSTATESSTATEREGDIV JBSTATES.STATE JBSTATES.REGION JBSTATES.DIVISION R.REGION R.DIVISION R.TERRITORY R.ORDERID I.ORDERID R.REQUESTED_DATE I.REQUESTED_DATE I.RIC I.QTY R.RIC R.QTY JBDEALERS.DEALER JBITEMIMPORT R.ITEM_NO R.RICEPOS I.RICEPOS R.RICCAT I.RICCAT R.RICTYPE I.RICTYPE R.RICCOST I.RICCOST R.RICEXPIRE I.RICEXPIRE R.RICPACK I.RICPACK R.RICDESC I.RICDESCJITEMJITEMFRECODEA5B5C5D5C5E5F5G5H5F5G5J5H5I5D5I5K5L5M5N5O5Q5DUMMY JBREGIONS.REGIONCWRKFF3ERRMSGRQTYKKK REGIONAL REGIONALJ JBPLAN.RICGGG I.ORDERID2JBREGIONSOLDNEW JBDEALERS.LASTDEALERCODE JBDEALERS.DIVISION JBDEALERS.REGIONJBDEALERSOLDNEW NEWDEALER JBSTATES.STATENAME JBSTATENUMS JBSTATENUMS JBSTATENUMS.STATENUM JBSTATENUMS.STATEJBDIVSJBDIVS JBDIVS.DIV JBDIVS.RNAME JBREGIONS.RNAME JBDEALERS.DEALER_STATE JBDEALERS.TERRITORY JBDEALERS.DEALER_COUNTRYJBTERRJBTERR JBTERR.STATENUM STATENUM JBSTATES.DIVNUM R.STATENUMDIV1 COUNT_DETAIL COUNT_HEADERCOUNT_JBPLAN1FFPDIVSPDIVSPPW JBSTATES.DIVCODE JBDEALERS.STATENUM JBPLAN.DEALER JBPLAN.DIVISION JBDEALERSOLD JBDEALERSOLD JBDEALERS.PWTERR JBDEALERS.ABTERR JBTERR.TERR JBDEALERS.JBTERR JBDEALERSOLD.CONTACT JBDEALERSOLD.DEALER JBDEALERS.JBCONTACT JBDEALERS.PWCONTACT JBDEALERSOLD.PHONE JBDEALERS.JBPHONE JBDEALERS.PWPHONE JBPLANORIGSKIPFI A.F1 A.F3 A.F4 A.F5 A.F6 A.F7 A.F8 A.F9 A.F10 A.F2TERR R.ABTERR R.JBTERR R.PWTERR JBTERR.FAMILYPP R.QCSTATUS JBBRANDS.FAMILY 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_ADD4SCSNNEWNUMD1S2D2DSEQJBDEALERSOLDNEW2KOLDKNEW JBPLAN.ORDERIDORDERID JBADDRESS DEALERSTATE JBPLANDUP JBJBITEMDDT2T1KKKSUBJECTMESSAGELSLS REJECTIONS ACCEPTFILE WARNINGSXLFILECCTO SIGNATURERESULTJBPLAN2DAADDBBDUPENEWFDUPEFFNEWABRICSITEMS JBITEM.ITEM_NO JITEM.DESCRIPTIONJITEM.ON_HAND JBITEM.QTYORDUSEKNUM JBITEM.RICFILTERALLOCZZTOTSHTOTSHRAPIDSHDROPRESULT1 INPROCESSJBB1JBB2ASC1ASC2JBBXJBB1XJBB2XJBBXJBB R.RICCOST FF1SHORT JBPLAN.TERRITORY JBITEM.RICBRAND JBPLAN.STATUS JBPLAN.QTY PREPFILE AREYOUSURE r