RE: Help with Klement's SMTP routines

By "universal methodology" I would suggest creating the PDF by using tools supplied by IBM.
There are these freebies:
Resource
ID Option Feature Description
5770TS1 *BASE 5050 IBM Transform Services for i
5770TS1 *BASE 2924 IBM Transform Services for i
5770TS1 1 5050 Transform Services - AFP to PDF Transform

I find it as simple as this example CL using a standard IBM supplied print file (for BRMS). I deleted several lines. Basically we use this logic to put our BRMS recovery reports on multiple geographically dispersed servers.

DCL &QP1ARCY *CHAR 25
RTVNETA SYSNAME(&SysName)
CHGVAR &QP1ARCY ('/tmp/' *tcat &SysName *tcat '_QP1ARCY.PDF')
RMVLNK OBJLNK(&QP1ARCY)
MONMSG CPFA0A9 EXEC(DO) /* Object does not exist */
/* Remove message from cluttering joblog */
RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
WAIT(0) RMV(*YES)
EndDo
OVRPRTF FILE(QP1ARCY) DEVTYPE(*AFPDS) TOSTMF(&QP1ARCY) WSCST(*PDF)
STRRCYBRM OPTION(*SYSTEM) ACTION(*REPORT)
DLTOVR FILE(QP1ARCY)
MD '/QNTC/GDFILES01'
MONMSG MSGID(CPFA0A0) EXEC(DO) /* Object already exists */
/* Remove message from cluttering joblog */
RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) WAIT(0) +
RMV(*YES)
ENDDO
CPY OBJ(&QP1ARCY) TODIR('/qntc/GDFILES01/BRMS/RecoveryReports') +
TOCCSID(1252) REPLACE(*YES)


Rob Berendt