#

#  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 

#---------------------------------------------------------------------