Problem COBOL - CICS Program gives ABEND AEIP - INVREQ

[rogerb]

When I enter CEDA V GR(*) FI(CARSDD) I get a line showing the file.
I have written V after the group and then I pressed enter.
This is what is showing:

Code: Select all

                                                                             
OBJECT CHARACTERISTICS                                    CICS RELEASE = 0650
 CEDA  View File( CARSDD   )                                                  
  File           : CARSDD                                                    
  Group          : CARPRG                                                    
  DEScription    :                                                            
 VSAM PARAMETERS                                                              
  DSNAme         : SYSOPR.STUDY.TEST.VSAM.ESDS                                
  Password       :                    PASSWORD NOT SPECIFIED                  
  RLsaccess      : No                 Yes ! No                                
  LSrpoolid      : 1                  1-8 ! None                              
  READInteg      : Uncommitted        Uncommitted ! Consistent ! Repeatable  
  DSNSharing     : Allreqs            Allreqs ! Modifyreqs                    
  STRings        : 001                1-255                                  
  Nsrgroup       :                                                            
 REMOTE ATTRIBUTES                                                            
  REMOTESystem   :                                                            
  REMOTEName     :                                                            
 REMOTE AND CFDATATABLE PARAMETERS                                            
  RECORDSize     :                    1-32767                                
                                                                             
                                                    SYSID=CICS APPLID=CICS

Thank you,
Roger

[Robert Sample]

Do this again and hit PF8 about 3 times until you see the OPERATIONS group data, which should look like:

Code: Select all

  OPERATIONS                                    
    Add            : No                 No | Yes
    BRowse         : Yes                No | Yes
    DELete         : No                 No | Yes
    READ           : Yes                Yes | No
 +  UPDATE         : No                 No | Yes

and post that just to verify the file access.

[rogerb]

I've seen that the VSAM Parameters continue, so here it is all the informations.

Code: Select all

OBJECT CHARACTERISTICS                                    CICS RELEASE = 0650
 CEDA  View File( CARSDD   )                                                
  File           : CARSDD                                                    
  Group          : CARPRG                                                    
  DEScription    :                                                          
 VSAM PARAMETERS                                                            
  DSNAme         : SYSOPR.STUDY.TEST.VSAM.ESDS                              
  Password       :                    PASSWORD NOT SPECIFIED                
  RLsaccess      : No                 Yes ! No                              
  LSrpoolid      : 1                  1-8 ! None                            
  READInteg      : Uncommitted        Uncommitted ! Consistent ! Repeatable  
  DSNSharing     : Allreqs            Allreqs ! Modifyreqs                  
  STRings        : 001                1-255                                  
  Nsrgroup       :                                                          
 REMOTE ATTRIBUTES                                                          
  REMOTESystem   :                                                          
  REMOTEName     :                                                          
 REMOTE AND CFDATATABLE PARAMETERS                                          
  RECORDSize     :                    1-32767            

READInteg      : Uncommitted        Uncommitted ! Consistent ! Repeatable
DSNSharing     : Allreqs            Allreqs ! Modifyreqs                
STRings        : 001                1-255                                
Nsrgroup       :                                                        
EMOTE ATTRIBUTES                                                        
REMOTESystem   :                                                        
REMOTEName     :                                                        
EMOTE AND CFDATATABLE PARAMETERS                                        
RECORDSize     :                    1-32767                              
Keylength      :                    1-255 (1-16 For CF Datatable)        
NITIAL STATUS                                                            
STAtus         : Enabled            Enabled ! Disabled ! Unenabled      
Opentime       : Firstref           Firstref ! Startup                  
DIsposition    : Share              Share ! Old                          
UFFERS                                                                  
DAtabuffers    : 00002              2-32767                              
Indexbuffers   : 00001              1-32767                              

 Keylength      :                    1-255 (1-16 For CF Datatable)
INITIAL STATUS                                                    
 STAtus         : Enabled            Enabled ! Disabled ! Unenabled
 Opentime       : Firstref           Firstref ! Startup            
 DIsposition    : Share              Share ! Old                  
BUFFERS                                                            
 DAtabuffers    : 00002              2-32767                      
 Indexbuffers   : 00001              1-32767                      
DATATABLE PARAMETERS                                              
 TABLE          : No                 No ! CIcs ! User ! CF        
 Maxnumrecs     : Nolimit            Nolimit ! 1-99999999          
CFDATATABLE PARAMETERS                                            
 Cfdtpool       :                                                  
 TABLEName      :                                                  
 UPDATEModel    : Locking            Contention ! Locking          
 LOad           : No                 No ! Yes                      
DATA FORMAT                                                        

DATATABLE PARAMETERS                                      
 TABLE          : No                 No ! CIcs ! User ! CF
 Maxnumrecs     : Nolimit            Nolimit ! 1-99999999
CFDATATABLE PARAMETERS                                    
 Cfdtpool       :                                        
 TABLEName      :                                        
 UPDATEModel    : Locking            Contention ! Locking
 LOad           : No                 No ! Yes            
DATA FORMAT                                              
 RECORDFormat   : V                  V ! F                
OPERATIONS                                                
 Add            : No                 No ! Yes            
 BRowse         : No                 No ! Yes            
 DELete         : No                 No ! Yes            
 READ           : Yes                Yes ! No            
 UPDATE         : No                 No ! Yes            
AUTO JOURNALLING                                          

 RECORDFormat   : V                  V ! F                            
OPERATIONS                                                            
 Add            : No                 No ! Yes                          
 BRowse         : No                 No ! Yes                          
 DELete         : No                 No ! Yes                          
 READ           : Yes                Yes ! No                          
 UPDATE         : No                 No ! Yes                          
AUTO JOURNALLING                                                      
 JOurnal        : No                 No ! 1-99                        
 JNLRead        : None               None ! Updateonly ! Readonly ! All
 JNLSYNCRead    : No                 No ! Yes                          
 JNLUpdate      : No                 No ! Yes                          
 JNLAdd         : None               None ! Before ! AFter ! ALl      
 JNLSYNCWrite   : Yes                Yes ! No                          
RECOVERY PARAMETERS                                                    
 RECOVery       : None               None ! Backoutonly ! All          
 Fwdrecovlog    : No                 No ! 1-99                        

 JOurnal        : No                 No ! 1-99                        
 JNLRead        : None               None ! Updateonly ! Readonly ! All
 JNLSYNCRead    : No                 No ! Yes                          
 JNLUpdate      : No                 No ! Yes                          
 JNLAdd         : None               None ! Before ! AFter ! ALl      
 JNLSYNCWrite   : Yes                Yes ! No                          
RECOVERY PARAMETERS                                                    
 RECOVery       : None               None ! Backoutonly ! All          
 Fwdrecovlog    : No                 No ! 1-99                        
 BAckuptype     : Static             Static ! Dynamic                  
SECURITY                                                              
 RESsecnum      : 00                 0-24 ! Public                    

 BAckuptype     : Static             Static ! Dynamic
SECURITY                                            
 RESsecnum      : 00                 0-24 ! Public                      
                                                                             
                                                    SYSID=CICS APPLID=CICS  


 

Thank you,
Roger

[Robert Sample]

The OPERATIONS group tells us that the data set is defined as read-only (no adds, no updates, no deletes) and you CANNOT browse it -- BROWSE is NO. That will cause the INVREQ. If you got past that and attempted to write a record to it, you would get another INVREQ since the resource definition does not allow it. You need to change the definition with CEDA.

[rogerb]

If I understood well, you're telling me to go to the CICS region and enter CEDA DEF FILE(CARSDD) GROUP(CARPRG) and change the definitions of the file.
You want me to change BROWSE to YES, so that only BROWSE and READ have YES.
All the rest, ADD, DELETE and UPDATE will remain as NO ?

Thank you,
Roger

[Robert Sample]

All the rest, ADD, DELETE and UPDATE will remain as NO ?

That depends -- if you expect to add records, or update records, or delete records using CICS you will need to change the appropriate NO to YES. If you are not planning on writing, rewriting, or deleting records to the file then NO for those three are fine. Since your code has a WRITE command in it, either you need to change ADD to YES -- or expect another INVREQ when that command is executed.

Oh, and you won't use CEDA DEFINE any more -- you'll need to use CEDA ALTER since you will be changing an existing file definition. It will still need to be installed after being changed, though.

[rogerb]

Thank you so much for all your answers, Mr. Robert Sample.
With all your support, the problem with the INVREQ in the STARTBR was solved.
I changed the definitions of the file.
When I go to the CICS and I do the CEDF of the program in the STARTBR it works:

Code: Select all

TRANSACTION: ECAR PROGRAM: CARPRG   TASK: 0000140 APPLID: CICS
 STATUS:  COMMAND EXECUTION COMPLETE                          
 EXEC CICS STARTBR
  FILE ('CARSDD  ')
  RIDFLD (0)
  REQID (0)
  RBA
  EQUAL
  NOHANDLE


 OFFSET:X'0012BA'    LINE:00254          EIBFN=X'060C'        
 RESPONSE: NORMAL                        EIBRESP=0            

After that, the program continues to the READNEXT.
After the INVREQ problem in the STARTBR, I was having a problem with the READNEXT.
When it executed the READNEXT it would present a RESPONSE: LENGERR and it would abend with a ABEND AEIV.
But then, I decided to do what I usually do.
So, instead of bothering you with one more question, I tried to solve it by myself.
This was the way I had written my READNEXT:

Code: Select all

EXEC CICS READNEXT                                         02510099
025200         FILE('CARSDD')                                           02520099
025300         INTO(REGISTO)                                            02530099
025310         LENGTH(WS-LEN)                                           02531099
025320         RIDFLD(CARNO)                                            02532099
025330         RBA                                                      02533099
025400       END-EXEC                                                   02540099

First I tried to change LENGTH TO KEYLENGTH, but the compile Job would give an error because the translator would say that KEYLENGTH is incompatible with RBA.
So, I decided to remove the LENGTH, so the READNEXT is now like this:

Code: Select all

EXEC CICS READNEXT                                         02510099
025200         FILE('CARSDD')                                           02520099
025300         INTO(REGISTO)                                            02530099
025320         RIDFLD(CARNO)                                            02532099
025330         RBA                                                      02533099
025400       END-EXEC                                                   02540099

After that, I compiled the program well (MAXCC = 0) and I executed it.
It works well as you can see:

Code: Select all

TRANSACTION: ECAR PROGRAM: CARPRG   TASK: 0000140 APPLID: CICS
 STATUS:  COMMAND EXECUTION COMPLETE                          
 EXEC CICS READNEXT                                          
  FILE ('CARSDD  ')                                          
  INTO ('123 DUMMYTEST TESTDATA                              
  LENGTH (200)                                                
  RIDFLD (0)                                                  
  REQID (0)                                                  
  RBA                                                        
                                                                               
 OFFSET:X'0013AE'    LINE:00269          EIBFN=X'060E'        
 RESPONSE: NORMAL                        EIBRESP=0            

Tomorrow I will try the part of the program that does the write.

Thank you once more.

Roger