gopikrishnan1984
New User
Joined: 21 Sep 2008 Posts: 8 Location: India
|
|
|
|
Nic,
I have copied part of the ABEND info,
Code: |
****************************
* * S-30A *
* A B E N D *------------*
* * SYSTEM *
****************************
*****************************************************************************************
* DESCRIPTION: S30A-1C - AN ERROR OCCURRED IN R FORM OF FREEMAIN. *
* REFER TO MESSAGE IEA705I DISPLAYED IN JES MSGLOG OF THE JOB THAT *
* ENDED. THE 2 BYTES RETURN CODE TO THE RIGHT OF THE ABEND CODE *
* IDENTIFIES THE ERROR. *
* *
* POSSIBLE CAUSES: 1C - ZERO LENGTH IS NOT SPECIFIED ON A SUBPOOL FREEMAIN. *
* *
* TO CORRECT: 1. REGISTER 0 AT ENTRY TO ABEND HAS THE LENGTH OF STORAGE TO BE *
* FREED, ITS HIGH ORDER BYTE CONTAINS THE SUBPOOL NUMBER *
* TO BE FREED. *
* 2. REGISTER 1 AT ENTRY TO ABEND HAS THE ADDRESS OF STORAGE TO *
* BE FREED. *
* 3. THE SUBPOOL AREA TO BE FREED MUST BE EXPLICITLY DESCRIBED. *
* 4. THE SYSTEM FREES SUBPOOL 0 WHEN A JOB STEP ENDS. *
* 5. CHECK FOR PROGRAMMING ERRORS THAT INCORRECTLY MODIFIED *
* THE FREEMAIN MACRO EXPANSION. *
*****************************************************************************************
************************************************************************************************************************************
* LAST SQL RETURN CODE: *
* *
*DSNT408I SQLCODE = -501, ERROR: THE CURSOR IDENTIFIED IN A FETCH OR CLOSE STATEMENT IS NOT OPEN *
*DSNT418I SQLSTATE = 24501 SQLSTATE RETURN CODE *
************************************************************************************************************************************
CAPD112W SYMBOLIC INFORMATION NOT FOUND FOR PROGRAM "UNKWN1 ".
JCL used
//PS01 EXEC PGM=IKJEFT01,REGION=0M
//SYSTSIN DD *
DSN SYSTEM(DB2E)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) -
LIB('DBOPEN.LOAD.LIB') -
PARMS('SQL')
END
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSREC00 DD DSN=xxxx.xxxxx.xxxxx,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,5),RLSE),
// DCB=(LRECL=0,RECFM=FB,BLKSIZE=0)
//SYSPUNCH DD SYSOUT=*
//SYSIN DD *
SELECT XMLQUERY('$C' PASSING CLOUMN_NAME AS "C")
FROM TABLE NAME
WITH UR;
//* |
Code'd
Regards
Gopi |
|