Re: Lost in free format conversion.

Hi Barbara

So far as I can tell, the calling program was moving the zoned value into a 5A field, which was passed to the called program. The OP complained that there was a letter in the last position. This said to me that the first nybble had the sign.

Someone, and you, as well, suggested that defining the incoming parameter as 5S 0 would do it - I think that, as well. For others, since a pointer is passed to the location of the passed value, then the called program gets that content in memory, which will be an actual ZONED number.

I did suggest, because it is easier to understand, the use of a data structure with overlaid subfields to accomplish the same thing, in which the called program parameter would also be A5.

Easy-peasy!
Vern

On 1/25/2013 1:42 PM, Barbara Morris wrote:

On 2013/1/25 2:32 PM, Henrik Rützou wrote:

the OP asked how to pass a numeric field with possible negative value
moved into an alpha field between programs and then get it back in to a
numeric field in the recieving program.

My understanding of the original post was that the calling program was
moving the negative value into a character field and passing it to the
called program.

The question was about how to code the called program to receive the value.

Here's the original post. I still think I am understanding it correctly,
but maybe not ...
http://archive.midrange.com/rpg400-l/201301/msg00347.html