Re: sendind email by rpgle/cl program
Post up your code blocks with the parms ...
Post up your code blocks with the parms ...
PGM PARM(&INV &INVDT &MAIL &MAIL1 )
DCL VAR(&INV) TYPE(*CHAR) LEN(10)
DCL VAR(&INVDT) TYPE(*CHAR) LEN(8)
DCL VAR(&MAIL) TYPE(*CHAR) LEN(50)
DCL VAR(&MAIL1) TYPE(*CHAR) LEN(50
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
DCL VAR(&NBR) TYPE(*CHAR) LEN(6)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
CALL PGM(NEWB) PARM(&INV &INVDT )
RTVJOBA JOB(&JOB) USER(&USER) NBR(&NBR)
ADDLIBLE LIB(CVTSPLV5R1)
MONMSG CPF0000
CVTSPLSTMF FROMFILE(Newo) TOSTMF(INVOICE.PDF) +
TODIR('QDLS/FLD1') +
JOB(&NBR/&USER/&JOB) SPLNBR(*LAST) +
TOFMT(*PDF) STMFOPT(*REPLACE)
RMVLIBLE LIB(CVTSPLV5R1)
MMAIL2008/EMLSTMF SUBJECT('INVOICE +
FOR CUSTOMER') FROMNAME(SIMRAN) +
FROMADDR('XYZ@YAHOOMAIL') TO(&MAIL/CUSTOMER/*TO +
&MAIL1/CUSTOMER1/*TO +
STMF('/QDLS/FLD1/INVOICE.PDF')
MONMSG(CPF0000)
ENDPGM
Comment