【Tiptop ERP T】Tiptop GP與程式執行有關的指令exe2 r.r2 r.d2+ udm7解析

yihuiworld

浏览: 51371 次
性别:
来自: 深圳

最近访客更多访客>>

guojemy

seywong

liang110

pretty_kiddy

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

探究GP系統運作，現將個人對GP系統中的各種Shell的理解解析如下，供參考！
所有說明都依 Topprod GP Server 正式區為例

說明：所有demo都依capt001為例

exe2：執行42r程式檔---------------------------------------------------

A、exe2 路徑

$DS4GL/bin/exe2

B、exe2 Shell解析

######
# Run application whatever where you are
######

# Prompt how to work
if [ "$1" = "" ] ; then
  #如果用戶光禿禿的exe2即該shell後面沒有其他任何位置參數,則提示如下信息,并退出Shell
   echo "Usage: exe2 prog_name\n"
   exit 1
fi

PW=`pwd`
  #將pwd結果即當前路徑值賦給PW變數
# Change to temporary directory, and run the application
#FGLLDPATH=$AWS/42m:$ABG/42m:$ADM/42m:$ROS/42m:$APS/42m:$AMM/42m:$ATY/42m:$ACO/42m:$APJ/42m:$ARM/42m:$AQC/42m:$AFA/42m:$AZZ/42m:$AOO/42m:$GPY/42m:$APY/42m:$ABX/42m:$AXS/42m:$ASD/42m:$AXC/42m:$GXM/42m:$AXM/42m:$GIS/42m:$GXR/42m:$AXR/42m:$AMD/42m:$GAP/42m:$AAP/42m:$GNM/42m:$ANM/42m:$GGL/42m:$AGL/42m:$ASM/42m:$CSF/42m:$ASF/42m:$AMR/42m:$AMS/42m:$CPM/42m:$APM/42m:$ACS/42m:$AEC/42m:$AIM/42m:$ABM/42m:$QRY/42m:$SUB/42m:$LIB/42m:$FGLDIR/lib:$FGLLDPATH;export FGLLDPATH
#FGLLDPATH=../42m:$AZZ/42m:$LIB/42m:$SUB/42m:$QRY/42m:$FGLLDPATH;export FGLLDPATH
FGLRUN=${FGLRUN:=fglrun};export FGLRUN #BUG-4C0168
cd $TEMPDIR
echo '\033[?7h\c'

#-- BUG-570157 ----------------------------------------------------------------
#一下while迴圈p_go執行exe2後面傳進來的4GL程式名稱 
i=1
cmd="$FGLRUN $AZZ/42r/p_go.42r"
while [ $i -le $# ]
do
 eval arg=\${$i}
 cmd="${cmd} '${arg}'"
   #迴圈組字串$FGLRUN $AZZ/42r/p_go.42r ${arg}
 i=`expr $i + 1`
   #expr 用於整數+ - * / 運算
done
eval $cmd
  #執行組好的字串

echo '\033[?7l\c'
cd $PW

注意：鼎新公司又沒有給$AZZ/42r/p_go此程式的原代碼喲！

-------------------- over， exe2執行42r程式檔Shell指令完畢！

r.r2：執行42r程式檔----------------------------------------------------

A、r.r2 路徑

$DS4GL/bin/r.r2

B、r.r2 Shell解析

r.r2與exe2原理完全相同,這裡只列示原代碼,不再做代碼說明了

-------------------- over， r.r2執行42r程式檔Shell指令完畢！

r.d2+：debug模式執行42r檔----------------------------------------------

A、r.d2+ 路徑

/u1/topprod/tiptop/ds4gl2/bin

B、r.d2+ Shell解析

######
# Debug
######

# Prompt how to work
if [ "$1" = "" ] ; then
   echo "Usage: r.d2+ prog_name\n"
   exit 1
# If has no correspond execute binary
elif [ ! -s ../42r/${1}.42r ] ; then
   echo "\033[7m${1}\033[m error happens, check if:"
   echo "  1) Do you specify the right program name ?"
   echo "  2) File size is zero ?\n"
   exit 1
fi

PW=`pwd`
# Setting source file path, and run the application in debug mode
FGLLDPATH=$DS4GL/fgldeb:$FGLDIR/lib:../42m:$FGLLDPATH;export FGLLDPATH #BUG-4C0168
DBPATH=$DBPATH:$DS4GL/fgldeb;export DBPATH #BUG-4C0168
FGLSOURCEPATH=../42m:$LIB/42m:$QRY/42m:$SUB/42m;export FGLSOURCEPATH #BUG-4C0168
FGLRUN=${FGLRUN:=fglrun};export FGLRUN #BUG-4C0168
cd $TEMPDIR

#-- BUG-570157 ----------------------------------------------------------------
i=2
#No:FUN-810089 不走自動判斷的行業別架構
cmd="$FGLRUN $DS4GL/fgldeb/fgldeb $PW/../42r/${1}.42r"
   #執行$DS4GL/fgldeb/路徑下的fgldeb 4GL程式
   #上行代碼意思就是如果debug capt001程式,你可以這樣執行:在$DS4GL/fgldeb/路徑下fglrun fgldeb /u1/topprod/topcust/cap/42r/capt001.42r
#cmd="$FGLRUN $DS4GL/bin/industry_run.42r 'r.d2+' $PW ${1}"    #No:FUN-7B0080  回復行業別架構
while [ $i -le $# ]
do
 eval arg=\${$i}
 cmd="${cmd} '${arg}'"
 i=`expr $i + 1`
done
eval $cmd

cd $PW

備註：請自行查看$DS4GL/fgldeb/fgldeb 被調用的該4gl程式源代碼

---------- over， r.d2+ debug模式執行42r程式檔Shell指令完畢！

udm7：呼叫udm7 Shell開啟Tiptop GP主畫面----------------------------------

A、udm7路徑

/u1/topprod/tiptop/ds4gl2/bin

B、udm7 Shell解析

####################
# Modify: 2005/04/26 BUG-540177 by Brendan: Fix BIG5/GB2312 switch issue under direct connection(telnet)
# Modify: 2005/09/02 MOD-590031 by Brendan: Infinite loop when manualy terminate process by GDC
# Modify: 2006/04/25 TQC-640179 by Brendan: 加入 GBK/GB2312 語系判斷 for 簡/繁轉碼機制
# Modify: 2006/06/20 FUN-620044 by Alexstar:加入 切換FGLASIP參數的功能(外部連線到TIPTOP主機時使用)
# Modify: 2006/12/13 MOD-6C0058 by Alexstar:FUN-690056 的修改方式會造成客戶使用web登入時無法正常切換語言
# Modify: 2007/11/05 FUN-7A0086 by saki:避免aoos901按cancel離開時，會殘留process
# Modify: 2007/12/10 FUN-7B0109 by Brendan: 簡繁轉碼功能調整
# Modify: 2008/01/30 FUN-810084 by Alexstar:User滿時，若是非透過Web連線，則POP視窗通知
# Modify: 2008/01/19 CHI-910047 by Alexstar:如果有客製aoos901的情況，會無法讀到客製區的42r檔
# Modify: 2009/02/04 TQC-920003 by Alexstar:exe2會導致no wait,udm_tree在選完工場別之前就已執行
# Modify: 2009/08/05 TQC-980040 by Dido 調整時區執行問題
# Modify: 2009/08/20 TQC-980150 by alex 調整TQC-980040只給unicode使用
# Modify: 2009/10/27 TQC-9A0142 by Dido 取消 udm_tree 使用 p_go 執行 
####################
                                  
cd $TEMPDIR
  #跳到GP臨時目錄/u1/out下
if [ "$FGLGUI" = "1" ]
  #如果FGLGUI=1,GP默認設置$FGLGUI=1,表示圖像模式執行程式
   then  
   DBPATH=/u3/genero/topi_7eng:$DBPATH;export DBPATH
   FGLRUN=${FGLRUN:=fglrun};export FGLRUN
   cd $TEMPDIR
   echo '\033[?7h\c'

#FUN-620044---start---
   #此段處理web登錄后建立一全域變數WEBUSER保存當前user的用戶ID
   if [ $# -eq 3 ] ; then
     #如果udm7 Shell位置參數為3個時
      if [ $1 = "weblog" ] ; then
	    #且第一個位置參數值為weblog
         WEBUSER=$2;export WEBUSER
		   #建立一全域變數WEBUSER保存當前user的用戶ID
      fi
   fi
   #FUN-620044---end---

if [ "$1" != "weblog" ] ; then    #FUN-810084
     #User滿時，若是非透過Web連線，則POP視窗通知
      user_chk || exit
	    #執行$TOP/bin/路徑下的user_chk Shell腳本檢查User連線是否已滿
   fi

$FGLRUN $AOO/42r/aoos901.42r #CHI-910047 mark #TQC-920003 unmark
     #執行aoos901選擇工廠別
   #exe2 aoos901  #CHI-910047 #TQC-920003 mark
   if [ $? -ne 0 ] ; then
     #如果執行aoos901不出錯或是放棄執行aoos901則
      #No:FUN-7A0086 --start--
      if [ $# -eq 3 ] ; then
	      #如果udm7的位置參數有3個即從weblog中RUN udm7時
         touch $3
		   #則刪除位置參數$3表示的進程.weblog中udm7的第3個參數是保留上一個進程的PID
      fi
      #No:FUN-7A0086 ---end---
      exit
   fi
#  $FGLRUN $AZZ/42r/p_go.42r udm_tree $2
 #--- BUG-540177
   #MOD-6C0058---start---
   if [ $# -ne 3 -a $1!="weblog" ] ; then
     #如果udm7的位置參數個數不等於3且第一個位置參數$1不等於weblog
         UDM7=Y;export UDM7
		   #則新建全域變數UDM7，值為Y。表示Xshell執行的udm7
   fi
   #MOD-6C0058---end---
#  UDM7=Y;export UDM7 #MOD-6C0058--mark 
   LOCALE=`echo $LANG | cut -d. -f1 | tr \[a-z\] \[A-Z\]`
     #將GP當前語言別取出來并將小寫字符全部編程大寫字符結果為EN_US
   #--- BUG-560170
   CHARMAP=`locale charmap | cut -d. -f1 | tr \[a-z\] \[A-Z\] | tr -d "'"'"'`
     #查看默認編碼方式
	 #locale charmap的結果"utf8.cm"重定向給cut,cut依逗點分隔取第一部份將結果"utf8重定向給tr,tr將小寫字符全部變為大寫字符且刪除當前行結果中的'符號
     #即處理出來的結果就是CHARMAP=UTF8
   #----------
   dvm_version=`fpi | grep -i "version" | awk '{ print $NF }'`  #FUN-7B0109
     #4GL中的fpi指令查看DVM版本信息
	 #fpi的結果重定向給grep,grep -i忽略大小寫查找字符version所在的字段將結果Version 2.11.16重定向給awk,awk打印最後一個字段，結果為2.11.16
   EXIT=-1
     #變數EXIT的值初始為-1,表示各種退出狀態
   until [ $EXIT -eq 0 -o $EXIT -eq 1 ]   #MOD-590031
     #迴圈執行直到EXIT的值為0即正常退出或是為1錯誤退出為止
   do
     RUN=`echo $FGLRUN | cut -d' ' -f1`
	   #echo $FGLRUN的結果fglrun重定向給cut,cut依' '分隔取第一部份,結果fglrun
	   #下麵處理:如果GP中設定的字符編碼是中文類則fglrun時需要轉碼,UTF8等其它標準的國際通用的英文編碼則不需要轉碼
     if [ "$CHARMAP" = "BIG5" -o "$CHARMAP" = "GB2312" -o "$CHARMAP" = "GBK" -o "$CHARMAP" = "GB18030" ] ; then   #TQC-640179
	    #如果字符編碼是BIG5或GB2312或GBK或GB18030即中文字符編碼類別 則
        if [ "$LOCALE" = "ZH_TW" -a $EXIT -eq 12 ] ; then
		  #如果當前語言別是ZH_TW中國_台灣並且EXIT值=12 則
           #-- No:FUN-7B0109 BEGIN ---------------------------------------------
           if [[ "$dvm_version" < "2.02.06" ]] ; then
		     #如果DVM版本信息小於2.02.06 則
              RUN="$RUN -t gb2312"
			    #將RUN賦值為fglrun -t gb2312
           else
              RUN="$RUN -t gbk"
			     #如果DVM版本信息小於2.02.06,則將RUN賦值為fglrun -t gbk
           fi
           #-- No:FUN-7B0109 BEGIN ---------------------------------------------
        fi
        if [ "$LOCALE" = "ZH_CN" -a $EXIT -eq 10 ] ; then
		  #如果當前語言別是ZH_CN中國_大陸並且EXIT值=10 則
           RUN="$RUN -t big5"
		     #將RUN賦值為fglrun -t big5
        fi
     fi
     
     #FUN-620044---start---
     if [ $# -eq 3 ] ; then
	   #如果udm7的位置參數是3個時 則
        if [ $1 = "weblog" ] ; then
		  #如果udm7的位置參數$1值=weblog時 則
           if [ $EXIT -eq 20 -o $EXIT -eq 21 ] ; then
		     #如果變數EXIT的值=20或是EXIT的值=21 則
              FGLASIP=`head -1 $TEMPDIR/$2.userip.tmp`;export FGLASIP
			    #將文件$TEMPDIR/$2.userip.tmp的頭幾行值賦給FGLASIP
              echo $FGLASIP
           fi
          #-TQC-9A0142-add-
          #if [ "$CHARMAP" = "BIG5" -o "$CHARMAP" = "GB2312" -o "$CHARMAP" = "GBK" -o "$CHARMAP" = "GB18030" ] ; then    #TQC-980040  #TQC-980150
              $RUN $AZZ/42r/udm_tree '' $3
			    #執行AZZ模組下的udm_tree 目錄程式
				#且udm_tree的2個參數分別為''和$3,$3是上一個進程的PID,即啟動udm7 Shell的程式的進程PID
          #else
          #   $RUN $AZZ/42r/p_go udm_tree '' $3
          #   EXIT=$?
          #fi
          #-TQC-9A0142-end-
        fi
     else
	   #如果udm7的位置參數不是3個時 則
       #-TQC-9A0142-add-
       #if [ "$CHARMAP" = "BIG5" -o "$CHARMAP" = "GB2312" -o "$CHARMAP" = "GBK" -o "$CHARMAP" = "GB18030" ] ; then    #TQC-980040  #TQC-980150
           $RUN $AZZ/42r/udm_tree
		     #直接udm_tree 不帶任何參數
       #else
       #   $RUN $AZZ/42r/p_go udm_tree
       #fi
       #-TQC-9A0142-end-
     fi
     #FUN-620044---end---

#$RUN $AZZ/42r/udm_tree     #FUN-620044 mark
     EXIT=$?
	   #將上一條Shell命令的執行狀態值賦給變數EXIT
   done

if test -e $TEMPDIR/$2.userip.tmp    #FUN-620044
    #判斷$TEMPDIR/$2.userip.tmp文件是否存在,如果存在則刪除
     then
     rm $TEMPDIR/$2.userip.tmp 
  fi
 #----------
   echo '\033[?7l\c'
else
  #其他4GL不支持的英文字符編碼和非指定判別的中文字符編碼則提示如下信息
   echo "udm7 is for GDC only, ASCII mode does not supported yet!"
fi

-------------------- over， udm7開啟GP主畫面Shell指令完畢！

與程式執行有關的指令exe2 r.r2 r.d2+ udm7就介紹到這裡！

轉載請注明CSDN李藝輝博客專欄http://blog.csdn.net/yihuiworld

分享到：

【Tiptop ERP T】Tiptop GP與資料庫操作有 ... | 【Tiptop ERP T】Tiptop GP與程式編譯鏈結 ...

2012-05-28 17:11
浏览 5265
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论