Re: Need to replace hex zeroes in a CL variable

[Booth Martin <booth@xxxxxxxxxxxx>]

Would it work to define a workfield, and then move the &FILELABEL into 
the new field and use the new field?

Another thought is to define a field with value 'X"00"' and the use the 
%trim() command with the 2nd parm as the field name?


On 11/26/2019 2:30 PM, Danny Hayes wrote:
> First,
>
>
>
> V7 R3 -
>
>
>
> I have a CL program that is calling another program to get a file name.  The field is 256 characters long.
>
> It has the value for the  file name and then the rest is populated with hex zeroes.
>
> The file name is then to be used in the CPYTOIMPF command, and it chokes if there are Nulls in the file name.
>
>
>
> I tried %TRIM with no second parm, but that only works for blanks.
>
> I tried %Trim using the second parm, but not sure I specified it right:
>
>                  VALUE(%TRIM(&FILELABEL 'X"00"'))  I tried multiple times and this is the only way I got it to compile.
>
>
>
> I initialized the fields to blanks, but when they come back to me the file name has those x'00'.
>
>
>
> TIA,
>
> Danny
>
>
>
>
>
> "This email and any attachments, contain Genuine Parts Company confidential information that is proprietary, privileged, and protected by applicable laws. If you have received this message in error and are not the intended recipient, you should not retain, distribute, disclose or use any of this information and you should destroy this email, any attachments or copies therein forthwith. Please notify the sender immediately by email if you have received this email in error."