sendind email by rpgle/cl program

[gcraill]

Re: sendind email by rpgle/cl program

Post up your code blocks with the parms ...

[SIMRAN]

Re: sendind email by rpgle/cl program

oh I got it actually i have created another one cl for calling my pgm and now it work correctly...
thank you so much.

[GLS400]

Re: sendind email by rpgle/cl program

Hi SIMRAN:

See this post about CL paramaters being > 32 characters.

http://www.code400.com/forum/archive/index.php?t-8905.html&

Wrap your CL in a command and call the command instead of the cl.

Best of Luck
GLS

[SIMRAN]

Re: sendind email by rpgle/cl program

thank you so much GLS
my prog. is now correctly run

Regards,
simran

[jamief]

Re: sendind email by rpgle/cl program

Share some of the code with us....please

jamie

[SIMRAN]

Re: sendind email by rpgle/cl program

i am posted here prog for sending mail to cust by cl....

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 

regards,
simran

[tomholden]

Re: sendind email by rpgle/cl program

why bother using QDLS at all? with EMLSTMF the IFS is the better option.

[Fady]

Re: sendind email by rpgle/cl program

I'm using QDLS and the SNDDST command over EMLSTMF because it is easier to format the email message body in a batch job that way. You can format the long message parameter with specific detail of the report as it is being generated, whereas with EMSTMF this information would have to be present in a source file before the job is run.

[ARobb73]

Re: sendind email by rpgle/cl program

Wow... return of the Zombie thread. Grab the Axe!

Your far better off to shy away from QDLS because of the limited size of names (8.3...icky).
One of the best ways I've found to send emails from the AS400 is RPGMail. The Info/documentation/and goodies are all at:

http://www.mowyourlawn.com/RPGMail.html

I've been using that for years and it works like a charm. You can use text files stored on the fly to populate the message body or subject. You can even send attachments from the root directory and call it whatever you will without worry of the 8.3 restriction on the file name.
All that said, hope it helps.

[tomholden]

Re: sendind email by rpgle/cl program

I'm using QDLS and the SNDDST command over EMLSTMF because it is easier to format the email message body in a batch job that way. You can format the long message parameter with specific detail of the report as it is being generated, whereas with EMSTMF this information would have to be present in a source file before the job is run.

what exactly is so hard about writing the info to a source file in your program???