Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
SAR to Email

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
kashi1234

New User


Joined: 11 Mar 2010
Posts: 16
Location: Chennai

PostPosted: Tue Mar 30, 2010 2:54 am    Post subject: SAR to Email
Reply with quote

Hi Please Help me in making changes to Include Multiple 'TO' Email ids in the job. My Job looks like below.
I belive that I need to make changes here not in JCL where I submit the job. Any help would be great.

Code:
    OPTION NOSEQ                                                               
                                                                               
    EQU WST-SAR              WST1-4         SPACES                             
    EQU WST-ID               WST5-12        SPACES                             
    EQU WST-PAGE             WST13-92       SPACES                             
    EQU WST-GEN              WST93-101      SPACES                             
    EQU WST-SEQ              WST102-110     SPACES                             
    EQU WST-FROM             WST111-162                                         
    EQU WST-FROM-STRT        WST111         C'<'                               
    EQU WST-FROM-EMAIL       WST112-162     SPACES                             
    EQU WST-TO               WST163-214                                         
    EQU WST-TO-STRT          WST163         C'<'                               
    EQU WST-TO-EMAIL         WST164-214     SPACES                             
    EQU WST-ERROR            WST215         SPACES                             
    EQU WST-SAR-NM           WST216-223     SPACES                             
    EQU WST-SUBJECT          WST224-248     SPACES                             
    EQU WST-ATTACH           WST249-261     SPACES                             
                                                                               
100 GET INF ATEND 200                                                           
                                                                               
    IF INF1-3 EQ C'ID='                                                         
      MOVE INF4-11           TO WST-ID                                         
      GOTO 100                                                                 
    ENDIF                                                                       
                                                                               
    IF INF1-5 EQ C'PAGE='                                                       
      MOVE INF1-80           TO WST-PAGE                                       
      GOTO 100                                                                 
    ENDIF                                                                       
                                                                               
    IF INF1-4 EQ C'GEN='                                                       
      MOVE INF1-9            TO WST-GEN                                         
      GOTO 100                                                                 
    ENDIF                                                                       
                                                                               
    IF INF1-4 EQ C'SEQ='                                                       
      MOVE INF1-9            TO WST-SEQ                                         
      GOTO 100                                                                 
    ENDIF                                                                       
                                                                               
    IF INF1-11 EQ C'FROM EMAIL='                                               
      MOVE INF12-61          TO WST-FROM-EMAIL                                 
      IF WST-FROM-EMAIL INCLUDES C' '                                           
        MOVE C'@searshc.com>' TO PTR1                                           
      ENDIF                                                                     
      GOTO 100                                                                 
    ENDIF                                                                       
                                                                               
    IF INF1-9 EQ C'TO EMAIL='                                                   
      MOVE INF10-59          TO WST-TO-EMAIL                                   
      IF WST-TO-EMAIL INCLUDES C' '                                             
        MOVE C'@searshc.com>' TO PTR1                                           
      ENDIF                                                                     
      GOTO 100                                                                 
    ENDIF                                                                       
                                                                               
    MOVE C'==> INVALID PARAMETER' TO PRT1                                       
    PRINT                                                                       
    MOVE INF1-80             TO PRT5                                           
    PRINT                                                                       
    MOVE SPACES              TO PRT1-84                                         
    MOVE C'Y'                TO WST-ERROR                                       
                                                                               
    GOTO 100                                                                   
                                                                               
200 IF ( WST-ID    EQ SPACES                                                   
      OR WST-FROM  EQ SPACES                                                   
      OR WST-TO    EQ SPACES )                                                 
      MOVE C'==> REQUIRED PARAMETER MISSING' TO PRT1                           
      PRINT                                                                     
      MOVE C'Y'              TO WST-ERROR                                       
    ENDIF                                                                       
                                                                               
    IF WST-ERROR EQ C'Y'                                                       
      ABEND 0255                                                               
    ENDIF                                                                       
                                                                               
    MOVE SPACES              TO OFA1-80                                         
    MOVE C'/PRINT ID='       TO OFA1                                           
    MOVE WST-ID              TO OFA11                                           
    WRITE OFA                                                                   
                                                                               
    MOVE C'DDNAME=REPORT     ' TO OFA1                                         
    WRITE OFA                                                                   
                                                                               
    IF WST-GEN NE SPACES                                                       
      MOVE WST-GEN           TO OFA1                                           
      MOVE SPACES            TO OFA10-13                                       
      WRITE OFA                                                                 
    ENDIF                                                                       
                                                                               
    IF WST-SEQ NE SPACES                                                       
      MOVE WST-SEQ           TO OFA1                                           
      WRITE OFA                                                                 
    ENDIF                                                                       
                                                                               
    IF WST-PAGE NE SPACES                                                       
      MOVE WST-PAGE          TO OFA1                                           
      WRITE OFA                                                                 
    ENDIF                                                                       
                                                                               
    MOVE C'SAR'           TO WST-SUBJECT                                       
    IF WST-SUBJECT INCLUDES C' '                                               
      MOVE C' report '       TO PTR1                                           
    ENDIF                                                                       
    IF WST-SUBJECT INCLUDES C'report'                                           
      MOVE WST-ID            TO PTR8                                           
    ENDIF                                                                       
    MOVE WST-ID              TO WST-ATTACH                                     
    IF WST-ATTACH INCLUDES C' '                                                 
      MOVE C'.txt"'          TO PTR1                                           
    ENDIF                                                                       
                                                                               
    MOVE C'helo searshc.com' TO OFB1                                           
    WRITE OFB                                                                   
                                                                               
    MOVE C'MAIL FROM: '      TO OFB1                                           
    MOVE WST-FROM            TO OFB12                                           
    WRITE OFB                                                                   
                                                                               
    MOVE C'RCPT TO: '        TO OFB1                                           
    MOVE WST-TO              TO OFB10                                           
    MOVE SPACES              TO OFB62-64                                       
    WRITE OFB                                                                   
                                                                               
    MOVE C'DATA'             TO OFB1                                           
    MOVE SPACES              TO OFB5-61                                         
    WRITE OFB                                                                   
                                                                               
    MOVE C'FROM: '           TO OFB1                                           
    MOVE WST-FROM            TO OFB7                                           
    WRITE OFB                                                                   
                                                                               
    MOVE C'TO: '             TO OFB1                                           
    MOVE WST-TO              TO OFB5                                           
    MOVE SPACES              TO OFB59-60                                       
    WRITE OFB                                                                   
                                                                               
    MOVE C'SUBJECT: '        TO OFB1                                           
    MOVE WST-SUBJECT         TO OFB10                                           
    MOVE SPACES              TO OFB35-58                                       
    WRITE OFB                                                                   
                                                                               
    MOVE C'MIME-Version: 1.0' TO OFB1                                           
    MOVE SPACES              TO OFB18-34                                       
    WRITE OFB                                                                   
                                                                               
    MOVE C'Content-Type: multipart/mixed; boun' TO OFB1                         
    MOVE C'dary="simpleboundary"              ' TO OFB36                       
    WRITE OFB                                                                   
                                                                               
    MOVE SPACES              TO OFB1-56                                         
    WRITE OFB                                                                   
                                                                               
    MOVE C'--simpleboundary' TO OFB1                                           
    WRITE OFB                                                                   
                                                                               
    MOVE C'Content-Type: text/plain; charset="' TO OFB1                         
    MOVE C'us-ascii"'        TO OFB36                                           
    WRITE OFB                                                                   
                                                                               
    MOVE C'Content-Transfer-Encoding: 7bit' TO OFB1                             
    MOVE SPACES              TO OFB32-44                                       
    WRITE OFB                                                                   
                                                                               
    MOVE SPACES              TO OFB1-31                                         
    WRITE OFB                                                                   
                                                                               
    MOVE C'Attached is '     TO OFB1                                           
    IF WST-SUBJECT INCLUDES NONSPACE REVERSE                                   
      MOVE C'.'              TO PTR2                                           
    ENDIF                                                                       
    MOVE WST-SUBJECT         TO OFB13                                           
    WRITE OFB                                                                   
                                                                               
    MOVE SPACES              TO OFB1-37                                         
    WRITE OFB                                                                   
                                                                               
    MOVE C'--simpleboundary' TO OFB1                                           
    WRITE OFB                                                                   
                                                                               
    MOVE C'Content-Type: text/plain; charset="' TO OFB1                         
    MOVE C'us-ascii"; name="' TO OFB36                                         
    MOVE WST-ATTACH          TO OFB53                                           
    WRITE OFB                                                                   
                                                                               
900 GOTO EOJ                                                                   
    END
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Tue Mar 30, 2010 3:06 am    Post subject:
Reply with quote

Code:
    MOVE C'RCPT TO: '        TO OFB1                                           
    MOVE WST-TO              TO OFB10                                           
    MOVE SPACES              TO OFB62-64                                       
    WRITE OFB                                                                   
You need one RCPT TO: for each email address you want the email sent to. Google RFC2821 and RFC2822 for details.
Back to top
View user's profile Send private message
kashi1234

New User


Joined: 11 Mar 2010
Posts: 16
Location: Chennai

PostPosted: Tue Mar 30, 2010 3:31 am    Post subject:
Reply with quote

Hi Thanks for your quick response.
I am not a developer to understand what actually happening. I saw this warning message at the end of the output report and mail did not reach any of the receipents.

IEB352I WARNING: ONE OR MORE OF THE OUTPUT DCB PARMS COPIED FROM INPUT
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Tue Mar 30, 2010 4:31 am    Post subject:
Reply with quote

This is a warning, not an error, and would not keep the job from running nor the email from being sent. I would expect there to be other messages to indicate why the email didn't go. If there are none, you'll need to work with your site support group to track what happens when your email goes to the SMTP address space. Depending upon the site setup, they may have to involve your network group as well.
Back to top
View user's profile Send private message
kashi1234

New User


Joined: 11 Mar 2010
Posts: 16
Location: Chennai

PostPosted: Tue Mar 30, 2010 4:57 pm    Post subject:
Reply with quote

Thanks for your time in looking at my issue. I dont see any of the other messages that caused failure. As per your advice i will get in touch with the site support team to get the issue fixed.

Thanks,
Kashinath.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts sending email from jcl using the mail... niloyarp JCL & VSAM 5 Tue Oct 10, 2017 12:32 pm
No new posts EMAIL using IEBGENER - SMTP parasmalik20 JCL & VSAM 4 Tue May 23, 2017 12:19 am
No new posts Reading data from PS file and send it... rajatbagga All Other Mainframe Topics 18 Fri Sep 23, 2016 12:51 pm
No new posts How to send email with Rich Text usin... santhosh5983 JCL & VSAM 4 Fri Apr 08, 2016 2:30 am
No new posts Email trigger through JCL Madhusudhan Prahlad JCL & VSAM 10 Mon Aug 31, 2015 3:43 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us