Listing of file='INVTMENU' on disk='vmedia/701-2661A.wvd.zip'
# Sector 496, program filename = 'INVTMENU'
0010 REM INVTMENU, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM I,Q,M5$,O0,M$8
: COM Q$(2)80,Q6$80,Q7$80
: COM Q3,Q4,Q5,Q6,Q7,Q8,Q9
: COM M2$4,M3$1,M(17)
4000 N=17
: I=38
: Q0=VAL(Q0$(2))
: IF M$="SYS MENU"THEN M5$=" "
: M$="INVTMENU"
: Q7$="GBS/MVP INVENTORY 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
: Q6$=ALL("0")
: STR(M5$,7,1)=STR(Q6$,S+1,1)
: RETURN
7110 DEFFN'39
: IF M5$="INVT290A"THEN Q0=VAL(Q0$(4))
: RETURN
7280 DATA "INVT220A","MAINTAIN INVENTORY FILE","KFAMCODESUBDATE DENTRY INVFIL
E FINFILE PROFILE AUDIFILE"
: DATA 2,"INVTF01 312 FCSTF01 115 AUDIF01 303"
: DATA "INVT030A","ENTER INVENTORY TRANSACTIONS","KFAMCODEDENTRY INVFILE T
RAUFILE"
: DATA 1,"INVTF01 312 AUDIF02 303"
7320 DATA "INVT040A","PRINT STOCK STATUS REPORT","KFAMCODESUBUTIL SUBDATE DENT
RY INVFILE PRNTAVAL"
: DATA 1,"INVTF01 212"
: DATA "INVT250A","PRINT INACTIVE/LOW STOCK REPORT","KFAMCODESUBDATE DENTRY
SUBUTIL INVFILE FINFILE PRNTAVAL"
: DATA 1,"INVTF01 212"
7360 DATA "INVT210A","DISPLAY/PRINT INVENTORY","KFAMCODESUBDATE DENTRY SUBUTI
L INVFILE FINFILE PROFILE PRNTAVAL"
: DATA 2,"INVTF01 112 FCSTF01 114"
: DATA "INVT060A","PRINT PHYSICAL INVENTORY SHEETS","DENTRY SUBUTIL PRNTAV
AL"
7390 DATA 0,"INVTF01 001 INVTK11 002 SORTWOR 003 INVTF02 004 PROGRAM 005 PROGR
AM 006"
: DATA "INVT070A","ENTER PHYSICAL COUNT","KFAMCODESUBUTIL DENTRY INVFILE T
RAUFILE"
: DATA 1,"INVTF01 312 AUDIF02 303 INVTF02 404"
7420 DATA "INVT080A","PRINT PHYSICAL INVENTORY REPORT","KFAMCODESUBUTIL DENTRY
INVFILE PRNTAVAL"
: DATA 1,"INVTF01 212 INVTF02 403"
: DATA "INVT290A","RECOMMEND PURCHASE ORDERS","KFAMCODESUBDATE DENTRY SUBU
TIL INVFILE FINFILE PRNTAVAL"
: DATA 2,"INVTF01 312 INVTF03 314"
7460 DATA "FCSG010A","ADJUST DESEASONALIZED DEMAND","KFAMCODEDENTRY SUBUTIL I
NVFILE FINFILE SLSSTABVPROFILE PRNTAVAL"
: DATA 2,"INVTF01 312 FCSTF01 114"
: DATA "FCSG020A","ADJUST ORDER POINT","KFAMCODEDENTRY SUBUTIL INVFILE FIN
FILE SLSSTABVPROFILE PRNTAVAL"
7490 DATA 3,"INVTF01 312 FCSTF01 114 INVTF03 316"
: DATA "FCSG110A","MAINTAIN PROFILE FILE","KFAMCODEDENTRY SUBUTIL PROFILE
PRNTAVAL"
: DATA 1,"FCSTF01 312"
: DATA "INVT120A","DISPLAY/PRINT PROFILE FILE","KFAMCODEDENTRY SUBUTIL PRO
FILE PRNTAVAL"
: DATA 1,"FCSTF01 312"
7540 DATA "INVT110A","SALES PROJECTION REPORT","DENTRY SUBUTIL "
: DATA 0,"INVTF01 001 INVTK11 002 SORTWOR 003 SORTWOR 004 PROGRAM 005 PROGR
AM 006 FCSTK11 007 FCSTF01 008"
: DATA "INVT110A","LEVEL OF SERVICE REPORT","DENTRY SUBUTIL "
7570 DATA 0,"INVTF01 001 INVTK11 002 SORTWOR 003 SORTWOR 004 PROGRAM 005 PROGR
AM 006 FCSTK11 007 FCSTF01 008"
: DATA "FCSG120A","DEMAND SIMULATOR","DENTRY SUBUTIL "
: DATA 0,"INVTK11 001 INVTF01 002 FCSTK11 003 FCSTF01 004"
7600 DATA "FCSG120A","REORDER SIMULATOR","DENTRY SUBUTIL "
: DATA 0,"INVTK11 001 INVTF01 002 FCSTK11 003 FCSTF01 004"
: DATA "INVTCN02","FILE CONVERSION","KFAMCODESUBDATE DENTRY SUBUTIL INVFIL
E FINFILE PROFILE"
: DATA 2,"INVTF01 412 FCSTF01 115"
9998 DEFFN'29"Q$=";HEX(22);"INVTMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)