Listing of file='ACPA110C' on disk='vmedia/701-2654C.wvd.zip'
# Sector 503, program filename = 'ACPA110C' 0010 REM ACPA110C, RELEASE 2.3, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT ED 0020 REM PROGRAM NAME = ACPA110C 0030 REM RELEASE NUMBER = 01 0040 REM REVISION NUMBER = 00 0050 REM DATE WRITTEN = 1/21/79 0055 REM DATE CHANGED = 12/17/80 0057 REM UPDATED TO 2.3 BY ERRATUM 1195 0060 REM ************************************************** 0070 REM * THIS PROGRAM IS PART OF A GENERALIZED * 0080 REM * APPLICATION. COPYRIGHT WANG LABS INC. 1979 * 0090 REM ************************************************** 0110 REM SYSTEM NAME = GBS/MVP ACCOUNTS PAYABLE SYSTEM 0120 REM MODULE NAME = DISTIBUTION REPORT - LOAD NECESSARY SUBROUTINES 0130 REM PROGRAM FUNCTION = PUTS CHART OF ACCOUNTS FILE VARIABLES INTO COMMON 0140 REM ************************************************** 0150 REM 0170 COM N1,Q6$80,Q7$80,M3$1,I0$3,D9$8,K1$7,L0,M$8,K6$(50)4,Q5 0172 REM 0176 SELECT @PART S0$ 0177 K6$()=M$() 0186 N1=0 0199 GOSUB '99 3999 REM 4000 DEFFN '99 4005 Q5 = VAL(Q0$(5)) 4010 RETURN CLEAR 4020 N1=N1+1 4030 Q6$="KFAMOPENJENFILE GENFILE A/PCONT KFAMCODEDENTRY SUBDATE SUBUTIL" 4040 IF N1 <= 8 THEN LOAD TSTR(Q6$,N1*8-7,8)10,199 4050 Q=1 4060 REM LOAD T "KFAMOPEN" 10,210 BEG 4070 4070 LOAD T "COMCLEAR" 10,199 BEG 4080 4080 SELECT @PART S0$ 4082 REM GET LINES/PAGE, MENU NAME , PRNT. ADDRESS, DATE, RPT. TYPE 4083 $UNPACK(F=HEX(A0076002A008A003A008A007)) STR(K6$(),92) TO M5$,L0,M$,I 0$,D9$,K1$ 4090 REM OPEN CONTROL FILE 4110 GOSUB '217(S$(9),9,S2,0,3," ",STR(K6$(),19,3),0) 4120 Q7$=" " 4130 Q6$="CONTROL FILE" 4140 IF Q$<> " " THEN 4360 4150 REM CLOSE OLD J/E FILE 4170 GOSUB '219(S$(1),1,S2," ",0) 4175 $OPEN #9 4180 GOSUB '66(9,0,1) 4190 IF M3$=" " THEN M3$="1" 4200 GOSUB '66(9,0,0) 4205 $CLOSE#9 4210 REM OPEN OTHER FILES 4220 Q7$ = " " 4240 GOSUB '230(1,7,8,1,S$(8),2," ",STR(K6$(),19,3),STR(K6$(),22,3)) 4250 Q6$ = "CHART OF ACCOUNTS MASTER FILE" 4260 IF Q$ <> " " THEN 4360 4280 GOSUB '217(S$(4),4,S2,0,2," ",STR(K6$(),10,3),0) 4290 Q6$ = "JOURNAL ENTRIES SORT TAGS" 4300 IF Q$ <> " " THEN 4360 4320 GOSUB '217(S$(1),1,S2,0,2," ",STR(K6$(),,3),0) 4330 Q6$ = "JOURNAL ENTRIES FILE" 4335 STR(M5$,8)="D" 4340 IF Q$=" " THEN LOAD T M5$ 4000, 4350 REM ERROR EXIT 4360 GOSUB '91 4370 PRINT AT(1,0,80);Q7$;HEX(07) 4380 PRINT AT(3,16,64);Q6$ 4390 GOSUB '254 4400 REM END OF PROGRAM 4410 DEFFN'31 4430 GOSUB '219(S$(4),4,S2," ",0) 4450 GOSUB '219(S$(1),1,S2," ",0) 4470 GOSUB '219(S$(9),9,S2," ",0) 4480 GOSUB '239(1) 4490 COM CLEAR I 4500 LOAD T M$ 9999 DEFFN'29"Q$=";HEX(22);"ACPA110C";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)