Zitat Zitat von BenderD Beitrag anzeigen
wenn ich das richtig verstehe, dann schreibst du einen Satz mit '0001' in dem Huddelfeld in die Datei, wenn ein Satz mit einer 0 (mit oder ohne Hierarchie) schon drinsteht.
Im Returnwert gibst Du dann '0001' zurück.
In allen anderen Fällen (kein Satz gefunden, oder schon zwei drin, geht Deine Procedure in die Grütze.

Ist das so gewollt?

D*B
Kann ich jetzt nicht so bestätigen

Code:
 Anfang auf Zeile . . .
 ....+....1....+....2..
    D020KEY   D020WERTA
          1     0001   
          2     0002   
          3     0003   
          4     0004   
          5     0005   
          6     0006   
          7     0007   
          8     0008   
          9     0009   
         10     000A   
 ********   Datenende
Vermutlich werde ich mir morgen eine HEX nach DEC Funktion selber schreiben. Habe ich das letzte mal im Informatikunterricht 1982 auf einem CBM 8032 gemacht.
Hätte nicht gedacht das ich das ein paar Tage später mal für ne AS/400 machen muß die die Funktion nicht kennt.

GG 4250