[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    May 2002
    Beiträge
    1.121

    occurs und free

    Hallo Gemeinde,
    an mich ist aus meiner Kundschaft folgendes Problem heran getragen worden.

    Bei der Definition einer Datenstruktur bringt der Compiler eine Fehlermeldung, wenn diese in FREE definiert ist.
    PHP-Code:
     dcl-ds bezds2 occurs(3);                       
      
    #obj     zoned(5) pos(1) inz(0);              
      #jahr2   zoned(4) pos(6) inz(0);              
      #folg    zoned(3) pos(10) inz(0);             
      #summe   zoned(5) pos(13) inz(0);             
     
    end-ds;                                        
                                                    
    dbezds            ds                  occurs(3
    d#obj                     1      5s 0 inz(0)    
    d#jahr2                   6      9s 0 inz(0)    
    d#folg                   10     12s 0 inz(0)    
    d#summe                  13     17s 0 inz(0) 
    PHP-Code:
    exec SQL open C1;                                     
    exec SQL fetch first from C1 for 3 rows into :bezds;  
    exec SQL fetch first from C1 for 3 rows into :bezds2
    exec SQL close C1
    Bei der Umwandlung kommt dann folgendes
    PHP-Code:
    MSG ID  WTK  SATZ  TEXT                                                      
    SQL5011  30     266  Position 54 Bereich der Host
    -Struktur BEZDS2 nicht      
                         definiert oder nicht verwendbar

    Auf dem System läuft V7.2 mit dem aktuellesten PTF-Stand

    Jemand einen Lösungsansatz?

    Gruß Ronald

  2. #2
    Registriert seit
    Aug 2003
    Beiträge
    1.508

  3. #3
    Registriert seit
    May 2002
    Beiträge
    1.121
    Bleibt bei dem Fehler

  4. #4
    Registriert seit
    Aug 2001
    Beiträge
    2.869
    Occurs wird im Free-Format nicht unterstützt. Du muss die Array-Datenstruktur mit DIM(x) definieren.

    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. Procedure in free
    By malzusrex in forum NEWSboard Programmierung
    Antworten: 2
    Letzter Beitrag: 24-08-16, 13:35
  2. %dec in free-rpg ??
    By Gimli in forum IBM i Hauptforum
    Antworten: 1
    Letzter Beitrag: 11-03-03, 11:16
  3. Free RPG??
    By DEVJO in forum IBM i Hauptforum
    Antworten: 3
    Letzter Beitrag: 05-03-03, 08:18
  4. Free - RPG
    By Gimli in forum IBM i Hauptforum
    Antworten: 2
    Letzter Beitrag: 04-03-03, 10:47
  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
  •