Listing of file='INVT070A' on disk='vmedia/701-2616C.wvd.zip'
# Sector 360, program filename = 'INVT070A'
0010 REM INVT070A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0020 REM ---------------------------------------------------------------------
0030 REM SYSTEM & MODULE = GBS/MVP INVENTORY SYSTEM, PHYSICAL INVENTORY ENT
RY
0040 REM PROGRAM FUNCTION = ENTER RESULTS OF PHYSICAL INVENTORY COUNT
0050 REM DATE WRITTEN = 08/12/79 MK
0060 REM LAST REVISION = 08/12/79 MK
0070 REM ---------------------------------------------------------------------
0170 DIM K5$(50)4,L1$14
0198 GOTO 4000
3996 REM *************************
3997 REM ! INVENTORY TRANSACTION !
3998 REM *************************
3999 REM
4000 SELECT @PART S0$
4010 A6=37
: REM START COLUMN FOR FIELD DISPLAY
4020 B6=8
: REM STARTING LINE-MODIFIABLE FIELDS
4030 B$()="I"
4040 PACK(##)STR(B$(1),2)FROM S2
4050 N1$()=ALL(FF)
4060 L1$=HEX(A0)&BIN(Q0)&HEX(A002A001500350036204A0)&BIN(MIN(36-Q0,24))
4070 LIMITS T#2,S$(2),L9,Q7,Q8
: REM INVENTORY FILE
4080 REM %CALCULATE AVAILABLE SPACE - TRANSACTION AUDIT FILE
4090 LIMITS T#3,S$(3),Q6,Q7,Q8
4100 Q9=(Q8-2)/(Q7-Q6-1)
4110 IF Q9>.8THEN PRINT AT(3,0,80);HEX(07);"Transaction audit file is";INT
(Q9*100);"% full."
4120 IF Q9>=.95THEN 4730
4130 REM %CHECK INVENTORY SORT TAGS FILE
4140 LIMITS T#4,S$(4),Q6,Q7,Q8
4150 IF Q8>2 THEN 4200
4160 PRINT AT(1,0,80);"Physical inventory sheets have not been printed.";H
EX(07)
4170 GOTO 4730
4180 % ##,###,###-
4190 REM %ACQUIRE STARTING POINT
4200 PRINT AT(4,0,);"This program displays products in stock location code
sequence and accepts";HEX(0D0A);"physical count entries in the order in
which they appear on the physical"
4202 PRINT "inventory sheets. The 'Enter Inventory Transactions' program p
rovides for";HEX(0D0A);"entering physical counts in a different sequence.
"
4208 CONVERT (Q8-2)*50 TO Q$(2),(########)
4210 GOSUB '100("1",Q$(2),ROUND((LOG(999999/Q8)/LOG(10),0),0,"ENTER STARTI
NG ITEM NO.",1)
4220 IF Q6$=HEX(1F)THEN GOSUB '31
4225 Q9=Q9-1
4230 DSKIP #4,INT(Q9/50)S
4240 K5$()=ALL(FF)
4250 J=MOD(Q9,50)
4260 IF J>0 THEN DATA LOAD DC #4,K5$()
4270 REM %PROCESS EACH PRODUCT
4280 J=MOD(J,50)+1
4290 IF J=1THEN DATA LOAD DC #4,K5$()
4300 IF END THEN K5$()=ALL(FF)
4310 IF STR(K5$(J),,1)=HEX(FF)THEN 4670
4320 DBACKSPACE #2,BEG
4330 DSKIP #2,VAL(STR(K5$(J),,2),2)-L9S
4340 GOSUB '52(2)
4350 IF F1$=HEX(FF) THEN 4280
: REM WAS PRODUCT DELETED AFTER SORT?
4360 PRINT AT(4,0,);,"PRODUCT ID";TAB(A6);F1$
4370 PRINT ,"DESCRIPTION";TAB(A6);F2$
4380 PRINT ,"U/M";TAB(A6);F3$
4390 PRINT AT(B6+1,0,0);,"PHYSICAL ON HAND";TAB(A6);
4400 PRINTUSING 4180,F5
4410 PRINT ,"PHYSICAL COUNT";TAB(A6);
4420 PRINTUSING 4180,E0
4430 GOSUB '100("-9999999","9999999",7,0,"ENTER QUANTITY",1)
4440 IF Q6$=HEX(1F)THEN GOSUB '31
4450 P9=Q9
4460 PRINT AT(B6+3,0);,"PHYSICAL ENTRY";TAB(A6);
4470 PRINTUSING 4180,P9
4480 E0=E0+P9
4490 REM CHECK ENTRY
4500 GOSUB '100("Y,N","YyY Nn",1,1,"IS ENTRY OK (Y OR N)",2)
4510 IF Q6$=HEX(1F)THEN GOSUB '31
4520 IF Q6$="N"THEN 4430
4530 REM %MOVE DATA TO TRANSACTION AUDIT FILE
4540 $PACK(F=L1$)N1$(G0)FROMF1$,F3$,A7$,0,P9,0,F2$
4545 P7=P7+1
4550 P8=P8+P9
4560 REM WRITE ADJUSTED INVENTORY RECORD
4570 DBACKSPACE #2,1S
4580 GOSUB '42(2)
4590 REM %WRITE TO TRANSACTION AUDIT FILE
4600 G0=G0+1
4610 IF G0<6THEN 4280
4620 GOSUB '48(3)
4630 G0=1
4640 N1$()=ALL(FF)
4650 IF Q9<.95 THEN 4280
4660 REM %END OF PROGRAM
4670 $PACK(F=L1$)N1$(G0)FROM" "," ","T",0,MIN(P8,99999),0,"PHYSICAL COUNT
TOTAL"
4680 GOSUB '48(3)
4690 PRINT AT(0,0,);AT(B6,0);"NUMBER OF PRODUCTS PROCESSED";TAB(A6);
4700 PRINTUSING 4180,P7
4710 PRINT "BATCH TOTAL - ALL PRODUCTS";TAB(A6);
4720 PRINTUSING 4180,P8
4730 GOSUB '254
4740 REM %LOAD MENU
4750 DEFFN'31
4760 LOAD TM$
9000 REM %^VARIABLES
9020 REM A9$ = PACK SPECIFICATION FOR TRANSACTION AUDIT FILE - INVENTORY
9120 REM P8 = PHYSICAL ENTRY - TOTAL
9130 REM P9 = PHYSICAL ENTRY
9140 REM $
9998 DEFFN'29"Q$=";HEX(22);"INVT070A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
"GBS/MVP - Enter inventory transactions.";HEX(22);":SELECT#15<I0$>:$OPEN#
15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SEL
ECTLIST005(80)";HEX(0D)