home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
maildb2.zip
/
ML2SORT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
896b
|
38 lines
* ML2SORT.CMD
ERASE
?' INDEX PROGRAM'
?
?' 0 - EXIT TO MAIN MENU'
?' 1 - INDEX BY NAME (SORT FIELD)'
?' 2 - INDEX BY ZIP CODE'
?' 3 - INDEX BY TYPE'
?' 4 - INDEX BY EXPIRE'
?
?' Enter desired action'
WAIT TO ACTION
IF ACTION='0'
SET PRINT OFF
SET TALK ON
DO ML2
ENDIF
IF ACTION='1'
INDEX ON SORT TO ML2SSORT
USE &BASE INDEX ML2SSORT
ENDIF
IF ACTION='2'
INDEX ON ZIP TO ML2SZIP
USE &BASE INDEX ML2SZIP
ENDIF
IF ACTION='3'
INDEX ON TYPE TO ML2STYPE
USE &BASE INDEX ML2STYPE
ENDIF
IF ACTION='4'
INDEX ON EXPIRE TO ML2SEXP
USE &BASE INDEX ML2SEXP
ELSE DO ML2SORT
ENDIF
ENDDO
DO ML2
* END