| Utility der NEWSolutions | |
| Load´n´go |
|
Abbildung 5a: Arbeiten mit Offsets
D Object DS 32048 Qualified
D Inz
D Name 10
D Library 10
D OffsetToAttr 10I 0
D NbrAttr 10I 0
D OffsetToUsr 10I 0
D NbrUsr 10I 0
D Count S 10I 0
D Pos S 10I 0
D Info S 10
D Info2 S 10 Based( Info2Ptr )
D Info2Ptr S *
/Free
// ================================================================= [A]
// = Display information using substringing =
// =================================================================
// -----------------------------------------------------------------
// - Display each attribute -
// -----------------------------------------------------------------
For Count = 1 to Object.NbrAttr ;
Pos = Object.OffsetToAttr + 1 + ( ( Count - 1 ) * 10 ) ;
Info = %Subst( Object : Pos : 10 ) ;
Dsply Info ;
EndFor ;
// -----------------------------------------------------------------
// - Display each authorized user -
// -----------------------------------------------------------------
For Count = 1 to Object.NbrUsr ;
Pos = Object.OffsetToUsr + 1 + ( ( Count - 1 ) * 10 )
Info = %Subst( Object : Pos : 10 ) ;
Dsply Info ;
EndFor ;
// ================================================================= [B]
// = Display information using based variables =
// =================================================================
// -----------------------------------------------------------------
// - Display each attribute -
// -----------------------------------------------------------------
For Count = 1 to Object.NbrAttr ;
Pos = Object.OffsetToAttr + ( ( Count - 1 ) * 10 ) ;
Info2Ptr = %Addr( Object ) + Pos ;
Dsply Info2 ;
EndFor ;
// -----------------------------------------------------------------
// - Display each authorized user -
// -----------------------------------------------------------------
For Count = 1 to Object.NbrUsr ;
Pos = Object.OffsetToUsr + ( ( Count - 1 ) * 10 ) ;
Info2Ptr = %Addr( Object ) + Pos ;
Dsply Info2 ;
EndFor ;
/End-Free
Sie müssen sich als Abonnent anmelden um den hier fehlenden Teil des Inhalts zu sehen. Bitte Login für Zugriff.
Noch nicht Abonnent? Sonderaktion nutzen.
Noch nicht Abonnent? Sonderaktion nutzen.
Ähnliche Artikel:
Objektsperre – wer war es?
Bei Stapelverarbeitungen läuft bisweilen ein Batchjob auf eine Objektsperre, meistens bei Dateien. Geschieht dies unter Tage, lässt sich mit dem Befehl WRKOBJLCK und ein paar weiteren Tastendrücken feststellen, welcher andere…
RDi: Tool zur Anzeige von Nachrichten-Warteschlangen, Teil 7
Im letzten Teil dieser Artikelserie haben wir damit begonnen, unser Anwendungsbeispiel praktisch umzusetzen. Diese Arbeit wollen wir in diesem Teil fortsetzen. Zum Abschluss soll unsere Anwendung natürlich auch praktisch eingesetzt…
System i Menüs erstellen ohne SDA
Einige Möglichkeiten schlummern sozusagen im Verborgenen. Teilweise ist nur das richtige Kombinieren von verschiedenen Funktionen notwendig, um neue Möglichkeiten in eigenen Anwendungen zu realisieren.