<>7 /D 73JBSHIPDRP2 - SMALL PARCEL Statement w/ Brand Breakdown 36/16/2005E$$, JBPLAN.tpl11,JBPLAN 1!E$9$,9 JBITEM.tpl1919,9JBITEM 1"R$<$,< JBBRANDS.tpl1<1<,<JBBRANDS =1 1#S$A$$BJCONSA,AB.tpl1A1A,AB 1$S$A$$BJBLHHA,AB.tpl1A1A,AB 1(^$A$$BJBSHIPDA,AB.tpl1A1A,AB 1 1<@@FT#vwxyz{|}~nJ$ 100100100100   sA$td class="td" <>< nowrap>z$  $  {[$>
. BRANDFAMILY|+$>

Brand Family: @8

0$[ 'TRHILITE&
$\Account BOL# ShipDate Tracking Carrier Dealer Addr Brand Discount Net Chg Net List Weight Pay Type Service Total PCS s$/k
$]%
Select Report Parameters
۩' REPORTINTRO >5
s\Q$$^
 s\$_%
>۩' REPORTINTRO
۩' REPORTINTRO >
 =s\5$`
 _ab !$  $+$< width="۩(">8] ! $ 8] C$(C ######.008] ,$ $
8]   1$//20 8 ]  M$C
 C)$C C8] $"",8]"'()#( ($(, ۩($5$'۩( ۩) %8&]'  (F$C  C,$C
C()8*], 6$$0$0ө.@@80E]T4 .fromdate^3test if exists^#(3on step1#(a$cd!edfe@_SPS_ WJBREPORT3ef!"gchidjk Lc] ! L!^ d Ld_$H@YI@Z"$ @SUMMARY$U $--%$@HHH44$@III 6&3IF ENDAT$=" " THEN LET ENDAT$=$FFFF$>i$VWX 23456H$ pw$#&;

Small Parcel Statement
For Shipment Period: H to: I

 &%1 3LOOP HEREL1lj&3IF K$(1,2)>ENDAT$(1,2) THEN GOTO 1900 3DO SELECTION! @L @L  ө@ L @L* @@(2$@@<!  $F @@@Pl$@@@@ ܨ@ @Zl$@@@@ ܨ@ @n $L@+3------------ handle bol splits -----------J3T$L@^4JBBREAK1Lh$Oo8$TU nnnp$q3$Ө rPwf$QAөP RPөPLx6$S(PSܨSy6$(Pܨ|H$Qm ZZZQ$QAZZZ |$ ܨSܨܨRppܨSܨttܨR$D$ܨSܨ*P7$ $6$(Ө6$(Ө($


03----------- DUMP LINE TO OUTPUT ROUTINE ------: +$Pp$PPPP$ @ @ ۫@ '۩@ ۩@ ۫۫۫۩(######.0 @ @@3 P$  ۫۫۫۩(######.03Lc $ll& !L![۫ $! dLd[ $bb baLd`$b*P$NNL 8 U 3------ 1@;$## &8l3DONEq@3dump last detail linet3column totalsv$##
wx$O
 z$TU| VPVW$QVPRWPSXP
Brand Subtotals
Q@;"۩(ӨR #####.00lbs۩(ӨS $######.00 $TTܨRUUܨS*Pl$OO'
Total۩(T #####.00lbs۩(U $######.00"$OO
  $##O$ Lc $ll ! L!  d Ld U c!d JBREPSUMMARY$?~Reports Menu
$#?
f#(UC$  Total۩($*8 9U 3^1000 "create the summary pages in an invoice format $Parcel Charges :$'ABnameө' COMPANYAB U 0R$'JBnameө' COMPANYAB ө' COMPANYJB U j$'PWnameө' COMPANYAB ܨө' COMPANYJB ө' COMPANYPW U >8 3^100 "subtotals handling $ qn +$pqqq *q :$'ABnameө' COMPANYAB U R$'JBnameө' COMPANYAB ө' COMPANYJB U j$'PWnameө' COMPANYAB ܨө' COMPANYJB ө' COMPANYPW U8U3^1000 " print the summary$

Parcel Charges Statement
For Shipment Period: H to: I

 $Q$ 
Discount Net List$$q) = =1<mq =$ [۩mq  @;۩(qpq ######.00۩(pq ######.00۩(q ######.00"$pqq$^*qh$ 
Total  for ۩( $#,###,###.00۩( $#,###,###.00۩( $#,###,###.00$$ 
$8$3^100 "dump a line out.Lc $ll8 ! L! B d Ld ~8$U 3-------- get all brand info hereT$m' COMPANYAB۩' COMPANYJB۩' COMPANYPW۩AZZZ nm < onpnntnnn qn%$rr۩mq  *qD$HIH.fromdateI.thrudate3$s>Freight Charge Detail Statement
Period: H thru IAbsolutJim Beam Brands Co.Peak WinesUnautd 88U$ ۩( #,###,###.00۩( #,###,###.00۩( #,###,###.00Lc $ll  ! L![ "! dLd[ $bb:8p 3FIX DATESr$$,JBLHHs1tz 1 @Dz @D2004z @JRAPDz"/@u @D @J @K1@M zFT 04?$@D20L/ z@3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE#2&/$IF LEN(CVS(H.BOL$,3)<11) GOTO 1100N N*E ө/$//N48N>]$E reportparamD$#
 $##/6 POPUPINPUTEfromdateF 3 POPUPINPUTEthrudateG*5$##[ Ship Dates: F Thru G4$##[Carrier: i UPS
FEDEX>$##[Report: Detailed
SummaryE$## &$##' - Q$##[ 1
$##~83 STEP 2 SELECT BRANDSO$#Brand Family: @8 
 #$##/JBSELECTOPTIONSJBBRANDSBRANDSCATDESC*FILTERMASK(R.FAMILY$,"@8%")*MULTIPLE*NOTOPVALUE*SELECTALL*AUTH7 $##7E$## &N$## /$##' - I$##1
$##f8HJBPLANSTARTATENDATUSEKNUMJBITEMTTTQCCCQIQCOUNTTRTDDTROTEXT1 ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRDQTYIDENT1DCOUNTRQTYLCSVCHANCSVLINKTEXTTDDH DFORM1HEADERBRYYCYYSYYZWFCGIWFWFPGMSELECT1CGI DFORM1LOOKUPYYYVTPLTATCTBTSTVRESULT1 CGI.BRANDFAMILYJBITEM JBITEM.RICBRAND JBBRANDS.DESC JBBRANDS JBBRANDSH2BFSUBMENU BRACKET1CFYYY H.SHIPDATE FORMNAME RESULTFROM RESULTTHRU FROMDATE THRUDATE H.DROP_CARR H.DROP_PROBL H.BOLKEYBLLISTDETAILPBRANDWGTCHG1SWGTSCHG1TOTS0TOTS1TOTS2 CGI.FROMDATE CGI.THRUDATETRPLAIN COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTOUTCHANPDFCHANSDESCENDMENUCSVFILEOUTLINKOUTFILEPDFLINKPDFFILEOCOUNTBRANDSBRANDSCHGTCHGI BRANDSCOL COLHEADTR0TWGT H.ORDERIDA2B2C2D2E2F2G2H2I2J2K2L2M2N2O2P2Q2R2S2T2U2JBLHH CGI.CARR SUMMARYONLY CGI.REPORTTYPE COMPANYDESC TOTCHARGE SBRANDS1 SBRANDS2 CHARGETYPESCHG SUBCHARGEJBPLANJBSHIPDJBSHIPD H.SHIP_DATE H.BOL DEALER_ADD1JCONSJCONSJBLHH H.NET_CHARGE H.NET_LIST H.WEIGHT H.SERVICE_TYPE H.TOTAL_PIECESYY H.PAY_TYPE JBLHH.CONS DEALER_ADD2 JCONS.CONSIGEE_NAME JCONS.ZIP_CODE ROWSTARTCOLUMNSCTOTH.TOTAL_PIECESROWLASTBRAND1BTOTHH HH.BOL HH.ACCOUNT HH.SHIP_DATE HH.TRACKING HH.CARRIERTOTCHGTOTWGTTOTPCS TOTLINESRATES0RATES1RATES2 SHIPTYPEOTHER1CHGWGTPPPBRAND CHARGEGROUPRATES3PRATE ADJUSTCHG ADJUSTBRANDDSC1CHG1LST1WGT1RATES4 ADJUSTLSTLSTTOTLSTLST1TLSTSLSTTOTLISTCW1BREMPTYD1 DEALERTOTALSXLCSZCGIVALDD1 BRANDHEADEROABR GETBRANDSNOBR DOSUMMARY PRINTSUMMARYN62 COLUMNTOTALS!&MARY PRINTSUMMARYN62 COLUMNTOTALS 6