Aufgefundener Satz enthält ungültige Daten - upddta - nicht anzeigbare Daten

[malzusrex]

Hi,

also ich schmeiße mir in solchen Fällen die Zeichen alle raus.
Das ' wird durch '' (2 mal das ' hintereinander) in der Konstante definiert

d Such            c                   '°^''#' 
d Ersatz          c                   ''       
...
c                   Eval      Text = %XLate( Such : Ersatz : Text) 

Hoffe das hilft weiter
Gruß
Ronald

[Fuerchau]

Ungültige Zeichen in einem Eingabefeld können da nur kleiner X'40' (*BLANK) sein.
Hier hilft ggf. eine kleine RPGLE-Funktion, die einfach alle Zeichen kleiner *BLANK eliminiert.

Ein Hochkomma ist eigentlich ein gültiges Zeichen.

d ReplaceChar pr 255 varying
d SourceFld 255 varying const

d ReplaceChar pi 255 varying
d SourceFld 255 varying const

d Count 10I 0
c/free
for Count = 1 to %length(SourceFld)
if %subst(SourceFld:Count:1) < *blank;
%subst(SourceFld:Count:1) = *blank;
endfor;
return SourceFld;

Mittels "MyFld = ReplaceChar(MyFld);" kannst du alle ungültigen Zeichen eliminieren.

[falke34]

danke - das mit " ' wird durch '' (2 mal das ' hintereinander) " hilft mir auch für die Zukunft weiter

[Fuerchau]

Dies gilt übrigens für fast alle Sprachumgebungen:
CLP/CMD's
RPG/LE
SQL
MS-DOS-Befehle
Unix-Kommandos
u.v.m.

[falke34]

danke - muss ich testen - arbeite nicht mit free RPG, aber versuche ich mal um zusetzen - melde mich wenn es geklappt hat - danke

[malzusrex]

im nicht Free sieht es auch nicht viel anders aus...

c                   For       Count= 1 to %Len( SourceFld )          
c                   If        %SubSt( SourceFld: Count: 1) < *Blanks 
c                   Eval      %SubSt( SourceFld: Count: 1) = *Blanks 
c                   EndIf                                            
c                   EndFor                                           
c                   Return    SourceFld 

Gruß
Ronald

[falke34]

bei mir funktioniert es einfach nicht !

C*** ungültige Zeichen entfernen
C 1 DO 30 I
C*** Fehlerbehandlung
C IF %SUBST(Anschrift:I:1) < *BLANK
C EVAL %SUBST(Anschrift:I:1) = *BLANK
C ENDIF
C ENDDO

Es kann nur so sein, das der Wert nicht kleiner *BLANK ist oder ?
hilfe

[Fuerchau]

Per Debugger (STRDBG) kannst du dir den Inhalt auch mal Hex anzeigen lassen:

eval Anschrift:x

Alternativ ist dies auch per SQL möglich:

select hex(Anschrift) from myfile

[Pikachu]

Mit DSPPFM kannst du dir den Inhalt der Datei ansehen und dabei mit F10 die "Hexadezimalwerte anzeigen".

[falke34]

das ist wirklich interresant

habe für den Test wirklich, nur den defekten Datensatz in der Testdatei
wenn ich mir diesen mit upddta anzeigen möchte - kommt der Fehler
"Aufgefundener Satz enthält ungültige Daten" (wie oben beschrieben)

mit DSPPFM

folgende Anzeige mit DSPPFM F10

D3C5D6FF D3404040 LEO L

jetzt kommt - im Pgm kann er keinen Wert finden der "kleiner *Blank" ist
- jetzt kommst

wenn ich RUNQRY auf die Datei mache und den Wert per copy und paste
in die Variable mit EVAL einfüge, (beim debbugen) und dann EVAL ANS:X
EVAL lan1:x
D3C5D63F D3404040 40404040 40404040 - LEO.L (woher kommt der Punkt?)

und dann findet er auch den Wert kleiner *BLANK eben "3F"

Verstehe ich einfach nicht

[Pikachu]

Ein X'FF' macht beim UPDDTA anscheinend auch Probleme.