-
Left - Right Scroll In Subfiles
Hallo,
ich muss in einer Subfile (132er) eine Menge an Informationen anzeigen. Diese bekomme ich aber in einer zeile mit 132 Zeichen nicht angezeigt. SFLFOLD/SFLDROP ist wegen der geringen Übersichtlichkeit nicht die erste Wahl. Schön, wenn es möglich wäre, eine Anzeig zu erhalten ähnlich wie bei Query/400, wo ich mit Funktionstasten nach rechts und links "scrollen" kann. Gibt es diese Möglichkeit auch bei einem "normalen" RPG Programm das mit DDS beschriebenen Display-Files arbeitet? Falls jemand ein Beispiel hat, wäre das natürlich sehr hilfreich.
Dankeschön
Bernd
-
Hallo Bernd.
Fülle eine 2. Subfile parallel und wechsel die Anzeige
mit Befehlstaste.
Joe
-
Du kannst die Subfiledaten intern in ein entsprechend großes Feld aufbereiten (ggf. mit einer Special-Datei und Excpt).
Für die Subfile definierst du ein Anzeigefeld in der Gesamtbreite und ein Hiddenfeld für die Maximalbreite.
Die Subfile wird dann mit beiden Feldern gefüllt.
Dann kannst du per Programm und mittels SUBST aus dem Hiddenfeld in das Anzeigefeld übertragen und somit eine Rechts/Links-Rollen realisieren.
-
Nach meiner Kenntnis geht ein Echtes
Links/Rechts-Scrollen gar nicht.
Es verbleibt einem nur eine der Techniken, wie vorhin von Joe bzw. Baldur beschrieben.
-
DDS vs. UIM
Hallo, sysopr!
Am elegantesten geht das, wenn man es wie im Betriebssystem macht - mit einem UIM-Listpanel (z.B. WRKSPLF).
Beispiele finden sich in der QUSRTOOL: STRABU - Start Address Book Utility.
Wenn das zu abgefahren ist, dann mehrere Subfiles parallel schalten und mit F11 vorwärts springen, mit F10 rückwärts.
1. Die Daten passend in mehrere Subfiles schreiben.
2. Im DDS angeben:
R CTL01
A RTNCSRLOC(&SFLCSRFMT &SFLCSRFLD)
A SFLCSRFMT 10A H
A SFLCSRFLD 10A H
R CTL02
A RTNCSRLOC(&SFLCSRFMT &SFLCSRFLD)
A SFLCSRFMT 10A H
A SFLCSRFLD 10A H
R CTL03
A RTNCSRLOC(&SFLCSRFMT &SFLCSRFLD)
A SFLCSRFMT 10A H
A SFLCSRFLD 10A H
3. Im RPG angeben:
f sfile(sfl01:sflnbr01)
f sfille(sfl02:sflnbr02)
f sfile(sfl03:sflnbr03)
dou *inlr;
if (sflcsrfmt = 'SFL03' or sflcsrfmt = 'CTL03') and not *in10 and not *in11 or (sflcsrfmt = 'SFL02' or sflcsrfmt = 'CTL02') and *in11 or (sflcsrfmt = 'SFL01' or sflcsrfmt = 'CTL01') and *in10;
exfmt ctl03;
elseif (sflcsrfmt = 'SFL02' or sflcsrfmt = 'CTL02') and not *in10 and not *in11 or (sflcsrfmt = 'SFL01' or sflcsrfmt = 'CTL01') and *in11 or (sflcsrfmt = 'SFL03' or sflcsrfmt = 'CTL03') and *in10;
exfmt ctl02;
else;
exfmt ctl01;
endif;
select;
when *in03;
exsr sr_exit;
when *in10;
iter;
when *in11;
iter;
endsl;
enddo;
MfG
Thomas J. Fuchs
Similar Threads
-
By ahingerl in forum IBM i Hauptforum
Antworten: 8
Letzter Beitrag: 08-12-06, 08:28
-
By grihe in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 25-10-05, 14:35
-
By Stefan_Sk in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 23-06-05, 17:35
-
By Matthias.Hayn in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 06-12-04, 13:33
-
By itec01 in forum IBM i Hauptforum
Antworten: 9
Letzter Beitrag: 16-09-04, 18:38
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