OS/400 版的 Net.Data 管理與程式設計手冊

REXX 語言環境範例

下列範例顯示一個巨集，它會呼叫一個 REXX 函數，來建立一個含有兩欄三列的 Net.Data 表格。 在 REXX 函數的呼叫之後是一個內建函數 DTW_TB_TABLE()，被呼叫來建立將傳回給瀏覽器的 HTML 套表。

%DEFINE myTable = %TABLE
%DEFINE DTW_DEFAULT_REPORT = "NO"     
 
%function(DTW_REXX) genTable(out out_table) {
  out_table_ROWS = 3
  out_table_COLS = 2
 
  /* 設定直欄標題 */
  do j=1 to out_table_COLS
    out_table_N.j = 'COL'j
  end
 
  /* 設定橫列中的欄位 */
  do i = 1 to out_table_ROWS
    do j = 1 to out_table_COLS
      out_table_V.i.j = '[' i j ']'
  end
  end
%}
 
%HTML(REPORT){
 @genTable(myTable)
 @DTW_TB_TABLE(myTable)
%}

結果：

  COL1      COL2 
[ 1 1 ]   [ 1 2 ] 
[ 2 1 ]   [ 2 2 ] 
[ 3 1 ]   [ 3 2 ]  

假定 Web 巨集儲存在程式庫 NETDATA, 檔案 REXXMAC 與成員 REXX1 中， 則會經由從瀏覽器中載入下列 URL 來參照巨集：

http://hostname/cgi-bin/db2www/qsys.lib/netdata.lib/rexxmac.file/
  rexx1.mbr/report