#!/usr/bin/ksh
# whatuserresponsibility ()
#------------------------------------------------------------------------------#
#    Module Name:  whatuserresonsbility                                        #
#                                                                              #
#    Purpose:      Report on the DBA_USERS (Database) Accounts                 #
#                                                                              #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    10-Oct-2009   M.Barone      Module design/creation                        #
#------------------------------------------------------------------------------#
{
        DIRNAM=$(dirname $0)
        ORASID=$(echo $CONTEXT_NAME | cut -f1 -d'_')
        HNAME=$(uname -n)
 
        #----------------------------------------------------------------------#
        #  TEST:  Number ($#) of arguments passed to this function?            #
        #----------------------------------------------------------------------#
        if      [ $# = 0 ]
        then
            clear
            echo
            echo  " #--------------------------------------------------------#"
            echo  " # whatuserresonsbility:       Oracle User-Responsibility #"
            echo  " #--------------------------------------------------------#"
            echo
 
            #------------------------------------------------------------------#
            #  Trap:  Set CNTL-C CNTL-D CNTL-\ Before Password Protection      #
            #------------------------------------------------------------------#
            trap        "stty echo; return"     2
            trap        "stty echo; return"     3
            stty -echo
 
            read PASSWD?" Please Enter the Oracle APPS Passwd: "
 
            stty echo
            echo
            #------------------------------------------------------------------#
            #  Trap:  Reset CNTL-C CNTL-D CNTL-\ After Password Protection     #
            #------------------------------------------------------------------#
            trap        2
            trap        3
 
            read RESPNM?"        Enter the eBusiness Responsibility-Name:  "
 
            clear
        else
            PASSWD=$1
            clear
        fi
 
#------------------------------------------------------------------------------#
#  Initialize                                                                  #
#------------------------------------------------------------------------------#
        SPOOLNM=/tmp/whatuserresonsbility_$$.txt
 
#------------------------------------------------------------------------------#
#  SQL*Plus ("Here-Document")                                                  #
#------------------------------------------------------------------------------#
sqlplus  -s  /nolog  <<-END_FILE
 
        CONNECT  APPS/$PASSWD
 
        SPOOL ${SPOOLNM}
 
        clear   BREAKS
        clear   BUFFER
        clear   COLUMNS
        clear   COMPUTES
        clear   SCREEN
        clear   SQL
        clear   TIMING
 
        set     feedback        off
        set     flush           on
        set     heading         on
        set     pause           off
        set     space           1
        set     termout         on
        set     verify          on
        set     linesize        80
        set     pagesize        999
 
        prompt #---------------------------------------------------------------#
        prompt #- What (whatuserresonsbility)                                 -#
        prompt #---------------------------------------------------------------#
 
        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR
 
        COLUMN  uname  format A12      HEADING 'User|Name'              WORD_WRAPPED
        COLUMN  rkeye  format A14      HEADING 'Responsibility|Key'     WORD_WRAPPED
        COLUMN  rname  format A14      HEADING 'Responsibility|Name'    WORD_WRAPPED
        COLUMN  sdate  format A9       HEADING 'Start|Date'             WORD_WRAPPED
        COLUMN  edate  format A9       HEADING 'End|Date'               WORD_WRAPPED
        COLUMN  cdate  format A9       HEADING 'Creation|Date'          WORD_WRAPPED
        COLUMN  versn  format A7       HEADING 'Resp|Version'           WORD_WRAPPED
 
        TTITLE  CENTER  '${ORASID} (${HNAME}) Apps User-Responsibilities '  -
                LEFT    DATEVAR                                     skip 1  -
                CENTER  'eBusiness User-Responsibilities'                   -
                LEFT    TIMEVAR                                     skip 2
 
        alter session set NLS_DATE_FORMAT = 'DD-MON-YY';
 
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                fus.user_name           uname,
                frv.responsibility_key  rkeye,
                frv.responsibility_name rname,
                frg.start_date          sdate,
                frg.end_date            edate,
                frg.creation_date       cdate,
                DECODE(frp.version,
                        '4','RUP4',
                        'H','RUPH',
                        'M','RUPM',
                        'W','RUPW', 'NULL') versn
        FROM    FND_USER_RESP_GROUPS    frg,
                FND_USER                fus,
                FND_RESPONSIBILITY_VL   frv,
                FND_RESPONSIBILITY      frp
        WHERE   frg.RESPONSIBILITY_ID             = frp.RESPONSIBILITY_ID
        AND     frg.RESPONSIBILITY_APPLICATION_ID = frp.APPLICATION_ID
        AND     frg.RESPONSIBILITY_ID             = frv.RESPONSIBILITY_ID
        AND     frv.RESPONSIBILITY_name        like '${RESPNM}'
        AND     frg.USER_ID                       = fus.USER_ID
        ORDER BY user_name, frg.responsibility_application_id,
                frg.responsibility_id, frg.security_group_id;
 
 
END_FILE
 
print
print  "Please see  /tmp/whatuserresonsbility_$$.txt"
print
}
