Net.Data Verwaltung und Programmierung für OS/400

Beispiel für die REXX-Sprachumgebung

Das folgende Beispiel zeigt ein Makro, das eine REXX-Funktion aufruft, um eine Net.Data-Tabelle zu generieren, die zwei Spalten und drei Zeilen enthält. Nach dem Aufruf der REXX-Funktion wird eine integrierte Funktion, DTW_TB_TABLE(), aufgerufen, um eine HTML-Tabelle zu generieren, die an den Browser zurückgesendet wird.

%DEFINE myTable = %TABLE
%DEFINE DTW_DEFAULT_REPORT = "NO"

%function(DTW_REXX) genTable(out out_table) {
  out_table_ROWS = 3
  out_table_COLS = 2

  /* Set Column Headings */
  do j=1 to out_table_COLS
    out_table_N.j = 'COL'j
  end

  /* Set the fields in the row */
  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)
%}

Ergebnisse:

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

Wenn das Web-Makro in Bibliothek NETDATA, Datei REXXMAC und Member REXX1 gespeichert ist, wird auf das Makro verwiesen, indem die folgende URL-Adresse in einem Browser geladen wird:

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