【Tiptop ERP T】Tiptop GP與程式客制畫面檔有關的指令r.f2 r.gf解析

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

#首先看一下Unix GP Server上的PATH環境變數
<topprod:/> cd $TOP
<topprod:/u1/topprod/tiptop> echo $PATH
/opt/java6/bin:/u1/genero.studio/bin:/u1/genero.as/bin:/u1/genero.run/bin:/u2/oracle/11g/bin:/u1/usr/terry:.:/u1/topprod/tiptop/ora/bin:/u1/topprod/tiptop/work:/u1/topprod/topcust/bin:/u1/topprod/tiptop/bin:/u1/topprod/tiptop/ds4gl2/bin:/u1/topprod/tiptop/script:/usr/bin:/usr/ccs/bin:/usr/contrib/bin:/usr/contrib/Q4/bin:/opt/perl/bin:/opt/gvsd/bin:/opt/ipf/bin:/opt/nettladm/bin:/opt/fcms/bin:/opt/wbem/bin:/opt/wbem/sbin:/opt/sas/bin:/opt/graphics/common/bin:/opt/atok/bin:/usr/bin/X11:/usr/contrib/bin/X11:/opt/sec_mgmt/bastille/bin:/opt/caliper/bin:/opt/drd/bin:/opt/dsau/bin:/opt/dsau/sbin:/opt/resmon/bin:/opt/firefox:/opt/gnome/bin:/opt/propplus/bin:/usr/contrib/kwdb/bin:/opt/perl_32/bin:/opt/perl_64/bin:/opt/prm/bin:/opt/sfm/bin:/opt/swm/bin:/opt/sec_mgmt/spc/bin:/opt/ssh/bin:/opt/swa/bin:/opt/hpsmh/bin:/opt/thunderbird:/opt/sentinel/bin:/opt/langtools/bin:/opt/gwlm/bin:/opt/ignite/bin:/opt/cfg2html:/opt/aCC/bin:/opt/cadvise/bin

可以看到PATH環境變數中有很多是與tiptop gp系統、genero.studio、Oracle資料庫有關的變數！

PATH環境變數一般于/etc/profile及/用戶的dir/.profile文件中配置

關於這2個文件的說明請參考之前的文章:Tiptop GP 系統中關於Linux Shell的那些事
該變數的作用就是凡是PATH變數中有配置過的路徑，則該路徑下的所有可執行文件都可以在Unix任何目錄下執行！

說明：所有demo都依capt001為例

r.f2 :將4fd畫面檔編譯成42f檔------------------------------------------

#demo: r.f2 capt001
<topprod:/u1/topprod/topcust/cap> cd $CAP/4fd
<topprod:/u1/topprod/topcust/cap/4fd> r.f2 capt001
capt001

A、r.f2 路徑
/u1/topprod/tiptop/ds4gl2/bin

B、r.f2 Shell解析

#!/bin/ksh
  #指定使用/bin/ksh解釋執行該shell腳本
##No.TQC-740096
  #除第一行的#不是注釋行,其它任何在#符號後面的行都是Shell程式中的注釋
umask 000
  #設置文件的權限為777-000=777,目錄權限為666-000=666的執行權限
type gsform >>/dev/null
  #查gsform程式別名即gsform是否存在,并將結果追加寫入位桶/dev/null中
  # >表示重定向輸出,2>錯誤重定向輸出,>>重定向追加,<重定向輸入...
    #type gsfrom結果為 gsform is /u1/genero.studio/bin/gsform
if [[ $? -eq 0 ]] ; then
  #if判斷第4行的命令是否執行成功
    #中括弧[]也是一種運算符,等同于test命令，判別式兩邊必須各有一個空格
	#$?在korn shell中用於保存上一條命令的執行狀態,0表示成功,非0表示各種失敗
	#-eq比較整數等於,-nq不等於,-gt大於,-ge大於或等於,-le小於或等於,-lt小於
  r.f2.4fd $1
    #type執行成功即有gsform程式,則調用當前目錄下的r.f2.4fd shell腳本
	 #$0、$1..$9 表示位置參數，如r.f2 p_zz則$0=r.f2,$1=p_zz
	 #$# 表示位置參數的總個數
	 #$* 表示所有的位置參數
	 #$$ 當前Shell的PID
	 #$! 最後一個進入後臺作業的PID
else
  r.f2.per $1
    #type執行不成功則調用當前目錄下的r.f2.per shell腳本
fi

因為本司GP Server上有gsform,所以以 r.f2.4fd Shell說明為例

r.f2.per原理相同,此處不再說明

C、r.f2.4fd解析

######
# Compiler form file
######

cd ../4fd
  #跳到當前目錄上一層目錄下的4fd路徑
  #因此在r.f2時你可以在一個GP模組下的4gl或4fd或42r或42m...路徑都可以正確找到你預要編譯的4fd檔
umask 000
# Change and Cut per if necessary
#pre42f $1.per $1T.per

# Prompt how to work
if [ "$1" = "" ] ; then
  #如果你光禿禿的執行r.f2即後面沒有其它的參數,則提示如下信息并退出r.f2
   echo "Usage: r.f2 form_name\n"
   exit 1
     #exit 1表示依錯誤退出,exit 0表示正確退出
# If has no correspond form file
elif [ ! -s ${1}.4fd ] ; then
  #判定傳進來的4fd文件名對應的文件大小size是否為0
   #${1}.4fd此處說明了你在r.f2時後面預編譯的4fd文檔不要帶後綴,這裡他會幫你加的,帶了後綴反而會找不到你預要編譯的4fd文檔
   #如果位置參數$1傳進來的文件名所對應的文件大小為0(即文件不存在或是空文件)則標準輸出即終端屏幕上顯示如下4行信息
   echo "\033[7m${1}\033[m error happens, check if:"
     # \033[7m${1}\033[m 表示將位置參數$1高亮顯示
   echo "  1) Do you specify the right form name ?"
   echo "  2) Do you execute in PER directory ?"
   echo "  3) File size is zero ?\n"
   exit 1
fi

# Delete the previous temporary & error file(if it has)
if [ -s ${1}T.4fd ] ; then
  #判斷$1T.4fd文件(依demo則是capt001T.4fd)文件的大小
   rm -f ${1}T.4fd
     #如果$1T.4fd文件大小不為0則強制先刪除$1T.4fd文件
	 #-f 選項表示強制,忽略此命令執行過程中的一切錯誤
fi
if [ -s ../42f/${1}.err ] ; then
   rm -f ../42f/${1}.err
fi
FGLRUN=${FGLRUN:=fglrun};export FGLRUN #BUG-4C0168
  #如果FGLRUN已經被設置且值非空則代入之前設置的值,否則將fglrun賦給FGLRUN

cp -f ${1}.4fd ${1}T.4fd
  #將${1}.4fd複製成${1}T.4fd(capt001.4fd複製成capt001T.4fd)
chmod 777 ${1}T.4fd

# Cut unnecessary block & append default TOPMENU 
#ed - ${1}T.per <<%% 1 2 >/dev/null
#1
#g/▼-/.,$ d
#g/□-/.,$ d
#w
#q
#%%



#orafrm ${1}T.per /tmp/$$.per && rm -f ${1}T.per && mv /tmp/$$.per ${1}T.per

# Compiler the form file, and to see if has error during compilation
echo $1
  #如屏幕上所示,終端上顯示了$1即capt001
#fglform -M ${1}T
#if [ $? -ne 0 ] ; then
#   fglform ${1}T
#fi
\rm -f ${1}T.per
\rm -f ${1}T.4fd
if [ -s ${1}T.err ] ; then
  #如果${1}T.err文件大小不為0,即該4fd文件有對應的錯誤文件產生
   mv ${1}T.err ../42f/${1}.err
      #將錯誤文件${1}T.errmv成對應的42f路徑裏面的${1}.err
   pg -p '(Page %d)' +/See/ ../42f/${1}.err
      #在終端上分頁顯示${1}.err中的記錄的錯誤信息
   exit 1
      #依執行不成功的狀態1退出該r.f2.4fd Shell腳本
fi
#else
#   if [ -s ${1}T.42f ] ; then
#      mv ${1}T.42f ../42f/${1}.42f
#   else
#3      exit 1
#   fi
#fi
gsform -i -dbname ds -keep $1
  #調用/u1/genero.studio/bin/gsform編譯4fd檔,依demo $1=capt001,ds為資料庫
if [ -s ${1}.42f ] ; then
  #判斷gsfrom依4fd檔在4fd路勁下編譯的42f檔對應文件大小szie是否不為0
mv -f ${1}.42f ../42f
mv -f ${1}.per ../per
  #如果42f檔size不為0，則將編譯后的42f檔與per檔mv到42f及per路徑下
fi

---------------------- over， r.f2Shell編譯畫面檔完畢！

r.gf：預覽編譯后的42f檔并產生p_perlang維護資料---------------------------

#demo:
<topprod:/u1/topprod/topcust/cap/4fd> r.gf capt001 0 c
ls_frm_path=../topcust/cap/42f/capt001
Using 0 TO Display capt001
g_ui_setting : std
INFO: Locale feature use   0.06041 seconds.

#!/bin/ksh

if [ "$1" = "" ] ; then
  #如果用戶光禿禿的r.gf即該shell後面沒有其他任何位置參數,則提示如下信息,并退出
   echo "Usage: r.gf form_name language(0,1,2) customerlized(C/c/P/p) \n"
   exit 1
fi

#避免在topo底下執行r.gf時,會抓取錯誤的42f,所以先改變執行目錄.
cd $AZZ/42r
  #跳到AZZ模組下的42r路徑,因為下麵要調用的4gl程式p_preview在AZZ模組下
#$FGLRUN p_preview_form $1 $2
$FGLRUN p_preview $1 $2 $3 $4 $5
  #執行fglrun p_preview,依demo則$1=capt001,$2=0,$3=c,$4=null,$5=null
  #$1=capt001預預覽的文件檔名,$2=0語言別,$3=c是否客制碼,
  #$4=(null/Y/N)是否同步更新gae_file表,$5=(null/Y/N)預覽后是否自動關閉預覽畫面

p_preview 為AZZ模組下的4gl程式,請朋友們自己于$AZZ/4gl目錄下查看源代碼

---------------------- over， r.gf預覽畫面檔Shell完畢！

與客制畫面檔有關對r.f2、r.gf 就介紹到這裡！

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