#!/bin/ksh93
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# 61haes_r714 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_rgdependency_parent.sh 1.4 
#  
# Licensed Materials - Property of IBM 
#  
# Restricted Materials of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2006,2012 
# 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 
# @(#)03    1.4 src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_rgdependency_parent.sh, hacmp.assist, 61haes_r714 6/10/12 15:22:48

# 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_get_rgdependency_parent

=head1 VERSION

 Version Number:  1.4
 Last Extracted:  1/31/14 04:40:58
 Last Changed:    6/10/12 15:22:48

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

=head1 SYNOPSIS

KLIB_HACMP_get_rgdependency_parent

=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

=cut
} # End of POD-formatted documentation.


function KLIB_HACMP_get_rgdependency_parent {
    LINENO=2 . $HALIBROOT/log_entry "$0()" "$CL"
    : version=1.4, src/43haes/lib/ksh93/hacmp/KLIB_HACMP_get_rgdependency_parent.sh, hacmp.assist, 61haes_r714
    : INPUTS: $*

    typeset child=${1//\"/}
    typeset -n list=$2

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

    #===================================
    : Declare and initialize variables
    #===================================
    typeset -i index=0 rc=$RC_SUCCESS

    #=================
    : Validate input
    #=================
    if [[ -z $child ]]; then
        rc=$RC_MISSING_INPUT

    else
        print -- "$0()[$LINENO]($SECONDS): $HAUTILS/clodmget -q \"group_child=$child and dependency_type=PARENT_CHILD\" -f group_parent HACMPrgdependency" >>$CLMGR_TMPLOG  # Always log commands
        for parent in $($HAUTILS/clodmget -q "group_child=$child and dependency_type=PARENT_CHILD" -f group_parent HACMPrgdependency)
        do
            list[$index]=${parent//\"/}
            (( index++ ))    
        done
        print "clodmget RC: $?" >>$CLMGR_TMPLOG  # Always log command result
    fi

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