home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
formdb2.zip
/
MAILLAB.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
896b
|
35 lines
NOTE - THIS COMMAD FILE PRINTS MAILING LABELS ON THE PRINTER
*
REMARK WHEN LABELS ARE IN PLACE, HIT CARRIAGE RETURN
WAIT
* - echo printed information to screen
SET PRINT ON
* - position to top of MAIL.DBF
GO TOP
* - print labels
DO WHILE .NOT.EOF
* - print name
DISP OFF $(NAME,13,17)-(' '+$(NAME,1,12))
* - checking to see if office address
IF OF#' '
* - print office name
DISP OFF OF
* - print address
DISP OFF ADDR
* - print city, state, zip
DISP OFF $(CITY,1,20)-(', '+$(STATE,1,2))-(' '+$(ZIP,1,5))
ELSE
* - print home address
DISP OFF ADDR
* - print city, state, zip
DISP OFF $(CITY,1,20)-(', '+$(STATE,1,2))-(' '+$(ZIP,1,5))
?
ENDIF
?
SKIP
ENDDO
* - turn off echo of labels
SET PRINT OFF
REMARK ALL DONE
RETURN