#!/bin/ksh93
#  ALTRAN_PROLOG_BEGIN_TAG                                                    
#  This is an automatically generated prolog.                                  
#                                                                              
#  Copyright (C) Altran ACT S.A.S. 2017,2019,2020,2021.  All rights reserved.  
#                                                                              
#  ALTRAN_PROLOG_END_TAG                                                      
#                                                                              
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# 61haes_r714 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_modify_appmonitor.sh 1.8 
#  
# Licensed Materials - Property of IBM 
#  
# COPYRIGHT International Business Machines Corp. 1990,2010 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
# @(#)  0819b6f 43haes/lib/ksh93/hacmp/KLIB_HACMP_modify_appmonitor.sh, 726, 2147A_aha726, May 19 2021 09:58 PM
#================================================
# The following, commented line enforces coding
# standards when this file is edited via vim.
#================================================
# vim:tabstop=4:shiftwidth=4:expandtab:smarttab
#================================================

# Start of POD-formatted documentation. Viewing suggestions:
#      perldoc <FILENAME>
#      pod2text -c <FILENAME>
#      pod2text -c --code <FILENAME>
#      pod2html <FILENAME>
function devDoc {
    : <<'=cut' >/dev/null 2>&1

=head1 NAME

 KLIB_HACMP_modify_appmonitor

=head1 VERSION

 Version Number:  1.8
 Last Extracted:  4/18/14 01:31:36
 Last Changed:    2/21/14 07:49:02

 Path, Component, Release(, Level):
 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_modify_appmonitor.sh, hacmp.assist, 61haes_r714, 1415A_hacmp714

=head1 SYNOPSIS

 clmgr modify application_monitor <monitor> \
             [ NAME=<new_application_monitor_label> ] \
             [ TYPE={Process|Custom} ] \
             [ APPLICATIONS=<appctlr#1>[,<appctlr#2>,<appctlr#n>,...] ] \
             [ MODE={longrunning|startup|both} ] \
             [ STABILIZATION="1 .. 3600" ] \
             [ RESTARTCOUNT="0 .. 100" ] \
             [ FAILUREACTION={notify|fallover} ] \

 Process Arguments:
     PROCESSES="pmon1,dbmon,..."  \
     OWNER="<processes_owner_name>" \
     [ INSTANCECOUNT="1 .. 1024" ] \
     [ RESTARTINTERVAL="1 .. 3600" ] \
     [ NOTIFYMETHOD="</script/to/notify>" ] \
     [ CLEANUPMETHOD="</script/to/cleanup>" ] \
     [ RESTARTMETHOD="</script/to/restart>" ]

 Custom Arguments:
     MONITORMETHOD="/script/to/monitor" \
     [ MONITORINTERVAL="1 .. 1024" ] \
     [ HUNGSIGNAL="1 .. 63" ] \
     [ RESTARTINTERVAL="1 .. 3600"  ] \
     [ NOTIFYMETHOD="</script/to/notify>" ] \
     [ CLEANUPMETHOD="</script/to/cleanup>" ] \
     [ RESTARTMETHOD="</script/to/restart>" ] \
     [ MONITORRETRYCOUNT="0 .. 10" ] \
     [ AMLOGGING={yes|no} ]

 NOTE: "appctlr" is an abbreviation for "application_controller".

 NOTE: the aliases for "application_monitor" are "am" and "mon".

=head1 DESCRIPTION

Attempts to modify the specified application monitor
to conform to the provided specifications.

=head1 ARGUMENTS

 1. properties [REQUIRED] [hash ref]
    An associative array within which data about the
    modified object can be returned to the caller.

 2. monname [REQUIRED] [string]
    The label of the monitor that is to be modified.

 3. new_name [OPTIONAL] [string]
    The new label to attempt to apply to the specified monitor.

 4. p [OPTIONAL] [hash ref]
    An associative array within which configuration details
    for the existing object are passed in to this function.

=head1 RETURN

 0: no errors were detected; the operation appears to have been successful
 1: a general error has occurred
 2: a specified resource does not exist, or could not be found
 3: some required input was missing
 4: some detected input was incorrect in some way
 5: a required dependency does not exist
 6: a specified search failed to match any data

=head1 COPYRIGHT

COPYRIGHT International Business Machines Corp. 2005,2010
All Rights Reserved

=cut
} # End of POD-formatted documentation.


#============================================================================
#
# Name:        KLIB_HACMP_modify_appmonitor
#
# Description: This is the main, FPATH function that is invoked by clmgr
#              to modify application monitors in the cluster configuration.
#
# Inputs:      See the "devDoc()" function, above.
#
# Outputs:     The properties hash is populated. The only other outputs are
#              any error messages that might be needed.
#
# Returns:     Zero if no errors are detected. Otherwise, an appropriate
#              non-zero value is returned. Refer to the "RETURN" section
#              of the "devDoc()" function, above, for the standard return
#              code values/meanings for clmgr.
#
#============================================================================
function KLIB_HACMP_modify_appmonitor {
    LINENO=2 . $HALIBROOT/log_entry "$0()" "$CL"
    : version=@(#)  0819b6f 43haes/lib/ksh93/hacmp/KLIB_HACMP_modify_appmonitor.sh, 726, 2147A_aha726, May 19 2021 09:58 PM
    : INPUTS: $*

    typeset -n properties=$1
    typeset monname=${2//\"/}
    shift; shift

    typeset new_name=$1
    typeset -n p=$2

    [[ "$monname" == "$new_name" ]] && new_name=""

    [[ $CLMGR_LOGGING == 'med' ]] && set +x  # Only trace param values

    #================================================================
    : Check for a defined cluster. No need to continue without one.
    #================================================================
    CL=$LINENO isClusterDefined
    if (( $? != RC_SUCCESS )); then
        log_return_msg "$RC_MISSING_DEPENDENCY" "$0()" "$LINENO"
        return $?
    fi

    #===================================
    :  Declare and initialize variables
    #===================================
    typeset -A args monitormethod
    typeset -l monitorType=${p[TYPE]}
    typeset -i rc=$RC_UNKNOWN
    typeset -A amattrs
    typeset -i i=0

    typeset -l monitorMode="${p[MODE]}"
    case $monitorMode in
        s*) monitorMode="startup"     ;;
        b*) monitorMode="both"        ;;
         *) monitorMode="longrunning" ;;
    esac

    #================================================================
    : Assuming an object was specified, see if it is a known object
    #================================================================
    if [[ $monname != *([[:space:]]) ]]; then
        CL=$LINENO KLIB_HACMP_is_known_appmonitor "$monname"
        (( $? != RC_SUCCESS )) && rc=$RC_NOT_FOUND
    fi

    #=================
    : Validate input
    #=================
    if [[ -z $monname ]]; then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 100 "\nERROR: a name/label must be provided.\n\n" 1>&2
        rc=$RC_MISSING_INPUT

    elif (( $rc == RC_NOT_FOUND )); then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 102 "\nERROR: \"%1\$s\" does not appear to exist!\n\n" "$monname" 1>&2
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 141 "Available Application Monitors:\n\n" 1>&2

        typeset available
        CL=$LINENO KLIB_HACMP_list_appmonitors available
        for (( i=0; i<${#available[*]}; i++ )); do
            if [[ ${available[$i]} != *([[:space:]]) ]]; then
                print -u2 "\t${available[$i]}"
            fi
        done
        print -u2 ""
    fi

    if [[ -n $new_name && -n "${new_name//[a-zA-Z0-9_]/}" ]]; then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 105 "\nERROR: one or more invalid characters were detected in \"%1\$s\" (\"%2\$s\").\n\nValid characters include letters, numbers, and underscores only.\n\n" "$new_name" "${new_name//[a-zA-Z0-9_]/}" 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    #
    : If application controllers were specified, verify that they are
    : known application controllers.
    #
    typeset rg_name=""
    typeset -i appmon_per_app_count=0
    typeset -i appmon_count=0
    typeset all_apps_in_rg=""
    typeset app_in_rg=""
    if [[ ${p[APPLICATIONS]} != *([[:space:]]) ]]; then
        typeset app= apps=${p[APPLICATIONS]}
        apps=${apps//,/ }
        typeset -i all_apps_found=1
        for app in $apps; do
            CL=$LINENO KLIB_HACMP_is_known_appserver "$app" >/dev/null 2>&1
            if (( $? != RC_SUCCESS )); then
                /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 102 "\nERROR: \"%1\$s\" does not appear to exist!\n\n" "$app" 1>&2
                rc=$RC_INCORRECT_INPUT
                all_apps_found=0
            else
                rg_name=$(clodmget -q "name = APPLICATIONS and value = $app" -f group HACMPresource)
                if [[ -n $rg_name ]]; then
                    appmon_count=0
                    all_apps_in_rg=$(clodmget -q "name=APPLICATIONS AND group=$rg_name" -f value HACMPresource)
                    for app_in_rg in $all_apps_in_rg; do
                        appmon_per_app_count=0
                        appmon_per_app_count=$(clodmget -q "name = RESOURCE_TO_MONITOR AND value = $app_in_rg" -f monitor HACMPmonitor | wc -l)
                        (( appmon_count += appmon_per_app_count ))
                    done
                    #===========================================================================
                    : This check is added to stop the user if he adds more than specified limit
                    : for application monitors in a resource group. The same code is used in
                    : KLIB_HACMP_add_appmonitor.sh. Any modifications here should also be
                    : replicated in KLIB_HACMP_add_appmonitor.sh.
                    #===========================================================================
                    if (( $appmon_count >= $MAX_USER_RESOURCES )); then
                        cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS 1449 "\nERROR: Cannot add more than %1\$d application monitors in a resource group.\n\
Application controller %2\$s is a part of resource group %3\$s and\n\
this resource group %3\$s already contains %1\$d application monitors.\n\n" "$MAX_USER_RESOURCES" "$app" "$rg_name"
                        rc=$RC_INCORRECT_INPUT
                    fi
                fi
            fi
        done

        if (( ! all_apps_found )); then
            /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 140 "Available Application Controllers:\n\n" 1>&2
            typeset available
            CL=$LINENO KLIB_HACMP_list_appservers available
            for (( i=0; i<${#available[*]}; i++ )); do
                if [[ ${available[$i]} != *([[:space:]]) ]]; then
                    print -u2 "\t${available[$i]}"
                fi
            done
            print -u2 ""
        fi
    fi

    if [[ -n $monitorMode && \
          $monitorMode != @(longrunning|startup|both) ]]
    then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 110 "\nERROR: invalid value specified for \"%1\$s\":  \"%2\$s\".\n" MODE "$monitorMode" 1>&2
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 3 "Valid values: %1\$s\n\n" "Continuous, Startup, Both" 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[MONITORMETHOD]} && ${p[MONITORMETHOD]} != /* ]]; then
        MSG=$(/usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 106 "\nERROR: the specified path does not appear to be in absolute format:\n%1\$s\n\n" "${p[MONITORMETHOD]}")
        MSG="$MSG (MONITORMETHOD @ $LOCAL_NODE)"
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS -1 "${MSG//+([[:space:]])/ }" 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[MONITORMETHOD]} && ! -e ${p[MONITORMETHOD]%% *} ]]; then
        MSG=$(/usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 107 '\nERROR: the specified path/file does not appear to exist on "%2$s": %1$s\n\n' "${p[MONITORMETHOD]}" "$LOCAL_NODE")
        MSG="$MSG (MONITORMETHOD)"
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS -1 "${MSG//+([[:space:]])/ }" 1>&2
        rc=$RC_NOT_FOUND
    fi

    if [[ -n ${p[NOTIFYMETHOD]} && ${p[NOTIFYMETHOD]} != /* ]]; then
        MSG=$(/usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 106 "\nERROR: the specified path does not appear to be in absolute format:\n%1\$s\n\n" "${p[NOTIFYMETHOD]}")
        MSG="$MSG (NOTIFYMETHOD @ $LOCAL_NODE)"
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS -1 "${MSG//+([[:space:]])/ }" 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[NOTIFYMETHOD]} && ! -e ${p[NOTIFYMETHOD]%% *} ]]; then
        MSG=$(/usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 107 '\nERROR: the specified path/file does not appear to exist on "%2$s": %1$s\n\n' "${p[NOTIFYMETHOD]}" "$LOCAL_NODE")
        MSG="$MSG (NOTIFYMETHOD)"
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS -1 "${MSG//+([[:space:]])/ }" 1>&2
        rc=$RC_NOT_FOUND
    fi

    if [[ -n ${p[CLEANUPMETHOD]} && ${p[CLEANUPMETHOD]} != /* ]]; then
        MSG=$(/usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 106 "\nERROR: the specified path does not appear to be in absolute format:\n%1\$s\n\n" "${p[CLEANUPMETHOD]}")
        MSG="$MSG (CLEANUPMETHOD @ $LOCAL_NODE)"
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS -1 "${MSG//+([[:space:]])/ }" 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[CLEANUPMETHOD]} && ! -e ${p[CLEANUPMETHOD]%% *} ]]; then
        MSG=$(/usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 107 '\nERROR: the specified path/file does not appear to exist on "%2$s": %1$s\n\n' "${p[CLEANUPMETHOD]}" "$LOCAL_NODE")
        MSG="$MSG (CLEANUPMETHOD)"
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS -1 "${MSG//+([[:space:]])/ }" 1>&2
        rc=$RC_NOT_FOUND
    fi

    if [[ -n ${p[RESTARTMETHOD]} && ${p[RESTARTMETHOD]} != /* ]]; then
        MSG=$(/usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 106 "\nERROR: the specified path does not appear to be in absolute format:\n%1\$s\n\n" "${p[RESTARTMETHOD]}")
        MSG="$MSG (RESTARTMETHOD @ $LOCAL_NODE)"
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS -1 "${MSG//+([[:space:]])/ }" 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[RESTARTMETHOD]} && ! -e ${p[RESTARTMETHOD]%% *} ]]; then
        MSG=$(/usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 107 '\nERROR: the specified path/file does not appear to exist on "%2$s": %1$s\n\n' "${p[RESTARTMETHOD]}" "$LOCAL_NODE")
        MSG="$MSG (RESTARTMETHOD)"
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS -1 "${MSG//+([[:space:]])/ }" 1>&2
        rc=$RC_NOT_FOUND
    fi

    if [[ -n $monitorType && $monitorType != @(p|c|u)* ]]; then
         /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 110 "\nERROR: invalid value specified for \"%1\$s\":  \"%2\$s\".\n" TYPE "$monitorType" 1>&2
         /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 3 "Valid values: %1\$s\n\n" "Process, Custom" 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[STABILIZATION]} && \
          ${p[STABILIZATION]} != +([[:digit:]]) ]]
    then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 111 "\nERROR: the \"%1\$s\" option requires a positive, integer value.\n\n" STABILIZATION 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[RESTART_COUNT]} && \
          ${p[RESTART_COUNT]} != +([[:digit:]]) ]]
    then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 111 "\nERROR: the \"%1\$s\" option requires a positive, integer value.\n\n" RESTART_COUNT 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[MONITORINTERVAL]} && \
          ${p[MONITORINTERVAL]} != +([[:digit:]]) ]]
    then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 111 "\nERROR: the \"%1\$s\" option requires a positive, integer value.\n\n" MONITORINTERVAL 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[HUNGSIGNAL]} && \
          ${p[HUNGSIGNAL]} != +([[:digit:]]) ]]
    then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 111 "\nERROR: the \"%1\$s\" option requires a positive, integer value.\n\n" HUNGSIGNAL 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[RESTARTINTERVAL]} && \
          ${p[RESTARTINTERVAL]} != +([[:digit:]]) ]]
    then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 111 "\nERROR: the \"%1\$s\" option requires a positive, integer value.\n\n" RESTARTINTERVAL 1>&2
        rc=$RC_INCORRECT_INPUT
    fi

    if [[ -n ${p[AMLOGGING]} ]]
    then
        CL=$LINENO verify_in_set AMLOGGING "${p[AMLOGGING]}" "yes true enable 1 no false disable 0" result
        if (( $? == RC_SUCCESS )); then
            if [[ $result == @(y|t|e|1)* ]]; then
                p[AMLOGGING]="Y"
            else
                p[AMLOGGING]="N"
            fi
         else
             rc=$RC_INCORRECT_INPUT
         fi
    fi
 
    if [[ -n ${p[MONITORRETRYCOUNT]} && \
          ${p[MONITORRETRYCOUNT]} != +([[:digit:]]) ]]
    then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 111 "\nERROR: the \"%1\$s\" option requires a positive, integer value.\n\n" MONITORRETRYCOUNT 1>&2
        rc=$RC_INCORRECT_INPUT
    elif [[ -n ${p[MONITORRETRYCOUNT]} ]] && (( ${p[MONITORRETRYCOUNT]} > 10 ));
    then
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 110 "\nERROR: invalid value specified for \"%1\$s\":  \"%2\$s\".\n" MONITORRETRYCOUNT "${p[MONITORRETRYCOUNT]}" 1>&2
        /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 3 "Valid values: %1\$s\n\n" "0 .. 10" 1>&2
        rc=$RC_INCORRECT_INPUT
    fi
    
    #======================================================================
    #Force Monitor Restart Count to Zero on Monitor Mode change to Start Up
    #=======================================================================
    if [[ -n $monitorMode && $monitorMode == "startup" ]];
    then
        p[MONITORRETRYCOUNT]=0
    fi 

    #=======================================================================
    : Modify the application monitor if no input errors have been detected
    #=======================================================================
    if (( $rc == RC_UNKNOWN )); then
        CL=$LINENO KLIB_HACMP_get_appmonitor_attributes "$monname" amattrs

        if [[ -z ${p[APPLICATIONS]} ]]; then
            if [[ " ${!_ENV_ARGS[*]} " == *\ APPLICATIONS\ * ]]; then
                p[APPLICATIONS]=""
                for app in ${amattrs[APPLICATIONS]//,/ }; do
                    print "$0()[$LINENO]($SECONDS): clmgr -T \"$CLMGR_TRANSACTION_ID\" -l \"$CLMGR_LOGGING\" modify app $app MONITORS=\"\"" >>$CLMGR_TMPLOG
                    clmgr -T "$CLMGR_TRANSACTION_ID" -l "$CLMGR_LOGGING" modify appctl $app MONITORS=""
                    cmd_rc=$?
                    print "$0()[$LINENO]($SECONDS): clmgr modify appctl RC: $cmd_rc" >>$CLMGR_TMPLOG
                    (( $cmd_rc != RC_SUCCESS )) && rc=$cmd_rc
                done
            else
                p[APPLICATIONS]=${amattrs[APPLICATIONS]}
            fi
        fi

        [[ -z ${p[STABILIZATION]} ]] && p[STABILIZATION]=${amattrs[STABILIZATION]}
        [[ -z ${p[MODE]} ]] && p[MODE]=${amattrs[MODE]}
        [[ -z ${p[RESTARTCOUNT]} ]] && p[RESTARTCOUNT]=${amattrs[RESTARTCOUNT]}
        [[ -z ${p[FAILUREACTION]} ]] && p[FAILUREACTION]=${amattrs[FAILUREACTION]}
        [[ -z $monitorType ]] && monitorType=${amattrs[TYPE]}

        if [[ -n $new_name ]]; then
            [[ -z ${p[MONITORINTERVAL]} ]] && p[MONITORINTERVAL]=${amattrs[MONITORINTERVAL]}
            [[ -z ${p[HUNGSIGNAL]} ]] && p[HUNGSIGNAL]=${amattrs[HUNGSIGNAL]}
            [[ -z ${p[RESTARTINTERVAL]} ]] && p[RESTARTINTERVAL]=${amattrs[RESTARTINTERVAL]}
            [[ -z ${p[CLEANUPMETHOD]} ]] && p[CLEANUPMETHOD]=${amattrs[CLEANUPMETHOD]}
        fi

        if [[ $monitorType == @(custom|user) ]]; then
            [[ -z ${p[MONITORMETHOD]} ]] && p[MONITORMETHOD]=${amattrs[MONITORMETHOD]}
            [[ -z ${p[MONITORRETRYCOUNT]} ]] && p[MONITORRETRYCOUNT]=${amattrs[MONITORRETRYCOUNT]}
        else
            [[ -z ${p[PROCESSES]} ]] && p[PROCESSES]=${amattrs[PROCESSES]}
            [[ -z ${p[OWNER]} ]] && p[OWNER]=${amattrs[OWNER]}
        fi

        #===================================================
        : Begin constructing an appropriate command string
        #===================================================
        if [[ "$new_name" == "" ]]; then
            typeset cmd="clchappmon
                              name=$monname
                              RESOURCE_TO_MONITOR=\"${p[APPLICATIONS]//,/ }\"
                              INVOCATION=${p[MODE]}
                              FAILURE_ACTION=${p[FAILUREACTION]}
                              STABILIZATION_INTERVAL=${p[STABILIZATION]}
                              RESTART_COUNT=${p[RESTARTCOUNT]}"
        else
            typeset cmd="claddappmon
                              name=$new_name
                              RESOURCE_TO_MONITOR=\"${p[APPLICATIONS]//,/ }\"
                              INVOCATION=${p[MODE]}
                              FAILURE_ACTION=${p[FAILUREACTION]}
                              STABILIZATION_INTERVAL=${p[STABILIZATION]}
                              RESTART_COUNT=${p[RESTARTCOUNT]}"
        fi
        #===================================================================
        : Add the command parameters that are specific to process monitors
        #===================================================================
        typeset -i missing_args=0
        if [[ $monitorType == "process" ]]; then

            cmd="$cmd MONITOR_TYPE=process"

            #==================================================================
            : Check for required arguments that have not already been checked
            #==================================================================
            requiredArgs="PROCESSES
                          OWNER"
            for arg in $requiredArgs; do
                if [[ -z ${p[$arg]} ]]; then
                    /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 101 "\nERROR: this operation requires the \"%1\$s\" attribute.\n\n" "$arg" 1>&2
                    (( missing_args++ ))
                fi
            done

            cmd="$cmd PROCESS_OWNER=${p[OWNER]}"
            cmd="$cmd PROCESSES=\"${p[PROCESSES]//,/ }\""

            if [[ -n ${p[INSTANCECOUNT]} ]]; then
                cmd="$cmd INSTANCE_COUNT=${p[INSTANCECOUNT]}"
            fi

        #==================================================================
        : Add the command parameters that are specific to custom monitors
        #==================================================================
        elif [[ $monitorType == @(custom|user) ]]; then

            cmd="$cmd MONITOR_TYPE=user"

            #==================================================================
            : Check for required arguments that have not already been checked
            #==================================================================
            requiredArgs="MONITORMETHOD"
            typeset -i missing=0
            for arg in $requiredArgs; do
                if [[ -z ${p[$arg]} ]]; then
                    /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 101 "\nERROR: this operation requires the \"%1\$s\" attribute.\n\n" "$arg" 1>&2
                    (( missing_args++ ))
                fi
            done

            cmd="$cmd MONITOR_METHOD=\"${p[MONITORMETHOD]}\""

            if [[ -n ${p[MONITORINTERVAL]} ]]; then
                cmd="$cmd MONITOR_INTERVAL=${p[MONITORINTERVAL]}"
            fi
            if [[ -n ${p[AMLOGGING]} ]]; then
                cmd="$cmd AM_LOGGING=${p[AMLOGGING]}"
            fi
            if [[ -n ${p[HUNGSIGNAL]} ]]; then
                cmd="$cmd HUNG_MONITOR_SIGNAL=${p[HUNGSIGNAL]}"
            fi
            if [[ -n ${p[MONITORRETRYCOUNT]} ]]; then
                if [[ ${p[MODE]} != "startup" ]]; then
                    cmd="$cmd MONITOR_RETRY_COUNT=${p[MONITORRETRYCOUNT]}"
                else
                    dspmsg -s $CLMGR_SET $CLMGR_MSGS 1167 "\nWARNING: Monitor Retry Count cannot be tuned \
                    when Monitor Mode is StartUp. Hence Setting it to Default value 0.\n" 1>&2
                    cmd="$cmd MONITOR_RETRY_COUNT=0"
                fi
            fi
        fi

        (( missing_args )) && rc=$RC_MISSING_INPUT

        if (( $rc == RC_UNKNOWN )); then
            #=========================================
            : Add any specified, optional parameters
            #=========================================
            if [[ -n ${p[RESTARTINTERVAL]} ]]; then
                cmd="$cmd RESTART_INTERVAL=${p[RESTARTINTERVAL]}"
            fi
            if [[ -n ${p[NOTIFYMETHOD]} ]] || \
               [[ -z ${p[NOTIFYMETHOD]} && " ${!_ENV_ARGS[*]} " == *\ NOTIFYMETHOD\ * ]]; then
                cmd="$cmd NOTIFY_METHOD=\"${p[NOTIFYMETHOD]}\""
            fi
            if [[ -n ${p[CLEANUPMETHOD]} ]] || \
               [[ -z ${p[CLEANUPMETHOD]} && " ${!_ENV_ARGS[*]} " == *\ CLEANUPMETHOD\ * ]]; then
                cmd="$cmd CLEANUP_METHOD=\"${p[CLEANUPMETHOD]}\""
            fi
            if [[ -n ${p[RESTARTMETHOD]} ]] || \
               [[ -z ${p[RESTARTMETHOD]} && " ${!_ENV_ARGS[*]} " == *\ RESTARTMETHOD\ * ]]; then
                cmd="$cmd RESTART_METHOD=\"${p[RESTARTMETHOD]}\""
            fi

            #================================================================
            : Execute the add monitor command. Check for execution symbols,
            : since we are using an eval. Improves our security posture.
            #================================================================
            if [[ -n $cmd && $cmd != *@(\`|\$)* ]]; then
                print -- "$0()[$LINENO]($SECONDS): ${cmd//+([[:space:]])/ }" >>$CLMGR_TMPLOG  # Always log commands
                eval $cmd
                rc=$?
                print "$(basename ${cmd%% *}) RC: $rc" >>$CLMGR_TMPLOG  # Always log command result
            fi

            if (( $rc != RC_SUCCESS )); then
                /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 400 "\nERROR: failed to modify \"%1\$s\"..\n\n" "$monname" 1>&2
                rc=$RC_ERROR
            fi

            if [[ "$new_name" == "" ]]; then
                #===========================================================
                : If output from this operation was requested, retrieve it
                #===========================================================
                if (( $rc == RC_SUCCESS )); then
                    if (( CLMGR_VERBOSE )) || [[ -n $CLMGR_ATTRS ]]; then
                        CL=$LINENO KLIB_HACMP_get_appmonitor_attributes "$monname" properties
                    fi
                fi
            else
                #===========================================================
                : If output from this operation was requested, retrieve it
                #===========================================================
                if (( $rc == RC_SUCCESS )); then
                    if (( CLMGR_VERBOSE )) || [[ -n $CLMGR_ATTRS ]]; then
                        CL=$LINENO KLIB_HACMP_get_appmonitor_attributes "$new_name" properties
                    fi
                    #===========================================================
                    : New app monitor added with new name, deleting old one
                    #===========================================================
                    print -- "$0()[$LINENO]($SECONDS): clrmappmon \"$monname\"" >>$CLMGR_TMPLOG  # Always log commands
                    clrmappmon "$monname" >/dev/null 2>&1  # Always log command result
                    rc=$?
                    print "clrmappmon RC: $rc" >>$CLMGR_TMPLOG  # Always log command result
					
                    if (( $rc != RC_SUCCESS )); then
                        print -- "$0()[$LINENO]($SECONDS): cllsappmon \"$monname\"" >>$CLMGR_TMPLOG  # Always log commands
                        cllsappmon -c "$monname" >/dev/null 2>&1
                        rc=$?
                        print "cllsappmon RC: $rc" >>$CLMGR_TMPLOG  # Always log command result
                        if (( $rc == RC_SUCCESS )); then  # if old monitor got deleted, skipping the new monitor cleanup.
                            print -- "$0()[$LINENO]($SECONDS): clrmappmon \"$new_name\"" >>$CLMGR_TMPLOG  # Always log commands
                            clrmappmon "$new_name" >/dev/null 2>&1  # Always log command result
                            rc=$?
                            print "clrmappmon RC: $rc" >>$CLMGR_TMPLOG  # Always log command result
                            if (( $rc != RC_SUCCESS )); then
                                /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 1485 "ERROR: Deletion of application monitor \"%1\$s\" is failed.\n\
Please delete the application monitor using clmgr command or smit menu.\n" "$new_name"
                            fi
                            /usr/bin/dspmsg -s $CLMGR_SET $CLMGR_MSGS 400 "\nERROR: failed to modify \"%1\$s\"..\n\n" "$monname" 1>&2
                            rc=$RC_ERROR
                        fi
                    fi
                fi
            fi
        fi
    fi

    #=======================================================================
    : If a user input error was detected, provide some helpful suggestions
    #=======================================================================
    if (( $rc == RC_MISSING_INPUT || $rc == RC_INCORRECT_INPUT )) && \
       [[ $CLMGR_GUI == *([[:space:]]) ]]
    then
        CL=$LINENO cl_dspmsg -s $CLMGR_SET $CLMGR_MSGS 104 "For more information about available options and syntax, try\n\"$HAUTILS/clmgr %1\$s\". As an\nalternative, if the PowerHA SystemMirror man pages have been installed, invoke\n\"$HAUTILS/clmgr -hv\" (or \"/usr/bin/man clmgr\"),\nsearching for \"%2\$s\" in the displayed text.\n\n" \
        "modify application_monitor -h" "APPLICATION MONITOR:" "$CLMGR_PROGNAME" 1>&2
    fi

    log_return_msg "$rc" "$0()" "$LINENO"
    return $?
} # End of "KLIB_HACMP_modify_appmonitor()"