Focal Point
How to send email via SMPT from a CLIST invoked by a batch FOCUS

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/1291008331

October 27, 2004, 10:51 AM
<busygurl>
How to send email via SMPT from a CLIST invoked by a batch FOCUS
Hi,

How do we send an email notification via SMPT (from a CLIST) that is invoked by a batch FOCUS program?

In the mainframe environment, we usually invoke a clist program (SMTPNOT1) to send the email notification (please see sample code below).

//*
//SYSPROC DD DSN=&ABCLIB(SMTPNOT1),DISP=SHR
//*
//SYSTSIN DD DSN=MABCDE.NOTIFY(ABCDE123),DISP=SHR
//*

MABCDE.NOTIFY(ABCDE123)---> This will hold the following information:

%SMTPNOT1 TO (busygurl@airmail.com)-
CC(busygurl@airmail.com)-
SU('Testing')-
DA(MABCDE.SMTPNOTE)************************ Bottom of Data *********************


However, in the design that I am currently working on, I need to invoke the clist program within the batch focus program. How should I do this?

I tried using the following statement in my focus program but it was unsuccessful.

ALLOC FILE(SYSPROC) DA('WIBMBP.M.CLIST') SHR

Please see error below:

ALLOC FILE(SYSPROC) DA ('WIBMBP.M.CLIST') SHR
UNKNOWN FOCUS COMMAND ALLOC
BYPASSING TO END OF COMMAND
November 05, 2004, 02:43 PM
<monte2000>
FocWizard tried to reproduce and this is what he said:

I tried using the following statement in my focus program but it was unsuccessful.

ALLOC FILE(SYSPROC) DA('WIBMBP.M.CLIST') SHR

Please see error below:

ALLOC FILE(SYSPROC) DA ('WIBMBP.M.CLIST') SHR
UNKNOWN FOCUS COMMAND ALLOC
BYPASSING TO END OF COMMAND

---------
ALLOC is NOT a FOCUS command, it's a TSO command. From within batch, you can use the DYNAM command, with the subcommand ALLOC, like this:

DYNAM ALLOC FILE SYSPROC DA 'WIBMBP.M.CLIST' SHR

Hope this helps!

Monica