Using IBM Application Development Tools for z/OS and OS/390

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.