Listing of file='OREN110D' on disk='vmedia/701-2616C.wvd.zip'
# Sector 596, program filename = 'OREN110D'
0010 REM OREN110D, 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 ORDER ENTRY SYSTEM, ANALYZE ORDERS
0040 REM PROGRAM FUNCTION = PRINT ORDER ANALYSIS USING SORTED EXTRACT FILE
0050 REM DATE WRITTEN = 08/13/78 MK
0060 REM LAST REVISION = 08/12/79 MK
0070 REM -------------------------------------------------------------------
0170 COM K5$(50)4,K6$(4)64,K6$Q0,A6$1
0198 GOTO 4000
3996 REM **********************************************
3997 REM ! READ PRODUCTS FROM OPEN ORDER FILE , PRINT !
3998 REM **********************************************
3999 REM
4000 SELECT @PARTS0$
4010 A6$=STR(M$(),30)
: REM SAVE REPORT TYPE
4020 M$=STR(M$(),241,8)
: REM SAVE MENU NAME
4030 Q9=VAL(STR(M$(),32))
: REM BLOCKING FACTOR
4040 MAT REDIM K6$(Q9)Q0+8
: REM ORDER ANALYSIS BUFFER
4050 %###,###
4060 K6$=HEX(00)
4070 PRINT HEX(03);TAB(15);"ORDER ANALYSIS BY PRODUCT - PRINT"
4080 SELECT PRINT <STR(M$(),19,3)>(132)
: REM SELECT PRINTER
4090 DATA LOAD DC OPEN T#1,S$(1)
: REM RE-OPEN ORDER ANALYSIS
4100 DATA LOAD DC OPEN T#2,S$(2)
: REM OPEN USER PORTION OF FILE
4110 DATA LOAD DC OPEN T#4,S$(4)
: REM OPEN OUTPUT FILE
4120 L=60
4130 GOSUB '90
: REM TOP OF PAGE
4140 REM %PROCESS TAG FILE, ANALYSIS FILE AND OPEN ORDER FILE
4150 J=0
4160 J=MOD(J,50)+1
4170 IF J=1 THEN DATA LOAD DC #4,K5$()
: REM READ A SET OF TAGS
4180 IF END THEN K5$()=ALL(FF)
: REM END OF TAG FILE?
4190 K6$()=ALL(FF)
4200 I=1
4210 IF STR(K5$(J),,1)=HEX(FF) THEN 4330
: REM END OF TAG FILE?
4220 DATA LOAD DA T#1,(STR(K5$(J),,2))K6$()
: REM READ INTERIM FILE
4230 I=VAL(STR(K5$(J),3,2),2)
4240 IF STR(K6$(I),,1)=HEX(FF)THEN 4330
: REM END OF ANALYSIS FILE?
4250 DBACKSPACE #2,BEG
4260 DSKIP #2,VAL(STR(K6$(I),Q0+4,2),2)S
4270 GOSUB '57(2,1)
: REM HEADER HAS CUSTOMER NAME
4280 DBACKSPACE #2,BEG
4290 DSKIP #2,VAL(STR(K6$(I),Q0+6,2),2)S
4300 GOSUB '57(2,2)
4310 CONVERT STR(K6$(I),Q0+8,1) TO K
4320 GOSUB '90
4330 IF K6$=HEX(00)THEN K6$=STR(K6$(I),,Q0)
: REM FIRST TIME THROUGH
4340 IF K6$=STR(K6$(I),,Q0)THEN 4420
: REM CHECK PRODUCT ID BREAK
4350 K6$=STR(K6$(I),,Q0)
4360 PRINT TAB(20);"PRODUCT TOTAL";TAB(94);
4370 PRINTUSING 4050,K6
4380 PRINT HEX(0A)
4390 L=L+2
4400 K6=0
4410 REM EXIT, IF END OF FILE
4420 IF STR(K5$(J),,1)=HEX(FF) OR STR(K6$(I),,1)=HEX(FF) THEN GOSUB '31
4430 K6 = K6 + C3(K)
4440 CONVERT D4TO Q6$,(######)
4450 PRINT C2$(K);TAB(14);C3$(K);TAB(40);C1$;TAB(47);B0$;TAB(70);HEXOF(STR
(O2$,,3));"-";HEXOF(A0$);TAB(81);STR(Q6$,,2);"/";STR(Q6$,3,2);"/";STR(Q6$
,5,2);TAB(94);
4460 PRINTUSING 4050,C3(K)
4470 L=L+1
4480 GOTO 4160
4490 REM END OF PROGRAM
4500 DEFFN'31
4510 GOSUB '219(S$(1),1,S2," ",0)
4520 GOSUB '219(S$(2),2,S2," ",0)
4530 GOSUB '219(S$(3),3,S2," ",0)
4540 COM CLEAR I
4550 LOAD TM$
: ERRORLOAD T"SYS MENU"
6000 REM %^SUBROUTINES
6010 REM PAGE EJECT ROUTINE
6020 DEFFN'90
6030 Q6$=" "
6040 KEYIN Q6$,6050,6050
: REM OPERATOR INTERRUPT CHECK
6050 IF Q6$="P" THEN GOSUB '254
6060 IF Q6$=HEX(1F) THEN GOSUB '31
6070 IF L <= 55 THEN RETURN
: REM LINE COUNT CHECK
6080 P1 = P1 + 1
6090 PRINT HEX(0C0A0E);TAB(3);N2$
: REM PRINT COMPANY NAME
6100 Q6$="ORDER ANALYSIS BY PRODUCT -"
6110 IF A6$="A" THEN Q6$=Q6$&" ALL ORDERS"
: ELSE Q6$=Q6$&" BACKORDERS"
6120 PRINT TAB(66-LEN(Q6$)/2);Q6$;TAB(110);Q1$;TAB(122);"PAGE ";P1
6130 PRINT HEX(0A)
6140 PRINT TAB(83);"ORDER";TAB(93);"QUANTITY"
6150 PRINT "PRODUCT NO.";TAB(14);"DESCRIPTION";TAB(39);"CUST ID";TAB(47);"
NAME";TAB(70);"ORDER NO.";TAB(84);"DATE";TAB(94);"ORDERED"
6160 PRINT HEX(0A)
6170 L = 7
6180 RETURN
9000 REM %VARIABLES
9010 REM A6$1 = TYPE OF REPORT
9020 REM K6 = RECORD COUNT WITHIN SECTOR
9030 REM K6$Q0 = PREVIOUS PRODUCT ID
9040 REM K6$() = DETAIL RECORDS (ORDER ANALYSIS FILE)
9050 REM $
9998 DEFFN'29"Q$=";HEX(22);"OREN110D";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 - Print order analysis.";HEX(22);":SELECT#15<I0$>:$OPEN#15:SELEC
TLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SELECTLIST0
05(80)";HEX(0D)