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 

jcl error

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
nadh
Intermediate


Joined: 08 Oct 2004
Posts: 192
Topics: 89
PostPosted: Fri Jan 21, 2005 12:26 pm    Post subject: jcl error Reply with quote
Hi,

I'm executing the following job,
Code:

//TVSQ256T JOB (62400020,SEI4),'SATYAM',MSGCLASS=T,                   
//             CLASS=L,NOTIFY=TVS                                     
//JOBLIB   DD DSN=DLD.L00T000A.LOAD,DISP=SHR                         
//*---------------------------------------------------------------   
//STEP1    EXEC PT0T000I,MBR=PG0Q256A,PSB=PG0Q256A,SOUT=T,           
//         USER=EG                                                   
//GO.SYSIN DD *                             
20041231                                                           
//*                                                                   
//GO.IEFRDER   DD DUMMY                                               
//GO.IMSCNTL   DD DSN=TTB.L00T327A.IMSCNTL(FR000001),DISP=SHR         
//GO.DD01      DD DSN=DFE.GQG5020C.A.DB2.TRI,DISP=SHR                 
//GO.DB00173A  DD DSN=DFE.BI00173A,DISP=SHR                           
//GO.DB00173B  DD DSN=DFE.BI00173B,DISP=SHR                           
//*---------------------------------------------------------------   
//GO.SYSPRT DD DISP=(,PASS),UNIT=SYSDA,                               
// SPACE=(TRK,(5,5),RLSE),DCB=(RECFM=VB,LRECL=254,BLKSIZE=6100)       
//SEL1 DD SYSOUT=(U,,0057),CHARS=TN15,FCB=8810,COPIES=1               
//*                                                         
//GO.SYSUDUMP  DD SPACE=(605,(500,500),RLSE,,ROUND),SYSOUT=U
//           

I'm getting the following error

IDCAMS SYSTEM SERVICES
IDC3300I ERROR OPENING SYSIN
IDC3304I ** JCL STATEMENT MISSING
IDC3207I REMAINDER OF COMMAND INPUT STREAM IGNORED
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 16

any one pls. help me out in resolving this.

thanks in advance....

nadh
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12380
Topics: 75
Location: San Jose
PostPosted: Fri Jan 21, 2005 1:01 pm    Post subject: Reply with quote
Nadh,

Make sure that PROC PT0T000I has a step name GO and there is a sysin DD statement defined in that step.

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


Joined: 08 Oct 2004
Posts: 192
Topics: 89
PostPosted: Fri Jan 21, 2005 2:19 pm    Post subject: jcl error Reply with quote
This is the proc i'm using...
Code:

//IMSBMP PROC MBR=,             PGM NAME                                00010000
//       PSB=,                  PSBNAME                                 00020000
//*      LTERM=,                LOGICAL TERMINAL NAME TO SEND           00030000
//       USER=,                 USERID                                  00040013
//       TYPE=BMP,              BMP OR DBB                              00040013
//       SOUT=W,IN=,OUT=,OPT=N,SPIE=0,TST=0,DCA=000,                    00050011
//       PRLD=,STIMER=,CKPTID=,IMSID=TEST,PDLI=1,AGN=,SSM=,PREINIT=,    00060011
//       APARM=                                                         00060011
//*      YEAR=                                                          00060011
//* -------------------------------------------------------------
//*        DCA = DIRCA
//*        TST = TEST
//* -------------------------------------------------------------
//SCR      EXEC PGM=IDCAMS                                              0270004
//SYSPRINT  DD  SYSOUT=&SOUT
//GO       EXEC  PGM=DFSRRC00,PARM=(&TYPE,&MBR,&PSB,                    00070000
//  &IN,&OUT,&OPT&SPIE&TST&DCA,&PRLD,&STIMER,&CKPTID,&PDLI,,,,&IMSID,   00080012
//  &AGN,&SSM,&PREINIT,,&APARM)
//*         DD  DSN=TLF.PTB.LI0T327A.YEAR&YEAR,DISP=SHR
//STEPLIB   DD  DSN=DLD.L00T000A.LOAD,DISP=SHR
//          DD  DSN=TTB.L00T327A.RESLIB,DISP=SHR
//          DD  DSN=TTB.L00T469A.DSNLOAD,DISP=SHR
//          DD  DSN=TYB.L00T232A.LOADLIB,DISP=SHR
//PECNTL    DD  DSN=DBB.L00T000A.PECNTL(&USER),DISP=SHR                 00140013
//DFSRESLB  DD  DSN=TTB.L00T327A.RESLIB,DISP=SHR
//DFSESL    DD  DSN=TTB.L00T327A.RESLIB,DISP=SHR
//          DD  DSN=TTB.L00T469A.DSNLOAD,DISP=SHR
//          DD  DSN=TYB.L00T232A.LOADLIB,DISP=SHR
//IMS       DD  DSN=TTB.L00T327B.DBDLIB,DISP=SHR                        00160010
//          DD  DSN=TTB.L00T327A.DBDLIB,DISP=SHR                        00160010
//          DD  DSN=TTB.L00T327B.PSBLIB,DISP=SHR                        00170010
//          DD  DSN=TTB.L00T327A.PSBLIB,DISP=SHR                        00170010
//PROCLIB   DD  DSN=VI2.PROC.DEI,DISP=SHR                               00180013
//          DD  DSN=TTB.L00T327A.DCPARM,DISP=SHR                        00180013
//IMSERR    DD  SYSOUT=&SOUT                                            00190014
//SYSPRINT  DD  SYSOUT=&SOUT                                            00200014
//SYSUDUMP  DD  SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=VBA,BLKSIZE=3129),    00210000
//          SPACE=(125,(2500,100),RLSE,,ROUND)                          00220000
//SYSOUT    DD  SYSOUT=&SOUT
//SYSABOUT  DD  SYSOUT=&SOUT
//SYSDBOUT  DD  SYSOUT=&SOUT
//MSGIMS    DD  SYSOUT=&SOUT
//SNAPIMS   DD  SYSOUT=&SOUT
//RGISNP    DD  SYSOUT=&SOUT
//RGIMSG    DD  SYSOUT=&SOUT
//RGILGN    DD  SYSOUT=&SOUT
//STAT      DD  SYSOUT=&SOUT
//STAT2     DD  SYSOUT=&SOUT
//LIBSPL    DD  DSN=DBB.L00T387B.L3800,DISP=SHR
//          DD  DSN=DBB.L00T387A.L3800,DISP=SHR


Kolusu can u pls. help me out to resolve this error.

nadh
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12380
Topics: 75
Location: San Jose
PostPosted: Fri Jan 21, 2005 2:28 pm    Post subject: Reply with quote
Nadh,

There are a couple of errors.

1.The first step in your proc is named SCR which execuetes IDCAMS. however there is no SYSIN statement for that step. So you need to code a sysin statement.

2. Remove the override of sysin in your JCL. There is no DD statement in the GO step

i.e

Code:

//GO.SYSIN DD *
20041231 


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
nadh
Intermediate


Joined: 08 Oct 2004
Posts: 192
Topics: 89
PostPosted: Sat Jan 22, 2005 8:03 am    Post subject: jcl error Reply with quote
Kolusu,

Thanks for your early reply...

But unfortunately we do not have access to change the proc. So kindly suggest me the solution only with modifying the jcl. As far as my understanding the jcl is executing but as you said there is no input to idcams in jcl it is getting abended with return code 16. Pls. give me an idea to override that idcams step in jcl. I have executed successfully other jobs with same proc. but difference is in those jcls i'm deleting the output dataset using the below statements
//SCR.SYSIN DD *
DELETE DFE.RT0Q269T.A.DB2 NVSAM PRG
//*

I need the go.sysin statement in jcl only because programs are reading input using that parameter.

Pls. suggest me a solution.

Thanks in advance

nadh.
Back to top
View user's profile Send private message Send e-mail
nevilh
Beginner


Joined: 11 Aug 2004
Posts: 115
Topics: 0
PostPosted: Sat Jan 22, 2005 9:34 am    Post subject: Reply with quote
//TVSQ256T JOB (62400020,SEI4),'SATYAM',MSGCLASS=T,
// CLASS=L,NOTIFY=TVS
//JOBLIB DD DSN=DLD.L00T000A.LOAD,DISP=SHR
//*---------------------------------------------------------------
//STEP1 EXEC PT0T000I,MBR=PG0Q256A,PSB=PG0Q256A,SOUT=T,
// USER=EG
//SCR.SYSIN DD DUMMY
//GO.SYSIN DD *
20041231
//*
//GO.IEFRDER DD DUMMY
//GO.IMSCNTL DD DSN=TTB.L00T327A.IMSCNTL(FR000001),DISP=SHR
//GO.DD01 DD DSN=DFE.GQG5020C.A.DB2.TRI,DISP=SHR
//GO.DB00173A DD DSN=DFE.BI00173A,DISP=SHR
//GO.DB00173B DD DSN=DFE.BI00173B,DISP=SHR
//*---------------------------------------------------------------
//GO.SYSPRT DD DISP=(,PASS),UNIT=SYSDA,
// SPACE=(TRK,(5,5),RLSE),DCB=(RECFM=VB,LRECL=254,BLKSIZE=6100)
//SEL1 DD SYSOUT=(U,,0057),CHARS=TN15,FCB=8810,COPIES=1
//*
//GO.SYSUDUMP DD SPACE=(605,(500,500),RLSE,,ROUND),SYSOUT=U
//
Back to top
View user's profile Send private message
nadh
Intermediate


Joined: 08 Oct 2004
Posts: 192
Topics: 89
PostPosted: Sat Jan 22, 2005 10:29 am    Post subject: jcl error Reply with quote
Yes,

I did same thing... It worked fine....

Thank you very much for the reply.


cheers
nadh
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) 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