| 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
Abbildung 5b: Arbeiten mit Displacements
D Object DS 32048 Qualified
D Inz
D Name 10
D Library 10
D DispToAttr 10I 0
D NbrAttr 10I 0
D DispToUsr 10I 0
D NbrUsr 10I 0
D Count S 10I 0
D Pos S 10I 0
D Info S 10 Based( InfoPtr )
D InfoPtr S *
/Free
// ===========================================================
// = Display information =
// ===========================================================
// -----------------------------------------------------------
// - Display each attribute
// -----------------------------------------------------------
For Count = 1 to Object.NbrAttr ;
Pos = Object.DispToAttr + ( ( Count - 1 ) * 10 ) ;
InfoPtr = %Addr( Object.DispToAttr ) + Pos ;
Dsply Info ;
EndFor ;
// -----------------------------------------------------------
// - Display each authorized user
// -----------------------------------------------------------
For Count = 1 to Object.NbrUsr ;
Pos = Object.DispToUsr + ( ( Count - 1 ) * 10 ) ;
InfoPtr = %Addr( Object.DispToUsr ) + Pos ;
Dsply Info ;
EndFor ;
/End-Free
Ä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.