Listing of file='ACPAMENU' on disk='vmedia/701-2652C.wvd.zip'
# Sector 28, program filename = 'ACPAMENU'
0010 REM ACPAMENU, RELEASE 2.2, (09/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM I,Q,M5$,O0,M0,M$8
: COM Q$(2)80,Q6$80,Q7$80
: COM Q3,Q4,Q5,Q6,Q7,Q8,Q9
: COM M(17),F5$(3)1,M2$4
: GOTO 4000
4000 DIM A6$(8)124
: N=11
: I=40
: M0=INT(249/(40+VAL(Q0$(4))+VAL(Q0$(6))))
: Q0=VAL(Q0$(4))
: IF M$="SYS MENU"THEN M5$=" "
: M$="ACPAMENU"
: Q7$="GBS/MVP ACCOUNTS PAYABLE SYSTEM"
: STR(Q7$,47)="SYSTEM MENU"
4080 LOAD T"GBS MENU"10,4080
: ERRORPRINT HEX(03);"GBS Menu is not available."
: END
7010 DEFFN'32
: Q6$="SYS MENU"
: COM CLEAR I
: LOAD TQ6$
: ERRORPRINT HEX(03);"System menu is not available."
: END
7060 DEFFN'38
: RETURN
7130 DEFFN'39
: IF M5$="ACPA070A"OR M5$="ACPA080A"THEN GOSUB '98
: V7$="GBS1F010"
: GOSUB '97
: MAT SEARCHA6$(),=STR(V7$,,7)TO Q6$STEP 11
: Q9=INT((VAL(Q6$,2)+10)/11)
: Q6$="A/P Control file"
: Q7$="(Filename is not in company control file)."
: IF Q9=0THEN GOSUB '33
: Q7$=" "
: SELECT #1<STR(A6$(Q9),9,3)>
: DATA LOAD DC OPEN T#1,STR(A6$(Q9),,8)
: ERRORGOSUB '33
7195 Q5=VAL(Q0$(5))
: LOAD T"A/PCONT"10,199BEG 7210
7210 SELECT @PARTS0$
: GOSUB '66(1,0,1)
: DATA SAVE DC CLOSE#1
: RESTORE M2*5+2
: READ Q6$
: MAT SEARCH"ACPA050 ACPA060 ACPA120",=STR(M5$,,7)TO Q7$
: IF STR(Q7$,,2)=HEX(0000)THEN 7380
: Q7$="Cash Requirement Report must precede "&Q6$
: IF M(3)=0THEN 7340
: Q7$="Payment selection must precede "&Q6$
: IF M5$="ACPA060A"AND F5$(2)=" "THEN 7340
7310 IF M5$="ACPA050A"THEN 7380
: Q7$="Check print must precede "&Q6$
: IF M5$<>"ACPA120A"OR F5$(2)="2"THEN GOSUB '98
7340 PRINT HEX(030D0A);Q7$
: PRINT AT(2,0,80)
: Q7$=" "
7346 KEYIN Q7$,7346,7346
: LINPUT "Key 'RETURN' to resume.",?STR(Q7$,,1)
: Q6$=" "
: GOSUB '33
7380 IF F5$(2)<>"2"THEN GOSUB '98
: PRINT HEX(03);AT(0,0);"Caution - Purge Paid Item/Vendor update has not fo
llowed check print";HEX(07)
: PRINT AT(1,0);"If the A/P payment cycle is not completed, the checks will
be lost"
7410 PRINT AT(2,0,80);"IS ";Q6$;" STILL DESIRED (Y OR N)";
: Q6$,Q7$=" "
: LINPUT ?STR(Q7$,,1)
: $TRAN(Q7$,"YyNn")R
: IF Q7$="N"THEN GOSUB '33
: IF Q7$="Y"THEN GOSUB '98
: PRINT AT(3,0,80);"RE-ENTER";HEX(07)
: GOTO 7410
7660 DATA "ACPA030A","ENTER TRANSACTIONS","KFAMCODESUBUTIL JENFILE VENFILE A/P
FILE GENFILE A/PCONT DENTRY SUBDATE TRAUFILE"
: DATA 3,"ACPAF01 312 ACPAF02 314 GENLF01 116 GENLF02 307 GENLF03 308 GBS1F
01 309 AUDIF02 30A GENLF05 30B"
7670 DATA "ACPA040A","PRINT CASH REQUIREMENTS","KFAMCODESUBUTIL VENFILE A/PFIL
E A/PCONT DENTRY SUBDATE PRNTAVAL"
: DATA 2,"ACPAF01 412 ACPAF02 414 GBS1F01 305"
: DATA "ACPA050A","SELECT ITEMS FOR PAYMENT","KFAMCODESUBUTIL VENFILE A/PFI
LE A/PCONT DENTRY SUBDATE"
7685 DATA 2,"ACPAF01 412 ACPAF02 414 GBS1F01 305"
: DATA "ACPA060A","PRINT CHECKS","KFAMCODESUBUTIL VENFILE A/PFILE CHKFILE A
/PCONT DENTRY SUBDATE PRNTAVAL"
: DATA 2,"ACPAF01 112 ACPAF02 414 ACPAF03 405 GBS1F01 306"
7700 DATA "ACPA070A","PRINT CHECK REGISTER","KFAMCODESUBUTIL DENTRY PRNTAVAL"
: DATA 1,"ACPAF03 001 ACPAF03 002 SORTWORK003 SORTWORK004 PROGRAM 005 PROGR
AM 006"
: DATA "ACPA120A","PURGE PAID ITEMS","KFAMCODESUBUTIL VENFILE A/PFILE A/PCO
NT DENTRY SUBDATE TRAUFILE"
7715 DATA 2,"ACPAF01 412 ACPAF02 414 AUDIF02 305 GBS1F01 306"
: DATA "ACPA080A","MAINTAIN VENDOR FILE","KFAMCODESUBUTIL GENFILE VENFILE D
ENTRY SUBDATE AUDIFILE"
: DATA 2,"ACPAF01 312 GENLF01 315 AUDIF01 303"
7740 DATA "ACPA020A","MAINTAIN OPEN ITEM FILE","KFAMCODESUBUTIL VENFILE A/PCON
T A/PFILE DENTRY AUDIFILESUBDATE PRNTAVAL"
: DATA 2,"ACPAF02 312 ACPAF01 116 AUDIF01 303 GBS1F01 304"
7750 DATA "ACPA090A","DISPLAY/PRINT VENDOR FILE","KFAMCODESUBUTIL VENFILE DENT
RY SUBDATE PRNTAVAL"
: DATA 1,"ACPAF01 112"
: DATA "ACPA010A","DISPLAY/PRINT OPEN ITEM FILE","KFAMCODESUBUTIL VENFILE A
/PFILE SUBDATE DENTRY PRNTAVAL"
: DATA 2,"ACPAF02 112 ACPAF01 116"
7770 DATA "ACPA110A","REPORT ON DISTRIBUTION","KFAMCODESUBUTIL A/PCONT DENTRY
SUBDATE PRNTAVAL"
: DATA 1,"GBS1F01 309 GENLF02 001 GENLF02 002 SORTWORK003 GENLF05 004 PROGR
AM 005 PROGRAM 006 GENLK11 007 GENLF01 008"
7800 DEFFN'29"Q$=";HEX(22);"ACPAMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)