Re: RP: Haw to Convert ASCII CCSID 61952 to EBCDIC 037 follow up !! -- RPG400-L

Poul

I'm sure that the issue is not varying against fixed length variables. I see several possible problems.

1. You MUST get the hex 00 values out of the variable, especially if it is fixed length. If varying length, the bytes after the allocated length do not matter - you either do what you did here - assign to a fixed length - or use substring from position 3 for the length that is equal to the value in the first 2 bytes. By the way, what was in those first 2 bytes? That is, what value - I'm late into this thread. I suspect it was a large value - longer than the actual path name.

2. It looks like a problem with passing a literal into a parameter on the call - unless this is not the beginning of the path name. Is that what you did on the call? If so, write a command to call you program - a literal will pad with blanks up to the 32nd byte. After that will be whatever is in memory. Or this could be a problem of mismatched parameters - different sizes.

3. You could try nested %trimr functions

C EVAL fixed = %trimr(%trimr(varying : x'00'))

but if you are passing the value in as a literal, shorter than the length of the variable (254), or even passing it in from a variable that is shorter than 254, this technique is not reliable.

HTH
Vern

-------------- Original message ----------------------
From: "Aschenbrenner, Poul" <Poul.Aschenbrenner@xxxxxxx>

Yes this is Correct what Vernon Hamberg Write, but I can't use
it.........

I can se that it seems that the first 33 bytes is correct but after that
the rest
of the variable has NULL char.

OBJ(X'61D5C5E3C4C1E3C161A683A76D86A3974B89958940404040404040404040404040
0000
000000000000000000000000000000000000000000000000000000000000000000000000
0000
000000000000000000000000000000000000000000000000000000000000000000000000
0000
000000000000000000000000000000000000000000000000000000000000000000000000
0000
000000000000000000000000000000000000000000000000000000000000000000000000
0000
000000000000000000000000000000000000000000000000000000000000000000000000
0000
0000000000000000000000000000000000000000000000000000000000')

The variable seems corect and the data in it is also the filename from
RPG program
that I have converted from VARYING to FIX length as Simon Coulter wrote.
The Fix variable has also no 2 bytes lenght in the start of the file
name. That was
the problem at first. But now I have same problem as before, this is
just at the end of file name.

D varying S 254 VARYING
D fixed S 254

C EVAL fixed = varying

Hope some can help with this thanks !!

Regards
Poul
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.