() |
#
# Purpose : This file provides an example of 2 calls to the
# function pref_report_get()
#
# In this example a new database is opened and
# default report preference is got. Then the
# preferences are changed and got again.
#
# This file can be run by starting a session of
# Patran, and running this session file
# through the "File","Session","Play" pulldown
# menus on the menu bar.
#
# The function pref_report_get() has the following arguments:
# pref_report_get
# ( real_numbers,
# float_field_width,
# float_decimal,
# sci_field_width,
# sci_decimal,
# integer_field_width,
# number_spacing )
#---------------------------------------------------------------------
# Variable Declarations
INTEGER i_real_numbers
INTEGER i_float_field_width
INTEGER i_float_decimal
INTEGER i_sci_field_width
INTEGER i_sci_decimal
INTEGER i_integer_field_width
INTEGER i_number_spacing
INTEGER i_return_value
#---------------------------------------------------------------------
# Create a new database and set the preferences
uil_file_new.go("", "./new.db")
$? YES 36000002
# Get the report preference.
#
i_return_value = @
pref_report_get @
( i_real_numbers, @
i_float_field_width, @
i_float_decimal, @
i_sci_field_width, @
i_sci_decimal, @
i_integer_field_width, @
i_number_spacing )
dump i_return_value
dump i_real_numbers
dump i_float_field_width
dump i_float_decimal
dump i_sci_field_width
dump i_sci_decimal
dump i_integer_field_width
dump i_number_spacing
#---------------------------------------------------------------------
# Set different parameters for report generation.
i_real_numbers = 2
i_float_field_width = 10
i_float_decimal = 5
i_sci_field_width = 10
i_sci_decimal = 6
i_integer_field_width = 5
i_number_spacing = 2
i_return_value = @
pref_report_set @
( i_real_numbers, @
i_float_field_width, @
i_float_decimal, @
i_sci_field_width, @
i_sci_decimal, @
i_integer_field_width, @
i_number_spacing )
dump i_return_value
#---------------------------------------------------------------------
# Get the report preference.
#
i_return_value = @
pref_report_get @
( i_real_numbers, @
i_float_field_width, @
i_float_decimal, @
i_sci_field_width, @
i_sci_decimal, @
i_integer_field_width, @
i_number_spacing )
dump i_return_value
dump i_real_numbers
dump i_float_field_width
dump i_float_decimal
dump i_sci_field_width
dump i_sci_decimal
dump i_integer_field_width
dump i_number_spacing
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function pref_report_set()
#
# In this example a new database is opened and
# default report preference is got. Then the
# preferences are changed and got again.
#
# This file can be run by starting a session of
# Patran, and running this session file
# through the "File","Session","Play" pulldown
# menus on the menu bar.
#
# The function pref_report_set() has the following arguments:
# pref_report_set
# ( real_numbers,
# float_field_width,
# float_decimal,
# sci_field_width,
# sci_decimal,
# integer_field_width,
# number_spacing )
#
#---------------------------------------------------------------------
# Variable Declarations
INTEGER i_real_numbers
INTEGER i_float_field_width
INTEGER i_float_decimal
INTEGER i_sci_field_width
INTEGER i_sci_decimal
INTEGER i_integer_field_width
INTEGER i_number_spacing
INTEGER i_return_value
#---------------------------------------------------------------------
# Create a new database and set the preferences
uil_file_new.go("", "./new.db")
$? YES 36000002
# Get the report preference.
#
i_return_value = @
pref_report_get @
( i_real_numbers, @
i_float_field_width, @
i_float_decimal, @
i_sci_field_width, @
i_sci_decimal, @
i_integer_field_width, @
i_number_spacing )
dump i_return_value
dump i_real_numbers
dump i_float_field_width
dump i_float_decimal
dump i_sci_field_width
dump i_sci_decimal
dump i_integer_field_width
dump i_number_spacing
#---------------------------------------------------------------------
# Set different parameters for report generation.
i_real_numbers = 2
i_float_field_width = 10
i_float_decimal = 5
i_sci_field_width = 10
i_sci_decimal = 6
i_integer_field_width = 5
i_number_spacing = 2
i_return_value = @
pref_report_set @
( i_real_numbers, @
i_float_field_width, @
i_float_decimal, @
i_sci_field_width, @
i_sci_decimal, @
i_integer_field_width, @
i_number_spacing )
dump i_return_value
#---------------------------------------------------------------------
# Get the report preference.
#
i_return_value = @
pref_report_get @
( i_real_numbers, @
i_float_field_width, @
i_float_decimal, @
i_sci_field_width, @
i_sci_decimal, @
i_integer_field_width, @
i_number_spacing )
dump i_return_value
dump i_real_numbers
dump i_float_field_width
dump i_float_decimal
dump i_sci_field_width
dump i_sci_decimal
dump i_integer_field_width
dump i_number_spacing
#---------------------------------------------------------------------