home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
maildb2.zip
/
ML2LIST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
2KB
|
94 lines
* ML2LIST.CMD
* TO LIST ML2.DBF FILE SEVERAL WAYS
ERASE
SET TALK OFF
DO WHILE T
ERASE
?
?
?' GENERATE LISTS FROM MAILING LIST'
?
?' 0 - EXIT TO MAIN MENU'
?' 1 - ENTIRE RECORD'
?' 2 - NAME, HOME PHONE AND WORK PHONE'
?' 3 - RECORD NUMBER AND NAME'
?' 4 - RECORD NUMBER, EXPIRE DATE AND NAME'
?' 5 - NAME, ADDRESS ON ONE LINE'
?
?'Enter desired action:'
WAIT TO ACTION
IF ACTION='0'
DO ML2
ENDIF
IF ACTION='1'
STORE 'DO ML2REC' TO COMMAND
ENDIF
IF ACTION='2'
STORE '? NAME + HPHONE + WPHONE'TO COMMAND
ENDIF
IF ACTION='3'
STORE 'DISPLAY SORT NAME' TO COMMAND
ENDIF
IF ACTION='4'
STORE 'DISP NAME EXPIRE' TO COMMAND
ENDIF
IF ACTION='5'
STORE 'DO ML2LST1' TO COMMAND
ENDIF
* DETERMINE MODE
ERASE
?
?
?
?' RECORD SELECTION'
?
?
?' 1 - GET RECORD NUMBER FROM KEYBOARD'
?
?' 2 - USE SPECIFIED INDEX FILE'
?
?' 3 - PRINT ENTIRE DATA FILE'
?
?
?' ENTER SELECTION'
WAIT TO MODE
ERASE
?
?
ACCEPT 'USE PRINTER? (Y/N)' TO PTR
IF !(PTR) = 'Y'
SET TALK OFF
SET PRINT ON
ENDIF
IF MODE='1'
ERASE
DO WHILE T
ACCEPT "RECORD NUMBER" TO RECNO
GOTO RECORD &RECNO
&COMMAND
ENDDO
ENDIF
IF MODE='2'
ERASE
ACCEPT "INDEX FILE NAME" TO FILNAME
USE &BASE INDEX &FILNAME
DO WHILE .NOT. EOF
&COMMAND
SKIP
ENDDO
ENDIF
IF MODE='3'
ERASE
USE &BASE
GO TOP
DO WHILE .NOT. EOF
&COMMAND
SKIP
ENDDO
ENDIF
SET PRINT OFF
SET CONSOLE ON
SET TALK ON
ENDDO
RETURN