<>5/ 63LOCINFOALL - LOCATION INFO EXPORT FOR HENRI 5/2/2012 G3*********** MUST EXECUTE /usr/local/bin/locinfo.sh on corptss to refre &3--- NOT NEEDED NOW THAT CORPTSS SETUP"T$$JCHARGE,.tpl1+ +,$R$$JCUST,.tpl1+ +,,C$?$,? JITEM.tpl1?+?,?JITEM @+-C$C$,C JSLOT.tpl1C+C,CJSLOT D+/C$$, JSHRT.tpl1+,JSHRT +0!$UZ tmp/LOC.SORTUU 2U 4RUN 6$V$,VU7^ WVAISLE:C(7),LOCS:N(10),EACHES:N(10),fullpallets:n(10),decpallets:n(10),loclist:c(19000)9"$Z tmp/LOC.EMPTY::'R@$$,;# LOC:C(6),KEY:C(36),QTY:N(9)<@@> YRACKLOCS@g$$RACKLOCS,.tpl1+ +,$$,B-FP$l P$lSystemm Cust BldgmLoc BldgmCustomermLocationmAislemOdd/Evenm Rack/BulkmSKUm Rate Tablem Rate TypemRatemBrandmPallet Block (Eaches/Pallet)mEachesmBillablend@$R Location Info / Detailed Export H'REPTITLERnJ$ 100100100100   sA$td class="td" <>< nowrap>z$  &$1
$1

R

$8%
m n
"
$T0$> 'TRHILITE#
\$7
Aisle"Even/Odd/Other"Unique
Location
Codes"Eaches":Pallets
(from Pallet
Block)
Rounded Up
To Full",Pallets
(from Pallet
Block)
Decimal"Rack"Bulk"Billable
Positions
Rack"'Billable
Positions
Bulk
F 1?
7E$9
 7$:%
1۩' REPORTINTRO
۩' REPORTINTRO 1
 =7F$;'
 :<'=o$)gT4 ө(JSLOT^3test if exists^#(3on step1#(a$de2f5 CYCREPORT WJBREPORT356 234K,O_TRUNC 3THIS REMOVES THE CLOSE WINDOW AND TAGS L8  L9 2 L2:$v @t._<$oZ tmp/locsinfo_v_۩(Өө.xls,cO_CREATE,O_TRUNCo Lch3LET SELECT1$="",SELECT1$=CVS(FIELD(CGI$,"DOBRAND",ERR=0501),3); IF SELECT1$="*ALL" THEN LET SELECT1$=""3LET BRACKET1$=SELECT1$+FILL(3)% @tC,C&@t0&$$!Invalid JSLOT file entered4$6$G:Q$,-./0> { | Co$MNMONSTO3***** IF POS("."=CGI.JSLOT$) THEN LET PER$="20"+CGI.JSLOT$(7,4); GOSUB 6900H%63scan each system and count locs%1VU 3"2010.04.21 SRR #2604U l3DONEn3LET L$=""+TDDC$+""+TDDR$+STR(TTLOCS)+TDDR$+STR(TTEACHES)+TDDR$+STR(TTFULL)+TDDR$+STR(TTDEC)+TDDC$+""+TDDC$+""+TDDR$+STR(TTBILLRACK)+TDDR$+STR(TTBILLBULK)+TRO$; WRITE (OUTCHAN)TR$+L$; LET OCOUNT=OCOUNT+1v$
Select Report Parameters
{L$}  L~ 2 L223CALL "JBREPSUMMARY" , 1!$c0c$c c| 5$!!

Warnings: 
k
Lc4$!p
! $!!~#(*843DUMP LOCS TO FILE INSERT LINKacV$p
Click For Detailed Locations Report (.xls)
3DUMP OUT THE EMPTY LOCSB$oZ tmp/locsinfo_v_empty_۩(Өө.xls,cO_CREATE,O_TRUNCo11 ` Lc@,۩(@,@ V `3 jc S$
Click For Empty Locations Report (.xls)
83------- GET THE JBITEM RECXJBCHECK1 GETJBITEM@ @ $ (1@@y22$@7$@<6 1$1-CASE 3 $3-PLTA' 3-PLT@$3-OTHERF8@3T=$ ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTAHERE&6(3----------------- cycle through systems6h$`/u/whp/tss/DATA|/u/mhp/tss/DATA|/u/prp/tss/DATA|/u/sdp/tss/DATA|/u/ecp/tss/DATA|/u/trp/tss/DATA|6|3***** SYSTEMS$="/u/whp/tss/DATA|"; REM /u/mhp/tss/DATA|/u/prp/tss/DATA|/u/sdp/tss/DATA|/u/ecp/tss/DATA|/u/trp/tss/DATA|"7'$}| } :43done7#$}}7($7*$@t7-C,C/72?,?/JITEM7<,/JCUST7F,/JSHRT7n$7x:87:8:!U3----------- count locs in use:$A:$BM1CB::1C=D; DM=;3 IF JSLOT.ON_HAND+JSLOT.DAMAGED=0 THEN GOTO 15100; REM AND (JSLOT.ACTIVITY_DATE$(5,2)<"16" OR JSLOT.ACTIVITY_DATE$(5,2)>"90") THEN GOTO 15100; DZZZ999:; 7 өD SPACE/PALLETS/PALLET/:; 11D: @XLD:;  SHOWEMPTYonD@E@X: @E@XDXXUNREALO$D/3UNREAL LOCS PERMITTED THROUGH FOR MON STOR CALC LATER;)3IF JSLOT$(31,6)="UNREAL" THEN GOTO 15100;"LOCBLDGD^_;f3F CVS(FNCGIVAL$("BUILDING"),3)<>"" THEN IF CVS(BLDG$,3)<>CVS(FNCGIVAL$("BUILDING"),3) THEN GOTO 15100;8 D@1?D:@;53IF JITEM.SH_TABLE$="001" THEN GOTO 15100; REM unreal;$d@e@f d$d;/$g@E@XdKh@E@Xd; ^R$gh>;$$YD^Y..;3$`Y `-$``;$a`;;;$`XXwOther;";?$`01wOdd a$`02$wEven; $YD....^;!. DE$YD...^;$1VY;.W;8;. W W$@[Y;B/$@]@]@E@X@i@ig@j@jܨ&h;EP /D^/@x($@x@x/D^/;G$@\ө@x ;L LVW;Q2 Dc$ccD|;T g2x$kk Location: D; has over 50 pallets. Possible Pallet Block Problem. Item: D 
 ;*3--------- create the detailed spreadsheet;A$z(Ө@E@XdK ^R$z Count Unique;3$bY YE$bY<($lm@mmDm'Dm'bmwm^mD mTBL @ymmm۩@m۩(dm۩(@E@Xmzn<2/  SHOWEMPTYon@E@XLc<363LET LCOUNT=LCOUNT+1; IF LCOUNT>999999 THEN GOTO 15800<4) ^Rv8>33------ UPDATE RACK LOCATON WHEN QTY IN LOC >PLTBLK>23------ THIS SHOULD END UP BEING A HIGH WATER MARK>>> @E@Xd8>$@e@E@X@f> @e'>>- @e$@e@e@f@f>>. @e $@e@eM@f@f >>- @e$@e@e@f@f>>- @e$@e@e@f@f>>9$@f'3force ti highest value to NOT break data bridge>"$@@L?@@>b$kkRack item pallet block SKU: @ is now :۩(@ex۩(@f
 > $d@e@f>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$$*$*ө(O`O`8*Oe]3PARMS $!Ru?3LET TEXT$=TEXT$+"
ADJUST 14000- TO INCLUDE ALL SYSTEMS
" $!!)h3get the select list3LET TEXT$=TEXT$+"Building Code:"+TDD$+" *leave empty for all"+TRO$ C$!!+Location File to Use: q *e$!!)Include Empty Locs: $ E$!! &$!!' - u$!!) 2  $!!>x$!! }$!!q

This program uses JSLOT from each whp/mhp/prp/sdp/trp/ecp/ ~8U $IE$II &$II' - R KF$II+ T LH$II- $II "8h3 MAKE SELECT FOR JSLOTr$q"; GOTO 49900|,$r$,r< ls /u/whp/tss/DATA/JSLOT**1rs JSLOTs0.$qq \3$qq  F8 OP $QO Q($QPQܨO8]STARTATENDATUSEKNUMTTTQCCCQIQCOUNTTRTDDTRO ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1OCOUNTLCSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDHBRYYCYYSYYZWFPGMCGI DFORM1LOOKUPYYYVTPLTATCTBTSTVH2BFPDFCHANPDFLINKPDFFILESDESCENDMENU COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTTRPLAINJITEMJITEMLOCSKJSLOTJSLOTJSLOT.ON_HANDNOINTROCCOUNTDUMMYFORMENDDOFUNCSUBFUNC SUBMITVALUE WFCOCODEWFCUSTYYY1YYY2YYY REPTITLEWFTDDCTMPFILETMPFILETMPRECJSLOT.DAMAGEDAAWFDIR TMPREC.AISLE TMPREC.LOCSTMPREC.EACHES LOCTYPE1LOCSIZEBAYBAYAISLELOCLIST PALLETBLKJITEM.PALLET_BLKJITEM.PALLET_HIGH FULLPALLETS DECPALLETSTMPREC.FULLPALLETSTMPREC.DECPALLETSWARNINGSRSDDSROXLXLSHOWJSELECTCR CGI.JSLOT FORMSTART USEJSLOTODDEVEN TMPREC.LOCLIST JITEM.SH_TABLEBCOUNTBILLUBILLUPISUMJBITEM JBITEM.RICBRANDAAAARECTPLBBBBRECFJCHARGEFJCHARGE DOSERVICECOCUSTPER RACKLOCS RACKLOCS RACKLOCS.LOCLLIST RACKLOCS.LLIST RACKLOCS.BRAND RACKLOCS2JCUSTJCUST JCUST.BUILDING_CODEMTFILEMTFILEMT MT.LOC MT.KEYMT.QTY XLSHOWEMPTYBLDGMTLOCSSYSTEMSSYS1 SYS1NAMELCOUNT MSRATETYPEMSRATEJSHRTJSHRT JSHRT.MSRATE JSHRT.MSTYPE JSHRT.MSRATESSLSSHEAD USEJSLOTFILECW1BREMPTYD1XLCSZCGIVALDD1 COUNTLOCSSUB NOSORTFILE LOOP_HEREFORMENDzHEREFORMEND4lSLELOCLIST PALLETBLKJITEM.PALLET_BLKJITEM.PALLET_HIGH FULLPALLETS DECPALLETSTMPREC.FULLPALLETSTMPREC.DECPALLETSWARNINGSRSDDSROSSXLXLSHOWJSELECTCR CGI.JSLOT FORMSTART USEJSLOTODDEVEN TMPREC.LOCLIST JITEM.SH_TABLEBCOUNTBILLUBILLUPISUMJBITEM JBITEM.RICBRANDAAAARECTPLBBBBRECFJCHARGEFJCHARGE JCHARGE.CC JCHARGE.CUST JCHARGE.INV_DATE JCHARGE.REFNUM JCHARGE.ITEM_NODOITEM JCHARGE.BRANDDOBRAND JCHARGE.SERVICE DOSERVICE JCHARGE1 JCHARGE1.QTYDOQTYKKCOCUSTPERKKK RACKLOCS RACKLOCS RACKLOCS.LOCLLIST RACKLOCS.LLIST RACKLOCS.BRAND RACKLOCS2BLISTBCOUNTPRORATE RACKLOCS.QTYBTOTILISTLOCQTYITEMSIQTYJCUSTJCUST JCUST.BUILDING_CODEMTFILEMTFILEMT MT.LOC MT.KEYMT.QTY XLSHOWEMPTYBLDGMTLOCSSYSTEMSSYS1 SYS1NAMELCOUNT MSRATETYPEMSRATEJSHRTJSHRT JSHRT.MSRATE JSHRT.MSTYPE JSHRT.MSRATECW1BREMPTYD1XLCSZCGIVALDD1 COUNTLOCSSUB NOSORTFILE LOOP_HEREFORMENDTPERKKK RACKLOCS RACKLOCS RACKLOCS.LOCLLIST RACKLOCS.LLIST RACKLOCS.BRAND RACKLOCS2BLISTBCOUNTPRORATE RACKLOCS.QTYBTOTILISTLOCQTYITEMSIQTYJCUSTJCUST JCUST.BUILDING_CODEMTFILEMTFILEMT MT.LOC MT.KEYMT.QTY XLSHOWEMPTYBLDGMTLOCSSYSTEMSSYS1 SYS1NAMELCOUNTCW1BREMPTYD1XLCSZCGIVALDD1 COUNTLOCSSUB NOSORTFILE LOOP_HEREFORMEND=DDSROSSXLXLSHOWJSELECTCR CGI.JSLOT FORMSTART USEJSLOTODDEVEN BILLABLERACK BILLABLEBULK TTBILLRACK TTBILLBULK TMPREC.LOCLIST JITEM.SH_TABLEISBULK1BCOUNTBILLUBILLUUPISUMURATETHHJBITEM JBITEM.RICBRANDAAAARECTPLBBBBRECFJCHARGEFJCHARGE JCHARGE.CC JCHARGE.CUST JCHARGE.INV_DATE JCHARGE.REFNUM JCHARGE.ITEM_NODOITEM JCHARGE.BRANDDOBRAND JCHARGE.SERVICE DOSERVICE JCHARGE1 JCHARGE1.QTYDOQTYKKCOCUSTPERKKK RACKLOCS RACKLOCS RACKLOCS.LOCLLIST RACKLOCS.LLIST RACKLOCS.BRAND RACKLOCS2BLISTBCOUNTPRORATE RACKLOCS.QTYBTOTILISTLOCQTYITEMSIQTYJCUSTJCUST JCUST.BUILDING_CODEMTFILEMTFILEMT MT.LOC MT.KEYMT.QTY XLSHOWEMPTYBLDGMTLOCSSYSTEMSSYS1 SYS1NAMELCOUNTCW1BREMPTYD1XLCSZCGIVALDD1 COUNTLOCSSUB NOSORTFILE LOOP_HEREFORMENDCOUNTLOCSSUB NOSORTFILE LOOP_HEREFORMEND