MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How to run db2 program thru JCL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Database
View previous topic :: View next topic  
Author Message
js01
Beginner


Joined: 13 Oct 2005
Posts: 84
Topics: 32
Location: INDIA

PostPosted: Wed Aug 09, 2006 5:58 pm    Post subject: How to run db2 program thru JCL Reply with quote

Hi all,

I am getting following error when i try to run the DB2 program , can you please help me


error message:
Code:

ACF0C038 ACF2 LOGONID ATTRIBUTES HAVE REPLACED DEFAULT USER ATTRIBUTES         
READY                                                                         
 DSN SYSTEM (DB2T)                                                             
DSN                                                                           
 RUN PROG(ABSCPDB2)      PLAN(ABSCPPDB2)      LIB('POP1.ENDVR.AB.TST1.LOADLIB')
IKJ56641I DSN      ENDED DUE TO ERROR+                                         
IKJ56641I SYSTEM ABEND CODE 0C1   REASON CODE 00000001                         


Below is the JCL:

Code:

//STEP001  EXEC PGM=IKJEFT01,DYNAMNBR=20     
//SYSTSPRT DD  SYSOUT=*                       
//SYSPRINT DD SYSOUT=*                       
//SYSOUT   DD SYSOUT=*                       
//SYSTSIN DD *                               
 DSN SYSTEM (DB2T)                           
 RUN PROG(ABSCPDB2) -                         
     PLAN(ABSCPDB2) -                         
     LIB('POP1.ENDVR.AB.TST1.LOADLIB') -     
     PARMS('AXXX')                           
 END                                         
/*                   

note: this is a new db2 program ..i did bind with the mentioned plan.

thank you
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Wed Aug 09, 2006 7:38 pm    Post subject: Reply with quote

js01,

Since you are passing parms you need to have slash(\), so as to differentiate your pgm parms to the LE runtime parms. If you do not provide the Slash , the parms will be treated as LE parms and it would abend.

Code:

//STEP001  EXEC PGM=IKJEFT01,DYNAMNBR=20     
//SYSTSPRT DD SYSOUT=*                       
//SYSPRINT DD SYSOUT=*                       
//SYSOUT   DD SYSOUT=*                       
//SYSTSIN DD *                               
 DSN SYSTEM (DB2T)                           
 RUN PROG(ABSCPDB2) -                         
     PLAN(ABSCPDB2) -                         
     LIB('POP1.ENDVR.AB.TST1.LOADLIB') -     
     PARMS('AXXX/')                           
 END                                         
/*               


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
js01
Beginner


Joined: 13 Oct 2005
Posts: 84
Topics: 32
Location: INDIA

PostPosted: Thu Aug 10, 2006 11:51 am    Post subject: Reply with quote

Kolusu,

Still i am getting same error ,can you please help me

thank you
Back to top
View user's profile Send private message
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA

PostPosted: Thu Aug 10, 2006 1:56 pm    Post subject: Reply with quote

ABEND 0C1 can sometimes be a missing DD statement. Check the JOBLOG for messages. Does your program expect to read/write an external file?
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.
Back to top
View user's profile Send private message
js01
Beginner


Joined: 13 Oct 2005
Posts: 84
Topics: 32
Location: INDIA

PostPosted: Thu Aug 10, 2006 3:57 pm    Post subject: Reply with quote

Dennis,

no, program is not using any files...juts it will select data and print in sysout

just i did bind with new plan...is there any need to do

please advise
Back to top
View user's profile Send private message
coolman
Intermediate


Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US

PostPosted: Thu Aug 10, 2006 5:07 pm    Post subject: Reply with quote

JS01,

Instead of passing the parm through the JCL, is there anyway that you can change program to have hardcoded parms and then run this job again.

1.Did you pre-compile your program? And did it give a RC of zero?
2. Do you have any display's in your program right under the procedure division? Are they being printed in the SYSOUT?
3. Did your binds go through successfully - Go through the SYSTSPRT of the bind job and check if the binds have happened
4. Did the Link Edit happen correctly? Did you verify the logs?
________
Chrysler LH platform


Last edited by coolman on Sat Feb 05, 2011 1:47 am; edited 1 time in total
Back to top
View user's profile Send private message
js01
Beginner


Joined: 13 Oct 2005
Posts: 84
Topics: 32
Location: INDIA

PostPosted: Fri Aug 11, 2006 12:32 pm    Post subject: Reply with quote

All,

Thank you ...the problem is resolved...
actually i complied with different processor group
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Database All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group