guten morgen "zusammen"
Hab mal wieder ein Problem welches ich mir nicht erklären kann!
DatA00007 & DatB00001 sind durch/mit SQL erstellte Dateien
Nach dem lesen (READE) der Datei DatA0007, erhalte ich einen Satz mit einem "binär"-Feld (Ma_ID), welches mit 9 0 B definiert ist!
lese ich nun mit diesem Feld (Ma_ID) die Datei DatB00001 (Schlüsselfeld ist auch ein "binär"-Feld 9 0 B), so werden die Statements mit %eof bzw. %found nicht durchgeführt!
wandle ich aber jetzt mein RPGLE-Pgm. mit CRTBNDRPG und dem Parameter ALWNULL(*NO) um, funktioniert das Programm !!!
PHP-Code:
FDatA00007IF E K Disk Prefix(Ma_)
FDatB00001IF E K Disk Prefix(Be_)
D MID S 9b 0
C Eval MID = 226
C MID SetLL DatA00007
C DoU %eof(DatA00007)
C MID ReadE(E) DatA00007
C If %eof(DatA00007)
C Leave
C EndIf
C If %found(DatA00007)
C Ma_ID SetLL DatB00001
C DoU %eof(DatB00001)
C Ma_ID ReadE(E) DatB00001
C If %eof(DatB00001)
C Leave
C EndIf
C If not %found(DatB00001)
C Leave
C EndIf
:
Bookmarks