PROCEDURE SN302_DAS (                                                                                                               
  status)                                                                                                                           
                                                                                                                                    
COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'                                                                         
EDIT_PHYSICAL_CONFIGURATION                                                                                                         
 delete_element_definition e=all r=(..                                                                                              
 vcm6_das   ..                                                                                                                      
 vcm7_das   ..                                                                                                                      
 vdas_0 ..                                                                                                                          
 vdas_8 ..                                                                                                                          
 vdas_16 ..                                                                                                                         
 vdas_24 ..                                                                                                                         
 violet_7021_1 ..                                                                                                                   
 v50 ..                                                                                                                             
 v51 ..                                                                                                                             
 v52 ..                                                                                                                             
 v55 ..                                                                                                                             
 stornet ..                                                                                                                         
 violet_DI_3000f0 ..                                                                                                                
 violet_DI_100092 ..                                                                                                                
 $7992_10_1_0 ..                                                                                                                    
 xlink_violet ..                                                                                                                    
 drd_dum0 ..                                                                                                                        
 sma_drd0 ..                                                                                                                        
 sma_drd1)                                                                                                                          
                                                                                                                                    
 change_element_definition e=vcm6_das  s=on                                                                                         
 change_element_definition e=vcm7_das  s=on                                                                                         
 change_element_definition e=vdas_0  s=on                                                                                           
 change_element_definition e=vdas_8  s=on                                                                                           
 change_element_definition e=vdas_16  s=on                                                                                          
 change_element_definition e=vdas_24  s=on                                                                                          
 change_element_definition e=violet_7021_1  s=on            "VE Tapes-CH33(8)"                                                      
 change_element_definition e=v50            s=on  pc=((violet_7021_1 0))                                                            
                                                                  "679 Unit 0"                                                      
 change_element_definition e=v51            s=on  pc=((violet_7021_1 1))                                                            
                                                                  "679 Unit 1"                                                      
 change_element_definition e=v52           s=off  pc=((violet_7021_1 2))                                                            
                                                                  "679 Unit 2"                                                      
 change_element_definition e=v55            s=on  pc=((violet_7021_1 5))                                                            
                                                                  "679 Unit 5"                                                      
 change_element_definition e=xlink_violet   s=off  "EXPRESS LINK to LIZZIE"                                                         
 change_element_definition e=stornet        s=on                                                                                    
 change_element_definition e=violet_DI_3000f0 s=on "DI 340"                                                                         
QUIT                                                                                                                                
end_prolog_file                                                                                                                     
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'                                                               
 display_value 'Initializing vdas_8 as VSN3A1'                                                                                      
 initialize_ms_volume element=vdas_8 recorded_vsn=VSN3A1                                                                            
 display_value 'Initializing vdas_16 as VSN3A2'                                                                                     
 initialize_ms_volume element=vdas_16 recorded_vsn=VSN3A2                                                                           
 display_value 'Initializing vdas_24 as VSN3A3'                                                                                     
 initialize_ms_volume element=vdas_24 recorded_vsn=VSN3A3                                                                           
"ENTER CHAMSC HERE"                                                                                                                 
"CLASS X WILL CONTAIN SCU_BOUND_PRODUCT"                                                                                            
"CLASS Y WILL CONTAIN FORTRAN_BOUND_PRODUCT"                                                                                        
"CLASS Z WILL CONTAIN COBOL_BOUND_PRODUCT"                                                                                          
CHAMSC VSN3A0 DC=(X Y Z)                                                                                                            
CHAMSC VSN3A1 DC=(Y Z)                                                                                                              
CHAMSC VSN3A2 DC=(Y Z)                                                                                                              
CHAMSC VSN3A3 DC=(Y Z)                                                                                                              
 display_value 'Adding VSN3A1 to set'                                                                                               
 add_volume_to_set member_vsn=VSN3A1                                                                                                
 display_value 'Adding VSN3A2 to set'                                                                                               
 add_volume_to_set member_vsn=VSN3A2                                                                                                
 display_value 'Adding VSN3A3 to set'                                                                                               
 add_volume_to_set member_vsn=VSN3A3                                                                                                
end_prolog_file                                                                                                                     
COLLECT_TEXT $local.lcu_network_subcommands until='end_prolog_file'                                                                 
define_network_connection connected_system=violet_DI_3000f0                                                                         
define_host_network n=302(10)                                                                                                       
end_prolog_file                                                                                                                     
                                                                                                                                    
PROCEND SN302_DAS                                                                                                                   
                                                                                                                                    
