For BLAT users...
Ricky
002 * PROGRAM TO CONTROL PRINT JOB CAPTURE IN ACCUTERM
003 * COPYRIGHT 1985/2004 - RICHARD GINSBURG
004 * ALL RIGHTS RESERVED
005 * COMPASS - RELEASE 9.9
006 * This Program embodies confidential information proprietary to
007 * Richard Ginsburg and shall not be reproduced, copied, disclosed, or
008 * transferred in any manner except under written agreement executed by
009 * Richard Ginsburg. This program is an unpublished work fully
010 * protected by the United States copyright laws and is considered a
trade
011 * secret of Richard Ginsburg.
012 OPEN 'MD' TO F.MD ELSE PRINT "CANNOT OPEN 'MD' - HIT <ENTER>
!";INPUT A;STOP
013 IF JOB THEN
014 PRINT CHAR(27):CHAR(2):"CX"
015 RETURN
016 END
017 DRIVE='C'
018 READV FOLDER FROM F.MD,'DEFAULT.FOLDER',1 ELSE FOLDER=''
019 FILENAME=FNAME:'.TXT'
020 IF FOLDER='' THEN
021 FNAME=DRIVE:":\":FILENAME
022 END ELSE
023 FNAME=DRIVE:":\":FOLDER:"\":FILENAME
.024 END
025 PRINT CHAR(27):CHAR(2):'>DEL ':FNAME
026 PRINT CHAR(27):CHAR(2):"CO;":FNAME:CHAR(13):
027 RETURN
028 END
eoi 028
Notes: JOB is null for the first pass to start the capture using Accuterm.
JOB is 1 for the second pass to finish the capture. FNAME is what ever you
want to call the file name. COMPASS uses a DEFAULT.FOLDER = TEMP (C:\TEMP).
001 SUBROUTINE EMAIL.FILE(SENDTO,SUBJECT,FILENAME)
002 * COPYRIGHT 1985/2004 - RICHARD GINSBURG
003 * ALL RIGHTS RESERVED
004 * COMPASS - RELEASE 9.9
005 * This Program embodies confidential information proprietary to
006 * Richard Ginsburg and shall not be reproduced, copied, disclosed, or
007 * transferred in any manner except under written agreement executed by
008 * Richard Ginsburg. This program is an unpublished work fully
009 * protected by the United States copyright laws and is considered a
trade
010 * secret of Richard Ginsburg.
011 OPEN 'TABLES' TO F.TABLES ELSE RETURN
012 PROMPT'';EOL=@(-4);BELL=CHAR(7)
013 IF SUBJECT[1,1]='M' THEN GO 2
014 CALL SYS.SET.DISPLAY(REV,NORM)
015 PRINT @(0,21):EOL
016 1 PRINT @(0,22):EOL:@(1,22):REV:"Enter E-Mail or <ENTER>:
":NORM:SENDTO:@(26,22):;INPUT C,52
017 IF C='' THEN C=SENDTO
018 IF NOT(INDEX(C,'@',1)) THEN GO 1
019 C=ICONV(C,'MCL')
020 SENDTO=C
021 2 MAIL=FILENAME:' -subject ':SUBJECT
022 IF INDEX(SENDTO,',',1) THEN
023 CCTO=FIELD(SENDTO,',',2)
024 SENDTO=FIELD(SENDTO,',',1)
025 MAIL=MAIL:' -to ':SENDTO:' -cc ':CCTO
026 END ELSE
027 MAIL=MAIL:' -to ':SENDTO
028 END
029 READV HTML FROM F.TABLES,'HTML',1 ELSE HTML=''
030 IF HTML='Y' THEN MAIL=MAIL:' -html'
031 UREC='';READ UREC FROM F.TABLES,'USERS' THEN
032 USER=FIELD(OCONV('0','U50BB'),' ',3)
033 LOCATE(USER,UREC<1>,1;FIND) THEN
034 IF UREC<4,FIND>#'' THEN
035 MAIL=MAIL:' -f ':UREC<4,FIND>
036 END
037 END
038 END
039 CMD=CHAR(27):CHAR(2):">C:\BLAT.EXE ":MAIL
040 PRINT CMD:CHAR(13)
041 ECHO OFF
042 PRINT CHAR(27):CHAR(2):"I":
043 INPUT A
044 PRINT CHAR(27):CHAR(2):'>DEL ':FILENAME
045 ECHO ON
046 RETURN
047 END
eoi 047
Notes: SENDTO is an e-mail address either accepted with <enter> on line 16
or overwritten by keyboard or cut and paste.
Subject is a single word. In the case of a batch job like monthly statements
the subject is MonthlyStatement. Reading the "M" as the first character
bypasses line 16 and uses the available email address. If the customer
doesn't have one, by the way, we never get this far, we just print a
statement the old fashioned way.
REV and NORM are reverse and normal video dependent on terminal type. If
anyone needs this send me an email.
Lines 31-38 allow for a substitute sender.
I have sample HTML jobs for Invoices, Statements, Proposals and Purchase
Orders if anyone needs them.
Thanks to everyone who told me about BLAT. My customers are certainly glad
that I'm finally moving into the 21st century.
Tronic5571
"Now see here, Tom," said Daisy, turning around from the mirror,
"if you're going to make personal remarks I won't stay here a minute."
"Call up and order some ice for the mint julep."
F.Scott Fitzgerald "The great Gatsby" (2nd reference)
BobJ
"Tronic5571" <troni...@aol.com> wrote in message
news:20040703140801...@mb-m12.aol.com...