<> @U 3WITSMW - 09/26/9633Copyright (c) 1995 Transportation Software Systems(.U3"WITSMW -09/11/90- STOCK MOVEMENT SUMMARY"-@@2-3"1.JCUST, 2.JITEM, 3.JILOT, 4.JIACT, 5.JISRT4#67,JCUST,JITEM,JILOT,JIACT8,JISRT,CCNVZ<X# F4//PU#U (Z+$WITSMSd WSQSRTUnU1 WITSMSx4  !  "  #}!J$$######0--$MQ downloads/۩J_SMS.CSV,XO_CREATE,O_TRUNCM$N"ON,NUU3"GET INFO FROM OPERATOR" U$%U$&'CO_CODEC&U 'YWEOD0&$)J*I $+&)&$,0U:U DU \U 3"PRINT HEADING"f1+U Up83PRINT @(0,22),'CL',"** PRINTING SUMMARY FOR ",B1$+" **"zU @U  L$L&/LF'l/* Comma Delimited Version/ /FOR ! -/LF"1/// 6/8FIRSTBLASTLLAST/ITEM# DESCRIPTION5SHIP DT?SHIP DTIRECEIPTUQUANTITY_ REFERENCE/XNITEMO DESCRIPTIONO FIRST SHIP DTOLAST SHIP DATEOA/RO LAST RECEIPTOQUANTITYOREFRENCEN$. ,Y UU ,UU8U3"PRINT DETAIL"$! *I1+U.! *S1+U8U *I$-UB: *S-$-U1$---L -+UV 1-U 3C2$=""`$/j YUt$0- !~UU$10U11UU$1U 10U+ Y 1 0 U= 1!U 1!U 11U 234UV 3BU 3R $545 3S $646 3A $747/ 3A S$S1/ 3R T$T1? 3S+$R1 _$_1 3Rq$WW۩(X#####1۩(4 ##########۩AөU/۩V$XX3" IF T=1 THEN GOTO 4282U U$89567  8U W$Y0W. S $S)S T $T)T _ $_)_ R $R)R YU T%^/U LF 5_?RIAKSU8$#^/XN۫, O۫,O_OROAOSO۩(8ON$2%ZY.&9$^YZ[YZ \YZ'6 8[ $]8 $][$88](m/U LF 5_?RIRK)^U]$_\)h/XN۫, O۫,O_ORORO۫)^O۩(]O۫,\N**Z- $... 8 $T2U7.U 95768F<j3PRINT (6,ERR=L8050)@(1),A3$(21,10),@(43),O:M6$,@(51),R:M6$,@(59),A:M6$,@(67),S:M6$,@(75),C:M6$; LET L=L+1Al3PRINT (88)QQW$+A3$(9,12)+QW$+A3$(21,10)+QW$+B2$+QW$+STR(O)+QW$+STR(R)+QW$+STR(A)+QW$+STR(S)+QW$+STR(C)+QQW$F<$9;;5<<7==68P?U$>9>?5?@6@A7AB8BZ#$95678d7$_RSTXWYn .dzYUx .dzU $,,U UU8U1U*U/U LF  $..U /UU$CU CU1CU :$0-: !UU3PRINT (6,ERR=L8050)@(14),"ITEM # ",A2$(9,12)+" TOTALS",@(43),O2:M6$,@(51),R2:M6$,@(59),A2:M6$,@(67),S2:M6$,@(75),C2:M6$,@(85),DIITOTI:M6$#$;<= $.."U,)U$D- !/1D6U 11U!@U!$1UJ 1$DUTU ^U3"CUSTOMER TOTALS"h@U rd3PRINT (6)'LF',@(0),"STORER TOTALS",@(43),O1:M6$,@(51),R1:M6$,@(59),A1:M6$,@(67),S1:M6$,@(75),C1:M6$|/"-END OF REPORT-&3PRINT @(0,22),'CL',"REPORT COMPLETED"@lU$>?@AB95678;<=8U3"CALC. OPEN BALANCE"$9E10U"U"$1U# 10U#11U 234 1!U#7 Y1( 1%EU"E 3BE*$94(1E1% 3R $994 3A $994 3S $994&U"0U#8:4U3PRINT (6,ERR=L8050)'LF',@(0),A2$(9,12),@(14),B2$D8NU 3"ERROR ROUTINE"OU S K9XL F$F"$K(Ө  AT ۩(F IN PGM ۩#\3ESCAPE]E2U X%U$U% U$<WITSMSU%@3JA$PERROR ۩(Ө AT LINE ۩(Ө" IN PGM ۩#TE2u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD &GuH$G19GuI0 G'Y2KSLIDE$G20uL8GuM]u3yymmdd$ to julian numericu 'Gu$G19Gu0 G'Y2KSLIDE$G20u$H$HGuu5$HӨGGGu8Hu]u3yymmdd (numeric) to ccccmmdd$v 'Hv$G19۩(H000000v0 G'Y2KSLIDE$G20vH8GvR]y (Gy"*$IG I $II y,)$G0I3SET TO "9" OR ":"y68Gyr]y| )Gy0$IlӨG0 ܨGy$G(IGy8Gy4]3above does :01030 = 20001030 or 991231=19991231*G`a $I`G I($GGIaGIܨ`8G] +G$$b$bөcG8b&]8 ,dB$d*d"L$d*d,ǒ8dǗ]A2B2C2D2C2D2E2F2G2H2F2G2I2J2H2K2L2M2N2O2I2Q2ZA1B1C1D1E1F1G1XB7QD9C9L9M6EYY7BCS0MPILTATA4B4A4RSACOA3R2A2S2O1R1S1A1C1LRBV1YYYYYYYCUST ERRORWAS NOHEADERCSVFILEQQWQW ERRMESSAGEWFDIR LAST_SHIP_DT FIRST_ADJ_DT FIRST_REC_DTREF5REF6RECEIPTCOUNT RECEIPT1IIR_QTYR_REFQTYR_DTFIRST_SHIP_DTYYY1YYY2YYYVCGIZZZL10AL60L620L70L5030L100L120L130L9000L8000L3000L8050L3030L7000L4280L4020L4000L4250L4270L4065L6000L4070L4080L4160L4175L4180L5000L4271L4500L4282L4330L4510L4520L6030L6130L9990L9999Y2K1Y2K2Y2KAY2KBSUBCGIVALCLEANEAN:N