
  VAR
    amv$block_type_names: [XREF, READ, oss$job_paged_literal]
          array [amt$block_type] of amt$block_type_name;

?? PUSH (LISTEXT := ON) ??
*copyc amt$block_type
*copyc amt$block_type_name
*copyc oss$job_paged_literal
?? POP ??
