#!/usr/bin/ksh
#whatfndnode ()
#------------------------------------------------------------------------------#
#    Module Name:  whatfndnode                                                 #
#                                                                              #
#    Purpose:      Report on the FND_NODES                                     #
#                    ADMIN-Server    ConcMgr-Server                            #
#                    Forms-Server    Web-Server                                #
#                                                                              #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    01-Oct-2019   T.Blanford    Module design/creation                        #
#                  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  " # whatfndnode:                   Oracle Apps Forms Users #"
            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

            clear
        else
            PASSWD=$1
            clear
        fi

#------------------------------------------------------------------------------#
#  Initialize                                                                  #
#------------------------------------------------------------------------------#
        SPOOLNM=/tmp/whatfndnode_$$.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 (whatfndnode)                                          -#
        prompt #---------------------------------------------------------------#

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR

        COLUMN  nodnme  format A15      HEADING 'NodeName'	WORD_WRAPPED
        COLUMN  hstnme  format A14      HEADING 'HostName'	WORD_WRAPPED
        COLUMN  v_addr  format A14      HEADING 'Virtual Address' WORD_WRAPPED
        COLUMN  s_addr  format A14      HEADING 'Server Address'  WORD_WRAPPED
        COLUMN  s_admn  format A4       HEADING 'Admn|Srvr'	WORD_WRAPPED
        COLUMN  s_conc  format A4       HEADING 'Conc|Srvr'	WORD_WRAPPED
        COLUMN  s_form  format A4       HEADING 'Form|Srvr'	WORD_WRAPPED
        COLUMN  s_web   format A4       HEADING 'Web|Srvr'	WORD_WRAPPED

        TTITLE  CENTER  '${ORASID} (${HNAME}) Apps FND_NODES '              -
                LEFT    DATEVAR                                     skip 1  -
                CENTER  'eBusiness AdminTier/ConcTier/FormTier/WebTier'     -
                LEFT    TIMEVAR                                     skip 2

        alter session set NLS_DATE_FORMAT = 'DD-MON-YYYY HH24:MI:SS';
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                node_name			nodnme,
                host				hstnme,
                virtual_ip			v_addr,
                server_address			s_addr,
                support_admin			s_admn,
                support_cp			s_conc,
                support_forms			s_form,
                support_web			s_web
        FROM	APPLSYS.FND_NODES
	ORDER BY node_name;


        TTITLE  CENTER  ' '

        COLUMN  nodnme  format A15	HEADING 'NodeName'	WORD_WRAPPED
        COLUMN  noddom  format A15	HEADING 'NodeDomain'	WORD_WRAPPED
        COLUMN  nodweb  format A25	HEADING 'Node|WebHost'	WORD_WRAPPED
        COLUMN  noddb1  format A9	HEADING 'Node|DataBase'	WORD_WRAPPED
        COLUMN  nodapp  format A12      HEADING 'Node|APPL_TOP'	WORD_WRAPPED


        alter session set NLS_DATE_FORMAT = 'DD-MON-YYYY HH24:MI:SS';
        SELECT  node_name			nodnme,
                domain				noddom,
                webhost				nodweb,
                support_db			noddb1,
                appltop_id			nodapp
        FROM	APPLSYS.FND_NODES
	ORDER BY node_name;


        TTITLE  CENTER  ' '

        COLUMN  nodnme  format A15	HEADING 'NodeName'	WORD_WRAPPED
        COLUMN  node#1  format A15	HEADING 'NodeName#1'	WORD_WRAPPED
        COLUMN  nodeid  format 99999	HEADING 'NodeID'	WORD_WRAPPED
        COLUMN  nodmod  format A4	HEADING 'Node|Mode'	WORD_WRAPPED
        COLUMN  nodplt  format A8	HEADING 'Node|Platform'	WORD_WRAPPED
        COLUMN  noddes  format A20      HEADING 'NodeDesc'	WORD_WRAPPED
        COLUMN  nodsta  format A6	HEADING 'Status'	WORD_WRAPPED


        alter session set NLS_DATE_FORMAT = 'DD-MON-YYYY HH24:MI:SS';
        SELECT  node_name			nodnme,
                node_name#1			node#1,
                node_id				nodeid,
                node_mode			nodmod,
                platform_code			nodplt,
                description			noddes,
                status				nodsta
        FROM	APPLSYS.FND_NODES
	ORDER BY node_name;


        TTITLE  CENTER  ' '


        COLUMN  nodnme  format A15      HEADING 'NodeName'	WORD_WRAPPED
        COLUMN  servid  format A64      HEADING 'Server-ID'	WORD_WRAPPED


        alter session set NLS_DATE_FORMAT = 'DD-MON-YYYY HH24:MI:SS';
        SELECT  node_name			nodnme,
                server_id			servid
        FROM	APPLSYS.FND_NODES
	ORDER BY node_name;


        TTITLE  CENTER  ' '

        COLUMN  nodnme  format A15	HEADING 'NodeName'	WORD_WRAPPED
        COLUMN  nodbas  format A10	HEADING 'BasePath'	WORD_WRAPPED
        COLUMN  nodpng  format A32	HEADING 'Ping|Respone'	WORD_WRAPPED
        COLUMN  nodmon  format A20	HEADING 'LastMonitored'	WORD_WRAPPED


        alter session set NLS_DATE_FORMAT = 'DD-MON-YYYY HH24:MI:SS';
        SELECT  node_name			nodnme,
                basepath			nodbas,
                ping_response			nodpng,
                last_monitored_time		nodmon
        FROM	APPLSYS.FND_NODES
	ORDER BY node_name;


        TTITLE  CENTER  ' '

        COLUMN  nodnme  format A15      HEADING 'NodeName'	WORD_WRAPPED
        COLUMN  nodcdt  format A11      HEADING 'Created|Date'	WORD_WRAPPED
        COLUMN  nodcby  format 999999   HEADING 'Created|By'	WORD_WRAPPED
        COLUMN  nodudt  format A11      HEADING 'Updated|Date'	WORD_WRAPPED
        COLUMN  noduby  format 999999   HEADING 'Updated|By'	WORD_WRAPPED
        COLUMN  nodulg  format 999999   HEADING 'Update|Login'	WORD_WRAPPED


        alter session set NLS_DATE_FORMAT = 'DD-MON-YYYY HH24:MI:SS';
        SELECT  node_name			nodnme,
                creation_date			nodcdt,
                created_by			nodcby,
                last_update_date		nodudt,
                last_updated_by			noduby,
                last_update_login		nodulg
        FROM	APPLSYS.FND_NODES
	ORDER BY node_name;

END_FILE

print
print  "Please see  /tmp/whatfndnode_$$.txt"
print
}
