![](/api/v2/epubs/0738497525/files/bg22c.png)
550 Using IBM Application Development Tools for z/OS and OS/390
End
Else
intExitC = 4
Return intExitC
/**********************************************************************/
/* Build the contents of the e-mail message... */
/**********************************************************************/
BuildEMsg:
SMTPOut.1 = ‘helo ‘HostName
SMTPOut.2 = ‘mail from:<‘userID()||’@’HostName’>’
SMTPOut.3 = ‘rcpt to:<‘strEMail’@’HostName’>’
SMTPOut.4 = ‘data’
date = Date(“N”)” “Time()” LCL”
date = Substr(Date,1,7)Substr(Date,10)
SMTPOut.5 = ‘Date: ‘date
SMTPOut.6 = ‘From: ‘UserID()||’@’HostName
SMTPOut.7 = ‘To: “‘strPName’”’
SMTPOut.8 = ‘Subject: Abend in job ‘Env.Job_Name
SMTPOut.9 = “ “
ix = 9
Do i = 1 to MsgText.0
ix = ix + 1
SMTPOut.ix = MsgText.i
End
ix = ix + 1
SMTPOut.ix = “.”
ix = ix + 1
SMTPOut.ix = “ “
SMTPOut.0 = ix
Return
File Manager ISPF panel modifications
Example A-2 depicts the change made to ISPF panel FMNPSCKD. This change was made to
clear the contents of the Catalog ID field when the Enter key is pressed. This eliminates the
need to explicitly include the catalog when processing the data set.
We added the following line of code:
&FMNVDCAT = &Z
In the example, the text in bold represents the change.
Example: A-2 ISPF panel FMNPSCKD with modification
&FMNSRL = TRANS(&FMNDFUN LIST,YES *,SKIP)
&P = ' %'
&FMNXDRFM = &FMNVDRFM
IF (&MSG = &Z)
.MSG = 'FMNE510A'
.ALARM = &FMNALARM /* alarm to be sounded ? @D4A*/
&FMNMH = &FMNMHELP /* field help panel for lmsg line*/
IF (&FMNMH = '') /* if no message help */
&FMNMH = .HELP /* show extended help */
Note: This code was written for Introduction to the IBM Problem Determination Tools,
SG24-6296-00.
Get Using IBM Application Development Tools for z/OS and OS/390 now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.