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
 

 

How to give I/P values in the Run JCL for COBOL DB2 Program

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

Active User


Joined: 17 May 2006
Posts: 310

PostPosted: Mon Apr 02, 2007 4:23 pm    Post subject: How to give I/P values in the Run JCL for COBOL DB2 Program
Reply with quote

I want to insert the employee details into EMP table through a COBOL + DB2 Program.


I am accepting all the employee details in the cobol + DB2 program.

I compiled the program successfully.

But problem is with Run JCL. Where should I specify the input values in the run JCL. Generally we give in SYSIN DD *. But It is giving MAXCC = 12.
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Apr 02, 2007 4:33 pm    Post subject:
Reply with quote

How about posting your JCL and JES logs?
Back to top
View user's profile Send private message
mkk157

Active User


Joined: 17 May 2006
Posts: 310

PostPosted: Mon Apr 02, 2007 4:51 pm    Post subject: Here is my JCL
Reply with quote

Code:

//JOBLIB  DD DISP=SHR,DSN=DSN710.SDSNEXIT                   
//                DD DISP=SHR,DSN= DSN710.SDSNLOAD                   
//                DD DISP=SHR,DSN=CEE.SCEERUN                       
//BINDPLAN EXEC PGM=IKJEFT01,DYNAMNBR=20                     
//DBRMLIB  DD DSN=Userid.DB2.DBRMLIB,DISP=SHR       
//SYSTSPRT DD SYSOUT=*                                       
//SYSPRINT DD SYSOUT=*                                       
//SYSUDUMP DD SYSOUT=*                                       
//SYSOUT   DD SYSOUT=*                                       
//SYSTSIN     DD *   
 DSN SYSTEM(DSN1)                                           
 BIND PLAN(PlanName) MEMBER(DBRM2) ACT(REP) ISOLATION(CS)   
 RUN  PROGRAM(PROG1) PLAN(PlanName) -                       
      LIB('UserId.DB2.LOADLIB')                     
 END 
/* 
//
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: Mon Apr 02, 2007 7:28 pm    Post subject:
Reply with quote

Hello,

Where is the //SYSIN and the output information? You need to post complete information.
Back to top
View user's profile Send private message
mkk157

Active User


Joined: 17 May 2006
Posts: 310

PostPosted: Mon Apr 02, 2007 9:03 pm    Post subject: Hi
Reply with quote

Hi Dick,


I have a problem with giving input values. where should I specify the input values?
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: Mon Apr 02, 2007 9:28 pm    Post subject:
Reply with quote

Hello,

Well, you could use SYSIN. . .

Please post your jes/sysout info as requested above.
Back to top
View user's profile Send private message
mkk157

Active User


Joined: 17 May 2006
Posts: 310

PostPosted: Thu Apr 05, 2007 12:28 pm    Post subject: Re: How to give I/P values in the Run JCL for COBOL DB2 Prog
Reply with quote

Hi All,

I am very very sorry for the late reply.

This is my SYSOUT:
IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was unsuccessful.From compile unit PROG1 at entry point PROG1 at compile unit offset +000006CC at entry offset +000006CC at address 08901CB4.

My JESJCL

Code:
  1 //SSS021B JOB (20,FB3),IBMUSER,MSGLEVEL=(1,1),                       
    //            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID,REGION=4M             
    IEFC653I SUBSTITUTION JCL - (20,FB3),IBMUSER,MSGLEVEL=(1,1),CLASS=A,MS
  2 //JOBLIB   DD DISP=SHR,DSN=DSN710.SDSNEXIT                           
  3 //         DD DISP=SHR,DSN=DSN710.SDSNLOAD                           
  4 //         DD DISP=SHR,DSN=CEE.SCEERUN                               
  5 //BINDPLAN EXEC PGM=IKJEFT01,DYNAMNBR=20                             
  6 //DBRMLIB  DD DSN=SSS021.CHAPTERI.DB2.DBRMLIB,DISP=SHR               
  7 //SYSTSPRT DD SYSOUT=*                                               
  8 //SYSTSPRT DD SYSOUT=*                                               
  9 //SYSPRINT DD SYSOUT=*                                               
 10 //SYSUDUMP DD SYSOUT=*                                               
 11 //SYSOUT   DD SYSOUT=*                                               
    //*DB2KSDS  DD  DSN=SSSMST.TEST.KSDS,DISP=(OLD,CATLG,CATLG)           
 12 //SYSTSIN     DD *   SPECIFY APPROPRIATE PLANNAME & PROGNAME         


Code:
                         J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N
                                                                               
19.51.29 JOB04541 ---- WEDNESDAY, 04 APR 2007 ----                             
19.51.29 JOB04541  IRR010I  USERID SSS021   IS ASSIGNED TO THIS JOB.           
19.51.29 JOB04541  ICH70001I SSS021   LAST ACCESS AT 19:46:13 ON WEDNESDAY, APRI
19.51.29 JOB04541  $HASP373 SSS021B  STARTED - INIT 1    - CLASS A - SYS SYS1   
19.51.29 JOB04541  IEF403I SSS021B - STARTED - TIME=19.51.29                   
19.51.31 JOB04541  IEC130I SYSIN    DD STATEMENT MISSING                       
19.51.33 JOB04541  IEF404I SSS021B - ENDED - TIME=19.51.33                     
19.51.34 JOB04541  $HASP395 SSS021B  ENDED                                     
------ JES2 JOB STATISTICS ------                                               
  04 APR 2007 JOB EXECUTION DATE                                               
           20 CARDS READ                                                       
          659 SYSOUT PRINT RECORDS                                             
            0 SYSOUT PUNCH RECORDS                                             
           54 SYSOUT SPOOL KBYTES                                               
         0.07 MINUTES EXECUTION TIME                                           


It is not accepting the statements mentioned in the SYSTSIN DD statement.

But If I write Update statement It is accepting as usual. I am facing the problem only with the Insert statement in the COBOL program.


please resolve this 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: Thu Apr 05, 2007 10:19 pm    Post subject:
Reply with quote

Hello,

Please post all of the submitted jobstream.

Please post all of the information provided when the job "is not accepting" the input.

Your post shows no input and no error information.

We can't help much without the info. . . .

You did notice that the messages tell you that you are missing the SYSIN DD?
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Fri Apr 06, 2007 2:14 am    Post subject:
Reply with quote

You can use the PARMS keyword in the RUN command. For more details, please refer to the fine manual.

O.
Back to top
View user's profile Send private message
mkk157

Active User


Joined: 17 May 2006
Posts: 310

PostPosted: Wed Apr 11, 2007 3:05 pm    Post subject: Re: How to give I/P values in the Run JCL for COBOL DB2 Prog
Reply with quote

Thanks everybody for quick replies.
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 Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts scheduling between OPC and TWS give u... nsbl IBM Tools 1 Sun Mar 12, 2017 5:35 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm


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