?? TITLE := 'NOS/VE :  Basic Access Method', EJECT ??
MODULE amm$tables;
?? RIGHT := 110 ??

?? NEWTITLE := 'Global Declarations Referenced By This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc oss$job_paged_literal
*copyc osd$virtual_address
*copyc amt$access_level
*copyc amt$access_level_name
*copyc amt$block_type
*copyc amt$block_type_name
*copyc amt$device_class_name
*copyc amt$file_organization
*copyc amt$file_organization_name
*copyc amt$file_organization_set
*copyc amt$label_options
*copyc amt$message_control
*copyc amt$record_type
*copyc amt$record_type_name
*copyc amt$usage_option_name
*copyc pft$usage_options
*copyc pft$usage_selections
*copyc rmt$device_class
?? POP ??
?? OLDTITLE ??
?? NEWTITLE := 'Global Declarations Declared By This Module', EJECT ??

  VAR
    amv$access_mode: [STATIC, READ, XDCL, oss$job_paged_literal] pft$usage_selections :=
          [pfc$read, pfc$shorten, pfc$append, pfc$modify, pfc$execute];

  VAR
    amv$label_options: [STATIC, READ, XDCL, oss$job_paged_literal] amt$label_options :=
          [amc$vol1, amc$uvl, amc$hdr1, amc$hdr2, amc$eov1, amc$eov2, amc$uhl, amc$eof1, amc$eof2, amc$utl];

  VAR
    amv$valid_ring: [STATIC, READ, XDCL, oss$job_paged_literal] set of ost$valid_ring :=
          [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15];

  VAR
    amv$message_control: [STATIC, READ, XDCL, oss$job_paged_literal] amt$message_control :=
          [amc$trivial_errors, amc$messages, amc$statistics];

  VAR
    amv$aam_file_organizations: [XDCL, #GATE, READ, oss$job_paged_literal] amt$file_organization_set :=
          $amt$file_organization_set [amc$indexed_sequential, amc$direct_access, amc$system_key];

  VAR
    amv$access_level_names: [XDCL, #GATE, READ, oss$job_paged_literal] array [amt$access_level] of
          amt$access_level_name := [['PHYSICAL', 8], ['RECORD', 6], ['SEGMENT', 7]];

  VAR
    amv$block_type_names: [XDCL, #GATE, READ, oss$job_paged_literal] array [amt$block_type] of
          amt$block_type_name := [
{AMC$SYSTEM_SPECIFIED } ['SYSTEM SPECIFIED (SS)', 21],
{AMC$USER_SPECIFIED   } ['USER SPECIFIED (US)', 19]];

  VAR
    amv$device_class_names: [XDCL, #GATE, READ, oss$job_paged_literal] array [rmt$device_class] of
          amt$device_class_name := [
{RMC$CONNECTED_FILE_DEVICE  } ['CONNECTED FILE DEVICE', 21],
{RMC$INTERSTATE_LINK_DEVICE } ['INTERSTATE LINK DEVICE', 22],
{RMC$LOCAL_QUEUE_DEVICE     } ['LOCAL QUEUE DEVICE', 18],
{RMC$LOG_DEVICE             } ['LOG DEVICE', 10],
{RMC$MAGNETIC_TAPE_DEVICE   } ['MAGNETIC TAPE DEVICE', 20],
{RMC$MASS_STORAGE_DEVICE    } ['MASS STORAGE DEVICE', 19],
{RMC$MEMORY_RESIDENT_DEVICE } ['MEMORY RESIDENT DEVICE', 22],
{RMC$NETWORK_DEVICE         } ['NETWORK DEVICE', 14],
{RMC$NULL_DEVICE            } ['NULL DEVICE', 11],
{RMC$PIPELINE_DEVICE        } ['PIPELINE DEVICE', 15],
{RMC$RHFAM_DEVICE           } ['RHFAM DEVICE', 12],
{RMC$TERMINAL_DEVICE        } ['TERMINAL DEVICE', 15]];


  VAR
    amv$file_organization_names: [XDCL, #GATE, READ, oss$job_paged_literal] array [amt$file_organization] of
          amt$file_organization_name := [
{AMC$SEQUENTIAL             } ['SEQUENTIAL', 10],
{AMC$BYTE_ADDRESSABLE       } ['BYTE ADDRESSABLE', 16],
{AMC$INDEXED_SEQUENTIAL     } ['INDEXED SEQUENTIAL', 18],
{AMC$DIRECT_ACCESS          } ['DIRECT ACCESS', 13],
{AMC$SYSTEM_KEY             } ['SYSTEM KEY', 10]];

  VAR
    amv$record_type_names: [XDCL, #GATE, READ, oss$job_paged_literal] array [amt$record_type] of
          amt$record_type_name := [
{ AMC$VARIABLE                V } ['VARIABLE (V)', 12],
{ AMC$UNDEFINED               U } ['UNDEFINED (U)', 13],
{ AMC$ANSI_FIXED              F } ['ANSI FIXED (F)', 14],
{ AMC$ANSI_SPANNED            S } ['ANSI SPANNED (S)', 16],
{ AMC$ANSI_VARIABLE           D } ['ANSI VARIABLE (D)', 17],
{ AMC$TRAILING_CHAR_DELIMITED T } ['TRAILING CHARACTER DELIMITED (T)', 32]];

  VAR
    amv$usage_option_names: [XDCL, #GATE, READ, oss$job_paged_literal] array [pft$usage_options] of
          amt$usage_option_name := [
{ PFC$READ    } ['READ', 4],
{ PFC$SHORTEN } ['SHORTEN', 7],
{ PFC$APPEND  } ['APPEND', 6],
{ PFC$MODIFY  } ['MODIFY', 6],
{ PFC$EXECUTE } ['EXECUTE', 7]];

?? OLDTITLE ??
MODEND amm$tables;
