Listing of file='ACPA080A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 234, program filename = 'ACPA080A'
0010 REM ACPA080A, RELEASE 2.1, (06/23/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM I9$1
: DIM D9$19,D6$6
: GOTO 4000
4000 SELECT @PARTS0$
: PRINT HEX(03);TAB(16);"VENDOR MASTER FILE MAINTENANCE"
: B6=21
: C6=8
: G0=1
: C9=5
: C8=41
: LIMITS T#3,S$(3),Q6,Q7,Q8
: Q9=(Q8-2)/(Q7-Q6-1)
: IF Q9>.8THEN PRINT AT(3,0);"Maintenance audit file is more than";INT(Q9*1
00);"% full."
: IF Q9<.95THEN 4140
: GOSUB '254
: GOSUB '31
4140 GOSUB '238(1)
: GOSUB '100(" ",HEX(7F),Q0,0,"ENTER VENDOR ID. (OR END)",2)
: IF Q6$=HEX(1F)OR Q6$="END"OR Q6$="end"THEN GOSUB '31
: IF Q6$=" "THEN 4140
: GOSUB '96(4)
: A$=Q6$
: PRINT AT(4,0,);TAB(10);"VENDOR ID - ";A$
: GOSUB '100("A,C,D","AaCcDdC ",1,1,"ENTER TRANSACTION TYPE (A,C, OR D)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: I9$=Q6$
4250 Q6$="Add ChangeDelete"
: D6$=STR(Q6$,Q9*6-5,6)
: PRINT AT(4,0);D6$
: IF I9$<>"A"THEN 4450
: GOSUB '232(1,0,A$)
: IF Q$="N"THEN 4330
: PRINT AT(3,0,80);HEX(07);"VENDOR ID is already in the vendor master file"
: GOTO 4140
4330 GOSUB '36
: GOSUB '37
: GOSUB '32
: GOSUB '33
: GOSUB '233(1,1,A$,0)
: GOSUB '91
: IF J0>0THEN 4140
: GOSUB '60(2)
: G5$(G0)="New vendor"
: GOSUB 4730
: GOTO 4140
4450 GOSUB '232(1,1,A$)
: GOSUB '91
: IF J0>0THEN 4140
: GOSUB '70(2)
: IF T7$=A$THEN 4520
: PRINT AT(3,0,80);HEX(07);"Record ID in key file does not match the record
ID from the master file"
: GOTO 4140
4520 GOSUB '37
: IF I9$="D"THEN 4590
: GOSUB '33
: DBACKSPACE #2,1S
: GOSUB '60(2)
: GOTO 4140
4590 IF A2=0THEN 4620
: PRINT AT(3,0,80);HEX(07);"Vendor cannot be deleted, balance is not zero"
: GOTO 4140
4620 GOSUB '100("Y,N","YyNn",1,1,"DELETE (Y OR N)",2)
: IF Q6$<>"Y"THEN 4140
: GOSUB '231(1,0,A$)
: GOSUB '91
: IF J0>0THEN 4140
: G5$(G0)="Deleted vendor"
: GOSUB 4730
: A$=HEX(FF)
: GOSUB '60(2)
: GOTO 4140
4730 G2$(G0)=" "
: G3$(G0)=A$
4750 G0$(G0)="8"&A$
: G1$(G0)=I9$
: G0=G0+1
: IF G0<4THEN RETURN
: GOSUB '49(3)
: G0=1
: G0$()=ALL(FF)
: IF Q9<.95THEN RETURN
: GOSUB '254
4850 DEFFN'31
: IF G0>1THEN GOSUB '49(3)
: LOAD TM$
6020 DEFFN'36
: A1$,A2$,A3$,A4$,A5$,B4$,B1$()=" "
: A,A1,A2,A3,A0=0
: MAT A4=ZER
: RETURN
6060 DEFFN'37
: PRINT AT(4,0,80);TAB(5);"VENDOR ID. - ";A$;TAB(30);D6$;TAB(C8+6);"DIST
ACCT";TAB(C8+22);" % DIST"
: PRINT AT(5,0,)
: G7=0
: I9=11
: FOR I=1TO I9
: GOSUB '35
: NEXT I
: RETURN
6150 DEFFN'33
: CONVERT I9TO Q7$,(##)
: PRINT AT(1,0,80);"ENTER LINE NO. TO CORRECT (0=END, -1=VOID)";
: GOSUB '100("-1",Q7$,2,0," ",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: I,J9=Q9
: IF I=-1THEN 6290
: IF I=0THEN 6271
: Q7$=" "
: G7=G7+1
: GOSUB '35
: GOSUB 4750
: GOTO 6150
6271 S6=0
: FOR I=1TO 6
: S6=S6+A4(I)
: NEXT I
: IF S6=100OR S6=0THEN RETURN
: PRINT AT(3,0,80);"The sum of G/L account percentages is not 100. Re-ente
r."
: GOTO 6150
6290 RETURN CLEAR
6300 IF I9$="A"OR G7=0THEN 4140
: CONVERT MIN(G7,99)TO Q6$,(##)
: G2$(G0)=Q6$&" previous edits for"
: G3$(G0)="this vendor are void."
: GOSUB 4750
: GOTO 4140
6370 DEFFN'32
: G7=1
: FOR I=1TO I9
: Q7$=" "
: GOSUB '35
: IF I>D9AND B1$(D9)=" "THEN RETURN
: NEXT I
: RETURN
6450 DEFFN'34(Q6$,Q9,G5$(G0),Q7$,Q$(1),Q$(2),Q3,Q4,Q5)
: IF G7>0THEN PRINT AT(1,0,80);"ENTER ";G5$(G0);Q7$
: IF Q5<2THEN GOSUB 6650
: G2$(G0)=Q6$
: IF Q6$>" "AND Q5=2THEN Q5=3
: IF Q9<>0AND Q5=1THEN Q5=0
: IF G7>0THEN GOSUB '100(Q$(1),Q$(2),Q3,Q4," ",Q5)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF I>C9AND D8=0THEN GOSUB '96(5)
: IF Q5<2THEN GOSUB 6650
: G3$(G0)=Q6$
: IF I>C9THEN 6575
6550 PRINT AT(I+5,0,C8);
: PRINTUSING "##) ";I;
: B8=C8-B6-2
: IF Q5<2THEN B8=B8+C6-Q3
: PRINT G5$(G0);TAB(B8+2);Q6$
: RETURN
6575 PRINT AT(I+5-C9,C8);
: PRINTUSING "##) ";I;
: IF Q9=0AND D8=1AND I9$="A"THEN RETURN
: IF D8=1AND B1$(D9)=" "THEN Q6$=" "
: IF D8=0THEN PRINT AT(I+5-C9,C8+6,9);STR(Q6$,,9)
: ELSE PRINT AT(I+5-C9,C8+22,7);STR(Q6$,,7)
: RETURN
6650 Q6$=ALL("#")
: Q7$=STR(Q6$,,Q3)
: IF Q4>0THEN Q7$=Q7$&"."&STR(Q6$,,Q4)
: Q7$=Q7$&"-"
: Q6$=ALL(00)
: PRINTUSING TO Q6$,Q7$,Q9
: Q6$=STR(Q6$,3,LEN(Q7$))
: RETURN
6730 DEFFN'35
: Q$=" "
: ON IGOSUB 6800,6810,6820,6830,6840,6850,6850,6850,6850,6850,6850
: IF Q$>" "THEN 6730
: RETURN
6800 GOSUB '34(A1$,0,"VENDOR NAME"," "," ",HEX(7F),21,0,2)
: A1$=Q6$
: RETURN
6810 GOSUB '34(A2$,0,"ADDRESS LINE 1"," "," ",HEX(7F),20,0,2)
: A2$=Q6$
: RETURN
6820 GOSUB '34(A3$,0,"ADDRESS LINE 2"," "," ",HEX(7F),20,0,2)
: A3$=Q6$
: RETURN
6830 GOSUB '34(A4$,0,"CITY/STATE"," "," ",HEX(7F),16,0,2)
: A4$=Q6$
: RETURN
6840 GOSUB '34(A5$,0,"ZIP CODE"," "," ",HEX(7F),5,0,2)
: A5$=Q6$
: RETURN
6850 D9=I-C9
: D8=0
: CONVERT D9TO STR(D9$,1,1),(#)
: Q6$="stndrdththth"
: STR(D9$,2,2)=STR(Q6$,2*D9-1,2)
: STR(D9$,4,16)=" DIST. ACCT. NO."
6859 GOSUB '34(B1$(D9),0,D9$," "," ",HEX(7F),VAL(Q0$(5)),0,2)
: IF G7=0THEN 6891
: B1$(D9)=Q6$
: IF STR(B1$(D9),,1)<>" "THEN 6873
: A4(D9)=0
: PRINT AT(I+5-C9,C8+22,7)
: RETURN
6873 GOSUB '232(2,0,B1$(D9))
: GOSUB '91
: IF J0<>0THEN 6881
: GOSUB '75(5)
: IF O1$="2"AND O3$<>"M"THEN 6891
6881 PRINT AT(3,0,80);HEX(07);"Illegal account no., re-enter"
: B1$(D9)=" "
: GOTO 6859
6891 D8=1
: STR(D9$,4,16)=" DISTRIBUTION % "
: GOSUB '34(" ",A4(D9),D9$," ","0","100.00",3,2,1)
: A4(D9)=Q9
: D8=0
: RETURN
9992 DEFFN'29"Q$=";HEX(22);"ACPA080A";HEX(22);":SCRATCH T Q$:SAVE T ()Q$";HEX
(0D)
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
"GBS/MVP - MAINTAIN VENDOR MASTER FILE";HEX(22);":SELECT#15<I0$>:$OPEN#15
:SELECTLIST<I0$>(80): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':LISTZ$THEX(7A):$
CLOSE#15:SELECTLIST005(80)";HEX(0D)