Wednesday, December 21, 2011

CICS: Find the dataset name associated with a remote file

The IRXXX00 file in CICSTEST region is pointing to a remote region. If you issue CEMT transaction for IRXXX00 file, you will get the following screen.


  I FILE(IRXXX00)                                                             
  RESULT - OVERTYPE TO MODIFY                                                  
    File(IRSECR00)                                                             
    Accessmethod(Remote)                                                       
    Openstatus(              )                                                 
    Enablestatus(              )                                               
    Readstatus(              )                                                 
    Updatestatus(              )                                               
    Addstatus(              )                                                  
    Browsestatus(              )                                               
    Deletestatus(              )                                               
    Exclstatus(              )                                                 
    Disposition(              )                                                 
    Rlsaccess(              )                                                  
    Emptystatus(              )                                                
    Dsname(                                              )                     
    Table(              )                                                      
    Loadtype( Noload )                                                         
    Cfdtpool(          )                                                        
 +  Tablename(          )                                                      
                                                                               
                                                      SYSID=TEST APPLID=CICSTEST

                                                TIME:  07.50.54  DATE: 10.31.07
 PF 1 HELP 2 HEX 3 END       5 VAR        7 SBH 8 SFH       10 SB 11 SF        


Let us find out the DSN to which IRXXX00 file is pointing.


Step 1:  Issue command CEDC V FIL(IRXXX00) GROUP(*) in CICSTEST region. Note down all the group names under which IRXXX00 file is defined
Step 2:  Go to SDSF and select "JESMSGLG" of CICSTEST region. Then find for "GRPLIST".  Note down all the list names associated with the "GRPLIST" parameter.
Step 3:  Issue command CEDC D GROUP(*) LISt(x). Substitute 'x' with the first list name we got in the previous step. If the group names associated with list 'x' matches with any one of the group names we got step 1, then proceed to step 4, else repeat this step for the remaining lists.
Step 4:  Issue command V FIL(IRXXX00) GROUP(x), where 'x' is group name for which we got matching in the previous step. Now note down the remote system id and remote dd name.
Step 5:  Login to remote region and issue CEMT I FILE for the remote ddname to get the DSN.

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.