Listing of file='INVT210B' on disk='vmedia/701-2661A.wvd.zip'
# Sector 279, program filename = 'INVT210B'
0010 REM INVT210B, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
6270 % THIS SHOULD BE LINE 6270
6280 DEFFN'130
: Q5=32
: Q7=55
: PRINT "PRODUCT ID";TAB(15);F1$
: PRINT "DESCRIPTION";TAB(15);F2$
: GOSUB '35(A1$)
: PRINT "PROFILE ID";TAB(27-LEN(G1$));G1$;TAB(Q5);"DEMAND FILTER HIST "
;B9$
: IF Q$="N"THEN 6400
: PRINT "DESCR";TAB(27-LEN(L2$));L2$;
: GOTO 6410
6400 PRINT "*** PROFILE ID NOT FOUND ***";
6410 GOSUB '35(A2$)
: PRINT TAB(Q5);"TRACKING SIGNAL HIST ";B9$
: GOSUB '35(A0$)
: PRINT "SALES STABILITY";TAB(26);I1$;TAB(Q5);"VARIABLE TREND HIST ";B9$
: PRINT "DESEAS DEMAND ";
: PRINTUSING 7240,D;
: PRINT TAB(Q5);"REORDER STRATEGY";TAB(62);A3$
: PRINT "SAFETY FACTOR ";
: PRINTUSING 7240,D0;
: IF A3$="M"THEN 6560
6540 PRINT TAB(Q5);"REVIEW TIME";TAB(61);C1
: GOTO 6590
6560 PRINT TAB(Q5);"MINIMUM LEVEL";TAB(Q7);
: PRINTUSING 7260,E4
6590 PRINT "MEAN ABS DEV ";
: PRINTUSING 7240,G2;
: IF A3$="M"THEN 6650
: PRINT TAB(Q5);"LEAD TIME (DAYS)";TAB(Q7);
: PRINTUSING 7260,C3
: GOTO 6680
6650 PRINT TAB(Q5);"MAXIMUM LEVEL";TAB(Q7);
: PRINTUSING 7260,E5
6680 PRINT "MEAN SIGN DEV ";
: PRINTUSING 7240,G1;
: IF A3$="M"THEN 6740
: PRINT TAB(Q5);"SERVICE PERIOD";TAB(52);
: PRINTUSING 7240,C2
: GOTO 6770
6740 PRINT TAB(Q5);"ITEM MINIMUM";TAB(Q7);
: PRINTUSING 7260,B5
6770 PRINT "VARIABLE TREND ";
: PRINTUSING 7240,G;
: IF A3$="M"THEN 6830
: PRINT TAB(Q5);"COUNTER STOCK";TAB(Q7);
: PRINTUSING 7260,D2
: GOTO 6860
6830 PRINT TAB(Q5);"PACK SIZE";TAB(Q7);
: PRINTUSING 7260,B4
6860 PRINT "TREND PERCENT ";
: PRINTUSING 7240,D1*100;
: IF A3$<>"M"THEN 6910
: PRINT
: GOTO 6970
6910 Q6$="FIXED ORDER QTY"
: IF A3$="F"THEN 6940
: Q6$="PACK SIZE"
6940 PRINT TAB(Q5);Q6$;TAB(Q7);
: PRINTUSING 7260,B4
6970 PRINT "LAST PERIOD PROC ";
: PRINTUSING 7250,C0;
: PRINT TAB(Q5);
: IF A3$<>"M"THEN 7030
: PRINT
: GOTO 7100
7030 IF A3$="F"THEN 7070
: PRINT "ITEM MINIMUM";TAB(Q7);
: PRINTUSING 7260,B5
: GOTO 7100
7070 PRINT "LEVEL OF SERVICE";TAB(59);
: PRINTUSING 7270,C5
7100 IF C0<>0THEN 7130
: PRINT "%1ST PER W/SLS ";
: PRINTUSING 7260,100*(G4+1-SGN(G4));
7130 PRINT TAB(Q5);
: IF A3$="S"THEN 7180
: IF A3$="W"THEN 7210
: PRINT
: RETURN
7180 PRINT "LEVEL OF SERVICE";TAB(59);
: PRINTUSING 7270,C5
: RETURN
7210 PRINT "WEEKS SUPPLY";TAB(52);
: PRINTUSING 7240,D3
: RETURN
7240 %-####,###.#
7250 %-##
7260 %####,###
7270 %.###
7300 DEFFN'131
: L=L+7
: Q3=40
: Q5=70
: Q7=104
: PRINT "PRODUCT ID";TAB(37-LEN(F1$));F1$;TAB(Q3);"SAFETY FACTOR ";
: PRINTUSING 7240,D0;
: PRINT TAB(Q5);
: IF C0<>0THEN 7410
: PRINT "% 1ST PER W/SLS ";
: PRINTUSING 7260,100*(1+G4-SGN(G4));
7410 PRINT TAB(Q7);
: IF A3$="M"THEN 7460
: PRINT "LEAD TIME (DAYS)";TAB(Q7+18);
: PRINTUSING 7260,C3
: GOTO 7490
7460 PRINT "MINIMUM LEVEL ";
: PRINTUSING 7260,E4
7490 PRINT "DESCRIPTION";TAB(37-LEN(F2$));F2$;TAB(Q3);"MEAN ABS DEV ";
: PRINTUSING 7240,G2;
: GOSUB '35(A1$)
: PRINT TAB(Q5);"DEMAND FILTER HIST ";B9$;TAB(Q7);
: IF A3$="M"THEN 7570
: PRINT "SERVICE PERIOD ";
: PRINTUSING 7240,C2
: GOTO 7600
7570 PRINT "MAXIMUM LEVEL ";
: PRINTUSING 7260,E5
7600 PRINT "PROFILE ID";TAB(37-LEN(G1$));G1$;TAB(Q3);"MEAN SIGN DEV ";
: PRINTUSING 7240,G1;
: GOSUB '35(A2$)
: PRINT TAB(Q5);"TRACKING SIGNAL HIST ";B9$;TAB(Q7);
: IF A3$="M"THEN 7680
: PRINT "COUNTER STOCK ";
: PRINTUSING 7260,D2
: GOTO 7710
7680 PRINT "ITEM MINIMUM ";
: PRINTUSING 7260,B5
7710 IF Q$="N"THEN 7740
: PRINT "PROF DESC";TAB(37-LEN(L2$));L2$;
: GOTO 7750
7740 PRINT "*** PROFILE ID NOT FOUND ***";
7750 PRINT TAB(Q3);"VARIABLE TREND ";
: PRINTUSING 7240,G;
: GOSUB '35(A0$)
: PRINT TAB(Q5);"VARIABLE TREND HIST ";B9$;TAB(Q7);
: Q6$="PACK SIZE"
: IF A3$<>"F"THEN 7820
: Q6$="FIXED ORDER QTY"
7820 PRINT Q6$;TAB(Q7+18);
: PRINTUSING 7260,B4
: PRINT "SALES STABILITY";TAB(36);I1$;TAB(Q3);"TREND PERCENT ";
: PRINTUSING 7240,D1*100;
: PRINT TAB(Q5);"REORDER STRATEGY";TAB(Q5+30);A3$;TAB(Q7);
: IF A3$="M"THEN 7950
: IF A3$="F"THEN 7930
: PRINT "ITEM MINIMUM ";
: PRINTUSING 7260,B5;
: GOTO 7950
7930 PRINT "LEVEL OF SERVICE ";
: PRINTUSING 7270,C5;
7950 PRINT
: PRINT "DESEAS DEMAND";TAB(26);
: PRINTUSING 7240,D;
: PRINT TAB(Q3);"LAST PER PROC";TAB(Q3+24);
: PRINTUSING 7250,C0;
: PRINT TAB(Q5);
: IF A3$="M"THEN 8070
: PRINT "REVIEW TIME";TAB(Q5+29);C1;
: PRINT TAB(Q7);
: IF A3$="S"THEN 8140
: IF A3$="W"THEN 8100
8070 PRINT
: PRINT
: RETURN
8100 PRINT "WEEKS SUPPLY ";
: PRINTUSING 7240,D3
: PRINT
: RETURN
8140 PRINT "LEVEL OF SERVICE ";
: PRINTUSING 7270,C5
: PRINT
: RETURN
8190 DEFFN'35(B7$)
: B9$=HEX(8040201008040201)
: INIT(B7$)B7$
: B8$=HEX(3180314031203110310831043102310130002020)
: AND (B9$,B7$)
: $TRAN(B9$,B8$)R
: RETURN
9999 DEFFN'29"Q$=";HEX(22);"INVT210B";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)