<>! 83"BBWLOCR0 -12/21/92- REPORT INVENTORY location/item/lot031.JCUST 2.JITEM 3.JILOT 4.JSLOT 5.WITST 7.CCNVZ33"P(1)=BOOK, P(2)=ON HAND, P(3)=COM'D, P(4)=AVAIL, *3"P(5)=DAMGD, P(6)=DMG'D COMT'D, P(7)=HOLD3"IOLSp#  X#pqrst uvwxyz{|}!~! #"#$%&'()" #*+,-./01##2345$%@@' 9((66*6) ,JCUST* ,JITEM+ ,JILOT, ,JSLOT/ ,CCNVZF$' pagetitleP"788ݨ7TF3FOLLOWING IS A MULTI-LINE FUNCTION TO LEFT JUST AND SPACE FILL LOCAT.U 7V,$77$77۩ݨ787W]Z*7777d3"STARTi# 9 9($9 n+$999WLOCR0x :P-z FP_HP{$i","m"3$;######0-< ##,###,##0-=#######-3"CO.CD.<$7INVENTORY REPORT - LOCATION >7?>Ƅ]3print 'CS','SB',@(0,0),D0$,@(fnC(B7$,80),0),B7$,@(70,0),X$(31,8),@(69,1),"PGM:",X$(1,6),'SF'D$A'CO_CODE3call "YCMPCD",C$,C0$; if C$="99" then goto 9000"$CBDCƄ,3300"RANGE OF CUSTOMERS1$6$GI| GI^3400"RANGE OF ITEMS$JKzzzzzz JK3" BALANCE OPTION$LYD& $LNX30600"ZERO BAL?$MN3700"PRT LOC'S?$NY  $OL3"OK?7$jtmp/locs۩(Өө.csvjHj,bj 3"MAIN CHAIN#$PQRST: UVWX+$n PFILE=/u/tmp/۩ө.prn ,nPWEBBAGCL31100"NXT JCUSTV$Y[ YA\ YI`1Y@X Z[43GOSUB 5200; REM SORT ALL LOCATIONS FOR CUSTOMER ,JSLOT13v UV]^3 i[1]=k2+l2+m2,i[2]=k2,i[3]=n2,i[4]=k2-n2,i[5]=l2,i[6]=num(i2$(7,6)),i[7]=m2,p[0]=o2x31400"PROCESS JSLOT 1Y31500"NXT JSLOT@$a@1 aY@ 1a"$`*9$c***NOT FOUND***1* $cq W$W,-.W,W/1W,/1W-W0W.y6$X6W6^6^6W6Z6Z6W6[6[6W6*6? MN2 ,-./01'@31600"END OF SUBLOTSJLL31800"NXT ITEM 6 ]6U6:*6!b:9$7,*** LOT TOTALS DO NOT EQUAL ITEM TOTAL ***kl31900 NXT CUSTOMER LYLL3"EOJ R"nb/)Created downloadable CSV file : jBBDUMPPFo$o
o
#( 35100"OK!O#(P.3--------- SORT THE LOCATIONS INTO CWRK+FID(0)U('WORKDIRCWRK۩VZ-R'WORKDIRCWRK۩4d",'WORKDIRCWRK۩n 1Yp3LOOP THRU AND CREATE FILE%1" *Y *K *J+L*۫**$ 18p36000"SORT OPTIONS?z$\ OS836100"NXT JITEM$_$ _YY$ _ K1_@ .$ $\END78836200"NXT JISRTB$aG aYYL 1aV$_aa [ _ J8\ _ K`1_@ ~ $\END8X 3"PAGE HEADERb $RRg/hs Rh/)Created downloadable CSV file : jl/AS OF: 9 @?>uPAGE: RLFON: DBr PROGRAM: 9LFv5/LF - 1BLDG:LF/:ONZDAMAG/ITEM DESC LOT+LOC2BOOK:HANDBCOM'DJAVAILRDAMAGZCOM'DcHOLDkPLTS{ ko$k^"LOCAT","ITEM","LOT","DESCRIPTION","BOOK","HAND","COM'D","AVAIL","DAMAG","COM'D","HOLD","PLTS"/bk/ $E837100 "PRT ITEM DTL@ ETX $34_# $#/LF  LY $b !/`!;3 34!/h3;z4; /LF $EE@@8 37200"PRT LOT DTL%@* ETX/" NY$EE/LF4/" 5 "WICKEW>6+N 3read and print wickes lot description> LY $bp /LFz $EE@@837300"PRINT JSLOT@ ETX$d*f$* c [۩(x۩( ] * $/ ;/ A* *d8$*  0 $';$lm'۩di* iici $b /LF/bl$*  $EE@@8L3"PRINT REPORT TOTALSV37510"PRINT CUSTOMER TOTALS"[Q/LFSTORER TOTALS: BOOKZ<-[<LBS`@/ON HANDZ<-[<LBSeB/ COMMITTEDZ<-[<LBSjB/ AVAILABLEZ<-[<LBSo@/DAMAGEDZ<-[<LBStH/DAMAGED COMMT'DZ<-[<LBSy=/HOLDZ<-[<LBS~?/FUTUREZ<-[<LBS+/PALLETS ON HANDh</ -END OF REPORT-837700"PRT MSG(Z$) LYn ETX(/LF7LFd $EEw837900"PRT BALANCES $ $ ($gXX Lc $hhg/0bX;8bX;@bX;HbX;PbX;XbX;`bX;g;$ll۩(X;i۩(X;i۩(X;i۩(X;i۩(X;i۩(X;i۩(X;i۩(g;m?8@3"ERRE8$\error ۩(Ө  at ۩(Ө" in ۩#G IOE2J/CL\CLRBERROR ( ) LINE (" ) IN PGM (9) HAS OCCURRED. 'CR' TO RETRY.T 9^"CLCLh$3"IF CTL=4 THEN GOTO 9000 ELSE RETRY|9 3"ERR MESG"$\*** PRINTER ERROR ***J" 3"NO DATA"#(#(3"END#2&&%''' <W321R0'N &320000,10 print wickes lot descriptionN*$e$,e LOT_APPENDN4 fN>1e"NfNH/fN eNN8A1B1C1D1E1F1G1H1I1J1A1B1K1L1M1N1O1P1Q1R1S1T1C1D1U1V1W1E1A2B2E2G2H2O2A3A3B3C3D3E3B3F3A4B4A4B4C4D4E4F4A5A5B5B5IZZXZ9MM8M9B7B7D0CC0A7A7LZ0C1STZ8CLSTI1STILSTBZEROLOCQSRTH0V0PC0L9ILSPKCCWELTSTK2K4K8OIDESCPLOC WICKES_CHAN LOT_APPENDPLTTOTPLTQFFPHEADPLINEQQMODETEXTC2D2C2D2F2F2G2I2J2H2K2L2M2N2I2Q2CUST1 LASTITEM1 SHOWITEM SHOWDESCWFCUSTWFDIRDUMMYDOLOTCDLOCv۩(kK۩(kK۩(kK۩(kK۩(kK۩(kK۩(}K?8@3"ERRE$pJ/CLpCLRBERROR ( ) LINE (" ) IN PGM (I) HAS OCCURRED. 'CR' TO RETRY.T 9^"CLCLh$3"IF CTL=4 THEN GOTO 9000 ELSE RETRY|9 3"ERR MESG"$p*** PRINTER ERROR ***J" 3"NO DATA"A/CLRB+*** NO DATA ON FILE *** 'CR' TO CONTINUE.""#(#(3"END#2$z'C_FY;CUTSA0&&%''' <W321R0'N &320000,10 print wickes lot descriptionN*${$,{ LOT_APPENDN4 |N>1{2N|NH/|N {NN8A1B1C1D1E1F1G1H1I1J1A1B1K1L1M1N1O1P1Q1R1S1T1C1D1U1V1W1E1A2B2C2D2C2D2E2F2G2H2F2G2I2J2H2K2L2M2N2O2I2Q2A3A3B3C3D3E3B3F3A4B4A4B4C4D4E4F4A5A5B5B5IZZXZ9MM8M9B7B7D0CC0A7A7H1VLZ0C1STZ8CLSTI1STILSTHBZEROLOCQSRTH0V0PC0L9ILSPCKCCWELTSTK2K4K8OIDESCPLASTPLOCZZ_ZZ WICKES_CHAN LOT_APPENDPLTTOTPLTQFFPHEADPLINEQQCDLOCz