<>;l5L 83TISRORP5 - SMALL PARCEL SHIPMENT REPORT - EMAIL VERSION@3 FID(0)<>"IO" THEN GOTO 0034 6 0* CRONSYSCLG$' REPORTINTRO"$ 0$$JBB$'WFDIR/u/whp/webnew/tcg/wf/'WFURL/tcg/wf/'WFCGI1fJ1+$R1:C(7),R2:C(10),R3:C(1),R4:C(30),R5:C(30),R6:C(30),R7:C(30),R8:C(25),R9:C(2),R10:C(10),R11:C(6),R12:C(3),R13:C(7),R14:C(1),R15:C(30),R16:C(15),R17:C(3),R18:C(4),R19:C(20),r20:c(7),C$N$,N JITEM.tpl1N3N,NJITEM O3-R$u$UJBLHHsu,uU.tpl1u3u,uU t3.R$u$UJCONSxu,uU.tpl1u3u,uU y33$Z$,ZJIACT4$z$,zJBLDH5E$;$,; JBITEM.tpl1;3;,;JBITEM 36I$>$,> JBBRANDS.tpl1>3>,>JBBRANDS ?3<@@FE " 7$ $$,JBPLANnnJ$ 100100100100   sA$td class="td" <>< nowrap>z$  '  0$M 'TRHILITE(
e$F Acct'Consignee Name'Address'City'State'Date Ord'Order No'BOL#'SKU'SKU Desc' Qty Shipped' Calc Weight' Ship Date'Carrier'UPS Tracking Number'Published Rate'Pkgs'Service'UPS Weightp$@
0 BRANDFAMILY@$@

۩' pagetitle -- Company: @:

9$@

Small Parcel Shipment Report 

$G%
۩' REPORTINTRO @5
FE$H
 F$I%
@۩' REPORTINTRO
۩' REPORTINTRO @
 =F5$J
 IK'Lo$1g"0$ # $, 0#FROMDATE:C(1*=00),THRUDATE:C(1*=00)$@k %Mz.%Dz.%Y@q@k WCUSTOMERS:C(1*=00)$@'tcgacctsh4 0FROMDATEr3test if existsr #(3#(}$#d eAfDChampion_Shipping_۩ %Y%Mz%Dz WJBREPORT3DE !"#$%ABC L#G L H A LAIn$//*ALL3" SELECT1$=CVS(FIELD(CGI$,"BRANDS",ERR=0501),3); IF SELECT1$="*ALL" THEN LET SELECT1$=""3LET BRACKET1$=SELECT1$+FILL(3)4 j,CMONTH:N(1*=46),CDAY:N(1*=46),CYEAR:N(1*=46)&$$j@k....@l@m@n0$\ ө  %Yz%Mz%Dz:$$j@q....@l@m@nD$] ө  %Yz%Mz%DzX'3create sort file4$6&3IF ENDAT$=" " THEN LET ENDAT$=$FFFF$>Q$ 456781W"3---------- scan through sort fileL$dWl1We$rf۩ ݨee1srt1xt@vy*$@, ,`$@, Ө,  $ @$, &$ $Z3IF POS("653742"=BOLKEY$) AND POS("srajski"=SESSION$) THEN LET STEVE=1225; DUMP ; RELEASE $@$|}3GET TRACKING NUMBER73++++++++++++++++++++++++++++++++++++++++++++++++++++++Z3IF POS("653742"=BOLKEY$) AND POS("srajski"=SESSION$) THEN LET STEVE=1242; DUMP ; RELEASE ! @UPUPS ! @FEFED L73++++++++++++++++++++++++++++++++++++++++++++++++++++++n1zt ox6${zL1z { t L}$B {I.1z{W {MC1z{ %%%*** px> {I*$~t@1N~OH 656396%%%srajski $E2$$ިL$ 7$  {I$@ @ @ ۫ @ @w @ @۩(   ۩(@#####.00 ۫ @  7 {M/L {M$                 L# $ L M! ALAM$LL LKLAJ$L#$45678x U3------ 1>A@< ?7$
Select Report Parameters
۩@=L# $& L M(" LKLAJ$L0! ALAM$LLb8l3DONEv$
{L#$} L  A LA# A JBREPSUMMARY$&
E #()3------------- HANDLE EMAILING THE REPORT4.3this alias is defined in /etc/postfix/aliasesH\$.tcgshipping@champlog.com;chuck@tssconnect.com;TCG Daily Shipment Report @qR!$; f1$p@WHMAILTOAttached is the "zR3 V#(#3^100 "----- GET THE FREIGHT CHARGE$$@ - 5  UPS FREIGHT$ UPS FREIGHT/ GETCLGCHARGEt w3IF POS("UPS FREIGHT"=TRACK$) AND POS("655891"=JBLHH$) AND POS("srajski"=SESSION$) THEN LET STEVE=5051; DUMP ; RELEASE $( $###,###.003=$\ #$  UPS FREIGHT$ UPS FREIGHT g$Aө  9http://ltl.upsfreight.com/tracking/ShipTrack.aspx?ProNbr=۩ @UPUPS$http://wwwapps.ups.com/etracking/tracking.cgi?tracknums_displayed=5&TypeOfInquiryNumber=T&HTMLVersion=4.0&sort_by=status&InquiryNumber1=U&InquiryNumber2=&InquiryNumber3=&InquiryNumber4=&InquiryNumber5=&track.x=36&track.y=7p @CTCHAMPQ$Ehttp://tracing.champlog.com/wtenter.cgi?PGM=WTLOOKM&CTrack=Multi&CBL= @FEFEDx$lhttp://www.fedex.com/Tracking?ascend_header=1&clienttype=dotcom&cntry_code=us&language=english&tracknumbers=8p#3^100 "----- GET THE FREIGHT CHARGEqH 656396srajski%%% $qE2z$($$@ - 5  UPS FREIGHT$ UPS FREIGHTG3CALL "GETCLGCHARGE",JBLHH$(1,11),TRACK$,FCHARGE,TOTWGT,TOTPCS,TOTLINES(3LET FCHARGE$=STR(FCHARGE:"$###,###.00")3O3LET P=POS("\"=TRACK$); IF P THEN LET CARRIER$=TRACK$(P+1),TRACK$=TRACK$(1,P-1)3IF POS("UPS FREIGHT"=TRACK$) THEN LET CARRIER$="UPS FREIGHT",TRACK$=PAD(CVS(TRACK$(13),3),9),TRACKINGURL$="http://ltl.upsfreight.com/tracking/ShipTrack.aspx?ProNbr="+CVS(TRACK$,3); GOTO 6390 %%%$ UPS FREIGHTAө3,TRACKINGURL$="http://ltl.upsfreight.com/tracking/ShipTrack.aspx?ProNbr="+CVS(TRACK$,3); GOTO 6390 %%%$http://wwwapps.ups.com/etracking/tracking.cgi?tracknums_displayed=5&TypeOfInquiryNumber=T&HTMLVersion=4.0&sort_by=status&InquiryNumber1=U&InquiryNumber2=&InquiryNumber3=&InquiryNumber4=&InquiryNumber5=&track.x=36&track.y=7 ***x$lhttp://www.fedex.com/Tracking?ascend_header=1&clienttype=dotcom&cntry_code=us&language=english&tracknumbers=- 653742srajskiE2$3IF POS("%%%"=MB2$)=0 THEN GOTO 65100 *** UPSG$  $$/ $  +$$ $http://wwwapps.ups.com/etracking/tracking.cgi?tracknums_displayed=5&TypeOfInquiryNumber=T&HTMLVersion=4.0&sort_by=status&InquiryNumber1=U&InquiryNumber2=&InquiryNumber3=&InquiryNumber4=&InquiryNumber5=&track.x=36&track.y=7 n!$/ n+$$(!$/ n2+$$<!$/ nF+$$P!$/ nd$n8@3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE#2Z# IO2&' 3SORT ROUTINE'$+$U'WORKDIRCWRK۩U'&') RU@-'+$V't$W$,WU'$$XfAAA000YfZZZ999'1ZX'(!1Z*[^ghic( [YY*(4 [@1Z[((, [\1Z[\((- []1Z[(($`[c$a( ^S(()$bc_ac3EXCEPT DELV IN B/L#(:LWA`a3ADD 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*8N N*E ө/$//N48N>]N N!$  $N+$< width="۩(">N8N]N N! $ O8O]O O,$ $
O8O#]O$ O& O,O(1$//20O,8O-]O8 O:$"",O<8O>]OB)*+OC( *$*, ۩*OD5$)۩* ۩+ OE8OF]OL OV$$2$2ө0@O`82Oe]O  O  $OO@$۩//20O8O]u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD  uH$19uI0 'Y2KSLIDE$20uL8uM]u3yymmdd$ to julian numericu  u$19u0 'Y2KSLIDE$20u$o$ouu5$oӨu8ou]u3yymmdd (numeric) to ccccmmdd$v  ov$19۩(o000000v0 'Y2KSLIDE$20vH8vR]y  y"*$p p $pp y,)$0p3SET TO "9" OR ":"y68yr]y|  y0$plӨ0 ܨy$(py8y4]3above does :01030 = 20001030 or 991231=19991231$P reportparamD$&
 $&&1pS3, CALL "JBSELECTOPTIONS","JBSTATES","MATCHSTATE","STATE","STATENAME","",0,RESULT1$z53LET TEXT$=TEXT$+TRPLAIN$+"State:"+TDD$+RESULT1$+TRO$, JBDATESETPREVMOQR* POPUPINPUTPfromdateQS* POPUPINPUTPthrudateRT5$&&M Ship Dates: S Thru TE$&& &$&&' - U$&&M 1
$&&83 STEP 2 SELECT BRANDSO$&Brand Family: @: 
 #$&&1JBSELECTOPTIONSJBBRANDSBRANDSCATDESC*FILTERMASK(R.FAMILY$,"@:%")*MULTIPLE*NOTOPVALUE*SELECTALL*AUTH9 $&&9E$&& &N$&& /$&&' - I$&&1
$&&f8TPLHJBPLANSTARTATENDATUSEKNUMJBITEMTTTQCCCQIQCOUNTTRTDDTROCDATETEXT1 ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1OCOUNTLCSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDHBRYYCYYSYYZWFCGIWFWFPGMSELECT1CGI DFORM1LOOKUPYYYVTPLTATCTBTSTVRESULT1 CGI.BRANDFAMILYJBITEM JBITEM.RICBRAND JBBRANDS.DESC JBBRANDS JBBRANDSH2BFPDFCHANPDFLINKPDFFILESDESCENDMENU COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTTRPLAINJITEMJITEM FORMNAMEFJULTJUL RESULTFROM RESULTTHRUFRECSCWRKSRT1SRT2JIACTA3DATE1DATE2B3Z8SRTKEY1X7E3KD WFCOCODEA3C3D3CDATE CGI.FROMDATE CDATE.CYEAR CDATE.CMONTH CDATE.CDAYYYYY CGI.THRUDATEBOLKEYJBLHHJBLHHC JBLHH.CONS JBLHH.STREFJCONSJCONSJBLDHKDH DIVISION FREIGHTCODEKJITEM JITEM.DESCRIPTION JBLHH.CUST JCONS.CONSIGEE_NAME JCONS.ADDRESS_1 JBLHH.ENTD JBLHH.BL JBLHH.DELD JCONS.ZIP_CODECCITYCSTATEPEXTYYMANAGER JBLHH.CNMETRACKCARRIERFCHARGETOTWGTTOTPCS TOTLINESFCHARGE TRACKINGURL JBLHH.CARR TRACKSHOW SESSION.WCUSTOMERSCRONJUSTGETCONFIGFILEDUMYDUMMYSESSIONEMAILSSUBJECTEMAIL1RESULTS CRONDATEJITEM.CURR_WEIGHTB2WORKTTTRACKINGNUMBERPUBLISHEDRATE PACKAGESSERVICE UPSWEIGHT UPSCARRIERIA2IB2IC2IA2ID2IE2IF2IG2MA2MB2STEVECW1BREMPTYD1XLCSZCGIVALDD1 BRANDHEADERY2K1Y2K2Y2KAY2KBMDY1G2MA2MB2STEVECW1BREMPTYD1XLCSZCGIVALDD1 BRANDHEADERY2K1Y2K2Y2KAY2KBMDY1u