RE: Reading files in CLP for email msg output

Looks like you're currently using ESEND to do this. This is one of our products of course.

One option might be to use RPG to simplify the message text creation before calling ESEND.

Another might be to consider a solution that uses something like our Automate software components.

It's pretty trivial (easy) to compose and send emails using Automate. Think of it as CL programming for Windows.

I'm happy to provide a technology demo if you determine to go down an alternate path or you can always download a trial of Automate from the web site.

Regards,
Richard Schoen
Director of Document Management
e. richard.schoen@xxxxxxxxxxxxxxx
p. 952.486.6802
w. helpsystems.com

----------------------------------------------------------------------

message: 1
date: Wed, 21 Feb 2018 12:25:25 -0600
from: MichaelLange@xxxxxxxxxx
subject: Reading files in CLP for email msg output



System 7.2


I need to create an email msg from 3 files to be distributed to various people.
Never done this sort of thing before.
The info from the 3 files need to be in the same msg body.
It seems that each read wipes out the previous info instead of adding to the MSG.
Also what is the significance of &P and &N, is this new paragraph and new line?

My current test code is...
DCLF FILE(SAB16AW) RCDFMT(*ALL) OPNID(A)
DCLF FILE(SAB16BW) RCDFMT(*ALL) OPNID(B)
DCLF FILE(SAB16CW) RCDFMT(*ALL) OPNID(C)
DCL VAR(&MSG) TYPE(*CHAR) LEN(2000)
DCL VAR(&DATE8C) TYPE(*CHAR) LEN(8)
CHGVAR VAR(&MSG) VALUE('Daily performance for ' *CAT
&DATE8C *CAT '&P ')
LOOP1: RCVF RCDFMT(SAB16SR) OPNID(A)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(LOOP2))
CHGVAR VAR(&MSG) VALUE('&N ' *CAT &A_SRCDE *CAT %CHAR(
&A_DLYRCV) *CAT +
%CHAR(&A_MTDRCV) *CAT %CHAR(&A_MTDSLT) *TCAT '%'
*CAT +
%CHAR(&A_MTHDIF) *CAT %CHAR(&A_YTDRCV) *CAT %CHAR
(&A_YTDSLT) *TCAT +
'%')
GOTO CMDLBL(LOOP1)
LOOP2: RCVF RCDFMT(SAB16DR) OPNID(B)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(LOOP3))
CHGVAR VAR(&MSG) VALUE(&MSG *CAT '&N ' *CAT &B_DIVN *CAT
%CHAR(&B_DIVD$) *CAT +
%CHAR(&B_DIVM$) *CAT %CHAR(&B_DMTDST) *TCAT '%'
*CAT %CHAR(&B_DMTHD) +
*CAT %CHAR(&B_DYTDRC) *CAT %CHAR(&B_DYTDST) *TCAT
'%')
GOTO CMDLBL(LOOP2)
LOOP3: RCVF RCDFMT(SAB16HR) OPNID(C)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EMAIL))
CHGVAR VAR(&MSG) VALUE(&MSG *CAT '&N ' *CAT &C_HSLDTO *CAT
&C_HSTNAM *CAT &C_HTAG +
*CAT %CHAR(&C_HNET$$) *CAT %CHAR(&C_HORDER#) *CAT
%CHAR(&C_HOENTD))
GOTO CMDLBL(LOOP3)
/**************************************/
/* Email */
/**************************************/
EMAIL:
ESEND/ESNDMAIL RECIPIENT(MICHAELLANGE@xxxxxxxxxx) SUBJECT(
'SAB16C: Daily VIS +
email') MSG(&MSG)





Regards
Michael Lange
Loewen WindowsThis e-mail message, including any attachments, is for the sole use of the person to whom it has been sent, and may contain information that is confidential or legally protected. If you are not the intended recipient or have received this message in error, you are not authorized to copy, distribute, or otherwise use this message or its attachments. Please notify the sender immediately by return e-mail and permanently delete this message and any attachments. Loewen makes no warranty that this e-mail is error or virus free.
Please think green before printing this email.