
  TYPE
    cmt$reserved_names_list = array [1 .. *] of ost$name;

  VAR
    cmv$reserved_names_list: [STATIC, READ,oss$job_paged_literal] ^cmt$reserved_names_list :=
        ^reserved_names_list,
    reserved_names_list : [STATIC, READ, oss$job_paged_literal] array [1 .. 10] of ost$name := [
      '$CENTRAL_MEMORY', '$CENTRAL_PROCESSOR', '$CHANNEL', '$CHANNEL_ADAPTER', '$CONTROLLER',
      '$STORAGE_DEVICE', '$INPUT_OUTPUT_UNIT', '$MAINFRAME',
      '$PERIPHERAL_PROCESSOR', 'ALL'];

?? PUSH (LISTEXT := ON) ??
*copyc ost$name
*copyc oss$job_paged_literal
?? POP ??
