MIM：EDIF 属性変更防止、PDSディレクトリ情報破損防止のサンプル

Products

• MIM Resource Sharing (MIM)
• MIM Data Sharing (MII)

Issue/Introduction

MII ProgrammingにはEDIFによる属性変更防止、PDSディレクトリ情報破損防止のサンプルとして、以下が記載されております。

- SYSLMOD DDにてターゲットにソースライブラリを指定するとFB→Uになる事象
- ASM PGMの出力でメンバー名未指定の場合にPO→PSになる事象

この2件の他、EDIFによる属性変更防止、PDSディレクトリ情報破損防止のサンプルはありますか？

 

Environment

Release : ALL

Component : MIM

Resolution

MII EDIFによる属性変更防止、PDSディレクトリ情報破損防止について、MIMマニュアル記載以外のサンプルとして以下が考えられます。

[例1]  DCAMS REPROのPDSディレクトリー情報破損防止

EDIF設定：
DATASET  NAME=Prefix.TEST.PDS OPTIONS(ATTRIBUTES,ABEND), 
         DSORG=PO                                                  

JCL：
//DEF      EXEC PGM=IDCAMS                   
//SYSPRINT DD SYSOUT=*                       
//OUT1     DD DSN=Prefix.TEST.PDS,DISP=SHR   /* PO */ 
//SYSIN    DD *                              
   REPRO INDATASET(Prefix.TEST.PS)      /* PS */  -          
         OUTFILE(OUT1)                       
//              

出力メッセージ：                            
MIM4005 PROGRAM IDCAMS ATTEMPTING TO OVERWRITE DIRECTORY OF Prefix.TEST.PDS
MIM4007 TASK WILL BE ABENDED BY DATASET ATTRIBUTE VERIFICATION                 


[例2] 属性変更防止

EDIF設定：
DATASET  NAME=Prefix.TEST.PS OPTIONS(ATTRIBUTES,ABEND),
         RECFM=FB                                       

JCL：
//COPY    EXEC PGM=IEBCOPY                
//IN1  DD DISP=SHR,DSN=Prefix.TEST.LOAD   /* PO */ 
//OUT1  DD DISP=SHR,DSN=Prefix.TEST.PS    /* PS */        
//SYSPRINT DD SYSOUT=*                    
//SYSIN    DD *                           
 COPY  INDD=((IN1,R)),OUTDD=OUT1          
//      

出力メッセージ：        
MIM4004  PROGRAM IEBCOPY ATTEMPTING TO CHANGE RECFM OF Prefix.TEST.PS
MIM4007 TASK WILL BE ABENDED BY DATASET ATTRIBUTE VERIFICATION          

 

Additional Information

Old Japanese Knowledge document ID: JTEC003028

MIMのその他のFAQについては、以下のリンクからご確認ください。

MIM FAQ一覧表