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 Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm


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