*copy OSD$DEFAULT_PRAGMATS

MODULE srm$static_label;
{}
{   This module contains the XDCLed variable that defines the defaults of
{ the static label.
{}

?? TITLE := 'SRP$DUMMY_PROCEDURE' ??
?? EJECT ??

  PROCEDURE srp$dummy_procedure;

?? TITLE := '[XDCL] srv$static_label_attributes' ??
?? EJECT ??

    VAR
      srv$static_label_attributes: [XDCL, READ]
        fmt$basic_file_label := [


        { existing_file } FALSE,
        { creation_access_level } * ,
        { creation_access_level_source } amc$undefined_attribute,
        { block_type } amc$system_specified,
        { item_source } amc$access_method_default,
        { character_conversion } FALSE,
        { item_source } amc$access_method_default,
        { item.clear_space } FALSE,
        { item_source } amc$access_method_default,
        { item.file_access_procedure } osc$null_name,
        { item_source } amc$undefined_attribute,
        { item.file_contents } amc$unknown_contents,
        { item_source } amc$access_method_default,
        { item.file_limit } amc$file_byte_limit,
        { item_source } amc$access_method_default,
        { item.file_organization } amc$sequential,
        { item_source } amc$access_method_default,
        { file_processor } amc$unknown_processor,
        { item_source } amc$access_method_default,
        { file_structure } amc$unknown_structure,
        { item_source } amc$access_method_default,
        { forced_write } amc$unforced,
        { item_source } amc$access_method_default,
        { item.internal_code } amc$ascii,
        { item_source } amc$access_method_default,
        { item.label_type } amc$unlabelled,
        { item_source } amc$access_method_default,
        { item.line_number } * ,
        { item_source } amc$undefined_attribute,
        { item.max_block_length } 4128,
        { item_source } amc$access_method_default,
        { item.max_record_length } 256,
        { item_source } amc$access_method_default,
        { item.min_block_length } 18,
        { item_source } amc$access_method_default,
        { item.min_record_length } 0,
        { item_source } amc$access_method_default,
        { item.padding_character } ' ',
        { item_source } amc$access_method_default,
        { item.page_format } amc$burstable_form,
        { item_source } amc$access_method_default,
        { item.page_length } 60,
        { item_source } amc$access_method_default,
        { item.page_width } 132,
        { item_source } amc$access_method_default,
        { item.preset_value } 0,
        { item_source } amc$access_method_default,
        { item.record_type } amc$variable { v } ,
        { item_source } amc$access_method_default,
        { item.ring_attributes } * ,
        { item_source } amc$undefined_attribute,
        { statement_identifier } * ,
        { statement_identifier_source } amc$undefined_attribute,
        { item.user_info } * ,
        { item_source } amc$undefined_attribute,
        { vertical_print_density } 6,
        { vertical_print_density_source } amc$access_method_default,
        { item.average_record_length } * ,
        { item_source } amc$undefined_attribute,
        { collate_table } * ,
        { collate_table_source } amc$undefined_attribute,
        { collate_table_name } osc$null_name,
        { collate_table_name_source } amc$undefined_attribute,
        { item.data_padding } 0,
        { item_source } amc$access_method_default,
        { item.embedded_key } TRUE,
        { item_source } amc$access_method_default,
        { item.estimated_record_count } * ,
        { item_source } amc$undefined_attribute,
        { item.index_levels } 2 ,
        { item_source } amc$access_method_default,
        { item.index_padding } 0,
        { item_source } amc$access_method_default,
        { item.key_length } * ,
        { item_source } amc$undefined_attribute,
        { item.key_position } 0,
        { item_source } amc$access_method_default,
        { item.key_type } amc$uncollated_key,
        { item_source } amc$access_method_default,
        { item.record_limit } * ,
        { item_source } amc$undefined_attribute,
        { item.records_per_block } * ,
        { item_source } amc$undefined_attribute
        { recend; } ];

?? PUSH (LISTEXT := ON) ??
*copyc fmt$basic_file_label
?? POP ??
  PROCEND srp$dummy_procedure;
MODEND srm$static_label;
