Administrative data utility for CFRM policy data

Figure 1 shows sample JCL to run the utility to create or update CFRM administrative data. The SYS1.SAMPLIB member name is IXCCFRMP.

Figure 1. IXCCFRMP - Administrative Policy Data in CFRM Couple Data Set
//STEP20   EXEC PGM=IXCMIAPU                    
//SYSPRINT DD   SYSOUT=A                        
//SYSABEND DD   SYSOUT=A                        
//SYSIN    DD   *                               
                                                
     DATA TYPE(CFRM) REPORT(YES)                
                                                
     DEFINE POLICY NAME(POLICY1) REPLACE(YES)   
                                                
        CF NAME(FACIL01)                        
               TYPE(123456)                     
               MFG(IBM)                         
               PLANT(PK)                        
               SEQUENCE(123456789012)           
               PARTITION(01)                    
               DUMPSPACE(98M)                   
                                                
        CF NAME(FACIL02)                        
               TYPE(123456)                     
               MFG(IBM)                         
               PLANT(PK)                        
               SEQUENCE(123456789012)           
               PARTITION(2)                     
               DUMPSPACE(78M)                   
                                                
        STRUCTURE NAME(LIST_01)                 
               SIZE(Start of change400MEnd of change)                       
               INITSIZE(Start of change350MEnd of change)                   
               MINSIZE(Start of change300MEnd of change)                     
Start of change               SCMMAXSIZE(4G)
               SCMALGORITHM(KEYPRIORITY1)End of change
               SCMMAXSIZE(4G)
               SCMALGORITHM(KEYPRIORITY1)
               ALLOWAUTOALT(YES)                
               FULLTHRESHOLD(85)                
               PREFLIST(FACIL01,FACIL02)   
               EXCLLIST(CACHE_01)        
                                         
        STRUCTURE NAME(CACHE_01)         
               SIZE(1G)                  
               REBUILDPERCENT(25)        
               DUPLEX(ENABLED)           
               PREFLIST(FACIL02,FACIL01) 
               EXCLLIST(LIST_01)         
                                         
  /* DELETE POLICY NAME(POLICY1) */      
                                         
/*