I have a program that reads the JESJCLIN sysout to capture the JCL input stream
for a specific job. On occasion, the GET fails on an IO error with a S001-4
abend. I've added a SYNAD exit to capture diagnostic information and prevent
the abend. I'm trying to test the exit, but have been unable to
>> I'm trying to test the exit, but have been unable to create an IO error to
>> drive it.
Ralph,
Here is a sample job to generate the S001-4 abend
//STEP0100 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*,DCB=BLKSIZE=121
//SYSTSIN DD DATA,DLM=@@,LRECL=200
DSN
@@
/*
This will result in
IEC020I 00
On Wed, 27 Sep 2023 20:04:13 +, Sri h Kolusu wrote:
>>> I'm trying to test the exit, but have been unable to create an IO error to
>>> drive it.
>
>Here is a sample job to generate the S001-4 abend
>
Can it drive the OP's SYNAD exit? I've had "successful failures" with:
//SYSUT1 DD FI
>> Can it drive the OP's SYNAD exit? I've had "successful failures" with:
Gil,
My example is just to show that overriding the LRECL with a different value can
produce the error that OP is looking for. Similarly, he can override the LRECL
on the ddname Op's program is reading.
Thanks,
Kolusu
I was wondering the same thing, I'm not sure how I would establish a SYNAD exit
for SYSTSIN in the sample JCL. My code runs as a service routine in a started
task and dynamically allocates the JESJCLIN dataset.
Kolusu, are you suggesting that I create a test program (including my SYNAD
exit) t
On Wed, 27 Sep 2023 15:55:53 -0500, Ralph Spadafora
wrote:
> My code runs as a service routine in a started task and dynamically allocates
> the JESJCLIN dataset.
Does JCL now support DD JESJCLIN and other JES datasets? It's been a long time
but I don't remember the ability allocate JES data
>> Kolusu, are you suggesting that I create a test program (including my SYNAD
>> exit) that runs in batch and reads a sysin file similar to SYSTSIN in the
>> sample JCL?
Yes.
Thanks,
Kolusu
--
For IBM-MAIN subscribe / signof
Could you temporarily allocate the DD with a bad LRECL?
Charles
On Wed, 27 Sep 2023 15:55:53 -0500, Ralph Spadafora
wrote:
>I was wondering the same thing, I'm not sure how I would establish a SYNAD
>exit for SYSTSIN in the sample JCL. My code runs as a service routine in a
>started task and
On Wed, 27 Sep 2023 19:03:12 -0500, Charles Mills wrote:
>Could you temporarily allocate the DD with a bad LRECL?
A bad LRECL on the DCB didn't have any affect - DYNALLOC, OPEN, GET all worked.
Coding a bad BLKSIZE causes a S013 abend.
R.
-
>> A bad LRECL on the DCB didn't have any affect - DYNALLOC, OPEN, GET all
>> worked. Coding a bad BLKSIZE causes a S013 abend.
Ralph,
You need to use QSAM/BSAM to read at least 1 record for the abend to happen.
Thanks,
Kolusu
---
On Thu, 28 Sep 2023 07:21:15 +, Sri h Kolusu wrote:
>>> A bad LRECL on the DCB didn't have any affect - DYNALLOC, OPEN, GET all
>>> worked. Coding a bad BLKSIZE causes a S013 abend.
>
>You need to use QSAM/BSAM to read at least 1 record for the abend to happen.
>
I believe the S013 abend is
11 matches
Mail list logo