<>#OE /3JINFOALL - ITEM AND STORAGE BY PALLET EXPORT ,3*** NOT COMPLETE STARTED, THEN SWITCHED TO "T$d$edfJCHARGE,df.tpl1d+d g+,ef$R$d$hdfJCUST,df.tpl1d+d i+,hf,C$?$,? JITEM.tpl1?+?,?JITEM @+-C$A$,A JSLOT.tpl1A+A,AJSLOT B+/C$v$,v JSHRT.tpl1v+v,vJSHRT w+<@@B-FP${S P$|SSystemT Cust BldgTLoc BldgTCustomerTLocationTAisleTOdd/EvenT Rack/BulkTSKUT Rate TableT Rate TypeTRateTBrandTPallet Block (Eaches/Pallet)TEachesTBillableUd>$MItem Storage by Pallet Export E'REPTITLEMnJ$_ 100100100100   sA$td class="td" <>< nowrap>z$  &$1
$1

M

$8%
T U
"
$O0$> 'TRHILITE#
$7
System"Customer"Name" Storage Calc" Rate Table"MS Rate"Item"Desc"Book" PalletBlock"Optimal"Billable Pallets"Charges"Average/Pallet
C 1?
7E$9
 7$:%
1۩' REPORTINTRO
۩' REPORTINTRO 1
 =7F$;'
 :<'=o$)gT4 ө(JITEM^3test if exists^#(3on step1#(c$de2f5 ITEMSTORAGE WJBREPORT356 234K,O_TRUNC 3THIS REMOVES THE CLOSE WINDOW AND TAGS L8  L9 2 L2:$}@~._<$VP tmp/ITEMinfo_}_۩(Өө.xls$$,O_CREATE,O_TRUNCV L{|h3LET SELECT1$="",SELECT1$=CVS(FIELD(CGI$,"DOBRAND",ERR=0501),3); IF SELECT1$="*ALL" THEN LET SELECT1$=""3LET BRACKET1$=SELECT1$+FILL(3)% @~?,?&@~0&$$!Invalid JITEM file entered4$6$D:Q$,-./0H%63scan each system and count locsU 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$}  L23CALL "JBREPSUMMARY" , 1!$Q0Q$QQ| 5$!!

Warnings:
R
L$!W
o! $!!^#(*843DUMP LOCS TO FILE INSERT LINKaV$W
Click For Detailed Locations Report (.xls)
3DUMP OUT THE EMPTY LOCSB$VP tmp/locsinfo_}_empty_۩(Өө.xls%$$,O_CREATE,O_TRUNCV1j1j `k L@l,۩(@n,@m V `3 j S$o
Click For Empty Locations Report (.xls)
83------- GET THE JBITEM RECXJBCHECK1 GETJBITEM@ `abc@ _a$_c w w(1v@@\2w2$u@x7$t@y<6 t1$t1-CASE t3 $t3-PLTA' t3-PLT@z$t3-OTHERF8@3T=$ ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTAHERE&6(3----------------- cycle through systems6h$p`/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'$]|p ] :43done7#$qp]pp]7($rq7*$@~72"?,?77q/7<77?,?q/JITEM7<h,hq/JCUST7Fv,vq/JSHRT7n$s8@:87:8:83----------------- loop through JITEM create item detail:B1?>@ i@1h@>i=$ @ = L>:>(1?@:3FAST FORWARD>3done>v8N 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 $!M[?3LET TEXT$=TEXT$+"
ADJUST 14000- TO INCLUDE ALL SYSTEMS
" $!!)h3get the select list3LET TEXT$=TEXT$+"Building Code:"+TDD$+" *leave empty for all"+TRO$ @$!!(JITEM File to Use: X E$!! &$!!' - u$!!) 2  $!!>x$!! }$!!q

This program uses JITEM from each whp/mhp/prp/sdp/trp/ecp/ ~8U $FE$FF &$FF' - R HF$FF+ T IH$FF- $FF "8h3 MAKE SELECT FOR JSLOTr$X"; GOTO 49900|/$Y$,Y< ls /u/whp/tss/DATA/JITEM.*01*1YZ JITEMZ0.$XX \3$XX  F8JK $LJ L($LKLܨJ8]STARTATENDATUSEKNUMTTTQCCCQIQCOUNTTRTDDTRO ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1OCOUNTLCSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDHBRYYCYYSYYZWFPGMCGI DFORM1LOOKUPYYYVTPLTATCTBTSTVH2BFPDFCHANPDFLINKPDFFILESDESCENDMENU COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTTRPLAINJITEMJITEMJSLOTJSLOTNOINTROCCOUNTDUMMYFORMENDDOFUNCSUBFUNC SUBMITVALUEYYY1YYY2YYY REPTITLEWFTDDCWFDIRLOCLISTWARNINGSRSDDSROXLXLSHOWJSELECTCR FORMSTART JITEM.SH_TABLEPISUMJBITEMAAAARECTPLBBBBRECFJCHARGEFJCHARGEJCUSTJCUSTMTFILEMT MT.LOC MT.KEYMT.QTY XLSHOWEMPTYSYSTEMSSYS1 SYS1NAMELCOUNT MSRATETYPEMSRATEJSHRTJSHRT JSHRT.MSRATE JSHRT.MSTYPE JSHRT.MSRATESSLSSHEAD USEJITEM CGI.JITEM USEJITEMFILEC99C98CW1BREMPTYD1XLCSZCGIVALDD1SUB LOOP_HEREFORMENDxn" name="GO" VALUE="0"> 2  $!!>x$!! }$!!q

This program uses JSLOT from each whp/mhp/prp/sdp/trp/ecp/ ~8U $GE$GG &$GG' - R IF$GG+ T JH$GG- $GG "8h3 MAKE SELECT FOR JSLOTr$e"; GOTO 49900|,$f$,f< ls /u/whp/tss/DATA/JSLOT**1fg JSLOTg0.$ee \3$ee  F8MN $OM O($ONOܨM8]STARTATENDATUSEKNUMTTTQCCCQIQCOUNTTRTDDTRO ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1OCOUNTLCSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDHBRYYCYYSYYZWFPGMCGI DFORM1LOOKUPYYYVTPLTATCTBTSTVH2BFPDFCHANPDFLINKPDFFILESDESCENDMENU COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTTRPLAINJITEMJITEMJSLOTJSLOTJSLOT.ON_HANDNOINTROCCOUNTDUMMYFORMENDDOFUNCSUBFUNC SUBMITVALUE WFCOCODEWFCUSTYYY1YYY2YYY REPTITLEWFTDDCTMPFILETMPFILETMPRECJSLOT.DAMAGEDAAWFDIR LOCTYPE1AISLELOCLIST PALLETBLKJITEM.PALLET_BLKJITEM.PALLET_HIGHWARNINGSRSDDSROXLXLSHOWJSELECTCR CGI.JSLOT FORMSTART USEJSLOTODDEVEN JITEM.SH_TABLEBCOUNTBILLUBILLUPISUMJBITEM JBITEM.RICBRANDAAAARECTPLBBBBRECFJCHARGEFJCHARGE DOSERVICECOCUSTPER RACKLOCS RACKLOCS RACKLOCS.LOCLLIST RACKLOCS.LLIST RACKLOCS.BRANDJCUSTJCUST JCUST.BUILDING_CODEMTFILEMTFILEMT MT.LOC MT.KEYMT.QTY XLSHOWEMPTYBLDGSYSTEMSSYS1 SYS1NAMELCOUNT MSRATETYPEMSRATEJSHRTJSHRT JSHRT.MSRATE JSHRT.MSTYPE JSHRT.MSRATESSLSSHEAD USEJSLOTFILECW1BREMPTYD1XLCSZCGIVALDD1SUB NOSORTFILE LOOP_HEREFORMENDC" value="L"> $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_HEREFORMEND