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)