Re: 1-Byte Integer data type in RPG

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Hello Lakshmi,

You cannot declare a 1-byte integer in V4R2, that capability did not exist
until V4R4.

However, you can declare a 1-byte alphanumeric variable and send that.
Unless you need to use it with math operations, an alphanumeric field
should be just fine.

For example, to send the decimal number 123 (which is hex 7B) you can do:


     D char            s              1A

     c                   eval      char = x'7B'
     c                   callp     send(sock: %addr(char): 1: 0)


If you truly need an integer that you can use in math operations, you can
simply send the 2nd byte of a 2-byte integer.   For example:

     D                 ds
     D int                     1      2U 0 inz(0)
     D byte                    2      2A

     c                   eval      int = 123
     c                   callp     send(sock: %addr(byte): 1: 0)


It's important to note, however, that you cannot use this technique with
negative numbers, if you need support for negative numbers, you'll need
some additional, complex, code to set the bits in the 1A byte manually.


On Mon, 16 Feb 2004 srilaxmi@xxxxxxx wrote:
>
> How can I declare a 1-Byte Integer data type in RPGIV? My version is V4R2.
>
> I am trying to declare as
> DIntByte       S  3I 0
>
> The SEU is giving this error "The length of an integer or unsigned field is
> not valid. "
> I think my system is not supporting this data type. So, is there any other
> way to use 1-byte integer data type.
>
> I have just got an idea. Can I declare as 2-bytes and deactivate
> 1-byte(LSB) and use only 1-byte? Is this possible?
> My requirement is, I need to pass 1-byte of data to one of the PC API over
> a socket.
>
> If anyone worked on this, please reply me. Your answers will be
> appreciated.
>