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
 

 

DSNTIAUL Problems

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
pranavaraj

New User


Joined: 03 Jan 2007
Posts: 15
Location: US

PostPosted: Fri May 28, 2010 8:05 pm    Post subject: DSNTIAUL Problems
Reply with quote

Hi,
Am trying to execute a select stament from a CLIST. Initially I used DSNTEP2 utility to run the same. But right after the run statement, the clist throws some error message as in the attachment err1.

Then I used DSNTIAUL utility to run the same, am getting RC=12 after executing the RUN statement as in err2. But when I view the sysprint dataset, it shows

DSNT490I SAMPLE DATA UNLOAD PROGRAM
DSNT505I DSNTIAUL OPTIONS USED: SQL
DSNT503I UNLOAD DATA SET SYSPUNCH RECORD LENGTH SET TO 80


But when I run the same command using JCL using IKJEFT01. It completes without a problem.

SYSPRINT as follows,

DSNT490I SAMPLE DATA UNLOAD PROGRAM
DSNT505I DSNTIAUL OPTIONS USED: SQL
DSNT503I UNLOAD DATA SET SYSPUNCH RECORD LENGTH SET TO 80
DSNT504I UNLOAD DATA SET SYSPUNCH BLOCK SIZE SET TO 80
DSNT506I INPUT STATEMENT WAS NOT A FULL SELECT ON A SINGLE TABLE. LOAD STATEMENT WILL NEED MODIFICATION.
DSNT504I UNLOAD DATA SET SYSREC00 BLOCK SIZE SET TO 27200
DSNT495I SUCCESSFUL UNLOAD 1 ROWS OF TABLE TBLNAME

But I couldn't understand why am getting RC=12 while executing the same set of commands via clist. I tried to allocate SYSREC00 DD and checked. But nothing helped.

Please someone help to resolve this.
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Fri May 28, 2010 8:11 pm    Post subject:
Reply with quote

pranavaraj wrote:
Am trying to execute a select stament from a CLIST.


without a doubt, the third instruction before the select statement is your problem.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri May 28, 2010 9:09 pm    Post subject:
Reply with quote

Hello,

Do NOT post "screenshots" - they just waste space and are just clutter. . .

To show the contents of a 3270 terminal, use copy/paste and the "Code" tag. The appearance will look exactly right (use the Preview to confirm this).

What happens if you try to run this same unload process in batch?
Back to top
View user's profile Send private message
pranavaraj

New User


Joined: 03 Jan 2007
Posts: 15
Location: US

PostPosted: Sat May 29, 2010 8:11 pm    Post subject:
Reply with quote

Hi Dick,
Sorry for cluttering the space... I will make sure not to make an attachment going forward...

As I stated in my initial post, when I run the same command via JCL using IKJEFT01. It completes without a problem.

SYSPRINT as follows,

DSNT490I SAMPLE DATA UNLOAD PROGRAM
DSNT505I DSNTIAUL OPTIONS USED: SQL
DSNT503I UNLOAD DATA SET SYSPUNCH RECORD LENGTH SET TO 80
DSNT504I UNLOAD DATA SET SYSPUNCH BLOCK SIZE SET TO 80
DSNT506I INPUT STATEMENT WAS NOT A FULL SELECT ON A SINGLE TABLE. LOAD STATEMENT WILL NEED MODIFICATION.
DSNT504I UNLOAD DATA SET SYSREC00 BLOCK SIZE SET TO 27200
DSNT495I SUCCESSFUL UNLOAD 1 ROWS OF TABLE TBLNAME


It's looks strange...
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sun May 30, 2010 5:41 am    Post subject:
Reply with quote

Hello,

Is the jcl from both runs the same jcl? If yes, please post the jcl and control statements. If no, please post both sets of jcl and control statements.

Remember the Code tag. . .
Back to top
View user's profile Send private message
pranavaraj

New User


Joined: 03 Jan 2007
Posts: 15
Location: US

PostPosted: Tue Jun 01, 2010 3:39 pm    Post subject:
Reply with quote

Here is the JCL,

//JSTEP02 EXEC PGM=IKJEFT01,DYNAMNBR=100
//*
//SYSREC00 DD DSN=MTDT.TEST.UNLOAD.DATA.DT052810,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=850,RECFM=FB,BLKSIZE=0),
// SPACE=(CYL,(50,50),RLSE)
//*
//SYSPUNCH DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(TBTG)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') -
LIB('ADBP.TBTG.RUNLIB.LOAD')
/*
//SYSIN DD *
SELECT VCRG_LSTKEY, VCRG_CCB, VCRG_BEGIN_RANGE,
VCRG_END_RANGE, VCRG_PARTID,
VCRG_DESCRIP
FROM DBAFTSTB.TBA_VCRG_RANGE
WHERE VCRG_BEGIN_RANGE LIKE 'CK0000001%';
/*


Clist Statements,

ALLOC F(SYSREC00) DS(&OUTDSN) SHR REUSE
ALLOC F(SYSOUT) SYSOUT
ALLOC F(SYSIN) LRECL(137) RECFM(F B) SP(1 1) TRACK
OPENFILE SYSIN OUTPUT
SET SYSIN = &STR( SELECT VCRG_LSTKEY, VCRG_CCB, VCRG_BEGIN_RANGE,
PUTFILE SYSIN
SET SYSIN = &STR( VCRG_END_RANGE, VCRG_PARTID,
PUTFILE SYSIN
SET SYSIN = &STR( VCRG_DESCRIP
PUTFILE SYSIN
SET SYSIN = &STR( FROM &CREATOR..TBA_VCRG_RANGE
PUTFILE SYSIN
SET SYSIN = &STR( WHERE VCRG_BEGIN_RANGE LIKE '&VBR%';
PUTFILE SYSIN
CLOSFILE SYSIN
DSN SYSTEM(&ID)

SET LASTCC = 0
WRITE &LASTCC
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') LIB('ADBP.&ID..RUNLIIB.LOAD')
END
WRITE &LASTCC
As soon the CLIST encounters the RUN statement, its ending with RC=12.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Jun 01, 2010 3:53 pm    Post subject:
Reply with quote

The first thing I would do is to create your SYSIN as a permanent dataset and make sure that the correct statements are being generated by the CLIST code.

And why CLIST - REXX is a zillion times easier to use.
Back to top
View user's profile Send private message
pranavaraj

New User


Joined: 03 Jan 2007
Posts: 15
Location: US

PostPosted: Tue Jun 01, 2010 4:58 pm    Post subject:
Reply with quote

Hi Expat,
I tried that.. But no use,.. Again the same RC=12..

I accept REXX is better than CLIST, but the clients want it in CLIST..,
Back to top
View user's profile Send private message
pranavaraj

New User


Joined: 03 Jan 2007
Posts: 15
Location: US

PostPosted: Tue Jun 01, 2010 6:48 pm    Post subject:
Reply with quote

Hi All,
It's working fine now.. I missed to allocate SYSPUNCH in my clist and when I did the same, it worked like a charm...

Thanks for all the help...
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Jun 01, 2010 6:52 pm    Post subject:
Reply with quote

Thanks for letting us know
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Problems in File-Aid / DB2 Spufi whil... amitc23 CLIST & REXX 6 Fri Feb 12, 2016 1:59 pm
No new posts Unload from Table with DSNTIAUL delim... suzeet DB2 1 Wed Dec 17, 2014 6:25 pm
No new posts Can you suppress NULLIF char for DSNT... HammerTime DB2 1 Tue Dec 09, 2014 10:00 pm
No new posts Line Number Problems Using P Option i... Charles Wolters TSO/ISPF 6 Tue Jan 14, 2014 10:28 pm
No new posts SQL QUERY to unload XML rec from DB2 ... gopikrishnan1984 DB2 10 Wed Dec 11, 2013 1:13 pm


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