If you have any questions about the content of this page, please contact CICS Requests for clarification

This program is a COMMAREA-driven general-purpose lightweight email producer. It takes the information in the COMMAREA and produces a batch job that invokes SMTP to process the email.

Limitations
Please remember what the “S” in SMTP stands for: Simple. This facility is not an industrial strength mail system. SMTP mail on OS/390 can easily be overwhelmed. If you have the need to send thousands of mail messages, please contact NWRDC early in the design stages so we can pursue the acquisition of a facility adequate to your needs.

This process results in a batch job being submitted. That job will either run under the logon-id contained in NWTOSMTP-UID or allowed to default to the logon-id associated with the CICS task. In either case, the logon-id used must be specifically registered with SMTP. Contact NWRDC customer support for help in this matter.

Add the COPY NWSMTPCA statement (note that it contains a “01” level structure) to your CICS program to retrieve the following:

77  NWTOSMTP-ARRAY-MAX      PIC S9(9) COMP
                            VALUE 200.
01  NWTOSMTP-COMMAREA.
    05  NWTOSMTP-TAG        PIC X(24)
        VALUE 'NWTOSMTP V001 COMMAREA'.
    05  NWTOSMTP-TO-ADDRESS PIC X(76).
    05  NWTOSMTP-SUBJECT    PIC X(60).
    05  NWTOSMTP-UID        PIC X(08).
    05  NWTOSMTP-PWD        PIC X(08).
    05  NWTOSMTP-LINES      PIC S9(9) COMP.
    05  NWTOSMTP-ARRAY      PIC X(80)
                               OCCURS 200.
    05  NWTOSMTP-ETAG       PIC X(24)
        VALUE 'NWTOSMTP COMMAREA END'.

All items except NWTOSMTP-UID AND NWTOSMTP-PWD are required. If these two fields are omitted, the subsequent job will run under the logon-ID of the terminal operator. If they are filled out (both must be, if either one is specified) they will used to construct the batch job.

You move the mail text to NWTOSMTP-ARRAY and set the number of lines in NWTOSMTP-LINES. Note: Maximum lines is 200.

Example

MOVE ‘STEVE_MENARD@nwrdc.fsu.edu’ 
    TO  NWTOSMTP-TO-ADDRESS.
MOVE ‘YOU HAVE MAIL’ TO  NWTOSMTP-SUBJECT.
MOVE +3              TO  NWTOSMTP-LINES.
MOVE ‘Bong’          TO  NWTOSMTP-ARRAY(1).
MOVE ‘Bong’          TO  NWTOSMTP-ARRAY(2).
MOVE ‘Bong’          TO  NWTOSMTP-ARRAY(3).
 
EXEC CICS LINK  
            PROGRAM(‘NWTOSMTP’)
            COMMAREA(NWTOSMTP-COMMAREA)
            RESP(RESP)
END-EXEC.