/* REXX */
SIGNAL ON ERROR
"ALLOC F(SYSIN) DUMMY RECFM(F B) LRECL(80) BLKSIZE(3120) REUSE"
"ALLOC F(SYSPRINT) DA(*) REUSE"
"ALLOC F(SYSUT2) DA(*) REUSE"
"ALLOC F(SYSUT1) DA('SYS1.MACLIB(NOTFOUND)') SHR REUSE"
"CALL 'SYS1.LINKLIB(IEBGENER)'"
SAY "NORMAL RC =" RC
EXIT
ERROR:
SAY "ERRROR DETECTED - RC =" RC
SAY "ERROR LINE" SIGL ":" SOURCELINE(SIGL)
EXIT
DATA SET UTILITY - GENERATE PAGE 0001 IEB352I WARNING:
ONE OR MORE OF THE OUTPUT DCB PARMS COPIED FROM INPUT IEC141I
013-18,IGG0191B,B1D,DBPROC9G,SYSUT1,1001,VTMVSC,SYS1.MACLIB(NOTFOUND) IEA995I
SYMPTOM DUMP OUTPUT SYSTEM COMPLETION CODE=013 REASON CODE=00000018
TIME=13.25.41 SEQ=01907 CPU=0000 ASID=0093 PSW AT TIME OF ERROR 075C1000
80E6846A ILC 2 INTC 0D NO ACTIVE MODULE FOUND NAME=UNKNOWN DATA
AT PSW 00E68464 - 41003B9A 0A0D41F0 38C256F0 GR 0: 00E6874C 1:
A4013000 2: 000DB778 3: 00E67BB2 4: 00789398 5: 0078972C
6: 007896D4 7: 0078972C 8: 007896F4 9: 000DB840 A: 00FCF2D0
B: 00788844 C: 00000008 D: 0078972C E: 80E67CEA F: 00000018
END OF SYMPTOM DUMP ERRROR DETECTED - RC = 77824 ERROR LINE 10 : "CALL
'SYS1.LINKLIB(IEBGENER)'"
On Thu, 10 Jul 2014 13:50:01 -0400 George Rodriguez
<[email protected]> wrote:
:>Yep I did... I even read the manual and found this:
:>
:>ISPEXEC CONTROL SUBTASK PROTECT
:>
:>But it doesn't work...
:>
:>
:> *George Rodriguez*
:>*Specialist II - IT Solutions*
:>*IT Enterprise Applications*
:>*PX - 47652*
:>*(561) 357-7652 (office)*
:>*(561) 707-3496 (mobile)*
:>*School District of Palm Beach County*
:>*3348 Forest Hill Blvd.*
:>*Room B-251*
:>*West Palm Beach, FL. 33406-5869*
:>*Florida's Only A-Rated Urban District For Eight Consecutive Years*
:>
:>
:>On Thu, Jul 10, 2014 at 1:47 PM, Binyamin Dissen <[email protected]
:>> wrote:
:>
:>> Did you try SIGNAL ON ERROR/FAILURE?
:>>
:>> On Thu, 10 Jul 2014 13:37:20 -0400 George Rodriguez
:>> <[email protected]> wrote:
:>>
:>> :>Has anyone successfully added code to a Rexx EXEC to intercept program
:>> :>abends?
:>>
:>> --
:>> Binyamin Dissen <[email protected]>
:>> http://www.dissensoftware.com
:>>
:>> Director, Dissen Software, Bar & Grill - Israel
:>>
:>>
:>> Should you use the mailblocks package and expect a response from me,
:>> you should preauthorize the dissensoftware.com domain.
:>>
:>> I very rarely bother responding to challenge/response systems,
:>> especially those from irresponsible companies.
:>>
:>> ----------------------------------------------------------------------
:>> For IBM-MAIN subscribe / signoff / archive access instructions,
:>> send email to [email protected] with the message: INFO IBM-MAIN
:>>
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
