Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

S30A-1C - Error while Unloading XML data from DB2 table

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2
View previous topic :: :: View next topic  
Author Message
gopikrishnan1984

New User


Joined: 21 Sep 2008
Posts: 8
Location: India

PostPosted: Tue Dec 10, 2013 7:39 pm    Post subject: S30A-1C - Error while Unloading XML data from DB2 table
Reply with quote

HI!

I have a DB2 table with one column is defined as XML. I tried to unload the record into a PS using DSNTIAUL. The unload QUERY is

Code:
SELECT XMLQUERY ('Phm[ZipCd >" "]' PASSING  DB0IPOC0.POCEPA00.EPA_UNPARSED_TXT)       
                     FROM DB0IPOC0.POCEPA00                         
                     WHERE EPA_TMS <= '2012-10-10-00.00.00.000000' 
                      AND XMLEXISTS ('Phm[ZipCd >" "]' PASSING  DB0IPOC0.POCEPA00.EPA_UNPARSED_TXT)       
WITH UR; 


When i executed it abended with S30A-1C - AN ERROR OCCURRED IN R FORM OF FREEMAIN. Can you let me know what is the issue?
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1825
Location: UK

PostPosted: Tue Dec 10, 2013 9:15 pm    Post subject:
Reply with quote

And when you looked up the Messages And Codes manual what did that tell you about an S30A and sub-code 1C?
If it was an 80A would you have an idea about the error?
Note that the last 2 characters (0A in this case) refer to the bit of code that found the error so all 0As come from the same module.
Back to top
View user's profile Send private message
gopikrishnan1984

New User


Joined: 21 Sep 2008
Posts: 8
Location: India

PostPosted: Mon Dec 16, 2013 2:21 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2 All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Passing data from REXX to C programme... chong.zhou CLIST & REXX 2 Wed Jul 26, 2017 9:11 pm
No new posts Passing data from REXX to C programme... chong.zhou All Other Mainframe Topics 0 Wed Jul 26, 2017 4:55 pm
No new posts copying data without knowing location arunsoods DFSORT/ICETOOL 6 Thu Jul 20, 2017 1:03 pm
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Loading data to table gives wrong for... Raghu navaikulam DB2 19 Thu Jul 13, 2017 2:11 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us