How to recreate TNS_ADMIN file in Oracle ebs webTier

There is a perl script under $AD_TOP/bin/adgentns.pl
$perl adgentns.pl

Usage:
        adgentns.pl [help] contextfile= appspass= [ logdir= -onlygeneratetns -removeserver -removesystem]

Valid arguments for adgentns.pl:
        help               : get usage information
        contextfile        : provide Applications context file name
        appspass           : APPS user password
        logdir             : location to write log file
        onlygeneratetns    : only generate tnsnames.ora; do not update the datamodel
        removeserver       : removes the current server (node) from the Net Service data model
        removesystem       : clean the Net Service data model

$echo $CONTEXT_FILE
$you will see your context file full path
$perl adgentns.pl contextfile=apps/ebs/product/appl/admin/SID_HOST.xml appspass=xxxx

##########################################################################
                   Generate Tns Names 
##########################################################################
Logfile:  /apps2/ebs/product/tst/appl/admin/SID_HOST/log/03041054/NetServiceHandler.log
        Classpath                   : /apps2/ebs/product/jdk1685/jre/lib/rt.jar:/apps2/ebs/product/jdk1685/lib/dt.jar:/apps2/ebs/product/jdk1685/lib/tools.jar:/apps2/ebs/product/ta

Updating s_tnsmode to 'generateTNS'
UpdateContext exited with status: 0

adgentns.pl exiting with status 0
ERRORCODE = 0 ERRORCODE_END