Listing of file='ACPA110A' on disk='vmedia/701-2654C.wvd.zip'
# Sector 480, program filename = 'ACPA110A' 0010 REM ACPA110A, RELEASE 1-0, (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 = ACPA110A 0030 REM RELEASE NUMBER = 01 0040 REM REVISION NUMBER = 00 0050 REM DATE WRITTEN = 1/21/79 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 = SORT JOURNAL ENTRY FILE PRIOR TO DISTRIBUTION REPO RT 0130 REM PROGRAM FUNCTION = CHECKS PRINTER AVAILABILITY PRIOR TO SORT 0140 REM ************************************************** 0150 REM 0170 COM D9$8,K1$7,I0$3,D9$8,K1$7,A0$(4)62,Q5 0198 GOTO 4000 3990 REM 4000 SELECT @PART S0$ 4005 A0$()=M$() : REM BUFFER FOR ADDRESSES 4010 GOSUB '93(" ") 4020 IF I0$=" " THEN 4470 4030 REM REQUEST REPORT TYPE 4040 GOSUB '100("D,S","DdSs",1,1,"ENTER REPORT TYPE (D=DETAIL, S=SUMMARY) ",2) 4050 IF Q6$=HEX(1F) THEN GOSUB '31 4060 Q6$="DETAIL SUMMARY" 4070 K1$=STR(Q6$,Q9*7-6,7) 4080 REM ------------ 4090 REM VALIDATE REPORT DATE 4100 Q6$=Q1$ 4110 GOSUB '100(" ","^",8,0,"ENTER REPORT DATE (MM/DD/YY)",3) 4120 IF Q6$=HEX(1F) THEN GOSUB '31 4130 D9$ = Q6$ 4140 GOSUB '121(D9$) 4150 IF Q6$ <> "E" THEN 4180 4160 PRINT AT(3,0,80);HEX(07);"Invalid report date, re-enter" 4170 GOTO 4100 4180 PRINT AT(5,0,80);"REPORT DATE = ";D9$,U9 4190 GOSUB '100("Y,N","YyY Nn",1,1,"IS REPORT DATE OK (Y OR N)",2) 4200 IF Q6$=HEX(1F) THEN GOSUB '31 4210 IF Q9 = 2 THEN 4100 4240 REM READ CONTROL FILE TO SEE IF SORT ALREADY DONE 4250 GOSUB '66(9,0,1) 4260 Q7$="ACPA110B" : REM PROGRAM TO LOAD IF SORT NECESSARY 4262 M$()=A0$() : REM PUT BUFFER BACK => M$() 4263 REM STORE LINES/PAGE, MENU NAME,PRNT. ADDRESS, DATE, REPT. TYPE 4264 $PACK(F=HEX(A0076002A008A003A008A007)) STR(M$(),92) FROM M5$,L0,M$,I0 $,D9$,K1$ 4280 IF M3$=" " THEN 4360 : REM IS SORT DONE? 4290 REM CHECK IF FILE ALREADY SORTED 4320 LIMITS T #4,S$(4),Q6,Q7,Q8,Q9 4330 IF Q8<3 THEN 4360 : REM IS TAG FILE EMPTY? 4340 Q7$="ACPA110C" : REM PROGRAM TO LOAD IF SORT DONE 4350 REM CLOSE CONTROL FILE 4360 Q=1 4370 LOAD T "KFAMClos" 10,199 BEG 4380 4380 LOAD T "COMCLEAR" 10,199 BEG 4390 4390 SELECT @PART S0$ 4410 GOSUB '219(S$(9),9,S2," ",0) 4420 REM LOAD SORT SET-UP OR EXECUTION MODULE 4430 COM CLEAR M5$ 4440 LOAD T Q7$ 4450 REM ------------ 4460 REM END OF PROGRAM 4470 DEFFN '31 4480 LOAD T M$ 9999 DEFFN'29"Q$=";HEX(22);"ACPA110A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)