-
Da die Filterinformationen variabel aufgebaut sind, kannst du hier nicht mit festen Positionen arbeiten.
Du kannst aber mit COBOL sehr einfach die Struktur dynamisch aufbauen:
* Format OSPF0100
01 Anzahl-X.
05 Anzahl pic s9(9) comp-4.
01 ZielFilter pic x(10000).
01 ZielPos pic s9(9) comp-4.
move 1 to ZielPos
* AnzahlUser
move n to Anzahl
move Anzahl-X to ZielFilter(ZielPos:size of Anzahl-X)
compute ZielPos = ZielPos + size of Anzahl-X
if Anzahl > zero
Move User-Array(1:Anzahl*12) to ZielFilter(ZielPos:Anzahl*12)
endif
compute Zielpos = Zielpos + Anzahl*12
* Anzahl Outq's
move n to Anzahl
move Anzahl-X to ZielFilter(ZielPos:size of Anzahl-X)
compute ZielPos = ZielPos + size of Anzahl-X
if Anzahl > zero
Move OUTQ-Array(1:Anzahl*20) to ZielFilter(ZielPos:Anzahl*20)
endif
compute Zielpos = Zielpos + Anzahl*20
usw.usw.
Wichtig ist, dass der Filterpuffer für alle Werte einen gültigen Inhalt hat, im Zweifel eben auch Zero.
Das Format OSPF0200 ist da etwas einfacher da du hier ein Gesamtformat mit einem Header übergibst.
Du musst nur die Anzahl und Offsets korrekt berechnen (Start ist immer 0).
Hier hilft dir ja "size of" für die Berechnung.
Similar Threads
-
By TMusolf in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 25-01-07, 13:42
-
By muadeep in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 03-01-07, 18:53
-
By jogisarge in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 22-11-06, 17:02
-
By ExAzubi in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 17-10-06, 17:48
-
By lyrics in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 29-08-06, 10:03
Tags for this Thread
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks