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)