Listing of file='REORMENU' on disk='vmedia/701-2661A.wvd.zip'
# Sector 653, program filename = 'REORMENU'
0010 REM REORMENU, 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,W,W3
: COM Q$(2)80,Q6$80,Q7$80
: COM Q3,Q4,Q5,Q6,Q7,Q8,Q9
: COM M2$4,M3$1,M(17)
: GOTO 4000
4000 N=12
: I=40
: IF M$="SYS MENU"THEN M5$=" "
: Q0=VAL(Q0$(2))
: W=INT((248-5-Q0)/(14+Q0))
: W3=Q0+3
: M$="REORMENU"
: Q7$="GBS/MVP FILE REORGANIZATION MENU"
: STR(Q7$,47)="SYSTEM MENU"
4100 LOAD T"GBS MENU"10,4100
: 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
: STR(M$(),25)=N2$
: RETURN
7120 DEFFN'39
: RETURN
7280 DATA "INVC100A","REORGANIZE CUSTOMER MASTER FILE"," "
: DATA 0,"INVCF01 001 INVCK11 002 SORTWOR 003 INVCK11 004 PROGRAM 005"
: DATA "INVT100A","REORGANIZE INVENTORY MASTER FILE"," "
: DATA 0,"INVTF01 001 INVTK11 002 SORTWOR 003 INVTK11 004 PROGRAM 005"
7320 DATA "SALE100A","REORGANIZE SALESMAN MASTER FILE"," "
: DATA 0,"SALEF01 001 SALEK11 002 SORTWOR 003 SALEK11 004 PROGRAM 005"
: DATA "OREN100A","REORGANIZE OPEN ORDER FILE"," "
: DATA 0,"ORENF01 001 ORENK11 002 SORTWOR 003 ORENK11 004 PROGRAM 005"
7360 DATA "INVT090B","REORGANIZE P.O. ACTIVITY FILE","KFAMCODE"
: DATA 0,"INVTF02 001 INVTK12 002 SORTWOR 003 INVTK12 004 PROGRAM 005"
: DATA "BOMS100A","REORGANIZE BILL OF MATERIALS FILES","BOMFILE KFAMCODEINV
FILE"
7390 DATA 0,"INVTK11 001 INVTF01 002 SORTWOR 003 BOMSK11 004 BOMSF01 005 BOMSK
12 006 BOMSF02 007"
: DATA "ACPA100A","REORGANIZE A/P OPEN ITEM FILE"," "
: DATA 0,"ACPAF02 001 ACPAK12 002 SORTWOR 003 ACPAK12 004 PROGRAM 005"
7420 DATA "GENL105A","REORGANIZE CHART OF ACCOUNTS FILE"," "
: DATA 0,"GENLF01 001 GENLK11 002 SORTWOR 003 GENLK11 004 PROGRAM 005"
: DATA "ACPA105A","REORGANIZE VENDOR MASTER FILE"," "
: DATA 0,"ACPAF01 001 ACPAK11 002 SORTWOR 003 ACPAK11 004 PROGRAM 005"
7460 DATA "PYRL130A","REORGANIZE EMPLOYEE MASTER FILE"," "
: DATA 0,"PYRLF01 001 PYRLK11 002 SORTWOR 003 PYRLK11 004 PROGRAM 005"
: DATA "PYRL140A","REORGANIZE BANK ADDRESS FILE"," "
: DATA 0,"PYRLF02 001 PYRLK12 002 SORTWOR 003 PYRLK12 004 PROGRAM 005"
7500 DATA "FCST140A","REORGANIZE PROFILE FILE"," "
: DATA 0,"FCSTF01 001 FCSTK11 002 SORTWOR 003 FCSTK11 004 PROGRAM 005"
9998 DEFFN'29"Q$=";HEX(22);"REORMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)