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
 

 

CICS cobol pgm : using a VSAM KSDS in edit mode :

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
yussaf.khan

New User


Joined: 05 Jun 2008
Posts: 7
Location: india

PostPosted: Mon Sep 03, 2012 11:05 am    Post subject: CICS cobol pgm : using a VSAM KSDS in edit mode :
Reply with quote

I have a CICS cobol program that uses a VSAM KSDS with read + update. I execute this program/TRAN which fails with EIBRESP=16 , EIBRESP2 = 20. This means that an update attempt is being done for the file, defined as read only.

However, I have defined the file using RDO CEDA for update.
Code:

OBJECT CHARACTERISTICS                   
 CEDA  View File( FILEPER  )             
  File           : FILEPER               
  Group          : AFIAG01               
  DEScription    : PERSONNEL DB         
 VSAM PARAMETERS                         
  DSNAme         : AFIA.PER.KSDS.CLUSTER
. . .
. . .
  RECORDFormat   : F             
 OPERATIONS                     
  Add            : Yes           
  BRowse         : Yes           
  DELete         : Yes           
  READ           : Yes           
  UPDATE         : Yes           


I also did a CEMT INQ on this file, which shows that the file is for read only.
Code:

INQ FI(FILEPER)                                             
STATUS:  RESULTS - OVERTYPE TO MODIFY                       
 Fil(FILEPER ) Vsa Ope Ena Rea                     Sha     
        Dsn( AFIA.PER.KSDS.CLUSTER                        )

Could some one please help by explaining why the CEMT & CEDA results are different and... how do we fix this?

Thanks
Back to top
View user's profile Send private message

Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Mon Sep 03, 2012 11:15 am    Post subject:
Reply with quote

I see the file defined in FCT cannot update

Code:
INQ FI(FILEPER)                                             
STATUS:  RESULTS - OVERTYPE TO MODIFY                       
 Fil(FILEPER ) Vsa Ope Ena Rea                     Sha     
        Dsn( AFIA.PER.KSDS.CLUSTER                        )


Should be something like

Code:
INQ FI(FILEPER)                                             
STATUS:  RESULTS - OVERTYPE TO MODIFY                       
 Fil(FILEPER ) Vsa Ope Ena Rea     Upd             Sha     
        Dsn( AFIA.PER.KSDS.CLUSTER                        )


What you can do is do a CEDA ALTER and select the Update as YES and reinstall
Back to top
View user's profile Send private message
yussaf.khan

New User


Joined: 05 Jun 2008
Posts: 7
Location: india

PostPosted: Mon Sep 03, 2012 11:35 am    Post subject: Reply to: CICS cobol pgm : using a VSAM KSDS in edit mode :
Reply with quote

thanks for the reply.

yes, the problem is that the FCT is not getting updated. A CEDA VIEW FILE(FILEPER) GROUP.. shows that the file is set up for update (as can be seen from the code I have already pasted earlier). However, trying to install this file gives me the message below:
Code:

                                                                             
  S Install failed because an existing definition for file FILEPER could     
     not be deleted.                                 SYSID=CICS APPLID=CICS 
  INSTALL UNSUCCESSFUL                         TIME:  00.59.13  DATE: 12.247


pls suggest.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Mon Sep 03, 2012 11:38 am    Post subject:
Reply with quote

If you did an alter of the file INSTALL is necessary

Also you should be able to change it in CEMT I FILE() option itself then INSTALL is not needed
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Sep 03, 2012 11:38 am    Post subject:
Reply with quote

RTFM about deleting and installing Files in CICS.
Back to top
View user's profile Send private message
yussaf.khan

New User


Joined: 05 Jun 2008
Posts: 7
Location: india

PostPosted: Mon Sep 03, 2012 11:52 am    Post subject: Reply to: CICS cobol pgm : using a VSAM KSDS in edit mode :
Reply with quote

OK, I have deleted the file from my group and recreated the resource definition. I, however, still see that the CEMT INQ on this file shows as
Code:

I FI(FILEPER)                                               
STATUS:  RESULTS - OVERTYPE TO MODIFY                       
 Fil(FILEPER ) Vsa Ope Ena Rea                     Sha     
        Dsn( AFIA.PER.KSDS.CLUSTER                        )

Iam not sure why the FCT is not getting updated...given that an INSTALL is not required. pls suggest.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Mon Sep 03, 2012 11:56 am    Post subject:
Reply with quote

Unless you dont install you wont see proper definitions
Back to top
View user's profile Send private message
yussaf.khan

New User


Joined: 05 Jun 2008
Posts: 7
Location: india

PostPosted: Mon Sep 03, 2012 4:54 pm    Post subject: Reply to: CICS cobol pgm : using a VSAM KSDS in edit mode :
Reply with quote

I had to close the file first by CEMT SET FILE(filename) CLOSED
for the file INSTALL to work. I now see that the FCT has been updated as desired.
Code:

INQ FI(FILEPER)                                       
STATUS:  RESULTS - OVERTYPE TO MODIFY                 
 Fil(FILEPER ) Vsa Clo Ena Rea Upd Add Bro Del     Old

Pandora-box, you were also correct when you stated that the CEMT INQ FI(filename) could also be used to update the FCT without a CEDA INSTALL.

Thanks for the help!
Back to top
View user's profile Send private message
yussaf.khan

New User


Joined: 05 Jun 2008
Posts: 7
Location: india

PostPosted: Mon Sep 03, 2012 8:41 pm    Post subject: Reply to: CICS cobol pgm : using a VSAM KSDS in edit mode :
Reply with quote

running the program/TRAN now gives EIBRESP=19 (file not open), EIBRESP2=60 (MAXFLENGTH value negative, or greater than MAXFLENGTH value for pool). The file status before run is:
Code:

I FI(FILEPER)                                           
STATUS:  RESULTS - OVERTYPE TO MODIFY                   
 Fil(FILEPER ) Vsa Clo Ena Rea Upd Add Bro Del     Old   

This VSAM, as seen above, is closed + enabled and has been defined with 'opentime'=Firstref. It does not have to be opened (explicitly) before the TRAN invocation either, as the CICS version at my shop is 2.3. This is because CICS verions 1.7 or later would automatically open a closed file on encountering the first file operation in the program.

I need help to understand why the file is not getting opened up.
Back to top
View user's profile Send private message
yussaf.khan

New User


Joined: 05 Jun 2008
Posts: 7
Location: india

PostPosted: Mon Sep 03, 2012 9:10 pm    Post subject: Reply to: CICS cobol pgm : using a VSAM KSDS in edit mode :
Reply with quote

I had a look at the variable list when carrying out the CEMT SET FI(filename) and observed that the DSNAME field 'value' was in error. Correcting this value resolved the EIBRESP=19.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Mon Sep 03, 2012 9:14 pm    Post subject:
Reply with quote

Did you try to open the file using CEMT? What happened?

Quote:
I need help to understand why the file is not getting opened up.
If the CICS definition does not match in some way the physical file definition, the file won't open in CICS.
Back to top
View user's profile Send private message
yussaf.khan

New User


Joined: 05 Jun 2008
Posts: 7
Location: india

PostPosted: Tue Sep 04, 2012 11:15 am    Post subject: Reply to: CICS cobol pgm : using a VSAM KSDS in edit mode :
Reply with quote

CEMT..OPEN would be a good starting point for debug, as you suggest. This was failing for me but it was just a coincidence that I opened the variable list (PF5) when attempting a CEMT SET FI(..) and found that the CICS definition was incorrect for DSNAME.

Thanks (for the support)
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm


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