View previous topic :: View next topic
|
Author |
Message |
mkk157
Active User
Joined: 17 May 2006 Posts: 310
|
|
|
|
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 |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
How about posting your JCL and JES logs? |
|
Back to top |
|
|
mkk157
Active User
Joined: 17 May 2006 Posts: 310
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Where is the //SYSIN and the output information? You need to post complete information. |
|
Back to top |
|
|
mkk157
Active User
Joined: 17 May 2006 Posts: 310
|
|
|
|
Hi Dick,
I have a problem with giving input values. where should I specify the input values? |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Well, you could use SYSIN. . .
Please post your jes/sysout info as requested above. |
|
Back to top |
|
|
mkk157
Active User
Joined: 17 May 2006 Posts: 310
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
You can use the PARMS keyword in the RUN command. For more details, please refer to the fine manual.
O. |
|
Back to top |
|
|
mkk157
Active User
Joined: 17 May 2006 Posts: 310
|
|
|
|
Thanks everybody for quick replies. |
|
Back to top |
|
|
|