Replace mappings in Process Flows

Question

Hi,
Is there an easy way of replacing an existing mapping ina PF with new version of the same?
thanks
mahesh

Answer 1

OK, here is some sample code you can play with. What it does is drop the mapping activity from the process flow and then replace it with a fresh version, rebuilding parameters and transitions.
I used an additional DB connection to query for problem activities. You can see the logic in the $v_mapquery query: alter this if you need something different. This is much faster then using pure scripting: there would problems of RAM and speed while scanning all process flows using OMBPlus.
So I cache all the needed info in some lists and then print/reconcile it.
Having an extra open connection can cause some concurrency problems, but this was designed to run batch and send back an e-mail with results.
Some extra notes:
1-if a mapping is dropped I print the unbound activity but can't reconcile it
2-activities are replaced so they will be out of position when you enter the process flow editor
2-there was a bug in scripting related to SQLLoader mappings. I don't know if this has been fixed; so you can have problems with these.
The following 3 procedures cache the process flow info.
# Retrieve transitions of a proc. flow activity
proc get_map_pf_transitions {\
     p_conn \
     p_process_flow_id \
     p_map_activity_id \
     p_pf_act_trans
     upvar $p_pf_act_trans v_pf_act_trans
     set v_query "select
     cast(decode (tr.source_activity_id, ?, 'OUTGOING','INCOMING') as varchar2(50)) TRANSITION_DIRECTION,
process_id, process_name,
  transition_id, transition_name, business_name, description, condition,
                       source_activity_id, source_activity_name,
                        target_activity_id, target_activity_name
from all_iv_process_transitions tr
       where tr.process_id = ?
       and (tr.source_activity_id = ?
              or tr.target_activity_id = ?)
            order by source_activity_id";     
     set v_stmt [ $p_conn prepareCall $v_query ]
     $v_stmt {setLong int long} 1 $p_map_activity_id
     $v_stmt {setLong int long} 2 $p_process_flow_id
     $v_stmt {setLong int long} 3 $p_map_activity_id
     $v_stmt {setLong int long} 4 $p_map_activity_id
     set v_resultset [ $v_stmt  executeQuery ]
     # set to -1 so it goes to 0 when entering loop
     set v_transindex -1
     set v_temptran [list ]
     while { [ $v_resultset next ] == 1  } {
         incr v_transindex;
         lappend v_temptran \
              [ list \
                   [$v_resultset getString TRANSITION_NAME] \
                   [$v_resultset getString DESCRIPTION] \
                   [$v_resultset getString CONDITION] \
                   [$v_resultset getString TRANSITION_DIRECTION] \
                   [$v_resultset getString SOURCE_ACTIVITY_NAME] \
                   [$v_resultset getString TARGET_ACTIVITY_NAME] \
    lappend v_pf_act_trans $v_temptran
# Retrieve parameters of a proc. flow mapping
proc get_map_pf_parameters {\
     p_conn \
     p_map_activity_id \
     p_pf_act_parameters
     upvar $p_pf_act_parameters v_pf_act_parameters
     set v_query "select
     parameter_owner_id, parameter_owner_name,
     PARAMETER_OWNER_ID, PARAMETER_NAME, DATA_TYPE, DEFAULT_VALUE parameter_value,
     BUSINESS_NAME, DESCRIPTION
     from ALL_IV_PROCESS_PARAMETERS pa
       where pa.parameter_owner_id = ?";     
     set v_stmt [ $p_conn prepareCall $v_query ]
     $v_stmt {setLong int long} 1 $p_map_activity_id
     set v_resultset [ $v_stmt  executeQuery ]
     # set to -1 so it goes to 0 when entering loop
     set v_paramindex -1
     set v_tempparam [list ]
     while { [ $v_resultset next ] == 1  } {
         incr v_paramindex;
         lappend v_tempparam \
              [ list \
                   [$v_resultset getString PARAMETER_NAME] \
                   [$v_resultset getString DATA_TYPE] \
                   [$v_resultset getString PARAMETER_VALUE] \
                   [$v_resultset getString DESCRIPTION] \
    lappend v_pf_act_parameters $v_tempparam
# Retrieve and cache all info needed to upgrade process flows
# all parameters are lists which are appended, except the connection
proc get_map_pf_unbound { \
     p_conn \
     p_upd_types \
     p_maps \
     p_pf_paths \
     p_pf_proc_names \
     p_pf_act_names \
     p_pf_act_parameters \
     p_pf_act_trans
     upvar $p_upd_types v_upd_types
     upvar $p_maps v_maps
     upvar $p_pf_paths v_pf_paths
     upvar $p_pf_proc_names v_pf_proc_names
     upvar $p_pf_act_names v_pf_act_names
     upvar $p_pf_act_parameters v_pf_act_parameters
     upvar $p_pf_act_trans v_pf_act_trans
# query to retrieve unbound mappings (actually, I use views in the DB ... )
     set v_mapquery "with proc_maps as (
      select
   '/'||md.project_name||'/'|| information_system_name || '/' ||
                            pk.package_name pf_fqual_procpath,
   md.project_id pf_project_id,
   md.project_name pf_project_name,
   md.information_system_id pf_module_id,
   md.information_system_name pf_module_name,
   pk.package_id pf_package_id,
   pk.package_name pf_package_name,
   pr.process_id pf_process_id,
   pr.process_name pf_process_name,
   a.activity_id pf_activity_id,
   a.activity_name pf_activity_name,
   a.business_name pf_act_business_name,
   a.description pf_act_description,
   a.activity_type pf_act_activity_type,
   a.bound_object_id pf_act_bound_object_id,
   a.bound_object_name pf_act_bound_object_name
    from all_iv_process_activities a,
                                 all_iv_processes pr,
                            all_iv_packages pk,
                            all_iv_process_modules md
             where
             a.activity_type in (
                'PlSqlMapProcessNoteTag', /* type for PLSQL mappings */
                'SqlLdrProcessNoteTag' /* SQLLOADER mappings */)
             and a.process_id = pr.process_id
             and pk.package_id = pr.package_id
             and md.INFORMATION_SYSTEM_ID = pk.schema_id
  maps as (
       select
     '/'||md.project_name||'/'||md.information_system_name||
     '/'||  mp.MAP_NAME mp_fqual_mapname,
       md.PROJECT_ID mp_project_id,
       md.PROJECT_NAME mp_project_name,
       md.INFORMATION_SYSTEM_ID mp_module_id,
       md.INFORMATION_SYSTEM_NAME mp_module_name,
       mp.MAP_ID mp_map_id,
       mp.MAP_NAME mp_map_name,
       mp.BUSINESS_NAME MP_BUSINESS_NAME ,
       mp.DESCRIPTION MP_DESCRIPTION
        from all_iv_xform_maps mp,
                  all_iv_information_systems md
                where mp.INFORMATION_SYSTEM_ID = md.INFORMATION_SYSTEM_ID
select * from (
/* case 1: mapping name has changed */
select
  '1-CHANGEDNAME' changetype,
a.*,m.* from proc_maps a, maps m
                where a.pf_act_bound_object_id = m.mp_map_id
                  and a.pf_act_bound_object_name <> m.mp_map_name
                  union all
/* case 2: there's a new mapping with the old name... I'll reconcile only if
   the old mapping was dropped: otherwise you'll be in case 1:
   IMPORTANT- NOTE: I'll reconcile with a new mapping with the same name even
                  if found in a different module.
select
  '2-REPLACED' changetype,
a.*,mnew.* from proc_maps a,
                                 maps mnew,
                            maps mold
                where a.pf_act_bound_object_id <> mnew.mp_map_id
             and a.pf_act_bound_object_name = mnew.mp_map_name
             /* verify that mapping is in the current project */
             and mnew.mp_project_id = a.pf_project_id
             and a.pf_act_bound_object_id = mold.mp_map_id (+)
             and mold.mp_map_id is null
                     union all
/* case 3: no matching mapping. I'll warn the user that the activity is not bound nor bindable */
   select
   '3-MISSING' changetype,
   a.*,mnew.* from proc_maps a, maps mnew, maps mold
                where
                 a.pf_act_bound_object_name = mnew.mp_map_name (+)
             and a.pf_project_id = mnew.mp_project_id (+)
             and a.pf_act_bound_object_id = mold.mp_map_id (+)
             and mnew.mp_map_id is null
             and mold.mp_map_id is null)
             order by changetype, pf_fqual_procpath, pf_process_name, pf_activity_name";
# query to retrieve connections between pflow activities
     set v_transquery "select
process_id, process_name,
  transition_id, transition_name, business_name, description, condition,
                       source_activity_id, source_activity_name,
                        target_activity_id, target_activity_name
from all_iv_process_transitions tr
       where tr.process_id = ?
       and (tr.source_activity_id = ?
              or tr.target_activity_id = ?)
            order by source_activity_id";
     set v_mapstmt [ $p_conn prepareCall $v_mapquery ]
     set v_resultset [ $v_mapstmt  executeQuery ]
     # set to -1 so it goes to 0 when entering loop
     set v_mapindex -1
     while { [ $v_resultset next ] == 1  } {
         incr v_mapindex;
         lappend v_upd_types [$v_resultset getString CHANGETYPE]
         set v_fqualmapname [$v_resultset getString MP_FQUAL_MAPNAME]
         lappend v_maps $v_fqualmapname
         set v_pf_activity_id [$v_resultset getLong PF_ACTIVITY_ID]
         set v_pf_process_id [$v_resultset getLong PF_PROCESS_ID]
          lappend v_pf_paths [$v_resultset getString PF_FQUAL_PROCPATH]
          lappend v_pf_proc_names [$v_resultset getString PF_PROCESS_NAME]
          lappend v_pf_act_names [$v_resultset getString PF_ACTIVITY_NAME]
          puts "Retrieving activity parameters...";
          get_map_pf_parameters $p_conn $v_pf_activity_id $p_pf_act_parameters
          puts "Retrieving activity transitions...";
          get_map_pf_transitions $p_conn $v_pf_process_id $v_pf_activity_id $p_pf_act_trans
#          lappend v_pf_act_properties
#          lappend v_pf_act_trans
           puts "All data retrieved for activity:";
           puts "[lindex $v_pf_paths $v_mapindex]/[lindex $v_pf_proc_names $v_mapindex]/[lindex $v_pf_act_names $v_mapindex]";     
           puts "Type: [lindex $v_upd_types $v_mapindex]";
}And here's some example client code to load problem activities info, print it and reconcile (replace) activities.
# open extra connection to access OWB public views
set v_connstr "OWBREP/[email protected]:1521:ORCL"
set v_jdbcconnstr "jdbc:oracle:thin:$p_connstr"
java::call java.sql.DriverManager registerDriver [java::new oracle.jdbc.OracleDriver ]
set v_conn [java::call java.sql.DriverManager getConnection $v_jdbcconnstr ]
# retrieve and cache activity data
set v_upd_types [list ]
set v_maps [list ]
set v_pf_paths [list ]
set v_pf_proc_names [list ]
set v_pf_act_names [list ]
# activity parameters - will be a nested list
set v_pf_act_parameters [list ]
# activity transitions - will be a nested list
set v_pf_act_trans [list ]
get_map_pf_unbound $v_conn \
v_upd_types \
v_maps \
v_pf_paths \
v_pf_proc_names \
v_pf_act_names \
v_pf_act_parameters \
v_pf_act_trans \
$v_conn close
#print results
foreach \
     v_upd_type $v_upd_types \
     v_map $v_maps \
     v_pf_path $v_pf_paths \
     v_pf_proc_name $v_pf_proc_names \
     v_pf_act_name $v_pf_act_names \
     v_pf_act_parameterz $v_pf_act_parameters \
     v_pf_act_tranz $v_pf_act_trans \
     puts "*** Reconcile type: $v_upd_type";
     puts "Activity: $v_pf_path/$v_pf_proc_name/$v_pf_act_name"
     puts "Candidate mapping: $v_map"
# types of activities I can reconcile
set v_reconc_possible_types [ list "1-CHANGEDNAME" "2-REPLACED" ]
set v_currentpath ""
OMBCONN $v_connstr
#reconcile
foreach \
     v_upd_type $v_upd_types \
     v_map $v_maps \
     v_pf_path $v_pf_paths \
     v_pf_proc_name $v_pf_proc_names \
     v_pf_act_name $v_pf_act_names \
     v_pf_act_parameterz $v_pf_act_parameters \
     v_pf_act_tranz $v_pf_act_trans \
     if { [lsearch $v_reconc_possible_types $v_upd_type ] == -1 } {
     # skip non-reconcilable activities
          continue;
     puts "Reconciling  $v_pf_path/$v_pf_proc_name/$v_pf_act_name "
     puts "with mapping $v_map ..."     
     if { $v_pf_path != $v_currentpath } {
          OMBCC '$v_pf_path'
          set v_currentpath $v_pf_path     
     # drop and replace activity
     puts "Dropping activity...";
     OMBALTER PROCESS_FLOW '$v_pf_proc_name' \
          DELETE ACTIVITY '$v_pf_act_name';
     puts "Re-creating activity...";     
     # don't change activity name - maybe should inherit mapping name (if no collisions)
     OMBALTER PROCESS_FLOW '$v_pf_proc_name' ADD MAPPING ACTIVITY '$v_pf_act_name' \
               SET REF MAPPING '$v_map';
     # add transitions
     puts "Adding transitions...";          
     foreach v_tran $v_pf_act_tranz {
          set v_TRANSITION_NAME [lindex $v_tran 0 ]
         set v_DESCRIPTION [lindex $v_tran 1 ]
         set v_CONDITION  [lindex $v_tran 2 ]
          set v_SOURCE_ACTIVITY_NAME [lindex $v_tran 4 ]
          set v_TARGET_ACTIVITY_NAME     [lindex $v_tran 5 ]     
          OMBALTER PROCESS_FLOW '$v_pf_proc_name' ADD TRANSITION '$v_TRANSITION_NAME' \
               FROM ACTIVITY '$v_SOURCE_ACTIVITY_NAME' \
               TO '$v_TARGET_ACTIVITY_NAME' \
               SET PROPERTIES (TRANSITION_CONDITION, DESCRIPTION) VALUES \
                    ('$v_CONDITION','$v_DESCRIPTION');
     # set parameters
     puts "Setting parameters...";
     foreach v_param $v_pf_act_parameterz {
          set v_PARAMETER_NAME [lindex $v_param 0 ]
         set v_PARAMETER_VALUE [lindex $v_param 2 ]
         set v_DESCRIPTION [lindex $v_param 3 ]
         OMBALTER PROCESS_FLOW '$v_pf_proc_name' MODIFY ACTIVITY '$v_pf_act_name' \
              MODIFY PARAMETER '$v_PARAMETER_NAME' SET \
               PROPERTIES (VALUE,DESCRIPTION) VALUES ('$v_PARAMETER_VALUE','$v_DESCRIPTION') ;
     puts "Reconcile complete for $v_pf_path/$v_pf_proc_name/$v_pf_act_name";          
}I hope I haven't lost too much in cutting and pasting! Anyway if something is not clear, ask freely. I don't use OWB built-in process flows any more, but I should remember enough to explain my own code.
Antonio