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)