cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
empimpt -TESTMODE -cilr $DATA1 $MSTESTDB
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 755 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Table: mbuilder_application
Table: mbuilder_compile
Table: mbuilder_field
Table: mbuilder_form
Table: mbuilder_key
Table: mbuilder_script
Table: mbuilder_window
Table: select table
View: view
* . . tab_name                          tab_index             tab_comment           tab_lock

mbuilder_application                                                          r
mbuilder_compile                                                              r
mbuilder_field                                                                r
mbuilder_form                                                                 r
mbuilder_key                                                                  r
mbuilder_script                                                               r
mbuilder_window                                                               r
select table                                                                  r
view                                                                          n
* . . . . tab_name                          attr_name                         attr_dtname                       attr_range            attr_comment

mbuilder_application              name                              character
                                  enter_script                      text
                                  exit_script                       text
                                  return_type                       character
mbuilder_compile                  name                              character
                                  segment                           integer
                                  compile                           bulk
mbuilder_field                    name                              character
                                  application_name                  character
                                  window_name                       character
                                  enter_script                      text
                                  exit_script                       text
                                  mode                              character
                                  data_type                         character
                                  next                              character
                                  previous                          character
mbuilder_form                     name                              character
                                  compile                           bulk
mbuilder_key                      name                              character
                                  application_name                  character
                                  window_name                       character
                                  script                            text
                                  disable                           character
mbuilder_script                   name                              character
                                  application_name                  character
                                  script                            text
                                  return_type                       character
mbuilder_window                   name                              character
                                  application_name                  character
                                  form_name                         character
                                  form_instance                     character
                                  minrow                            integer
                                  mincol                            integer
                                  maxrow                            integer
                                  maxcol                            integer
                                  draw_box                          character
select table                      into                              integer
                                  attr                              character
                                  table                             bulk
view                              into                              integer
                                  attr                              character
                                  table                             bulk
*   into  attr   table

     5  five   01 23 04
     5  five   9a bc de
*   into  attr   table

     5  five   01 23 04
     5  five   9a bc de
* name                              enter_script          exit_script           return_type

mbuilder_field                    call show_window ('s
                                  ys_default_menu')
                                  call show_window ('m
                                  builder_field')
                                  call current_window
                                  ('mbuilder_field', '
                                  name')
                                  display from menu ()
                                  open 'mbuilder_field
                                  ' update
                                  select from 'mbuilde
                                  r_field' with displa
                                  y count
                                  next_rec 'mbuilder_f
                                  ield'
                                  display from display
                                  _record ()
* name                              segment  compile

mbuilder_field                          1  aa bb cc dd ee ff
* name                              application_name                  window_name                       enter_script          exit_script           mode  data_type  next                              previous

name                              mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'name' for 'mbuil
                                                                                                                            der_field'.'name'
application_name                  mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'application_name
                                                                                                                            ' for 'mbuilder_fiel
                                                                                                                            d'.'application_name
                                                                                                                            '
window_name                       mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'window_name' for
                                                                                                                             'mbuilder_field'.'w
                                                                                                                            indow_name'
enter_script                      mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'enter_script' fo
                                                                                                                            r 'mbuilder_field'.'
                                                                                                                            enter_script'
exit_script                       mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'exit_script' for
                                                                                                                             'mbuilder_field'.'e
                                                                                                                            xit_script'
mode                              mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'mode' for 'mbuil
                                                                                                                            der_field'.'mode'
data_type                         mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'data_type' for '
                                                                                                                            mbuilder_field'.'dat
                                                                                                                            a_type'
next                              mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'next' for 'mbuil
                                                                                                                            der_field'.'next'
previous                          mbuilder_field                    mbuilder_field                                          check 'mbuilder_fiel  w     char
                                                                                                                            d'@'previous' for 'm
                                                                                                                            builder_field'.'prev
                                                                                                                            ious'
* name                              compile

mbuilder_field                    00 11 22 33 44 55 66 77 88 99 aa bb cc dd ee ff
* name          application_name                  window_name                       script                disable

* name                              application_name                  script                return_type

* name                              application_name                  form_name                         form_instance                     minrow  mincol  maxrow  maxcol  draw_box

mbuilder_field                    mbuilder_field                    mbuilder_field                                                           1       1      21      80  n
sys_default_menu                  mbuilder_field                    sys_default_menu                                                        22       1      24      80  n
* 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test import utility, omit optional items (eg. "cilr")
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
