home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
maildb2.zip
/
ML2ENTR.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
768b
|
25 lines
* ML2ENTR.CMD
NOTE - MAIL SYSTEM NAME AND ADDRESS ENTRY PROGRAM
ERASE
GO BOTTOM
SET FORMAT TO ML2FMT.FMT
DO WHILE T
STORE ' ' TO MTYPE
STORE ' ' TO MSORT,MEXPIRE
STORE ' ' TO MZIP
STORE ' ' TO MHPHONE,MWPHONE
STORE ' ' TO MCITY:ST
STORE ' ' TO MNAME,MORG,MSTREET
READ
IF MSORT = ' '
RETURN
ENDIF
APPEND BLANK
REPLACE SORT WITH MSORT
REPLACE NAME WITH MNAME,ORG WITH MORG
REPLACE STREET WITH MSTREET
REPLACE CITY:ST WITH MCITY:ST,ZIP WITH MZIP
REPLACE HPHONE WITH MHPHONE,WPHONE WITH MWPHONE
REPLACE EXPIRE WITH MEXPIRE, TYPE WITH MTYPE
ENDDO
DO ML2