[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    Sep 2003
    Beiträge
    2

    Hilfe bei Variablenbestimmung

    Nabend,
    also ich poste euch erst mal den bescheidenen Quellcode :P

    FMT FX FDateiname+IPEASF.....L.....A.E/AEinh.Schlüsselwörter++++++++++++++++++
    ***************** Datenanfang *****************************************
    0001.00 fadrepf uf a e k disk
    0002.00 fdsp cf e workstn
    0002.01 d
    0003.00 c dow *in12 = *off
    0004.00 c exfmt dsp01
    0005.00 c enddo
    0006.00 c eval *inlr = *on
    ******************Datenende *******************************************

    Also wie ihr sicher lich bemerkt fehlt da noch was und zwar meine Variablen. Ich möchte nun dieses Display solange anzeigen lassen bis der User die Taste F12 betätig. Nun weiß ich leider nicht so recht wie ich die D-Bestimmung da eingeben muss.
    Also ich muss doch die Taste vorher definieren?!?

    MfG
    MadBrain

    PS: Bin noch Azubi bitte um Nachsicht, "programmiere" erst 2 Tage

  2. #2
    Registriert seit
    Feb 2003
    Beiträge
    137
    Hi Madbrain,
    ja mußt du, aber in deine Bildschirmdatei.
    Entweder Global (ganz am Anfang der Datei)
    oder Satzformatbezogen

    A CF12
    oder
    A CA12

    einfügen. Bildschirmdatei umwandeln, dann RPG umwandeln.

    Gruss
    Thierry

  3. #3
    Registriert seit
    Feb 2001
    Beiträge
    20.241
    1. Die Tasten in der DSPF definieren, wie oben beschrieben.
    CA01-CA24 = F1 bis F24 ohne Datenübergabe
    CF01-CF24 = F1 bis F24 mit Datenübergabe

    2. In RPG/LE können die Tasten mittels *INKx abgefragt werden
    *INKA = F1
    *INKB = F2
    usw.

    also:

    c dou *inkl = *on
    c exfmt dsp01
    c enddo
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  4. #4
    Registriert seit
    Aug 2001
    Beiträge
    2.873

    *INKx

    Hallo,

    wenn man schon mit *INKx arbeitet, sollte man vielleicht auch noch erwähnen, dass *INKO nicht existiert.

    Allerdings ist diese Variante m.E. die unübersichtlichste.
    (was ist jetzt F17? *INKR oder *INKS?)

    Eine andere Möglichkeit wäre, die Funktions-Tasten mit Bezugszahl zu verwenden z.B. CA12(12).
    Allerdings sind dadurch bereits 24 Bezugszahlen reserviert.
    Dafür kann man im Programm dann auf *IN12 abfragen.
    Bei dieser Variante muss das Schlüssel-Wort INDARA im DDS angegeben werden.

    Zusätzlich kann man in RPGIV über das Schlüssel-Wort INDDS in den F-Bestimmungen eine Datenstruktur definieren, in der die einzelnen Indikatoren umbenannt werden können.
    (Indicator Datastructure)

    Die eleganteste Art Funktions-Tasten abzufragen ist, die Hex-Werte in der Datei-Status-Datenstruktur (Stelle 369) zu vergleichen.
    Mit dieser Methode können nicht nur die Funktions-Taste 1-24 sondern auch z.B. Enter gezielt abgefragt werden.

    Die Hex-Werte werden einmalig hinterlegt, z.B.:
    1. in einer Copy-Strecke
    (Definition von Konstanten in den D-Bestimmungen)
    2. in einer Datei mit genau einem Satz
    3. in einer eigenen Funktion

    Im DDS müssen nur die Funktions-Tasten mit CAxx oder CFxx ohne zusätzliche Bezugszahl definiert werden.
    Das Schlüssel-Wort INDARA ist nicht erforderlich.

    Die Hex-Werte und ein Beispiel sind unter folgendem Link hinterlegt:

    RPGIV ohne Bezugszahlen


    Birgitta
    Birgitta Hauser

    Anwendungsmodernisierung, Beratung, Schulungen, Programmierung im Bereich RPG, SQL und Datenbank
    IBM Champion seit 2020 - 4. Jahr in Folge
    Birgitta Hauser - Modernization - Education - Consulting on IBM i

Similar Threads

  1. Hilfe .. SQL .. DELETE
    By loeweadolf in forum NEWSboard Programmierung
    Antworten: 1
    Letzter Beitrag: 02-12-06, 19:45
  2. Hilfe! Rollback bei Transaktionen funktioniert nicht
    By remo2010 in forum IBM i Hauptforum
    Antworten: 2
    Letzter Beitrag: 23-11-06, 13:31
  3. Hilfe bei Lodrun Anleitung
    By marcel331 in forum IBM i Hauptforum
    Antworten: 4
    Letzter Beitrag: 12-08-06, 13:01
  4. Hilfe beim Anschluß EPL 5200 Epson
    By HDW in forum NEWSboard Drucker
    Antworten: 2
    Letzter Beitrag: 24-07-06, 15:04
  5. Brauche Hilfe
    By kuempi von stein in forum NEWSboard Java
    Antworten: 3
    Letzter Beitrag: 07-07-06, 16:03

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •