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

On 03/04/2008, at 1:20 AM, Aschenbrenner, Poul wrote:

I have now managed to remove the 2 Hex byte in start.
It seems that VARYING set lengt of the Variable in start of this.
But then I get NULL char at the end. Haw can this be removed.

X'61D5C5E3C4C1E3C161A683A76D86A3974B8995894040404040404040404040404000 00
000000000 > 254 zero.

The Code I have added is this ex.

D MeFile S 254a

MeFile = %subst(MyFile : 1 : ChkFileLen);
CALLP NETPPECL(SBMPGM : SBMLIB : JOBDFILE :
JOBDLIB : JOBQ : JOBQLIB : SBMUSER : MeFile);

I cant see any way in CL to trim them ither in RPG ??

You should NOT be attempting to REMOVE the length bytes. Simply MOVE the VARYING field into an appropriately sized fixed-length field. The compiler will sort it all out for you. Given

D varying S 254 VARYING
D fixed S 254

C EVAL fixed = varying

will do it.


Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------