Re: A JCL Problem question

2011-05-26 Thread Arthur T. 
On 26 May 2011 13:46:10 -0700, in bit.listserv.ibm-main 
(Message-ID:) 
sergio.co...@cetip.com.br (Sérgio Lima Costa) wrote:


But, when try run, this mistake appear, and I can't see 
where is the problem :


IEC130I SYSTSIN  DD STATEMENT MISSING
IEF472I  BINDSYS DB2COB - COMPLETION CODE - 
SYSTEM=000 USER=0102 REASON=


The SYSTSIN is there,  where is the problem ?


 You have a SYSTSIN on the 2nd step, but the error 
message seems to be coming from the first step.



--
I cannot receive mail at the address this was sent from.
To reply directly, send to ar23hur "at" pobox "dot" com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: A JCL Problem question

2011-05-26 Thread Gunnar Opheim 
The error message is not referring to the BINDSYS step, but to the BINDSYS
procstep of the DB2COB step executing the COMP006L procedure.

regards,
Gunnar


- Original Message - 
From: "Sérgio Lima Costa" 
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Thursday, May 26, 2011 10:35 PM
Subject: A JCL Problem question


Hello List,

I tried, write here, a REXX routine from compile COBOL batch with DB2.
The JCL generated is this :

// JOB (DES,SP,72664,09,30),&SYSUID,CLASS=N,
//   NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
//JOBLIB   DD  DISP=SHR,DSN=DB2.SDSNLOAD
// DD  DISP=SHR,DSN=CEE.SCEERUN
//DB2COB EXEC COMP006L,MEM=PROG001,
//   DBRMLIB=PROD.DBRMLIB
//*  SRCLIB=PROD.DCLGEN
//PC.SYSIN DD DSN=SERGIOL.FONTES.BATCH(PROG001),DISP=SHR
//*
//COBOL.SYSLIB  DD DSN=PROD.COPYLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=SERGIOL.TSO.LOAD,DISP=SHR
//LKED.SYSIN   DD *
  NAME PROG001(R)
/*
//BINDSYS  EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB  DD  DISP=SHR,DSN=PROD.DBRMLIB
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
DSN SYSTEM(DB2P)
 BIND  PLAN(PROG001) -
  MEMBER(PROG001) -
  LIBRARY   ('PROD.DBRMLIB') -
  ACTION(REP) -
  ISOLATION (CS) -
  VALIDATE  (BIND) -
  RELEASE   (COMMIT) -
  ACQUIRE   (USE)
 END

But, when try run, this mistake appear, and I can't see where is the problem :

IEC130I SYSTSIN  DD STATEMENT MISSING
IEF472I  BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102 REASON=

The SYSTSIN is there,  where is the problem ?

Thanks,

Sergio Lima

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

RES: A JCL Problem question

2011-05-26 Thread Sérgio Lima Costa 
Hello List,

Sorry about this trouble.
This question is solved.

My apologize.

Sergio

-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de 
Sérgio Lima Costa
Enviada em: quinta-feira, 26 de maio de 2011 17:35
Para: IBM-MAIN@bama.ua.edu
Assunto: A JCL Problem question

Hello List,

I tried, write here, a REXX routine from compile COBOL batch with DB2.
The JCL generated is this :

// JOB (DES,SP,72664,09,30),&SYSUID,CLASS=N,
//   NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
//JOBLIB   DD  DISP=SHR,DSN=DB2.SDSNLOAD
// DD  DISP=SHR,DSN=CEE.SCEERUN
//DB2COB EXEC COMP006L,MEM=PROG001,
//   DBRMLIB=PROD.DBRMLIB
//*  SRCLIB=PROD.DCLGEN
//PC.SYSIN DD DSN=SERGIOL.FONTES.BATCH(PROG001),DISP=SHR
//*
//COBOL.SYSLIB  DD DSN=PROD.COPYLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=SERGIOL.TSO.LOAD,DISP=SHR
//LKED.SYSIN   DD *
  NAME PROG001(R)
/*
//BINDSYS  EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB  DD  DISP=SHR,DSN=PROD.DBRMLIB
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
DSN SYSTEM(DB2P)
 BIND  PLAN(PROG001) -
  MEMBER(PROG001) -
  LIBRARY   ('PROD.DBRMLIB') -
  ACTION(REP) -
  ISOLATION (CS) -
  VALIDATE  (BIND) -
  RELEASE   (COMMIT) -
  ACQUIRE   (USE)
 END

But, when try run, this mistake appear, and I can't see where is the problem :

IEC130I SYSTSIN  DD STATEMENT MISSING
IEF472I  BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102 REASON=

The SYSTSIN is there,  where is the problem ?

Thanks,

Sergio Lima





"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da companhia, o qual é divulgado somente por pessoas 
autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination, distribution, 
copy or use without
express authorization from the sender. Personal opinions of the sender do not 
necessarily reflect
the company's point of view, which is only divulged by authorized personnel."

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da companhia, o qual é divulgado somente por pessoas 
autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination, distribution, 
copy or use without
express authorization from the sender. Personal opinions of the sender do not 
necessarily reflect
the company's point of view, which is only divulged by authorized personnel."

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: A JCL Problem question

2011-05-26 Thread Binyamin Dissen 
On Thu, 26 May 2011 17:35:26 -0300 Sérgio Lima Costa
 wrote:

:>I tried, write here, a REXX routine from compile COBOL batch with DB2.
:>The JCL generated is this :

:>// JOB (DES,SP,72664,09,30),&SYSUID,CLASS=N,
:>//   NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
:>//JOBLIB   DD  DISP=SHR,DSN=DB2.SDSNLOAD
:>// DD  DISP=SHR,DSN=CEE.SCEERUN
:>//DB2COB EXEC COMP006L,MEM=PROG001,
:>//   DBRMLIB=PROD.DBRMLIB
:>//*  SRCLIB=PROD.DCLGEN
:>//PC.SYSIN DD DSN=SERGIOL.FONTES.BATCH(PROG001),DISP=SHR
:>//*
:>//COBOL.SYSLIB  DD DSN=PROD.COPYLIB,DISP=SHR
:>//LKED.SYSLMOD DD DSN=SERGIOL.TSO.LOAD,DISP=SHR
:>//LKED.SYSIN   DD *
:>  NAME PROG001(R)
:>/*
:>//BINDSYS  EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
:>//DBRMLIB  DD  DISP=SHR,DSN=PROD.DBRMLIB
:>//SYSTSPRT DD  SYSOUT=*
:>//SYSPRINT DD  SYSOUT=*
:>//SYSUDUMP DD  SYSOUT=*
:>//SYSTSIN  DD  *
:>DSN SYSTEM(DB2P)
:> BIND  PLAN(PROG001) -
:>  MEMBER(PROG001) -
:>  LIBRARY   ('PROD.DBRMLIB') -
:>  ACTION(REP) -
:>  ISOLATION (CS) -
:>  VALIDATE  (BIND) -
:>  RELEASE   (COMMIT) -
:>  ACQUIRE   (USE)
:> END

:>But, when try run, this mistake appear, and I can't see where is the problem :

:>IEC130I SYSTSIN  DD STATEMENT MISSING
:>IEF472I  BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102 
REASON=

:>The SYSTSIN is there,  where is the problem ?

It would appear that there is a BINDSYS step in COMP006L proc.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

A JCL Problem question

2011-05-26 Thread Sérgio Lima Costa 
Hello List,

I tried, write here, a REXX routine from compile COBOL batch with DB2.
The JCL generated is this :

// JOB (DES,SP,72664,09,30),&SYSUID,CLASS=N,
//   NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
//JOBLIB   DD  DISP=SHR,DSN=DB2.SDSNLOAD
// DD  DISP=SHR,DSN=CEE.SCEERUN
//DB2COB EXEC COMP006L,MEM=PROG001,
//   DBRMLIB=PROD.DBRMLIB
//*  SRCLIB=PROD.DCLGEN
//PC.SYSIN DD DSN=SERGIOL.FONTES.BATCH(PROG001),DISP=SHR
//*
//COBOL.SYSLIB  DD DSN=PROD.COPYLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=SERGIOL.TSO.LOAD,DISP=SHR
//LKED.SYSIN   DD *
  NAME PROG001(R)
/*
//BINDSYS  EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB  DD  DISP=SHR,DSN=PROD.DBRMLIB
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
DSN SYSTEM(DB2P)
 BIND  PLAN(PROG001) -
  MEMBER(PROG001) -
  LIBRARY   ('PROD.DBRMLIB') -
  ACTION(REP) -
  ISOLATION (CS) -
  VALIDATE  (BIND) -
  RELEASE   (COMMIT) -
  ACQUIRE   (USE)
 END

But, when try run, this mistake appear, and I can't see where is the problem :

IEC130I SYSTSIN  DD STATEMENT MISSING
IEF472I  BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102 REASON=

The SYSTSIN is there,  where is the problem ?

Thanks,

Sergio Lima





"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) 
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu 
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e 
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, 
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem, 
necessariamente,
o ponto de vista da companhia, o qual é divulgado somente por pessoas 
autorizadas."

"Warning: This message was sent for exclusive use of the addressees above 
identified, possibly
containing information and or privileged/confidential documents whose content 
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it 
from your system.
Be noticed that the law forbids the retention, dissemination, distribution, 
copy or use without
express authorization from the sender. Personal opinions of the sender do not 
necessarily reflect
the company's point of view, which is only divulged by authorized personnel."

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html