Kopieren IFS-Daten mit QSHELL

[Fuerchau]

Das das Bild irgendwie aus dem Debugger stammt, vermute ich eher einen Programmfehler bei der Variablendeklaration. Der weiße Block deutet auf Schrottdaten hin. Das deutet auf falsche Längeninformation bzw. inkorrekte Verarbeitung der Längen hin.

[Peter P]

Der Dateiname wird aus dem IFS Ausgelesen und steht dann in einem 256 Stellen Feld
Erst kommt der Name XXXXXXX111111111 dann kommen einige Stellen mit NULL Werten (HEX 00) und dann erst *BLANKS (Hex 40).

Gibt es auch die Möglichkeit mit %SCAN oider %CHECK NULL Werte abzufragen bzw. HEX-Werte ??

[Fuerchau]

Da ich nicht sehe, wie du den Namen der Datei ermittelst gehe ich von einem API aus.
Dieses gibt dir i.d.R. auch die Längeninformation mit. Du brauchst also nur per %subst() auf den Namen zugreifen und eliminierst den Schrott.
Per %scan() kann man natürlich auch nach X'00' bzw. *LOVAL suchen um dann den %subst() zu machen.

[Peter P]

ich habe die NULL Werte (X'00') entfernt, jetzt funktioniert auch der "normale" CPY Befehl.
Danke für die Hilfe

[Fuerchau]

Trotzdem würde ich gerne wissen, welche API's du bei der Ermittlung der IFS-Namen verwendest.
Kannst du das noch mitteilen?

[Peter P]

na klar,
von Scott Klement Working with the IFS in RPG IV
OpenDir, ReadDir, CloseDir usw.

[Fuerchau]

Dann hast du ja auch die Antwort.
Der ermittelte Name endet immer mit einem X'00', somit kannst du nur per %subst() den Namen extrahieren.
Das sollte aber bei Scott auch so ersichtlich sein.
Es gibt übrigens auch die Funktion %str(), die dir diese Problematik aber abnimmt.