PROCEDURE SN498_CLOSED_SHOP (
  status)

COLLECT_TEXT $local.pcu_subcommands until='end_prolog_file'
edit_physical_configuration
change_element_definition  e=C_7155_104  state=on            " NIO0.CH16.C0.U32               "
change_element_definition  e=C_7155_103  state=on            " NIO0.CH17.C1.U33               "
change_element_definition  e=DU_885_27573_A  state=on        " V85A00
change_element_definition  e=DU_885_27573_B  state=on        " V85A01

change_element_definition  e=C_FA7B5_2000    state=on        " CIO0.CCH1A.C0.U0/U1            "
change_element_definition  e=C_FA7B5_2004    state=on        " CIO0.CCH1A.C1.U2/U3            "
change_element_definition  e=DU_9853_5294    state=on        " V53B00
change_element_definition  e=DU_9853_5303    state=on        " V53B01
change_element_definition  e=DU_9853_5292    state=on        " V53B02
change_element_definition  e=DU_9853_5298    state=on        " V53B03

change_element_definition  e=C_7021_645      state=on        "                                "
change_element_definition  e=C_7021_459      state=on        "                                "
change_element_definition  e=PL50            state=on        " TAPE UNITS                     "
change_element_definition  e=PL51            state=on        "                                "
change_element_definition  e=PL52            state=on        "                                "
change_element_definition  e=PL53            state=on        "                                "

change_element_definition  e=CE_2620_382     state=on        "  DI  ; NIO0.CH5.               "
change_element_definition  e=CE_2620_1540    state=on        "  DI  ; NIO0.CH7.               "
change_element_definition  e=CE_380_279      state=on        "  NAD ; NIO0.CH20.              "
change_element_definition  e=CE_7040_107     state=on        "  ESM ; NIO0.CH6.               "
quit
end_prolog_file
COLLECT_TEXT $local.lcu_mainframe_subcommands until='end_prolog_file'
initialize_ms_volume     e=DU_885_27573_A   rvsn=V85A00
initialize_ms_volume     e=DU_885_27573_B   rvsn=V85A01
initialize_ms_volume     e=DU_9853_5303     rvsn=V53B01
initialize_ms_volume     e=DU_9853_5292     rvsn=V53B02
initialize_ms_volume     e=DU_9853_5298     rvsn=V53B03

change_ms_class       rvsn=S53B00             dc=(C J K L M N   )     " system device (class Q) "
change_ms_class       rvsn=V85A00             dc=(C   K   M N Q)      " system catalogs (class J/L) "
change_ms_class       rvsn=V85A01             dc=(C J K L M   Q)      " system temp (class N) "
change_ms_class       rvsn=V53B01             dc=(C J   L   N Q)      " system files (class K & M) "
change_ms_class       rvsn=V53B02             dc=(C J K L M   Q)      " system temp (class N) "
change_ms_class       rvsn=V53B03             dc=(  J K L M N Q)      " system swap device (class C) "

add_volume_to_set     memvsn=V85A00      set_name=PLUM_SYSTEM
add_volume_to_set     memvsn=V85A01      set_name=PLUM_SYSTEM
add_volume_to_set     memvsn=V53B01      set_name=PLUM_SYSTEM
add_volume_to_set     memvsn=V53B02      set_name=PLUM_SYSTEM
add_volume_to_set     memvsn=V53B03      set_name=PLUM_SYSTEM

end_prolog_file
COLLECT_TEXT $local.lcu_network_subcommands until='end_prolog_file'
end_prolog_file

PROCEND SN498_CLOSED_SHOP
