Lernen Sie, wie Sie von IBM i aus ein Windows-Programm oder ein bestimmtes Dokument öffnen können: Mit einem einfachen Verfahren lassen sich PC-Anwendungen wesentlich flexibler starten als mit hart codierten Anweisungen

von Scott Klement

Load n go der Juni/Juliausgabe 2010 Download

In der Printausgabe hat sich im Programm-Beispiel der Fehlerteufel eingeschlichen, hier das korrekte Beispiel:

             PGM
             DCL        VAR(&PATH) TYPE(*CHAR) LEN(100)
             DCL        VAR(&PCCMD) TYPE(*CHAR) LEN(300)
             MONMSG CPF0000

             STRPCO     PCTA(*NO)
             MONMSG     MSGID(IWS0000)

             CHGVAR     VAR(&PATH) VALUE('"C:\Windows\Media\Windows +
                          XP-Herunterfahren.wav"')

             CHGVAR     VAR(&PCCMD) VALUE('rundll32 +
                          shell32,ShellExec_RunDLL ' *BCAT &PATH)

             STRPCCMD  PCCMD(&PCCMD) PAUSE(*NO)

             ENDPGM

Der iNEXT Free Client ist sofort für die tägliche Arbeit einsatzbereit – keine Kosten, keine Werbung, keine zeitliche Einschränkung.

Kostenloser Download hier

Der iNEXT Free Client nutzt den 5250-Datenstrom zum Datenaustausch mit IBM i Anwendungen. Dabei werden keine Änderungen oder Anpassungen an der IBM i Software vorgenommen. Daher eignet sich der iNEXT Free Client für alle IBM i Lösungen, egal ob die Programmquellen vorhanden sind oder nicht. Und sollten aus anderen Gründen Änderungen an den IBM i Programmen notwendig sein, so werden diese im iNEXT Free Client automatisch umgesetzt.

Auf die Frage, warum ML-Software den iNEXT Free Client kostenlos zum Download bereitstellt, antwortete Geschäftsführer Torsten Klinge: „Die Erzeugung eines grafischen Clients auf Basis des 5250-Datenstroms haben wir schon vor mehr als 10 Jahren technologisch gelöst und seitdem ständig weiterentwickelt. Für uns ist die grafische Oberfläche nicht mehr aber auch nicht weniger als eine Standardlösung für einen modernen und komfortablen Zugriff auf IBM i Anwendungen. Wir setzen mit unseren weiterführenden iNEXT Suite Technologien für Software-Integration, Neu-/ und Erweiterungsprogrammierung, Mehrsprachigkeit, Datenzugriffe u.v.m. auf diesem Standard auf, um damit für unsere Kunden genau den Nutzen zu erzeugen, der sie individuell voranbringt. Deshalb ist es unserer Meinung nach an der Zeit, jedem IBM i Anwender den Einsatz eines modernen Clients quasi als Freeware zu ermöglichen, ganz ohne Beschränkungen. Und für diejenigen, die mehr für ihre IBM i Anwendungen wollen, bieten wir mit der iNEXT Suite das gesamte Spektrum für die Neu- und Weiterentwicklung mit .NET ohne dass dabei die bestehenden IBM i Programme reproduziert werden müssen.“

Bis einschließlich V5R4 gilt für RPG die maximale Größe von 65.535 Bytes für Variablen. Mit einem kleinen Trick ist es trotzdem möglich, XML-INTO zum Lesen umfangreicher XML-Daten zu verwenden, die dieses Limit überschreiten

Load n go der April/Maiausgabe 2010 Download Code

In Netzwerkumgebungen, die über einen Syslog-Server verfügen, können mit Hilfe des Tools SYSLOGR4 auch RPG-Anwendungen Syslog-Einträge schreiben

Load n go der Februar/Märzausgabe 2010 Download Code

In der NEWSolutions, Januarausgabe 2010 haben wir den Hot Tip „Eine UDTF für IFS-Verzeichnisse" veröffentlicht. Zwischenzeitlich hat Scott Klement auf vielfachen Wunsch eine neue Version seines Tools geschrieben, die das API Qp0lGetAttr() verwendet und deshalb mehr Informationen liefern kann als die bisherige Version, die auf dem API stat() basierte.

Update: IFS-UDTF mit mehr Informationen

Das API stat() liefert schnell und einfach Informationen über IFS-Objekte – aber sein Funktionsumfang ist begrenzt

von Scott Klement

Frage: Ich setze Ihr Tool IFSDIR ein, um von SQL aus IFS-Verzeichnisse zu lesen. Es funktioniert gut, und ich kann Abfragen nach verschiedenen Attributen ausführen. Aber Ihre UDTF scheint das Erstellungsdatum der Datei nicht zu enthalten. Gibt es eine Möglichkeit, das Erstellungsdatum herauszufinden?

Frage: Wir hatten eine IFS-Datei, die jemand mit dem Befehl CHKOUT ausgecheckt hatte. Dieser Zustand blieb lange Zeit bestehen, bis wir herausgefunden hatten, was los war! Ich würde gerne ein Programm schreiben, das feststellt, wer aus einigen kritischen IFS-Verzeichnissen IFS-Objekte ausgecheckt hat. Ich dachte, ich könnte Ihre UDTF IFSDIR dazu verwenden, aber sie listet nicht auf, wer ein Objekt ausgecheckt hat. Wie kann ich sie anpassen?

Antwort: Der vorliegende Artikel enthält eine aktualisierte Version von IFSDIR, die diese zusätzlichen Informationen für die UDTF bereitstellt.

Stat() im Vergleich mit Qp0lGetAttr()

Der wichtigste Grund, warum meine UDTF IFSDIR die angesprochenen Features nicht hatte, ist die Tatsache, dass es basierend auf dem API stat() geschrieben wurde. Das API stat() ist eine einfache Möglichkeit, Informationen über ein IFS-Objekt zu erhalten. Man übergibt ihm zwei Parameter: Der erste ist der Name des IFS-Objekts, dessen Attribute man abfragen möchte, und der zweite Parameter ist eine Datenstruktur. Das API füllt dann die Felder der Datenstruktur mit Informationen über das angegebene IFS-Objekt.

Das API stat() ist jedoch ein Unix-Typ-API. IBM hat bewußt dafür gesorgt, dass das API genau so funktioniert wie das entsprechende API auf einem Unix-System. Leider ist das Erstellungsdatum in Unix-Umgebungen nicht durchgehend verfügbar. Unix-Tools haben immer das Zugriffsdatum, das Änderungsdatum und das Attribut-Änderungsdatum – aber eben nicht das Erstellungsdatum.

Es gibt ein anderes API namens Qp0lGetAttr(), das sehr viele Informationen über IFS-Objekte liefert. Qp0lGetAttr() hat kein Problem damit, das Erstellungsdatum einer IFS-Datei zu ermitteln, und es liefert noch andere Attribute, die spezifisch für IBM i sind.

Leider ist Qp0lGetAttr() wesentlich schwieriger zu kodieren als stat(). Als ich die UDTF IFSDIR schrieb, wollte ich ein Programmierbeispiel erstellen, und deshalb sollte alles so einfach wie möglich sein, damit man das Konzept einer RPG-UDTF verstehen konnte, ohne sich in Details zu verlieren.

Die Lösung

Widerwillig entschied ich, dass die beste Lösung für die genannten Probleme wäre, die UDTF-Routinen für die Verwendung von Qp0lGetAttr() umzuschreiben. Also biss ich die Zähne zusammen und machte mich an die Arbeit.

Download für den Update des Codes der UDTF IFSDIR

Load n go

Dezember-/Januarausgabe 2010

Eine UDTF kann alles ausgeben, was Sie festlegen. Wir haben in unserem Beispiel IFS-Verzeichnisse verwendet, aber Sie können natürlich auch Ihre eigenen Routinen schreiben, die die Ergebnisse liefern, die für Ihr Unternehmen nützlich sind.

Download Utility

Die beiden auf dem API QlgConvertCase basierenden CL-Befehle UPPERCASE und LOWERCASE vereinfachen die Umwandlung von Strings in einheitliche Groß- oder Kleinschreibung – ein nützliches Tool für Programme, die in mehrsprachigen Umgebungen eingesetzt werden.

Download Utility

von Scott Klement

Utility dowloaden

Info

Sie wollen Webservice aus Ihren RPG-Serviceprogrammen machen und wissen nicht wie? von Jef Sutherland

Datei für Power Systems

Utility downloaden

von David Morris

Zusammenfassung der XML-Technologien