通路美科技
公司簡介|最新消息|技術與服務| 解決方案 | 資訊區 | 聯絡我們|菁英招募|網站導覽| 回首頁
最新消息

  回Q & A目錄

COBOL之layout 如何與database之column作mapping?

無標題文件

基本上 AGU4GL 以最底層之 field item 對應產生 database 之 column ,此方式之好處乃可用 ISQL 對每個 field 作查詢,或建立 index ,但缺點是, field 太多延長 SQL 處理之時間,且有些 field 不常用到,是以對於不常用之 field ,可將之 group 起來,數個 field 對到 database 只需一個 field ,如此不增加 SQL 之奕率, filed 之 mapping 也少了許些,使用方式,只須在 group item 之前加上 ”$XFD USE GROUP” 即可,如此 database 對應之 column 為此 group item 而非其底下之 filed item ,如:

COBOL 定義:

產生對應之 database

03 gl-acct-no

05 main-acct pic x(4). Main-acct char(4)

05 sub-acct pic x(3). Sub-acct char(3)

05 dept-no pic x(3). Dep-no char(3)

$XFD USE GROUP

03 gl-acct-no gl-acct-no char(10)

05 main-acct pic x(4)

05 sub-acct pic x(3)

05 dept-no pic x(3)