View previous topic :: View next topic |
Author |
Message |
adbrad Beginner
Joined: 28 May 2019 Posts: 1 Topics: 1
|
Posted: Tue Jun 08, 2021 8:31 am Post subject: Showing Abend in Email |
|
|
I want to show an Abend in an email.
Code: |
//TSTCPL2 IF (ABEND) THEN
//SETAC SET ACODE=ABENDCC
...
//SYSUT1 DD *,SYMBOLS=(EXECSYS)
HELO JPJES2P
…
ALABEND ABENDED &ACODE
|
When doing this, I get ALABEND ABENDED ANEDCC. It doesn't show the abend (S806). Is there a way to show this - 'ALABEND ABENDED S806'? |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
Posted: Tue Jun 08, 2021 5:37 pm Post subject: |
|
|
adbrad,
You cannot pass the abend cde as a symbol. You have to look in the job control blocks and then extract the information.
REXX or assembler program can get you the desired results. _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
|
|
|