image of READY prompt

Wang2200.org

Listing of file='REORMENU' on disk='vmedia/701-2654C.wvd.zip'

# Sector 678, program filename = 'REORMENU'
0010 REM REORMENU, 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 FILE REORGANIZATION MENU
0040 REM PROGRAM FUNCTION  =  ASSEMBLE MODULES FOR REORGANIZATION PROGRAMS
0050 REM DATE WRITTEN      =  08/05/78 MK
0060 REM LAST REVISION     =  11/21/80 MAF
0065 REM THIS PROGRAM WAS UPGRADED TO 2.2 BY ERRATA 1165
0067 REM THIS PROGRAM WAS UPGRADED TO 2.3 BY ERRATAS 1178 & 1179 & 1191
0070 REM -------------------------------------------------------------
0170     COM I,Q,M5$,O0,M$8,W,W1,W2,W3
   : 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
0198     GOTO 4000
3996 REM *******************************
3997 REM ! GBS/MVP REORGANIZATION MENU !
3998 REM *******************************
3999 REM
4000     N=09
   : REM NUMBER OF PROGRAMS ON MENU
4010     I=40
   : REM STARTING COLUMN - RIGHT SIDE OF MENU
4020     IF M$="SYS MENU" THEN M5$=" "
4025     Q0=VAL(Q0$(2))
4030     W=INT((210-5-Q0)/(12+Q0))
   : REM BLOCKING FACTOR - PRODUCT STRUCTURE
4035     W3=Q0+3
4040     W1=6
   : REM NO. OF RECORDS/BLOCK TO FILL ON 'ADD'
4050     W2=W+1
   : REM SCREEN BUFFER DIMENSIONS - BOM MAINT.
4060     M$="REORMENU"
   : REM NAME OF MENU PROGRAM
4070 REM TITLE FOR MENU, LABEL FOR FUNCTION KEY '31
4080     Q7$="GBS/MVP FILE REORGANIZATION MENU"
4090     STR(Q7$,47)="SYSTEM MENU"
4100     LOAD T"GBS MENU"10,4100
   : 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
7090     STR(M$(),25)=N2$
   : REM SAVE COMPANY NAME
7100     RETURN
7110 REM %CHECK FLAGS IN CONTROL FILE, DO ANYTHING THAT IS PROGRAM-SPECIFIC
7120     DEFFN'39
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 "INVC100A","REORGANIZE CUSTOMER MASTER FILE"," "
7290     DATA 0,"INVCF01 001 INVCK11 002 SORTWOR 003 INVCK11 004 PROGRAM 005"
7300     DATA "INVT100A","REORGANIZE INVENTORY MASTER FILE"," "
7310     DATA 0,"INVTF01 001 INVTK11 002 SORTWOR 003 INVTK11 004 PROGRAM 005"
7320     DATA "SALE100A","REORGANIZE SALESMAN MASTER FILE"," "
7330     DATA 0,"SALEF01 001 SALEK11 002 SORTWOR 003 SALEK11 004 PROGRAM 005"
7340     DATA "OREN100A","REORGANIZE OPEN ORDER FILE"," "
7350     DATA 0,"ORENF01 001 ORENK11 002 SORTWOR 003 ORENK11 004 PROGRAM 005"
7360     DATA "INVT090B","REORGANIZE P.O. ACTIVITY FILE","KFAMCODEKFAMOPENSUBU
     TIL DENTRY"
7370     DATA 6,"INVTF03 001 INVTK13 002 SORTWOR 003 INVTK13 004 PROGRAM 005"
7380     DATA "BOMS100A","REORGANIZE BILL OF MATERIALS FILES","BOMFILE KFAMCOD
     EINVFILE"
7390     DATA 0,"INVTK11 001 INVTF01 002 SORTWOR 003 BOMSK11 004 BOMSF01 005 B
     OMSK12 006 BOMSF02 007"
7400     DATA "ACPA100A","REORGANIZE A/P OPEN ITEM FILE"," "
7410     DATA 0,"ACPAF02 001 ACPAK12 002 SORTWOR 003 ACPAK12 004 PROGRAM 005"
7420     DATA "GENL105A","REORGANIZE CHART OF ACCOUNTS FILE"," "
7430     DATA 0,"GENLF01 001 GENLK11 002 SORTWOR 003 GENLK11 004 PROGRAM 005"
7440     DATA "ACPA105A","REORGANIZE VENDOR MASTER FILE"," "
7450     DATA 0,"ACPAF01 001 ACPAK11 002 SORTWOR 003 ACPAK11 004 PROGRAM 005"
9998 DEFFN'29"Q$=";HEX(22);"REORMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)