Subfile: Felder bedingt anzeigen

[Margit Bester-Helfrich]

Danke für die schnelle Antwort:

Ja, genau wie bei F10 (z.B. wrksplf) habe ich mir das auch vorgestellt.
Müssen die verschiedenen Sichten dann unterschiedliche Formate sein? Das wollte ich ja eigentlich vermeiden.
M. Bester-Helfrich

[Fuerchau]

Genau. Beim DDS musst du mit F10 verschiedene Formate verwenden.

Die andere Methode ist, die Zeile im Programm aufzubereiten und nur 1 Feld pro Zeile auszugeben. Am besten geht das mit ILERPG, da recht einfach numerische Felder mit %editc() aufbereitet werden können.
Farbattribute können als Hexwerte mit ausgegeben werden:
http://publib.boulder.ibm.com/iserie...rzakcmst65.htm
(Etwas weiter hinten auf dem Link stehen die Hexwerte)

[Margit Bester-Helfrich]

Nochmals herzlichen Dank - auch an Joe.

Mal sehen, welches die übersichtlichere Version ist.

Gruß,
Margit Bester-Helfrich

[Fuerchau]

Wenn du jetzt schon 2 Sichten hast wirst du irgendwann auch mal 3 oder mehr Sichten benötigen.
Einfacher ist da tatsächlich nur 1 Subfile mit Aufbereitung per Programm. Bei Änderungen / Ergänzungen brauchst du nicht mal das DDS zu ändern.

Denk nur mal an Mehrfachauswahlen (Spalte AW) die beim Umschalten zwischen Sichten aber erhalten bleiben müssen. Versuche mal auf diesem Wege 2 Subfiles oder mehr (vor allem beim automatischen blättern) parallel zu führen.

[Margit Bester-Helfrich]

Um es einfacher zu halten, wollte ich ja eine Subfile für alles. In dem Programm sind noch diverse Funktionen vorgesehen, die jeweils für beide Sfls gelten sollen.

Allerdings kann ich kein ILERPG, also wird es wohl daran scheitern.

Trotzdem nochmals vielen herzlichen Dank!

[B.Hauser]

Allerdings kann ich kein ILERPG, also wird es wohl daran scheitern.

Hallo Margit,

das geht auch in RPGIII, nur halt nicht ganz so elegant.
Du kannst z.B. pro Zeile eine Datenstruktur anlegen, die Felder aus der Datei entsprechend einfüllen und je nach Bedarf in die Subfile-Zeile umladen.

Birgitta

[Margit Bester-Helfrich]

Hallo Birgitta,

ich habe mich in der Eile falsch ausgedrückt: unsere gesamte Anwendung ist in Cobol programmiert, deshalb kein RPG. Ich hatte auch schon daran gedacht, die einzelnen Felder in ein gemeinsames Feld zu übertragen. Allerdings müssen einige der Felder auch noch farblich hervorgehoben werden, und spätestens dann wird's unübersichtlich.

Ich mache es halt doch mit den 2 Subfiles.

Aber trotzdem, auch Dir vielen Dank.
Das war meine erste Anfrage beim Forum, und gleich so viele kompetente Antworten...

Grüsse,
Margit Bester-Helfrich

[B.Hauser]

Hallo Margit,

auch in Cobol können Datenstrukturen definiert und Display-Attribute über den Hex-Wert gesetzt werden.

Mehrere gleichzeitig geladene Subfiles haben allerdings den Vorteil, dass beim Hin- und Her-Switchen nur ein anderes Format angezeigt werden muss. Im anderen Fall, müssen die Subfile-Sätze neu geschrieben werden.

Birgitta

[Fuerchau]

Gerade in COBOL bietet sich das doch an, da ich in Datenstrukturen auch Feldformatierungen sehr schön gestalten kann (pic z.zz9,99-). In RPG ist das da schon etwas aufwändiger (F-Bestimmung SPECIAL, PLIST-Eintrag, Except-Anweisungen und O-Bestimmungen).
Attribute können einfach mit "nn filler pic x value x'XX'." eingeschoben werden. Wie die Attribute aussehen siehe meinen obigen Verweis.

[Margit Bester-Helfrich]

Ich bin wirklich begeistert von der regen Teilnahme. Fehlt nur noch ein kleines Beispielprogramm, dann wäre es perfekt ;-)
Das nur als Scherz am Rande, ich habe es jetzt doch mit den 2 Subfiles gelöst, die ich gleichzeitig fülle und bei denen ich dann nur jeweils das Format wechseln muß.
Nochmals herzlichen Dank an alle!!!
Margit Bester-Helfrich

[Margit Bester-Helfrich]

Mehrere gleichzeitig geladene Subfiles haben allerdings den Vorteil, dass beim Hin- und Her-Switchen nur ein anderes Format angezeigt werden muss. Im anderen Fall, müssen die Subfile-Sätze neu geschrieben werden.


Hallo Birgitta oder andere,

ich habe nun leider wieder ein Problem mit diesen Subfiles:

sobald ich einmal rückwärts geblättert habe, klappt das Hin- und Herswitchen nicht mehr. Er merkt sich offensichtlich die zuletzt gelesene Seite und springt dann dorthin. Da das Rückwärtsblättern ja automatisch geschieht, habe ich anscheinend keinen Einfluß darauf, oder???

MfG
Margit Bester-Helfrich

[Fuerchau]

Stimmt fast !
In der I-O-Feedbackarea steht die Satznr. des obersten angezeigten Satzes einer Subfile.
Beim Switch kannst du diese Satz-Nr. zum positionieren der anderen Subfile (Schlüsselwort SFLRCDNBR(CURSOR) auf verstecktes Feld 4,0) angeben.
Mit SFLCSRRRN(&Feld) auf verstecktes Feld 5,0 erfährst du die SatzNr. wo der Cursor steht, kann also genauso zum positionieren verwendet werden. Wird der Cursor aber auf einen Bereich ausserhalb der Subfile verschoben, wird 0 zurückgegeben.