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

Beispiel für die SYSTEM-Sprachumgebung

Das folgende Beispiel zeigt ein Makro, das eine Funktionsdefinition mit den drei Parametern P1, P2 und P3 enthält. P1 ist ein Eingabeparameter (IN), P2 und P3 sind Ausgabeparameter (OUT). Die Funktion ruft ein Programm, UPDPGM, auf, das den Parameter P2 mit dem Wert von P1 aktualisiert und P3 auf eine Zeichenfolge setzt. Vor der Verarbeitung der Anweisung im %EXEC-Block speichert die Sprachumgebung DTW_SYSTEM P1 und den zugehörigen Wert im Umgebungsbereich.

%DEFINE {
   MYPARM2 	= "ValueOfParm2"
   MYPARM3 	= "ValueOfParm3"
 %}
 %FUNCTION(DTW_SYSTEM) sys1 (IN P1, OUT P2, P3) {
   %EXEC {
      /QSYS.LIB/NETDATA.LIB/UPDPGM.PGM
   %}
 %}

 %HTML(upd1) {
 <P>
 Passing data to a program.  The current value
 of MYPARM2 is "$(MYPARM2)", and the current value of MYPARM3 is
 "$(MYPARM3)".  Now we invoke the Web macro function.

 @sys1("ValueOfParm1", MYPARM2, MYPARM3)

 <P>
 After the function call, the value of MYPARM2 is "$(MYPARM2)",
 and the value of MYPARM3 is "$(MYPARM3)".
 %}

Wenn das Web-Makro in Bibliothek NETDATA, Datei SYSMAC und Member SYS1 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/sysmac.file/
  sys1.mbr/upd1