<>g~ @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/// /LFITEM #d/LOT # DESCRIPTION.2OPEN RECV'D ADJUST SHIPPED CLOSE DAYSTOTx/XNITEMOLOT #O DESCRIPTIONOOPENORECV'DOADJUSTOSHIPPEDOCLOSEN$. ,Y UU ,UU8U3"PRINT DETAIL"$! *I1+U.! *S1+U8U *I$-UB: *S-$-U1$---L -+UV1-U `$/j YUt$0- !~UU$10U11UU$1U 10U+ Y 1 0 U= 1!U 1!U11U 234 3BU 3R $545 3S $646 3A $7473" IF T=1 THEN GOTO 4282U U$89567 YU{/U LF +9$35$;7$C6$K8$UR$#z/XN O OO۩(9$O۩(5$O۩(7$O۩(6$O۩(8$N( $..2U7.U 95768F<k/U : +9$35$;7$C6$K8$$..Aj/XN: O: OO۩(9O۩(5O۩(7O۩(6O۩(8NF<$9;;5<<7==68P?U$>9>?5?@6@A7AB8BZ#$95678n .dzYUx .dzU $,,U UU8U1U*U/U LF  $..U /UU$CU CU1CU :$0-: !UU/U ITEM #  TOTALS+$3;$;<$C=$K$US$#$;<= $.."U,)U$D- !/1D6U 11U!@U!$1UJ 1$DUTU ^U3"CUSTOMER TOTALS"h@U re/LF STORER TOTALS+>$3?$;A$C@$KB$|/"-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:*U/U LF 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=19991231A2B2C2D2C2D2E2F2G2H2F2G2I2J2H2K2L2M2N2O2I2Q2ZA1B1C1D1E1F1G1XB7QD9C9L9M6EYY7BCS0MPILTATA4B4A4RSACOA3R2A2S2O1R1S1A1C1LRBV1YYYYYYYCUST ERRORWAS NOHEADERCSVFILEQQWQW ERRMESSAGEWFDIRDIITOTDIITOTIL10AL60L620L70L5030L100L120L130L9000L8000L3000L8050L3030L7000L4280L4020L4000L4250L4270L4065L6000L4070L4080L4160L4175L4180L5000L4271L4500L4282L4330L4510L4520L6030L6130L9990L9999Y2K1Y2K2Y2KAY2KBq2ogram # IU5 AU6"REDConsole, Retry, or Exit JWHITE & JCcRrEeFfSsDdVv?U6 /POP $? JFf*/WINDOWP_fids/POP9 . JEe ;CUTSA0 8 JDd$O Odump/۩(N000OOOHO$M$,MOEMM/RBWINDOW (BRDEFAULTCSERRED  Dump CompleteWHITEK/POPU4 B@ JVv+/WINDOWP/CSE/POPU4 L JRr9 V JSso$Kө#Ө"/WINDOWPStatement displayBRDEFAULTCSK"/POPU4 `$P j?3IF POS(STRVAR$="?")<>0 THEN CALL "_err",ERRNUMBER; GOTO L20310 t93Correct the error, then type RUN to resume the program ~9 EU53-----------------CRITICAL UPDATE NO EXIT------------------------- :U7"REDConsole or Retry JWHITE ! J CcRrFfSsDdU7 /POP  JRr9 B JFf-/WINDOWP_fids/POPU4 @ JVv+/WINDOWP/CSE/POPU4 JSso$Kө#Ө"/WINDOWPStatement displayBRDEFAULTCSK"/POPU4 JDd$O Odump/۩(N000OOOHO$M$,MOEMM/RBWINDOW (BRDEFAULTCS  Dump CompleteK/POPU4 93Correct the error, then type RUN to resume the program 9 C3--------------------INTERRUPT (ESCAPE) HANDLING ------------------ U AU8 ?/RBWINDOW Escape DetectedBRDEFAULTCS  IU9 (1U:"Do you wish to quit? J 2 JNnYyCcU: </POP FAU P JYy ;CUTSA0 Z JNn8 d n8 x/U9"No interrupt allowedJ ! JCcJU9 AU /POP JCc8  U88u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD ;QuH$Q19QuI0 Q'Y2KSLIDE$Q20uL8QuM]u3yymmdd$ to julian numericu <Qu$Q19Qu0 Q'Y2KSLIDE$Q20u$R$RQuu5$RӨQQQu8Ru]u3yymmdd (numeric) to ccccmmdd$v <Rv$Q19۩(R000000v0 Q'Y2KSLIDE$Q20vH8QvR]y =Qy"*$SQ S $SS y,)$Q0S3SET TO "9" OR ":"y68Qyr]y| >Qy0$SlӨQ0 ܨQy$Q(SQy8Qy4]3above does :01030 = 20001030 or 991231=19991231A2B2C2D2C2D2E2F2G2H2F2G2I2J2H2K2L2M2N2O2I2Q2ZA1B1C1D1E1F1G1XB7QD9C9L9M6EYD0Y7BCS0MPKILTATA4B4A4RSACOA3R2A2S2O1R1S1A1C1LRBV1 CRITICALSTRVAR STATEMENTWHOAMINEXTONE NEXTINDEX DUMP_FILE ERRNUMBERYYYYYYYCUSTERRTRAP INTERRUPTL10AL60L620L70L5030L100L120L130L9000L8000L180L270L2000L3000L2500L2030L8050L3030L7000L4280L4020L4000L4250L4270L4065L6000L4070L4080L4160L4175L4180L5000L4271L4500L4282L4330L4510L4520L6030L6130L8058L9990L9999L20240L20150L20070L20080L20160L20170L20310L20460L20330L20470L20920L20870L20790Y2K1Y2K2Y2KAY2KBDEFAULTCS  LUM (1UN"Do you wish to quit? M 2 MNnYyCcUN </POP FAU P MYy ;CUTSA0 Z MNn8 d n8 x/UM"No interrupt allowedM ! MCcMUM AU /POP MCc8  UL8u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD OTuH$T19TuI0 T'Y2KSLIDE$T20uL8TuM]u3yymmdd$ to julian numericu PTu$T19Tu0 T'Y2KSLIDE$T20u$U$UTuu5$UӨTTTu8Uu]u3yymmdd (numeric) to ccccmmdd$v PUv$T19۩(U000000v0 T'Y2KSLIDE$T20vH8TvR]y QTy"*$VT V $VV y,)$T0V3SET TO "9" OR ":"y68Tyr]y| RTy0$VlӨT0 ܨTy$T(VTy8Ty4]3above does :01030 = 20001030 or 991231=19991231A2B2C2D2C2D2E2F2G2H2F2G2I2J2H2K2L2M2N2O2I2Q2ZA1B1C1D1E1F1G1XB7QD9C9L9M6EYK9D0Y7BDCS0MPKIELTATA4B4A4RSACOA3R2A2S2O1R1S1A1C1LRBV1 CRITICALSTRVAR STATEMENTWHOAMINEXTONE NEXTINDEX DUMP_FILE ERRNUMBERYYYYYYYERRTRAP INTERRUPTL10AL60L620L70L5030L100L120L130L9000L8000L600L170L180L220L260L245L240L235L270L320L2000L1500L604L608L690L612L3000L2500L2030L2510L2540L2560L2600L2610L2690L2650L8050L3030L7000L4280L4020L4000L4250L4270L4065L6000L4070L4080L4160L4175L4180L5000L4271L4500L4282L4330L4510L4520L6030L6130L8058L9990L9999L20240L20150L20070L20080L20160L20170L20310L20460L20330L20470L20920L20870L20790Y2K1Y2K2Y2KAY2KB