[NEWSboard IBMi Forum]
Seite 2 von 2 Erste 1 2

Thema: Beispiel

  1. #13
    Registriert seit
    Oct 2003
    Beiträge
    170
    Danke für den Hinweis.
    Aber ich habe jetzt anders gelöst:

    FTEST IF E K DISK
    FTEST1 O E K DISK
    DKEY S Like(WAREH)
    C
    /FREE
    KEY = 'AAB';
    Chain Key TEST;
    if %Found(TEST);
    DoW not %EoF(TEST);
    //Dsply KUNDE;
    Kunde1= Kunde;
    Write Test1f;
    Reade Key TEST;
    EndDo;
    else;
    Dsply 'NIX gefunden';
    Endif;
    *Inlr = *On;
    /End-Free
    C

  2. #14
    Registriert seit
    Oct 2003
    Beiträge
    170
    Danke noch mal habe jetzt auch RPGLE angepasst.

  3. #15
    Registriert seit
    Nov 2003
    Beiträge
    2.304
    Statt CHAIN und IF %FOUND kannst du auch mit SETLL aufsetzen und falls erfolgreich mit READE lesen.

  4. #16
    Registriert seit
    Jan 2003
    Beiträge
    746

Similar Threads

  1. Beispiel für RUNRMTCMD gesucht
    By dschroeder in forum NEWSboard Programmierung
    Antworten: 9
    Letzter Beitrag: 05-04-16, 15:40
  2. Beispiel Dialog-Prg. RPG/400 gesucht
    By Oskar in forum NEWSboard Programmierung
    Antworten: 7
    Letzter Beitrag: 14-07-15, 22:02

Berechtigungen

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