-805 in cics

Yadigar Dirican

-805 in cics
Hi listers,
 
Programmer trying to run a cobol program in the CICS and received -805.
It is called by web via CTG.
 
When it is called by an AIX/CICS by APPC protocol, there is no problem.
What is the problem?
 
Thank you in advance.
Yadigar A. Dirican
    
CICS EDF screen is that:
 
   TRANSACTION: CSMI PROGRAM: HIZP001  TASK: 0051063 APPLID: CICSECZB DISPLAY:  00
  STATUS:  COMMAND EXECUTION COMPLETE                                          
  CALL TO RESOURCE MANAGER DSNCSQL                                             
  EXEC SQL SELECT                            P.AUTH=ECZAUSER, S.AUTH=          
  PLAN=ECREYPL,  DBRM=HIZP001,  STMT=00118, SECT=00001                         
  SQL COMMUNICATION AREA:                                                      
   SQLCABC      = 136                                            AT X'0F645688'
   SQLCODE      =   -805                                         AT X'0F64568C'
   SQLERRML     = 041                                            AT X'0F645690'
   SQLERRMC     = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03'    AT X'0F645692'
   SQLERRP      = 'DSNXEPM'                                      AT X'0F6456D8'
   SQLERRD(1-6) = -250,  000, 00000, -1, 00000,  000             AT X'0F6456E0'
   SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'                        AT X'0F6456F8'
   SQLSTATE     = 51002                                          AT X'0F645703'
  OVAR 001: TYPE=CHAR,                 LEN=00008                 AT X'0F645630'
+           DATA=X'D5C5C3D3C1404040'                                           
                      LINE:UNKNOWN        EIBFN=X'0204'                        
                                                                               
 PF/PA KEY NOT DEFINED                                                         
 ENTER:  CONTINUE                                                              
 PF1 : UNDEFINED           PF2 : UNDEFINED           PF3 : END EDF SESSION     
 PF4 : SUPPRESS DISPLAYS   PF5 : WORKING STORAGE     PF6 : USER DISPLAY        
 PF7 : SCROLL BACK         PF8 : SCROLL FORWARD      PF9 : STOP CONDITIONS     
 PF10: PREVIOUS DISPLAY    PF11: EIB DISPLAY         PF12: ABEND USER TASK     




______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

Yadigar Dirican

-805 in cics
(in response to Yadigar Dirican)
Hi listers,
 
Programmer trying to run a cobol program in the CICS and received -805.
It is called by web via CTG.
 
When it is called by an AIX/CICS by APPC protocol, there is no problem.
What is the problem?
 
Thank you in advance.
Yadigar A. Dirican
    
CICS EDF screen is that:
 
   TRANSACTION: CSMI PROGRAM: HIZP001  TASK: 0051063 APPLID: CICSECZB DISPLAY:  00
  STATUS:  COMMAND EXECUTION COMPLETE                                          
  CALL TO RESOURCE MANAGER DSNCSQL                                             
  EXEC SQL SELECT                            P.AUTH=ECZAUSER, S.AUTH=          
  PLAN=ECREYPL,  DBRM=HIZP001,  STMT=00118, SECT=00001                         
  SQL COMMUNICATION AREA:                                                      
   SQLCABC      = 136                                            AT X'0F645688'
   SQLCODE      =   -805                                         AT X'0F64568C'
   SQLERRML     = 041                                            AT X'0F645690'
   SQLERRMC     = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03'    AT X'0F645692'
   SQLERRP      = 'DSNXEPM'                                      AT X'0F6456D8'
   SQLERRD(1-6) = -250,  000, 00000, -1, 00000,  000             AT X'0F6456E0'
   SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'                        AT X'0F6456F8'
   SQLSTATE     = 51002                                          AT X'0F645703'
  OVAR 001: TYPE=CHAR,                 LEN=00008                 AT X'0F645630'
+           DATA=X'D5C5C3D3C1404040'                                           
                      LINE:UNKNOWN        EIBFN=X'0204'                        
                                                                               
 PF/PA KEY NOT DEFINED                                                         
 ENTER:  CONTINUE                                                              
 PF1 : UNDEFINED           PF2 : UNDEFINED           PF3 : END EDF SESSION     
 PF4 : SUPPRESS DISPLAYS   PF5 : WORKING STORAGE     PF6 : USER DISPLAY        
 PF7 : SCROLL BACK         PF8 : SCROLL FORWARD      PF9 : STOP CONDITIONS     
 PF10: PREVIOUS DISPLAY    PF11: EIB DISPLAY         PF12: ABEND USER TASK     




______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

Yadigar Dirican

-805 in cics
(in response to Yadigar Dirican)
Hi listers,
 
Programmer trying to run a cobol program in the CICS and received -805.
It is called by web via CTG.
 
When it is called by an AIX/CICS by APPC protocol, there is no problem.
What is the problem?
 
Thank you in advance.
Yadigar A. Dirican
    
CICS EDF screen is that:
 
   TRANSACTION: CSMI PROGRAM: HIZP001  TASK: 0051063 APPLID: CICSECZB DISPLAY:  00
  STATUS:  COMMAND EXECUTION COMPLETE                                          
  CALL TO RESOURCE MANAGER DSNCSQL                                             
  EXEC SQL SELECT                            P.AUTH=ECZAUSER, S.AUTH=          
  PLAN=ECREYPL,  DBRM=HIZP001,  STMT=00118, SECT=00001                         
  SQL COMMUNICATION AREA:                                                      
   SQLCABC      = 136                                            AT X'0F645688'
   SQLCODE      =   -805                                         AT X'0F64568C'
   SQLERRML     = 041                                            AT X'0F645690'
   SQLERRMC     = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03'    AT X'0F645692'
   SQLERRP      = 'DSNXEPM'                                      AT X'0F6456D8'
   SQLERRD(1-6) = -250,  000, 00000, -1, 00000,  000             AT X'0F6456E0'
   SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'                        AT X'0F6456F8'
   SQLSTATE     = 51002                                          AT X'0F645703'
  OVAR 001: TYPE=CHAR,                 LEN=00008                 AT X'0F645630'
+           DATA=X'D5C5C3D3C1404040'                                           
                      LINE:UNKNOWN        EIBFN=X'0204'                        
                                                                               
 PF/PA KEY NOT DEFINED                                                         
 ENTER:  CONTINUE                                                              
 PF1 : UNDEFINED           PF2 : UNDEFINED           PF3 : END EDF SESSION     
 PF4 : SUPPRESS DISPLAYS   PF5 : WORKING STORAGE     PF6 : USER DISPLAY        
 PF7 : SCROLL BACK         PF8 : SCROLL FORWARD      PF9 : STOP CONDITIONS     
 PF10: PREVIOUS DISPLAY    PF11: EIB DISPLAY         PF12: ABEND USER TASK     




______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

Dave Nance

Re: -805 in cics
(in response to Yadigar Dirican)
Have you checked the plan mentioned in the error message to ensure that contoken has been bound to it. Typicaly, CICS and web interfaces execute programs using separate plans, so you may have to bind your program to multiple plans.


David Nance
 

--- On Mon, 12/1/08, Yadigar Dirican <[login to unmask email]> wrote:

From: Yadigar Dirican <[login to unmask email]>
Subject: [DB2-L] -805 in cics
To: [login to unmask email]
Date: Monday, December 1, 2008, 7:35 AM







Hi listers,
 
Programmer trying to run a cobol program in the CICS and received -805.
It is called by web via CTG.
 
When it is called by an AIX/CICS by APPC protocol, there is no problem.
What is the problem?
 
Thank you in advance.
Yadigar A. Dirican
    
CICS EDF screen is that:
 
   TRANSACTION: CSMI PROGRAM: HIZP001  TASK: 0051063 APPLID: CICSECZB DISPLAY:  00
  STATUS:  COMMAND EXECUTION COMPLETE                                          
  CALL TO RESOURCE MANAGER DSNCSQL                                             
  EXEC SQL SELECT                            P.AUTH=ECZAUSER, S.AUTH=          
  PLAN=ECREYPL,  DBRM=HIZP001,  STMT=00118, SECT=00001                         
  SQL COMMUNICATION AREA:                                                      
   SQLCABC      = 136                                            AT X'0F645688'
   SQLCODE      =   -805                                         AT X'0F64568C'
   SQLERRML     = 041                                            AT X'0F645690'
   SQLERRMC     = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03'    AT X'0F645692'
   SQLERRP      = 'DSNXEPM'                                      AT X'0F6456D8'
   SQLERRD(1-6) = -250,  000, 00000, -1, 00000,  000             AT X'0F6456E0'
   SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'                        AT X'0F6456F8'
   SQLSTATE     = 51002                                          AT X'0F645703'
  OVAR 001: TYPE=CHAR,                 LEN=00008                 AT X'0F645630'
+           DATA=X'D5C5C3D3C1404040'                                           
                      LINE:UNKNOWN        EIBFN=X'0204'                        
                                                                               
 PF/PA KEY NOT DEFINED                                                         
 ENTER:  CONTINUE                                                              
 PF1 : UNDEFINED           PF2 : UNDEFINED           PF3 : END EDF SESSION     
 PF4 : SUPPRESS DISPLAYS   PF5 : WORKING STORAGE     PF6 : USER DISPLAY        
 PF7 : SCROLL BACK         PF8 : SCROLL FORWARD      PF9 : STOP CONDITIONS     
 PF10: PREVIOUS DISPLAY    PF11: EIB DISPLAY         PF12: ABEND USER TASK     




IDUG 2009 - North America * May 11-15, 2009 * Denver, CO, USA
The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at IDUG.ORG under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information, and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services




______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

Cuneyt Goksu

Re: -805 in cics
(in response to Dave Nance)
Yadigar,


Please check 1854F698140E8F1B token with your DB2 Catalog and in LOAD
module
PLease check the existence of HIZP001 in plan ECREYPL.
How many packagelist in your PLAN?
If there is more than one are you binding HIZP001 in more than one
packagelist?
Regards,
Cuneyt

-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On
Behalf Of Yadigar Dirican
Sent: Monday, December 01, 2008 2:35 PM
To: [login to unmask email]
Subject: [DB2-L] -805 in cics



Hi listers,

Programmer trying to run a cobol program in the CICS and received -805.
It is called by web via CTG.

When it is called by an AIX/CICS by APPC protocol, there is no problem.
What is the problem?

Thank you in advance.
Yadigar A. Dirican

CICS EDF screen is that:

TRANSACTION: CSMI PROGRAM: HIZP001 TASK: 0051063 APPLID: CICSECZB
DISPLAY: 00
STATUS: COMMAND EXECUTION COMPLETE

CALL TO RESOURCE MANAGER DSNCSQL

EXEC SQL SELECT P.AUTH=ECZAUSER, S.AUTH=

PLAN=ECREYPL, DBRM=HIZP001, STMT=00118, SECT=00001

SQL COMMUNICATION AREA:

SQLCABC = 136 AT
X'0F645688'
SQLCODE = -805 AT
X'0F64568C'
SQLERRML = 041 AT
X'0F645690'
SQLERRMC = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03' AT
X'0F645692'
SQLERRP = 'DSNXEPM' AT
X'0F6456D8'
SQLERRD(1-6) = -250, 000, 00000, -1, 00000, 000 AT
X'0F6456E0'
SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _' AT
X'0F6456F8'
SQLSTATE = 51002 AT
X'0F645703'
OVAR 001: TYPE=CHAR, LEN=00008 AT
X'0F645630'
+ DATA=X'D5C5C3D3C1404040'

LINE:UNKNOWN EIBFN=X'0204'



PF/PA KEY NOT DEFINED

ENTER: CONTINUE

PF1 : UNDEFINED PF2 : UNDEFINED PF3 : END EDF
SESSION
PF4 : SUPPRESS DISPLAYS PF5 : WORKING STORAGE PF6 : USER DISPLAY

PF7 : SCROLL BACK PF8 : SCROLL FORWARD PF9 : STOP
CONDITIONS
PF10: PREVIOUS DISPLAY PF11: EIB DISPLAY PF12: ABEND USER
TASK


_____


< http://idug.org/lsNA > IDUG 2009 - North America * May 11-15, 2009 *
Denver, CO, USA

The IDUG DB2-L Listserv is only part of your membership in IDUG. The
DB2-L list archives, FAQ, and delivery preferences are at IDUG.ORG
< http://www.idug.org/lsidug > under the Listserv tab. While at the site,
you can also access the IDUG Online Learning Center, Tech Library and
Code Place, see the latest IDUG conference information
< http://www.idug.org/lsconf > , and much more. If you have not yet signed
up for Basic Membership in IDUG, available at no cost, click on Member
< http://www.idug.org/lsms > Services


______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

Agus Kwee

Re: -805 in cics
(in response to Cuneyt Goksu)
Hi Yadigar,

If you look at the explanation of SQLCODE = -805 from the DB2 for z/OS Codes
manual, the reason for the error is further explained in the values returned in the
SQLERRMC field.
The first token value returned in the SQLERRMC field is:
DB2P..HIZP001.18.... which is the DB2 package name.
It look like the name is missing the collection-id name which should be
between the location name (DB2P) and the member name(HIZP001).
According to the manual, the last token value : '03' is the 'reason' and
for '03' one of the actions to fix the problem is to correct the collection-id.
In the explanation of reason '02', one of the suggested action is to issue
SET CURRENT PACKAGESET from your program.

Regards,
Agus Kwee
Themis Training
http://www.themisinc.com



----- Original Message -----
From: Yadigar Dirican
Date: Monday, December 1, 2008 8:59 am
Subject: [DB2-L] -805 in cics
To: [login to unmask email]

> Hi listers,
>
> Programmer trying to run a cobol program in the CICS
> and received -805.
> It is called by web via CTG.
>
> When it is called by an AIX/CICS by APPC protocol, there is no
> problem.What is the problem?
>
> Thank you in advance.
> Yadigar A. Dirican
>
> CICS EDF screen is that:
>
> TRANSACTION: CSMI PROGRAM: HIZP001 TASK: 0051063 APPLID:
> CICSECZB DISPLAY: 00
> STATUS: COMMAND EXECUTION
> COMPLETE
> CALL TO RESOURCE MANAGER
> DSNCSQL
> EXEC SQL SELECT P.AUTH=ECZAUSER,
> S.AUTH=
> PLAN=ECREYPL, DBRM=HIZP001, STMT=00118,
> SECT=00001
> SQL COMMUNICATION
> AREA:
> SQLCABC = 136
> AT X'0F645688'
> SQLCODE = -805
> AT X'0F64568C'
> SQLERRML = 041
> AT X'0F645690'
> SQLERRMC = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03'
> AT X'0F645692'
> SQLERRP = 'DSNXEPM'
> AT X'0F6456D8'
> SQLERRD(1-6) = -250, 000, 00000, -1, 00000, 000
> AT X'0F6456E0'
> SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'
> AT X'0F6456F8'
> SQLSTATE = 51002
> AT X'0F645703'
> OVAR 001: TYPE=CHAR, LEN=00008
> AT X'0F645630'
> +
> DATA=X'D5C5C3D3C1404040'
> LINE:UNKNOWN
> EIBFN=X'0204'
>
> PF/PA KEY NOT
> DEFINED
> ENTER:
> CONTINUE
> PF1 : UNDEFINED PF2 : UNDEFINED PF3 : END
> EDF SESSION
> PF4 : SUPPRESS DISPLAYS PF5 : WORKING STORAGE PF6 : USER
> DISPLAY
> PF7 : SCROLL BACK PF8 : SCROLL FORWARD PF9 : STOP
> CONDITIONS
> PF10: PREVIOUS DISPLAY PF11: EIB DISPLAY PF12: ABEND
> USER TASK
>
>
>
>
> ______________________________________________________________________
>
> * IDUG 2009 Denver, CO, USA * May 11-15, 2009 *
> http://IDUG.ORG/lsNA *
> ______________________________________________________________________
>
>
>
> The IDUG DB2-L Listserv is only part of your membership in IDUG.
> The DB2-L list archives, FAQ, and delivery preferences are at
> http://www.idug.org/lsidug under the Listserv tab. While at the
> site, you can also access the IDUG Online Learning Center, Tech
> Library and Code Place, see the latest IDUG conference
> information and much more. If you have not yet signed up for
> Basic Membership in IDUG, available at no cost, click on Member
> Services at http://www.idug.org/lsms

______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

Yadigar Dirican

Re: -805 in cics
(in response to Agus Kwee)
Hi all,
 
Thank you very much.
the problem was solved.
that was given wrong plan name for it.

--- On Mon, 12/1/08, [login to unmask email] <[login to unmask email]> wrote:

From: [login to unmask email] <[login to unmask email]>
Subject: Re: [DB2-L] -805 in cics
To: [login to unmask email]
Date: Monday, December 1, 2008, 4:32 PM



Hi Yadigar,
 
If you look at the explanation of SQLCODE = -805 from the DB2 for z/OS Codes
manual, the reason for the error is further explained in the values returned in the
SQLERRMC field.
The first token value returned in the SQLERRMC field is:
DB2P..HIZP001.18.... which is the DB2 package name.
It look like the name is missing the collection-id name which should be
between the location name (DB2P) and the member name(HIZP001).
According to the manual, the last token value : '03' is the 'reason' and
for '03' one of the actions to fix the problem is to correct the collection-id.
In the explanation of reason '02', one of the suggested action is to issue
SET CURRENT PACKAGESET from your program.
 
Regards,
Agus Kwee
Themis Training
http://www.themisinc.com
 


----- Original Message -----
From: Yadigar Dirican
Date: Monday, December 1, 2008 8:59 am
Subject: [DB2-L] -805 in cics
To: [login to unmask email]

> Hi listers,
>  
> Programmer trying to run a cobol program in the CICS
> and received -805.
> It is called by web via CTG.
>  
> When it is called by an AIX/CICS by APPC protocol, there is no
> problem.What is the problem?
>  
> Thank you in advance.
> Yadigar A. Dirican
>     
> CICS EDF screen is that:
>  
>    TRANSACTION: CSMI PROGRAM: HIZP001  TASK: 0051063 APPLID:
> CICSECZB DISPLAY:  00
>   STATUS:  COMMAND EXECUTION
> COMPLETE                                          
>   CALL TO RESOURCE MANAGER
> DSNCSQL                                             
>   EXEC SQL SELECT                            P.AUTH=ECZAUSER,
> S.AUTH=          
>   PLAN=ECREYPL,  DBRM=HIZP001,  STMT=00118,
> SECT=00001                         
>   SQL COMMUNICATION
> AREA:                                                      
>    SQLCABC      = 136                                           
> AT X'0F645688'
>    SQLCODE      =   -805                                        
> AT X'0F64568C'
>    SQLERRML     = 041                                           
> AT X'0F645690'
>    SQLERRMC     = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03'   
> AT X'0F645692'
>    SQLERRP      = 'DSNXEPM'                                     
> AT X'0F6456D8'
>    SQLERRD(1-6) = -250,  000, 00000, -1, 00000,  000            
> AT X'0F6456E0'
>    SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'                       
> AT X'0F6456F8'
>    SQLSTATE     = 51002                                         
> AT X'0F645703'
>   OVAR 001: TYPE=CHAR,                 LEN=00008                
> AT X'0F645630'
> +          
> DATA=X'D5C5C3D3C1404040'                                           
>                       LINE:UNKNOWN       
> EIBFN=X'0204'                        
>                                                                                
>  PF/PA KEY NOT
> DEFINED                                                         
>  ENTER: 
> CONTINUE                                                              
>  PF1 : UNDEFINED           PF2 : UNDEFINED           PF3 : END
> EDF SESSION     
>  PF4 : SUPPRESS DISPLAYS   PF5 : WORKING STORAGE     PF6 : USER
> DISPLAY        
>  PF7 : SCROLL BACK         PF8 : SCROLL FORWARD      PF9 : STOP
> CONDITIONS     
>  PF10: PREVIOUS DISPLAY    PF11: EIB DISPLAY         PF12: ABEND
> USER TASK     
>
>
>
>
> ______________________________________________________________________
>
> * IDUG 2009 Denver, CO, USA * May 11-15, 2009 *
> http://IDUG.ORG/lsNA *
> ______________________________________________________________________
>
>
>
> The IDUG DB2-L Listserv is only part of your membership in IDUG.
> The DB2-L list archives, FAQ, and delivery preferences are at
> http://www.idug.org/lsidug under the Listserv tab. While at the
> site, you can also access the IDUG Online Learning Center, Tech
> Library and Code Place, see the latest IDUG conference
> information and much more. If you have not yet signed up for
> Basic Membership in IDUG, available at no cost, click on Member
> Services at http://www.idug.org/lsms



IDUG 2009 - North America * May 11-15, 2009 * Denver, CO, USA
The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at IDUG.ORG under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information, and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services




______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

Yadigar Dirican

Re: -805 in cics
(in response to Yadigar Dirican)
Hi all,
 
Thank you very much.
the problem was solved.
that was given wrong plan name for it.

--- On Mon, 12/1/08, [login to unmask email] <[login to unmask email]> wrote:

From: [login to unmask email] <[login to unmask email]>
Subject: Re: [DB2-L] -805 in cics
To: [login to unmask email]
Date: Monday, December 1, 2008, 4:32 PM



Hi Yadigar,
 
If you look at the explanation of SQLCODE = -805 from the DB2 for z/OS Codes
manual, the reason for the error is further explained in the values returned in the
SQLERRMC field.
The first token value returned in the SQLERRMC field is:
DB2P..HIZP001.18.... which is the DB2 package name.
It look like the name is missing the collection-id name which should be
between the location name (DB2P) and the member name(HIZP001).
According to the manual, the last token value : '03' is the 'reason' and
for '03' one of the actions to fix the problem is to correct the collection-id.
In the explanation of reason '02', one of the suggested action is to issue
SET CURRENT PACKAGESET from your program.
 
Regards,
Agus Kwee
Themis Training
http://www.themisinc.com
 


----- Original Message -----
From: Yadigar Dirican
Date: Monday, December 1, 2008 8:59 am
Subject: [DB2-L] -805 in cics
To: [login to unmask email]

> Hi listers,
>  
> Programmer trying to run a cobol program in the CICS
> and received -805.
> It is called by web via CTG.
>  
> When it is called by an AIX/CICS by APPC protocol, there is no
> problem.What is the problem?
>  
> Thank you in advance.
> Yadigar A. Dirican
>     
> CICS EDF screen is that:
>  
>    TRANSACTION: CSMI PROGRAM: HIZP001  TASK: 0051063 APPLID:
> CICSECZB DISPLAY:  00
>   STATUS:  COMMAND EXECUTION
> COMPLETE                                          
>   CALL TO RESOURCE MANAGER
> DSNCSQL                                             
>   EXEC SQL SELECT                            P.AUTH=ECZAUSER,
> S.AUTH=          
>   PLAN=ECREYPL,  DBRM=HIZP001,  STMT=00118,
> SECT=00001                         
>   SQL COMMUNICATION
> AREA:                                                      
>    SQLCABC      = 136                                           
> AT X'0F645688'
>    SQLCODE      =   -805                                        
> AT X'0F64568C'
>    SQLERRML     = 041                                           
> AT X'0F645690'
>    SQLERRMC     = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03'   
> AT X'0F645692'
>    SQLERRP      = 'DSNXEPM'                                     
> AT X'0F6456D8'
>    SQLERRD(1-6) = -250,  000, 00000, -1, 00000,  000            
> AT X'0F6456E0'
>    SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'                       
> AT X'0F6456F8'
>    SQLSTATE     = 51002                                         
> AT X'0F645703'
>   OVAR 001: TYPE=CHAR,                 LEN=00008                
> AT X'0F645630'
> +          
> DATA=X'D5C5C3D3C1404040'                                           
>                       LINE:UNKNOWN       
> EIBFN=X'0204'                        
>                                                                                
>  PF/PA KEY NOT
> DEFINED                                                         
>  ENTER: 
> CONTINUE                                                              
>  PF1 : UNDEFINED           PF2 : UNDEFINED           PF3 : END
> EDF SESSION     
>  PF4 : SUPPRESS DISPLAYS   PF5 : WORKING STORAGE     PF6 : USER
> DISPLAY        
>  PF7 : SCROLL BACK         PF8 : SCROLL FORWARD      PF9 : STOP
> CONDITIONS     
>  PF10: PREVIOUS DISPLAY    PF11: EIB DISPLAY         PF12: ABEND
> USER TASK     
>
>
>
>
> ______________________________________________________________________
>
> * IDUG 2009 Denver, CO, USA * May 11-15, 2009 *
> http://IDUG.ORG/lsNA *
> ______________________________________________________________________
>
>
>
> The IDUG DB2-L Listserv is only part of your membership in IDUG.
> The DB2-L list archives, FAQ, and delivery preferences are at
> http://www.idug.org/lsidug under the Listserv tab. While at the
> site, you can also access the IDUG Online Learning Center, Tech
> Library and Code Place, see the latest IDUG conference
> information and much more. If you have not yet signed up for
> Basic Membership in IDUG, available at no cost, click on Member
> Services at http://www.idug.org/lsms



IDUG 2009 - North America * May 11-15, 2009 * Denver, CO, USA
The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at IDUG.ORG under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information, and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services




______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

Yadigar Dirican

Re: -805 in cics
(in response to Yadigar Dirican)
Hi all,
 
Thank you very much.
the problem was solved.
that was given wrong plan name for it.

--- On Mon, 12/1/08, [login to unmask email] <[login to unmask email]> wrote:

From: [login to unmask email] <[login to unmask email]>
Subject: Re: [DB2-L] -805 in cics
To: [login to unmask email]
Date: Monday, December 1, 2008, 4:32 PM



Hi Yadigar,
 
If you look at the explanation of SQLCODE = -805 from the DB2 for z/OS Codes
manual, the reason for the error is further explained in the values returned in the
SQLERRMC field.
The first token value returned in the SQLERRMC field is:
DB2P..HIZP001.18.... which is the DB2 package name.
It look like the name is missing the collection-id name which should be
between the location name (DB2P) and the member name(HIZP001).
According to the manual, the last token value : '03' is the 'reason' and
for '03' one of the actions to fix the problem is to correct the collection-id.
In the explanation of reason '02', one of the suggested action is to issue
SET CURRENT PACKAGESET from your program.
 
Regards,
Agus Kwee
Themis Training
http://www.themisinc.com
 


----- Original Message -----
From: Yadigar Dirican
Date: Monday, December 1, 2008 8:59 am
Subject: [DB2-L] -805 in cics
To: [login to unmask email]

> Hi listers,
>  
> Programmer trying to run a cobol program in the CICS
> and received -805.
> It is called by web via CTG.
>  
> When it is called by an AIX/CICS by APPC protocol, there is no
> problem.What is the problem?
>  
> Thank you in advance.
> Yadigar A. Dirican
>     
> CICS EDF screen is that:
>  
>    TRANSACTION: CSMI PROGRAM: HIZP001  TASK: 0051063 APPLID:
> CICSECZB DISPLAY:  00
>   STATUS:  COMMAND EXECUTION
> COMPLETE                                          
>   CALL TO RESOURCE MANAGER
> DSNCSQL                                             
>   EXEC SQL SELECT                            P.AUTH=ECZAUSER,
> S.AUTH=          
>   PLAN=ECREYPL,  DBRM=HIZP001,  STMT=00118,
> SECT=00001                         
>   SQL COMMUNICATION
> AREA:                                                      
>    SQLCABC      = 136                                           
> AT X'0F645688'
>    SQLCODE      =   -805                                        
> AT X'0F64568C'
>    SQLERRML     = 041                                           
> AT X'0F645690'
>    SQLERRMC     = 'DB2P..HIZP001.1854F698140E8F1B,ECREYPL,03'   
> AT X'0F645692'
>    SQLERRP      = 'DSNXEPM'                                     
> AT X'0F6456D8'
>    SQLERRD(1-6) = -250,  000, 00000, -1, 00000,  000            
> AT X'0F6456E0'
>    SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'                       
> AT X'0F6456F8'
>    SQLSTATE     = 51002                                         
> AT X'0F645703'
>   OVAR 001: TYPE=CHAR,                 LEN=00008                
> AT X'0F645630'
> +          
> DATA=X'D5C5C3D3C1404040'                                           
>                       LINE:UNKNOWN       
> EIBFN=X'0204'                        
>                                                                                
>  PF/PA KEY NOT
> DEFINED                                                         
>  ENTER: 
> CONTINUE                                                              
>  PF1 : UNDEFINED           PF2 : UNDEFINED           PF3 : END
> EDF SESSION     
>  PF4 : SUPPRESS DISPLAYS   PF5 : WORKING STORAGE     PF6 : USER
> DISPLAY        
>  PF7 : SCROLL BACK         PF8 : SCROLL FORWARD      PF9 : STOP
> CONDITIONS     
>  PF10: PREVIOUS DISPLAY    PF11: EIB DISPLAY         PF12: ABEND
> USER TASK     
>
>
>
>
> ______________________________________________________________________
>
> * IDUG 2009 Denver, CO, USA * May 11-15, 2009 *
> http://IDUG.ORG/lsNA *
> ______________________________________________________________________
>
>
>
> The IDUG DB2-L Listserv is only part of your membership in IDUG.
> The DB2-L list archives, FAQ, and delivery preferences are at
> http://www.idug.org/lsidug under the Listserv tab. While at the
> site, you can also access the IDUG Online Learning Center, Tech
> Library and Code Place, see the latest IDUG conference
> information and much more. If you have not yet signed up for
> Basic Membership in IDUG, available at no cost, click on Member
> Services at http://www.idug.org/lsms



IDUG 2009 - North America * May 11-15, 2009 * Denver, CO, USA
The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at IDUG.ORG under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information, and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services




______________________________________________________________________

* IDUG 2009 Denver, CO, USA * May 11-15, 2009 * http://IDUG.ORG/lsNA *
______________________________________________________________________



The IDUG DB2-L Listserv is only part of your membership in IDUG. The DB2-L list archives, FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms