image of READY prompt

Wang2200.org

Listing of file='INVTMENU' on disk='vmedia/701-2616C.wvd.zip'

# Sector 497, program filename = 'INVTMENU'
0010 REM INVTMENU, RELEASE 2.3, (12/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0020 REM ------------------------------------------------------------------
0030 REM SYSTEM & MODULE   =  GBS/MVP INVENTORY SYSTEM MENU
0040 REM PROGRAM FUNCTION  =  ASSEMBLE PROGRAM MODULES FOR INVENTORY
0050 REM DATE WRITTEN      =  05/26/79 MK
0060 REM LAST REVISION     =  11/21/80 MAF
0065 REM THIS PROGRAM WAS UPGRADED TO 2.2 BY ERRATA 1140
0067 REM THIS PROGRAM WAS UPGRADED TO 2.3 BY ERRATA 1181
0070 REM ------------------------------------------------------------------
0170     COM I,Q,M5$,M$8
   : REM MENU VARIABLES
0172     COM Q$(2)80,Q6$80,Q7$80
   : REM DATA ENTRY VARIABLES USED BY MENU
0174     COM Q3,Q4,Q5,Q6,Q7,Q8,Q9
   : REM DATA ENTRY VARIABLES USED BY MENU
0176     COM M2$4,M3$1,M(17)
   : REM CONTROL FILE VARIABLES
3996 REM ******************
3997 REM ! INVENTORY MENU !
3998 REM ******************
3999 REM
4000     N=9
   : REM NUMBER OF PROGRAMS ON MENU
4010     I=38
   : REM STARTING COLUMN - RIGHT SIDE OF MENU
4020     Q0=VAL(Q0$(2))
   : REM LENGTH OF PRODUCT ID
4030     IF M$="SYS MENU" THEN M5$=" "
4040     M$="INVTMENU"
   : REM NAME OF MENU PROGRAM
4050 REM TITLE FOR MENU, LABEL FOR FUNCTION KEY '31
4060     Q7$="GBS/MVP INVENTORY SYSTEM"
4070     STR(Q7$,47)="SYSTEM MENU"
4080     LOAD T"GBS MENU"10,4080
   : ERRORPRINT HEX(03);"GBS Menu is not available."
   : END
7000 REM %RESPONSE TO FUNCTION KEY '31
7010     DEFFN'32
7020     Q6$="SYS MENU"
7030     COM CLEAR I
7040     LOAD TQ6$
   : ERRORPRINT HEX(03);"System menu is not available."
   : END
7050 REM %SET-UP UNIQUE COMPANY PROGRAM CODE
7060     DEFFN'38
7070     Q6$=ALL("0")
7080     STR(M5$,7,1)=STR(Q6$,S+1,1)
7090     RETURN
7100 REM %CHECK FLAGS IN CONTROL FILE, DO ANYTHING THAT IS PROGRAM-SPECIFIC
7110     DEFFN'39
7120     IF M5$="INVT090A" THEN Q0=VAL(Q0$(4))
7130     RETURN
7140 REM THERE ARE TWO DATA STATEMENTS FOR EACH PROGRAM, WITH 5 DATA ELEMENTS
7150 REM THE FIRST ELEMENT IS THE PROGRAM NAME
7160 REM THE SECOND ELEMENT IS THE PROGRAM DESCRIPTION DISPLAYED BY THE MENU
7170 REM THE THIRD ELEMENT IS A LIST OF SUBROUTINES USED BY THE PROGRAM
7180 REM THE FOURTH ELEMENT INDICATES THE NUMBER OF KFAM FILES TO BE OPENED
7190 REM <IF ONLY SEQUENTIAL FILES ARE OPENED, THIS ELEMENT MUST BE '1'>
7200 REM <FOR SORT SET-UPS, IF NO FILES ARE OPENED, THIS ELEMENT IS '0'>
7210 REM THE FIFTH ELEMENT INDICATES WHICH FILES ARE TO BE OPENED
7220 REM <BYTES 1-8 = GBS FILE NAME, BYTE 9 = ACCESS MODE>
7230 REM <<FOR SORTS, THE ACCESS MODE IS SET TO '0'>>
7240 REM <BYTE 10 = KEY FILE NO.>
7250 REM <<FOR SEQUENTIAL FILES, THE KEY FILE NO. IS SET TO '0'>>
7260 REM <BYTE 11 = USER FILE DEVICE NO.>
7270 REM <<IF THE DEVICE NO. IS GREATER THAN 9, 'A' = 10, ...., 'E' = 15>>
7280     DATA "INVT020A","MAINTAIN INVENTORY FILE","KFAMCODESUBUTIL SUBDATE DE
     NTRY  INVFILE AUDIFILE"
7290     DATA 1,"INVTF01 312 AUDIF01 303"
7300     DATA "INVT030A","ENTER INVENTORY TRANSACTIONS","KFAMCODESUBUTIL DENTR
     Y  INVFILE TRAUFILE"
7310     DATA 1,"INVTF01 312 AUDIF02 303"
7320     DATA "INVT040A","PRINT STOCK STATUS REPORT","KFAMCODESUBUTIL SUBDATE
     DENTRY  INVFILE PRNTAVAL"
7330     DATA 1,"INVTF01 212"
7340     DATA "INVT050A","PRINT INACTIVE/LOW STOCK REPORT","KFAMCODESUBUTIL SU
     BDATE DENTRY  INVFILE PRNTAVAL"
7350     DATA 1,"INVTF01 212"
7360     DATA "INVT010A","DISPLAY/PRINT INVENTORY","KFAMCODESUBUTIL SUBDATE DE
     NTRY  INVFILE PRNTAVAL"
7370     DATA 1,"INVTF01 112"
7380     DATA "INVT060A","PRINT PHYSICAL INVENTORY SHEETS","DENTRY PRNTAVALSUB
     UTIL"
7390     DATA 0,"INVTF01 001 INVTK11 002 SORTWOR 003 INVTF02 004 PROGRAM 005 P
     ROGRAM 006"
7400     DATA "INVT070A","ENTER PHYSICAL COUNT","KFAMCODESUBUTIL DENTRY  INVFI
     LE TRAUFILE"
7410     DATA 1,"INVTF01 312 AUDIF02 303 INVTF02 404"
7420     DATA "INVT080A","PRINT PHYSICAL INVENTORY REPORT","KFAMCODESUBUTIL DE
     NTRY  INVFILE PRNTAVAL"
7430     DATA 1,"INVTF01 212 INVTF02 403"
7440     DATA "INVT090A","RECOMMEND PURCHASE ORDERS","KFAMCODESUBUTIL SUBDATE
     DENTRY  INVFILE PRNTAVAL"
7450     DATA 2,"INVTF01 312 INVTF03 314"
9998 DEFFN'29"Q$=";HEX(22);"INVTMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)