Re: Blank Integer Variable showing as 16448

[Jonathan Mason <masonjo1@xxxxxxxxxxxxxxxx>]

Hi Lugman

My understanding is that it's to do with the way in which binary data is stored 
and processed within RPG.

As field MSCODE is defined as a 5I data type, it is equivalent to a 2 byte 
binary field within RPG and that the initial value for each byte is binary 
'01000000' so the whole field becomes binary 0100000001000000 or 16384 + 64 = 
16448 which is the value you are getting.

To get round the problem add the "Inz" keyword to the MSCODE definition.

   D MSCODE                         5I 0 Inz

Hopefully somebody can give a more detailed explanation of the binary bit and 
correct any errors in my understanding.

All the best

Jonathan
www.astradyne-uk.com


-----Original message-----
From: "Luqman" pearlsoft@xxxxxxxxxxxx
Date: Thu, 27 Jan 2005 10:11:01 +0000
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Blank Integer Variable showing as 16448

> I have used an Integer Variable inRPGILE.
> 
> D MSCODE                         5I 0
> 
> In DDS, its defined as under:-
> 
>  A            MSCODE         5N 0B  5 18DSPATR(PC)
>  A  01                                  DSPATR(PR)
> 
> The problem is when I run the program, the default value shown in DDS is :
> 16448
> 
> Every field declared as 5I 0 is showing : 16448 as a default value while
> running the program.
> 
> I don't know from where this value is coming, any idea please ?
> 
> Best Regards,
> 
> Luqman
> 
> 
> 
> 
> 
> -- 
> 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.
> 


Jonathan Mason
www.astradyne-uk.com