#!/usr/bin/ksh
#whatreqgroup ()
#------------------------------------------------------------------------------#
#    Module Name:  whatreqgroup                                                #
#                                                                              #
#    Purpose:      Report on the EBusiness Suite Concurrent Request-Group.     #
#                                                                              #
#    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  " # whatreqgroup:    Oracle Apps Concurrent Request Groups #"
            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 PGMNAM?"        Enter the ConcProgram LongName (Ex. Gather)":
 
            clear
        else
            PASSWD=$1
            PGMNAM=$2
            clear
        fi
 
 
#------------------------------------------------------------------------------#
#  Initialize                                                                  #
#------------------------------------------------------------------------------#
        SPOOLNM=/tmp/whatreqgroup_$$.txt
 
#------------------------------------------------------------------------------#
#  SQL*Plus ("Here-Document")                                                  #
#------------------------------------------------------------------------------#
sqlplus  -s  /nolog  <<-END_FILE
 
        CONNECT  APPS/$PASSWD
 
        set     pagesize        9000
        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
 
        SPOOL ${SPOOLNM}
 
        clear   BREAKS
        clear   BUFFER
        clear   COLUMNS
        clear   COMPUTES
        clear   SCREEN
        clear   SQL
        clear   TIMING
 
        prompt #---------------------------------------------------------------#
        prompt #- eBusiness Suite 11i (whatreqgroup)                          -#
        prompt #---------------------------------------------------------------#
 
        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR
 
        COLUMN appname  FORMAT A30      HEADING 'Application Name'
        COLUMN grpname  FORMAT A25      HEADING 'ConcGroup Name'
        COLUMN ccpname  FORMAT A23      HEADING 'ConcPgm Name'
 
        TTITLE  CENTER  '${ORASID} (${HNAME}) Profile Values'           -
                LEFT    DATEVAR                                 skip 1  -
                CENTER  'Sorted by ProfileName'                         -
                LEFT    TIMEVAR                                 skip 2
 
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')           datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')          timevalue,
                fav.application_name                    appname,
                frg.request_group_name                  grpname,
                fcp.user_concurrent_program_name        ccpname
        FROM    fnd_application_vl fav,
                fnd_concurrent_programs_tl fcp,
                fnd_request_groups frg,
                fnd_request_group_units frgu
        WHERE   frgu.request_group_id   = frg.request_group_id
          AND   frgu.request_unit_id    = fcp.concurrent_program_id
          AND   frgu.application_id     = fav.application_id
          AND   fcp.application_id      = fav.application_id
          AND   fcp.language            = 'US'
          AND   fcp.USER_CONCURRENT_PROGRAM_NAME like '%${PGMNAM}%'
        ORDER BY fav.application_name,
                frg.request_group_name,
                fcp.user_concurrent_program_name;
 
EXIT;
END_FILE
 
print
print  "Please see  /tmp/whatreqgroup_$$.txt"
print
}