Samples to see Preventing Attribute Modification and PDS Directory Overwrites

Products

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

Issue/Introduction

CA MII Programming states two samples about "Preventing Attribute Modification and PDS Directory Overwrites" ;

1. If you specify the name of a source library that has a record format of FB on a //SYSLMOD DD statement in a LINK step, then the record format of the library is changed to U, making the library unusable.
   
   
2. If you forget to specify a member name for the output from an assembly program. The data set organization of the PDS is changed from partitioned to sequential, making the PDS directory unusable.

Are there any other samples to see Preventing Attribute Modification and PDS Directory Overwrites by MII EDIF ?

Resolution

Preventing Attribute Modification sample :

EDIF definition :
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          
//      

Message :
MIM4004  PROGRAM IEBCOPY ATTEMPTING TO CHANGE RECFM OF Prefix.TEST.PS
MIM4007 TASK WILL BE ABENDED BY DATASET ATTRIBUTE VERIFICATION     


Preventing PDS Directory Overwrites sample :

EDIF definition :
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)                       
//              

Message :
MIM4005 PROGRAM IDCAMS ATTEMPTING TO OVERWRITE DIRECTORY OF Prefix.TEST.PDS
MIM4007 TASK WILL BE ABENDED BY DATASET ATTRIBUTE VERIFICATION