*Hello - *
**
We recently had a job-abend in our *Production Environment*. The job runs
FILEAID in Batch, to *Filter* *out* Records, based on the *//SYSIN Control
Card*. Here's the step.
//FILEVIS EXEC PGM=*FILEAID*
//DD01 DD DSN=CP81.CPARS.GRAP222.DATA,DISP=SHR
//DD01O DD DSN=CP81.CPARS.GRAP222.DATA,DISP=SHR
//SYSIN DD DSN=CP81.CPARS.PARMFILE.DATA(SELVIST),DISP=SHR
*FILEAID *Abended with a Return-Code 12. The Job Log, showed the
following*IEC020I
* messages.
IEC020I *001-3*,CPARS22A,FILEVIS,DD01,3189,SMA3T2,
IEC020I CP81.CPARS.GRAP222.DATA
IEC020I NON-ACCEPTABLE ERROR
When I looked up the *System Abend Code S001, Return Code 03*, in the IBM
MVS Messages Manual, I found the following explanation :
"If the return code is 3, for QSAM, *an unacceptable error occurred* because
of one of the following:
– The caller returned from the SYNAD.
– The caller did not provide a SYNAD.
Look at the input/output block (IOB) to determine why the error was
unacceptable to QSAM. "
When I searched for SYNAD, I found that, SYNAD is an *Error-Analysis routine
*. You must supply it.
*File-Aid Messages*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* * *
*
* * AN ABEND HAS OCCURRED: S001 U0000 *
*
* * *
*
* * PSW: 078D1000 00DD2644 RELEASE: 9.2.0 02/07/2010 *
*
* * *
*
* * LOCATION: *IGG019AQ*+000000BA EP=00DD2588 *
*
* * *
*
* * R0 000068D0 R1 000DABC0 R2 80065E2C R3 00000000 *
*
* * *
*
* * R4 00007B38 R5 80006FFE R6 000DABC0 R7 00000000 *
*
* * *
*
* * R8 000B0900 R9 00066DF0 RA 00035800 RB 000716D2 *
*
* * *
*
* * RC 00036800 RD 0003A310 RE 00DD2636 RF 0004DEF0 *
*
* * *
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
QSAM GET I/O ERROR "NO RECORD FOUND" ON DD01-SMA3T2 DS BLOCK
CCHHR=0047000203!
BLKS-SKIPPED=25,RECORDS-READ=2065,COPIED=2065
2,065 RECORDS WRITTEN TO DD01O-CP81.CPARS.GRAP222.DATA
VOL=SMA3T2
**
After trying to *re-run* this step in *Production*, it ran fine, and
completed Successfully.
*My Understanding*
My understanding is *File-Aid* in turn CALLS Qsam Routines - like
*IGG019**to access the records from the QSAM File, Blocking and
Unblocking. Due to an
error, some Blocks were skipped by QSAM while fetching the data, into its *
Buffers*.
*My Questions*
1. How do I access the QSAM Input Output Block, as suggested in the IBM
Manual?
2. How do I interprete the PSW, and Register 0-15 contents?
3. What is the exact cause of this abend according to you?
Eagerly awaiting your reply.
Thank you very much,
Quasar S. Chunawala
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
