<>+U%ъ╚ ?3"TIFOMAKE - 05/23/07 - CREATE F/O FROM WEB PAGE FOR TIMBERLAND93------- MULTIPLE VERSIONS OF THIS PROGRAM MAY EXIST ----83------- CHECK FIRST /u/webnew/xxx/wf/pgm/TIFOMAKE ---- .3------ then is /u/whp/tss/PGM/TIFOMAKE ----43"Copyright (c) 1997 Transportation Software Systemsе`РеfРеgРеb(@Ж@d3100x$дYП╗$С,сдYШяJBLFHС32┌$дZП╗$С,сдZШяJBLFDС33▄$д[П╗$С,сд[ШяJITEMС34√$дП╗$С,сдШяJCONSС35═$д\П╗$С,сд\ШяCCNVZС37╙S$дyП╗$РеzПяJCUSTС,сдyШеzшя.tplС1сдyШе{СсдyШС,сдyШеzС е▄Ве{С$дAПдy╞S$дyП╗$РеzПяTIMANС,сдyШеzшя.tplС1сдyШе{СсдyШС,сдyШеzС еwВе{С$дvПдy╠T$дyП╗$РеzПяJBDIVSС,сдyШеzшя.tplС1сдyШе{СсдyШС,сдyШеzС е|Ве{С$д}Пдy╡W$дyП╗$РеzПя JBDEALERSС,сдyШеzшя.tplС1сдyШе{СсдyШС,сдyШеzС е═Ве{С$д║ПдyЄ\#еРеРеРеРеРеРеРе Ре РеРеРе РеРеРеРеРеРеРеРеРеС3"JBLFHЎ1#еРеРеРдРеРеРеРеС3"JBLFD - I TYPEх#еРеС3"JBLFD - TYPE L AND Mр$еПяJ1РеOПе`Ре?ПешеOв1ЗсдA╣е?Ше▄э$д Пф,(3------------- all order info is in cgi$Х31000B ╚─се]ШL$$е]Пе]ш╘сфШРе]Пя20ше]сфРфШV/$е]Пе]сфРфШшя/ше]сфРфШшя/ше]сфРфШ`8е]j]t$д^ПфРдhПф╟3^100 LOOP HERE╨$дhПдhэфС дhДфгЩЙЖ43^100(Z$еdП╘сеfРяNEWQTYш╘(сдhВя00000Ш╠Ж╟ШРеcП╘Aс╘сеfРяNEWITEMш╘(сдhВя00000ШШРфШ2" ╗сеdШЦфЛ╘сеcРфШАяЩЙЖ╟п*3^1000 ------ handle the display of ordersД д^АфЩЙ$д^ПфСЖ╦ЖДЖ╟4 3^100 DONEC еАяЩЙЖ#(E$еaПеH3^100 "HANDLE MESSAGESI)$еFПяWeb Order By: ш╘'сяULOGINШСЖtJ$еFПяPhone: ше@iСЖtK- ╘се@uРфШБяЩЙ$еFПя Manager: ше@uСЖtLK1Зсдv╣╘Aсе@uРф(Ш╠ЖMШеwС ╘се@xРфШБяЩЙ$еFПяEMAIL:ш╘се@xРфШСЖtM11Зсд║╣╘Aсе@╒Рф Ш╞ЖNШе═С ╘се@ёРфШБяЩЙU─N$еFПяReq. Carrier: ше@│СЖtO!$еFПяReq. Arrv Date: ше@┌СЖtP$еtП╘Aсе@jРгпШR[1Зсд}╣╘Aсе@~РфШ╠ЖUШе|С$еFПя Division: ше@~СЖtС$еFПя Freight Code:ш╘се@РфШСЖt≤┤Ж*ЬС3FOR COMM=1 TO 12; LET COMMENT$=BOLNOTES$(COMM*30-29,30),COMMENT$=CVS(COMMENT$,16); IF LEN(COMMENT$) THEN GOSUB 3700 FI; NEXT COMMй~3 IF AH$<>"" AND BLWEIGHT>=300 THEN READ (JBLFH,KEY=AH$)IOL=0180; LET HH$="CTCHAMPION"+FILL(22); WRITE (JBLFH,KEY=AH$)IOL=0180ЭЖю ╨Ж#(╦%3^1000 "SET-UP AND WRITE JBLFH RECORDж╗$еПяРеПяРеПяРеПяРеПяРеПяРеПяРе ПяРе ПяРеПяРеПяРе ПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяЮ4#е%Рд&Ре'Ре(Ре)Ре*Ре+Ре,Рд-Рд.Ре/Ре0Ре1Йсд\╣я^Iше╠Ж@ШЁЖЮТ$е$П╘(сд-Вя ########0ШЧ$д-Пд-эфLсд\╣я^IшеШЁЖЮ$еПеше$$еbПе$еПе?сфРфШ&-$еП╘сф щ╗сяTIMше$сфШШШшяTIMше$сфШ0сд╣есфРфШше╞ЖьШ:/$е2П╘сфРфШС$е2Пе2шя С$е2Пе2сфРфШD$еПяRAшя ше2шя I$есф РфШПе@⌠С3RCC 3/11/2011N$е3П╘ Рд4П╗#X)$е ПяFEшяFEDEXш╘сф ШРе Пе сфРф Шb$е П╘Aся ше@│Рф Шc& ╗сяFEDEXАе ШЩЙ$е сфРфШПяFEd° ╗сяUPА╘се РфШШЛ╗сяUPSА╘се РфШШЛ╗сяU.P.S.А╘се РфШШЛ╗сяU P SА╘се РфШШЛ╗ся UNITED PARCELА╘се РфШШЩЙ$е П╘AсяUPш╘се РфШРф Шf& ╗сяCHAMPАе ШЩЙ$е сфРфШПяCTg($е П╘ сфВя %Mz%Dz%YzШш╘(с╗#Вя00.00Шlh$еП╘Aсе РфШС3 LET DELDATE$=JBPLAN.REQUESTED_DATE$; LET JH$=DELDATE$(4,2)+DELDATE$(6,2)+DELDATE$(2,2)qA ╘с╘сеfРяREQARRVDATE╠ЖrШРфШАяASAPЩЙ$еПяASAP СЖ─v┌ е┐Вя M:C(1*=46),D:C(1*=46),Y:C(1*=46)С$е┐Пе@┌шя...Рд└П╗с╗се@┘╠ЖxШР╗се@├╠ЖxШР╗се@┤╠ЖxШ╠ЖxШС$еП╘ сд└Вя %Mz%Dz%YzШ─$еПя1Ре Пя 00 ┼$еПя1С3FREIGHT CHARGE▐$еkП╘Aсе@lРфШ░ $е▌ПяС$е▌П╘сеfРяPON╠Ж▒Ш■$еП╘Aсе▌РфШС3PONUM·$еП╘сфШРеП╘Aсе@mРфШС3SRN╗$еПеkсфРфШС3BRK NUM╡!$еП╘сф ШРеП╘сфШРеП╘сфШ╪LсдY╣еШЁЖЄф$д<Пфп$д ПфРд;Пфз8Д23^100 "----------------------DETAIL RECORD WRITE'SН?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПяЬI3LET COMMENT$="ORDERID: "+ORDERID$; GOSUB 4700; REM TURNED OFF 3/4/04 RCC ╘сеcРфШАяЩЙ8 $д Пд эфС$еП╘(сд Вя000Ш $еПеше$шешяI $еПеcш╘сфШРеПесфРфШ *3"VERIFY ITEM NUMBER 4$е!Пеcш╘сфШС$е!Пе!сфРфШ >$дQПфРдRПф HE1сд[╣ешеше!╞Ж fШУРеРеHРУРУРУРд=РУРУРУРУРУРУРУРУРдQРУРУРдR RЄ3IF NUM(QTY$)>ONHAND-COMITTED THEN LET REASON$="Item "+ITEM$+" has only "+STR(ONHAND-COMITTED)+" available (not including other recently entered --uncomitted-- orders)!"; GOTO 8200 \Ж └ f $е#ПяN p? дXАфЩЙ4$еSПяInvalid Item code entered: ше!шя
СЖ za$еПесфР╗сеШщфШшяMС$еПяITEM ше!шя NOT ON FILE. ORDERED ше"РеПяРеПяСЖ т └Q$еПеGС еHБяYЩЙ$еП╘сф ШСЖ ╛Т ╘сеРфШАяЩЙ$еПя AUTOMATIC СЖ ╛ ▌*сдI╣ешеше!ше╞Ж ≤ШУРдTРУРдUСЖ ╒ ≤┐$еПесфР╗сеШщфШшяMС$еПяINVALID LOT SELECTED ITEM:ше!шя LOT:шешя NOT ON FILE. ORDERED ше"РеПяРеПяСЖ т ╒╩3IF NUM(QTY$)>LONHAND-LCOMITTED THEN LET REASON$="Lot "+ITEM$+CD$+" has only "+STR(LONHAND-LCOMITTED)+" available (not including other recently entered --uncomitted-- orders)!"; GOTO 8300 ╛$дП╗сеdШ І$еПеш╘сфШ ю7$еПесфРфШС3DF$=CVS(A$[15],3)+FILL(6),DF$=DF$(1,6) й$д<Пд<эсдчд=ШРд;Пд;эд тLсдZ╣еШЁЖЎ Р8=3^100 "------------------ write the bottom comment "M" lines?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПя$ ╘сеFРфШАяЩЙ8.#$д┼Пд┼эфС$е▀ПяMш╘(сд┼Вя00Ш8$еПеше$ше▀шяMB$еП╘AсеFРф<ШLLсдZ╣еШеР╘сеРфШj8t;3^100 "-------------------DETAIL RECORD WRITE'S COMMENTS~?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПя┬ ╘сеFРфШАяЩЙ8┼ ╗с╘сеFРфШШДфЩЙЖ▓$д Пд эфС$еП╘(сд Вя000Ш°$еПеше$шешяLі$еПеFш╘сфШРеПесфРфШ╟LсдZ╣еШеР╘сеРфШ╨8ь3^100 " ----new consignee codeБ"$е5ПесфРфШшеРе6П╘Aсе@nРфШЛA$е7Пе@oРе8Пе@pРе9Пе@╔Ре:П╘Aс╘се@qРфШшя, ше@rшя ше@sРфШQLсд╣е5Ше5Ре6Ре7Ре8Ре9Ре:РяРяРяРяРеРяРяР╘ сфВя %Yz%Mz%DzШ Ж:ю!3----- BOTTOM COMMENTS FOR ZUZATZйяWBLPMESSРеРе▐Ре░т5 е▐АяЩЙЖТ$д▒Пф<С д▒Д╗се▐ШЩЙ$д▒П╗се▐Шч*$д▓П╗ся\Ае▐сфРд▒ШШС д▓ЩЙ$д▒Пд▓Х $еFПе▐сфРд▒ШРе▐Пе▐сд▒эфШР- еFс╗сеFШШАя\ЩЙ$еFПеFсфР╗сеFШщфШЭЖЖт8@3 8000 "ERROR ROUTINE"J($е_ПяERROR ш╘(с╗Шшя AT ш╘(с╗"сфШШTEС2є03^100 "---------- remove header and any detailsў4сдY╣е╞Ж╦Ш╦1сдZ╣е╞ЖбШб$еVП╘сдZ╟ЖЮШС1сфШл еVсфРфШБеЩЙЖЮж4сдZ╣еVШСЖбЮ/$е>Пе>шя
Order шешя not accepted
Й8 '3^100 "---------- order not accepted F дWАфЩЙ;$е>Пе>шя!Possible backorder situation:
шр шеSСЖ └ ;$е>Пе>шя+Sorry. Your order is not being accepted
шеS & ЖєСЖ : 0K$е>Пе>шя

INVALID ENTRY

ше@шя (ш╘(с╗Шшя) at ш╘(с╗"сфШШ :5$е>Пе>шя)
Please click BACK and fix the problem DЖ#x l&3^100 "----- VALIDATE CONSIGNEE CODE vL$е@Пя,MUST HAVE VALID ZIP CODE WITH CONSIGNEE CODEС ╘се@KРфШАяЩЙЖ 0 ─%$еLП╘сф щ╗с╘се@JРфШШШш╘се@JРфШ ┼╟$е@ПяINVALID CONSIGNEE CODE: ш╘сеLШСсд╣яJ1шеL╠Ж 0Ше5Ре6Ре7Ре8Ре9Ре:РеMС$е@Пя0ZIP CODE DOESN'T MATCH ZIP ON FILE FOR CONSIGNEEС ╘се@KРфШБ╘се:РфШЩЙЖ 0 ■)$е@BПе6Ре@CПе7Ре@DПе8Ре@EПе9шя ше: ·Ж╦#(39000 #-сдvШ#2%$еNП╘ сфВя%Mz/%Dz/%Y %Hz:%mz:%szШ#<, еАяЩЙ $е>Пе>шяNo BOL Created.СЖ#n#F@$е>Пе>шяORDER ACCEPTED at шеNшя ASSIGNED B/L NUMBER: ше#K$еgПе>#N$еPПяjitweborders#P- ╗се@█АяADLRШЩЙ$еPПя jitweborders_ше@█#Q. е@█АяLЩЙ!$еPПяlaxweborders@champlog.com#R@ еАяGOC000ЩЙ.$еPПеPшя",tallen@championlogisticsgroup.com#S■ еАяSAMPLEЩЙ$еPПяchuck@tssconnect.comТ еАяLMP003ЩЙS$еPПеPшяG,rtermini@championlogisticsgroup.com,lramsey@championlogisticsgroup.com#UяDUMPTPLРеfРе─#Z▓3LET A$="echo 'Future Order "+AH$+" Customer:"+ACUST$+" at "+ORDERTIME$+$0A0A$+RLIST$+" ' | mailx -s'Web Site Order Customer-"+ACUST$+"' "+ELIST$#dn$е√Пя Future Order шешя Customer:ше?шя at шеNшр ше─Ре≈ПяWeb Site Order Customer-ше?Ре≤ПеP#e(яJBMAILTOРе≤Ре°Ре≈Ре√Ре≥Ре Ре⌡#n*$еgПеgшя
Order alerts sent to: шеP#s> ╗се`Ая*FHP001/SAMPLE/MHW001/ENT001/MSI002/EMG001/ШЩЙЖ'#}#┌',3--------- RUN THE BACKGROUND COMMIT PROGRAM'&$еgПеgшя
Auto commit initiated.'0$е┬Пя/usr/local/bin/whp/tss.wblcmb "шешя"'$ $д┴П╗се┬шя >/dev/null 2>&1Ш'j*ЬU─+ ╗с╘сеtРфШШАфЩЙЖ+[+$еtП╘сеtРфШ+$д▒П╗ср АеtШ+, д▒АфК╗сеtШЕфЩЙ$е■ПеtС$еtПяСЖ++. д▒АфЩЙ#$е■ПеtсфРфШС$еtП╘сеtсфШРфШ+ O д▒ЩЙG$е■ПеtсфРд▒эфШС ╗сеtШФд▒эфЩЙ$еtП╘сеtсд▒эфШРфШТ$еtПя+*$е■П╘се■РфШ+4$д∙П╗се■ШС$д∙П╗сд∙Шэф+>$е■П╘Aсе■Рд∙чфШ+HVдeПфЧ╗се■ШъфС$еFПе■сдeчфщфРфШРеFП╘сеFРфШС ╗с╘сеFРфШШЩЙЖtИС*дe+RЖ++[U─8.ЮU─.Й3$д²П╗ср Ае@ёШС д²БфЩЙ$е@ёсд²РфШПя СЖ.Й.К3$д²П╗ся,Ае@ёШС д²БфЩЙ$е@ёсд²РфШПя СЖ.К.Л3$д²П╗ся;Ае@ёШС д²БфЩЙ$е@ёсд²РфШПя СЖ.Л.М3$д²П╗ср Ае@ёШС д²БфЩЙ$е@ёсд²РфШПя СЖ.М.Н$еєП╘се@ёРфШ.Я?$д²П╗ся АеєШС д²БфЩЙ!$еєПеєсфРд²Шшеєсд²эфШСЖ.Я.Т% ╘сеєРфШАяЩЙЖ2гТ$еєПеєшя .Ы%$д·П╗ся АеєШС$е÷ПеєсфРд·щфШ.Ш д·ЩЙ$е÷П╘се÷РфШ.Э д·ЩЙ$е÷П╘се÷РфШ.Ч& д·ЩЙ$еFПяEMAIL:ш╘се÷РфШСЖt/( д·ЩЙ ╗сеєШДд·ЩЙ$еєПеєсд·эфШ/ д·К╘сеєРфШБяЩЙЖ.Т2гU─8ЪЪLINEJCONSAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHADBDCDDQDDDNETDEDFCLINEITEMQTYONFILEBLNOA7A7B8C8D8E8F8G8B8C8H8I8J8OPCDTEMPTEMP2JCONS1JCONS2JCONS3JCONS4JCONS5JCONS6BLPCS BLWEIGHTCURWGTTEXTACUSTEJCUST CGI.CONS1 CGI.CONS2 CGI.CONS3 CGI.CONS4COMMENTLOTLOTTEDJILOT CGI.CONSCODE CGI.CONSZIP CONSCODEJCONS7 ORDERTIMECUST1ELISTONHAND COMITTEDREASONLONHAND LCOMITTEDK3ORDERAVAILONLYVALIDITEMSONLYJBLFHJBLFDJITEMCCNVZYY DOHEADERERRMESSAGEWFCUSTBOLBOL1DOITEMDOQTYCOMMCGIRESULT1DOITEM CGI.DEALER_PHONE CGI.ADDRNOTESBUDGET CGI.BUDGET1 CGI.SRN CGI.DEALER_ADD1 CGI.DEALER_ADD2 CGI.DEALER_ADD3 CGI.DEALER_CITY CGI.DEALER_STATE CGI.DEALER_ZIP BOLNOTES CGI.MANAGERTIMANTIMAN TIMAN.EMAILCFTPLJBDIVSJBDIVS CGI.DIV JBDIVS.FREIGHTCODERLIST CGI.CARRIER CGI.REQARRVDATERADRAD1 RAD.Y RAD.M RAD.DAAAMLINEMLINEJCUST JCUST.BUILDING_CODEPONMESS1MESS2PP1 JCUST.BL_FORM_TYPEBOLNOTES_TEMPBOLNOTES_LMESSAGESUBJECTSENDTO SIGNATUREXFLFILERESULTCCTOSTRIP_PEMAIL_PEMAIL_COMMENT JBDEALERS JBDEALERS CGI.JBDEALER JBDEALERS.EMAILSJBDEALERS_EMAILS CGI.DEALER_ADD4┌RICDATE─BOL_COMMENT─BOL_COMMENT_RETURN─DEALER_EMAILS─DEALER_EMAILS_RETURNЧC