
?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Screen Formatting:  Global Data' ??

MODULE fdm$global_data;

{ PURPOSE:
{   This module contains data commonly used by other Screen Formatting modules.
{ DESIGN:


?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc fdc$message_variable_name
*copyc fdt$event_trigger
*copyc fdt$display_attribute_set
*copyc fdt$screen_status
*copyc ost$name
?? POP ??

  VAR
    fdv$application_event_table: [XDCL, READ, STATIC] array [csc$f1 .. csc$sf16] of
          fdt$event_trigger := [fdc$function_1, fdc$shift_function_1, fdc$function_2, fdc$shift_function_2,
          fdc$function_3, fdc$shift_function_3, fdc$function_4, fdc$shift_function_4, fdc$function_5,
          fdc$shift_function_5, fdc$function_6, fdc$shift_function_6, fdc$function_7, fdc$shift_function_7,
          fdc$function_8, fdc$shift_function_8, fdc$function_9, fdc$shift_function_9, fdc$function_10,
          fdc$shift_function_10, fdc$function_11, fdc$shift_function_11, fdc$function_12,
          fdc$shift_function_12, fdc$function_13, fdc$shift_function_13, fdc$function_14,
          fdc$shift_function_14, fdc$function_15, fdc$shift_function_15, fdc$function_16,
          fdc$shift_function_16],
    fdv$background_colors: [XDCL, READ, STATIC] fdt$display_attribute_set :=
          [fdc$black_background, fdc$blue_background, fdc$green_background, fdc$magenta_background,
          fdc$red_background, fdc$cyan_background, fdc$yellow_background, fdc$white_background],
    fdv$colors: [XDCL, READ, STATIC] fdt$display_attribute_set :=
          [fdc$black_background, fdc$blue_background, fdc$green_background, fdc$magenta_background,
          fdc$red_background, fdc$cyan_background, fdc$yellow_background, fdc$white_background,
          fdc$black_foreground, fdc$blue_foreground, fdc$green_foreground, fdc$magenta_foreground,
          fdc$red_foreground, fdc$cyan_foreground, fdc$yellow_foreground, fdc$white_foreground],
    fdv$foreground_colors: [XDCL, READ, STATIC] fdt$display_attribute_set :=
          [fdc$black_foreground, fdc$blue_foreground, fdc$green_foreground, fdc$magenta_foreground,
          fdc$red_foreground, fdc$cyan_foreground, fdc$yellow_foreground, fdc$white_foreground],
    fdv$line_attributes: [XDCL, READ, STATIC] fdt$display_attribute_set :=
          [fdc$fine_line, fdc$medium_line, fdc$bold_line],
    fdv$line_widths: [XDCL, READ, STATIC] fdt$display_attribute_set :=
          [fdc$fine_line, fdc$medium_line, fdc$bold_line, fdc$fine_border, fdc$medium_border,
          fdc$bold_border],
    fdv$logical_display_attributes: [XDCL, READ, STATIC] fdt$display_attribute_set :=
          [fdc$italic_display_attribute, fdc$title_display_attribute, fdc$input_display_attribute,
          fdc$error_display_attribute, fdc$message_display_attribute],
    fdv$message_variable_name: [XDCL, READ, STATIC] ost$name := fdc$message_variable_name,
    fdv$object_display_directions: [XDCL, READ, STATIC] fdt$display_attribute_set :=
          [fdc$display_left_to_right, fdc$display_right_to_left],
    fdv$to_cobol: [XDCL, READ, STATIC] string (256) := '???????????????????????????????' CAT
            '? ????????????-??0123456789???????ABCDEFGHIJKLMNOPQRSTUVWXYZ????-?abcdefghijklmnopqrstuvwxyz' CAT
            '????????????????????????????????????????????????????????????????????????????????????' CAT
            '?????????????????????????????????????????????????',
    fdv$to_cybil: [XDCL, READ, STATIC] string (256) := '????????????????????????????????' CAT
            ' !"#$%&''()*+,_./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz' CAT
            '????????????????????????????????????????????????????????????????????????????????????' CAT
            '?????????????????????????????????????????????????',
    fdv$to_fortran: [XDCL, READ, STATIC] string (256) := '???????????????????????????????' CAT
            ' ????????????????0123456789???????ABCDEFGHIJKLMNOPQRSTUVWXYZ??????abcdefghijklmnopqrstuvwxyz' CAT
            '????????????????????????????????????????????????????????????????????????????????????' CAT
            '?????????????????????????????????????????????????',
    fdv$to_extended_fortran: [XDCL, READ, STATIC] string (256) := '???????????????????????????????' CAT
            ' ????$????????_??0123456789???????ABCDEFGHIJKLMNOPQRSTUVWXYZ????_?abcdefghijklmnopqrstuvwxyz' CAT
            '????????????????????????????????????????????????????????????????????????????????????' CAT
            '?????????????????????????????????????????????????',
    fdv$to_scl: [XDCL, READ, STATIC] string (256) := '???????????????????????????????' CAT
          '? ????????????_??0123456789???????ABCDEFGHIJKLMNOPQRSTUVWXYZ' CAT
          '????-?abcdefghijklmnopqrstuvwxyz' CAT
          '??????????????????????????????????????????????????????????' CAT
          '??????????????????????????' CAT
          '?????????????????????????????????????????????????',
    fdv$screen_status: [XDCL] fdt$screen_status := [TRUE, 0, 0, 1, 1, FALSE, FALSE, 1, 1, ' ',
          [csc$timeout_event], ' ', FALSE, [1, 1, 1, 1, 1, fdc$form_event], FALSE, 1, FALSE, 1, 0, 0, NIL,
          NIL, NIL, 0, [1, [[1, 1], [1, 1], [1, 1], [1, 1]]], FALSE];
MODEND fdm$global_data;
