DFU, Query, SQL

61. LABEL ON で欄見出しを与える

先の CREATE TABLE で物理ファイルを作成できることを紹介したが
CREATE TABLE だけでは物理ファイルの欄見出し(COLHDG)を定義することはできない。
欄見出しを与えるのはここで紹介するLABEl ON である。

早速、先の例にならって

[SHOHIN :DDSソース]

0001.00      A**********************************************                          
0002.00      A*   SHOHIN  :  商品マスターファイル          *                          
0003.00      A**********************************************                          
0004.00      A                                      UNIQUE                            
0005.00      A          R SHOHINR                   TEXT(' 商品マスターレコード ')    
0006.00      A*                                                                       
0007.00      A            SHCODE        10A         COLHDG(' 商品コード ')            
0008.00      A            SHNAME        24O         COLHDG(' 商品名 ')                
0009.00      A            SHTANK         7S 0       COLHDG(' 単価 ')                  
0010.00      A                                      EDTCDE(1)                         
0011.00      A            SHSCOD         4A         COLHDG(' 品種コード ')            
0012.00      A*                                                                       
0013.00      A          K SHCODE                                                      

[解説]

このDDSソースと同じデータ・ベースを作成する CREATE TABLE で作成した後に
欄見出しを与えるLABEL ON は次のとおり。


  LABEL ON COLUMN QTRFIL/SHOHIN.SHCODE IS '商品コード'
  LABEL ON COLUMN QTRFIL/SHOHIN.SHNAME IS '商品名'
  LABEL ON COLUMN QTRFIL/SHOHIN.SHTANK IS '単価'
  LABEL ON COLUMN QTRFIL/SHOHIN.SHSCOD IS '品種コード'

[解説]

実に簡単明瞭である。
LABEL ON では COLUMN だけでなく他のテキストなども与えることができる。


  LABEL ON TABLE QTRFIL/SHOHIN IS '商品マスターファイル'

SQL解説書を調べてやってみて欲しい。