[NEWSboard IBMi Forum]

Hybrid View

  1. #1
    Registriert seit
    Mar 2002
    Beiträge
    5.365
    ... geht nicht gibts nicht!

    Code:
    d huddle          ds                  qualified               
    d maybePacked             1      8p 6                         
    d modder          s              8    inz(x'0000000000000000')
     /free                                                        
             monitor;                                             
                huddle = %subst(shudder:start:length);
                  // Glück gehabt, jetzt stehts in huddle.maybePacked drin
             on-error; 
                 // das konnt ja nix werden                                           
             endmon;                                              
     /end-free
    wenn shudder zu kurz ist, muss man links noch die passende Länge modder davor pappen.

    D*B

    der schon wieder mit Brechreiz kämpfen muss

    Zitat Zitat von ILEMax Beitrag anzeigen
    Eine DS drüber geht nicht, da der String sich 150 - 200 mal ändert und immer andere Startpos / Längen hat.

    @B.Hauser
    Wie meinst du das mit
    %subst(Hexstring:1:länge-1) muß ich wie konvertieren ?
    Gruß
    Euer ILEMax
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

  2. #2
    Registriert seit
    Sep 2005
    Beiträge
    425
    Kurze Erläuterung zum Prob.
    ich bekomme demnächst mind. 150 unterschiedliche Dateien geliefert.
    Der Aufbau ist ein String
    Zu jeder Datei gibt es eine Zusatz Datei
    die quasi die interne DDS ist.
    Jede Datei ist immer wieder anders.
    Ich wollte erst aus der 'quasi DDS' eine DS machen und immer das PGM zur Laufzeit neu wandeln, das darf ich aber so nicht lösen. Ich soll die Feldinhalte so aus dem String holen.

    daher ...
    Wenn ich davon ausgehe das mein String in shudder steht, wofür brauch ich dann modder ?

    Gruß
    Max

  3. #3
    Registriert seit
    Mar 2002
    Beiträge
    5.365
    ... wenn das Feld in shudder immer die "richtige" Länge hat, brauchst du das nicht;
    D*B
    Zitat Zitat von ILEMax Beitrag anzeigen
    Kurze Erläuterung zum Prob.
    ich bekomme demnächst mind. 150 unterschiedliche Dateien geliefert.
    Der Aufbau ist ein String
    Zu jeder Datei gibt es eine Zusatz Datei
    die quasi die interne DDS ist.
    Jede Datei ist immer wieder anders.
    Ich wollte erst aus der 'quasi DDS' eine DS machen und immer das PGM zur Laufzeit neu wandeln, das darf ich aber so nicht lösen. Ich soll die Feldinhalte so aus dem String holen.

    daher ...
    Wenn ich davon ausgehe das mein String in shudder steht, wofür brauch ich dann modder ?

    Gruß
    Max
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

  4. #4
    Registriert seit
    Sep 2005
    Beiträge
    425
    Das Feld in shudder ist alles mögliche.
    daher kann ich mit der 'richtigen' länge z.zt. nix anfangen.

    Von 1 bis 15 ist alles möglich (ja wirklich, 1 Stelle gepackt gibt es !)
    Muß ich dann huddle1 bis huddle8 definieren mit der Unterdefinition 1 1 p,
    1 2 p ... bis 1 8 p ?

    nochmal Danke
    Max

  5. #5
    Registriert seit
    Mar 2002
    Beiträge
    5.365
    ... deswegen heißt das ja shudder, aber du muss ja zumindest wissen wie lang (in Byte) das entsprechende Feld ist:
    huddle = %subst(modder:1:8-length)
    + %subst(shudder:start:length);
    D*B

    Zitat Zitat von ILEMax Beitrag anzeigen
    Das Feld in shudder ist alles mögliche.
    daher kann ich mit der 'richtigen' länge z.zt. nix anfangen.

    Von 1 bis 15 ist alles möglich (ja wirklich, 1 Stelle gepackt gibt es !)
    Muß ich dann huddle1 bis huddle8 definieren mit der Unterdefinition 1 1 p,
    1 2 p ... bis 1 8 p ?

    nochmal Danke
    Max
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

  6. #6
    Registriert seit
    Sep 2005
    Beiträge
    425
    Ok, danke, das versuch ich
    super.
    Schönen Jahreswechsel
    (an alle )

    Euer
    ILEMax

Similar Threads

  1. String mit Returns in iSeries Datenfeld speichern
    By e_sichert in forum IBM i Hauptforum
    Antworten: 4
    Letzter Beitrag: 07-11-06, 15:25
  2. String zusammenstellen
    By edig in forum NEWSboard Programmierung
    Antworten: 5
    Letzter Beitrag: 07-07-06, 10:51
  3. Systemdatum nach String
    By codierknecht in forum NEWSboard Programmierung
    Antworten: 5
    Letzter Beitrag: 03-07-06, 15:25
  4. Antworten: 1
    Letzter Beitrag: 24-04-06, 10:37
  5. COBOL: String mit Zahl comp-4
    By rebe in forum NEWSboard Programmierung
    Antworten: 1
    Letzter Beitrag: 19-05-05, 16:34

Berechtigungen

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