[NEWSboard IBMi Forum]
Seite 3 von 4 Erste ... 2 3 4 Letzte
  1. #25
    Registriert seit
    May 2004
    Beiträge
    444
    Ich bin aktuell mittendrin. In meiner Informationsdatenstruktur habe ich das Unterfeld CPOS was definiert ist mit (von) 370 (bis) 371B 0.
    Ich denke mal ich muss "bindec" als Datenart Schlüsselwort verwenden. Aber welche Länge muss ich angeben ? Bestimmt nicht bindec(2) oder ?

    Viele Grüße Harald

  2. #26
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Die Frage ist, welche Wertigkeit du benötigst:
    int(5) bzw. bindec(4) belegen die 2 Bytes, wobei int(5) eben +/- 32767 kann, ansonsten geht nur +/- 9999.
    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

  3. #27
    Registriert seit
    May 2004
    Beiträge
    444
    Das ist die Cursorposition aus der Informationsdatenstruktur. Einfach nur verwendet, nie darüber nachgedacht, hat ja funktioniert. Also bei 2 Stellen B 0 in der "alten" Datenstruktur gebe ich bindec(4) an, wenn ich das richtig verstanden habe ?

  4. #28
    Registriert seit
    Aug 2001
    Beiträge
    2.869
    Wenn Du schon dabei bist, die Datei-Status-Datenstruktur von Display-Files zu überarbeiten, würde ich Dir empfehlen 2 Felder je Uns(3), eines für Zeile (Position 370) und eines für Spalte(Position 371) zu definieren. Dann kannst Du Dir die Dividiererei sparen und Zeile bzw. Spalte direkt auslesen.

    Ansonsten würde ich, falls Du beides zusammenfassen willst oder musst, Uns(5) empfehlen. (negative Werte für Zeile/Spalte gibt es nicht!)

    BINDEc solltest Du auf alle Fälle vermeiden und je nachdem INT oder UNS verwenden. Bei BINDEC wird der Inhalt (intern) in gepackt konvertiert, während bei INT und UNS die Integer-Datentypen direkt verwendet werden.

    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

  5. #29
    Registriert seit
    Jan 2007
    Beiträge
    904
    Es gibt auch Referenzen von IBM...

    Code:
    DCL-F MYFILE WORKSTN(*EXT) INFDS(DSPFBK);
    
    
       DCL-DS DSPFBK;
         DSP_FLAG1     CHAR(2)    POS(367);    // Display flags
         DSP_AID       CHAR(1)    POS(369);    // AID byte
         CURSOR        CHAR(2)    POS(370);    // Cursor location
         DATA_LEN      INT(10)    POS(372);    // Actual data len
         SF_RRN        INT(5)     POS(376);    // Subfile rrn
         MIN_RRN       INT(5)     POS(378);    // Subfile min rrn
         NUM_RCDS      INT(5)     POS(380);    // Subfile num rcds
         ACT_CURS      CHAR(2)    POS(382);    // Active window cursor location
         DSP_MAJOR     CHAR(2)    POS(401);    // Major ret code
         DSP_MINOR     CHAR(2)    POS(403);    // Minor ret code
       END-DS;
    Last edited by camouflage; 06-11-19 at 14:59. Grund: edit: Formatierung
    kf

  6. #30
    Registriert seit
    May 2004
    Beiträge
    444
    Zitat Zitat von B.Hauser Beitrag anzeigen
    Wenn Du schon dabei bist, die Datei-Status-Datenstruktur von Display-Files zu überarbeiten, würde ich Dir empfehlen 2 Felder je Uns(3), eines für Zeile (Position 370) und eines für Spalte(Position 371) zu definieren. Dann kannst Du Dir die Dividiererei sparen und Zeile bzw. Spalte direkt auslesen.

    Ansonsten würde ich, falls Du beides zusammenfassen willst oder musst, Uns(5) empfehlen. (negative Werte für Zeile/Spalte gibt es nicht!)

    BINDEc solltest Du auf alle Fälle vermeiden und je nachdem INT oder UNS verwenden. Bei BINDEC wird der Inhalt (intern) in gepackt konvertiert, während bei INT und UNS die Integer-Datentypen direkt verwendet werden.

    Birgitta
    Ah gut. Dann mache ich das so. Vielen Dank

  7. #31
    Registriert seit
    May 2004
    Beiträge
    444
    Jetzt hab ich noch mal eine Frage. Wenn ich das richtig lese gibt es im Free kein KLIST und KFLD mehr. Ich muss dass über eine Datenstrukur und %kds machen wenn ich so wie früher mit einer Schlüsselliste auf eine Datei zugreifen möchte ?

  8. #32
    Registriert seit
    Jan 2007
    Beiträge
    904
    Das ist so, allerdings vermeide ich, wenn es geht, den Einsatz %kds. Ist irgendwie noch ein alter Zopf.
    Hier noch ein Link, falls Du automatisiert in free umsetzen möchtest. Tut nicht alles, aber immerhin mehr als RDi. Und als Anschauungsunterricht auch nicht schlecht.
    https://sourceforge.net/projects/cvtrpgfree/
    kf

  9. #33
    Registriert seit
    Aug 2001
    Beiträge
    2.869
    Du kannst natürlich %KDS verwenden, wenn Du willst, ...
    aber im Free-Format kannst Du die Schlüssel-Felder (in einer runden Klammer) einfach auflisten:

    Code:
      Chain (KeyFld1: %Date(): 'X': 123: KeyFldX) YourFile;
    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

  10. #34
    Registriert seit
    May 2004
    Beiträge
    444
    OK Danke. Umsetzen kommt erst mal nicht in Frage. Es wird zunächst mal so sein, dass ich, wenn ich mit einem neuen Programm anfange, Free verwenden darf, bestehende werden aber nicht umgesetzt. .... noch nicht :-)

  11. #35
    Registriert seit
    May 2004
    Beiträge
    444
    Noch eine Frage. Was mach ich mit /COPY-Routinen ? Wir haben unsere Prototypenbeschreibungen für verschiedene Module und Funktionen in /COPY-Routinen. Wie kann ich eine /COPY-Routine im Free einbinden ? und muss der Quellcode innerhalb der /COPY-Routine auch free sein oder kann man das was tricksen ?

  12. #36
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Copy gilt auch weiterhin, sollte aber langfristig durch Include abgelöst werden, da man das schachteln kann.
    Der Mix aus Free/TotalFree und Fixed klappt sogar ganz gut.
    Man kann sogar C-Zeilen zwischendurch nutzen um Nicht-Free-Befehle weiter zu verwenden.
    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

Similar Threads

  1. Systemdatenstruktur(ESDS) in total free
    By Dominic K. in forum NEWSboard Programmierung
    Antworten: 11
    Letzter Beitrag: 04-04-17, 17:25
  2. Total Free und SQL --> Eine schlechte Lösung?
    By ExAzubi in forum NEWSboard Programmierung
    Antworten: 24
    Letzter Beitrag: 19-07-16, 10:38
  3. Total free RPG
    By philsturm in forum NEWSboard Programmierung
    Antworten: 6
    Letzter Beitrag: 05-09-14, 10:09
  4. %dec in free-rpg ??
    By Gimli in forum IBM i Hauptforum
    Antworten: 1
    Letzter Beitrag: 11-03-03, 11:16
  5. Free-RPG
    By Gimli in forum IBM i Hauptforum
    Antworten: 6
    Letzter Beitrag: 03-03-03, 11:23

Berechtigungen

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