RE: still can't get INFDS working.. ##@%%#%@%

[rtong@xxxxxxxxxxxxxxx]

Dave:  Could you define 370 to 371 as a character field and move it to a
binary field then do the calculation?  Try if that works.

Romulus Tong 
Ph. 714.978.5497
mailto: rtong@xxxxxxxxxxxxxxx <mailto: rtong@xxxxxxxxxxxxxxx> 
 
 


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of David Prowak
Sent: Friday, September 24, 2004 2:03 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: still can't get INFDS working.. ##@%%#%@%


Charles,

I'm using STRISDB to check the value of POS using a breakpoint.

I agree with your point that it looks like 4 bytes are being
displayed.  I think I know why.

In RPG II, the internal representation of numerics was using zoned
decimal.  Therefore, binary data is automatically converted to zoned
decimal in RPG II.
I believe that is why '0B39' is represented as '0B390000'.

Unfortunately, that knowledge has not helped me solve my problem.

Dave


On Fri, 24 Sep 2004 15:28:27 -0400, cwilt@xxxxxxxxxxxx
<cwilt@xxxxxxxxxxxx> wrote:
> I'm curious as to how you are checking POS.
> 
> You say "When I check the value of POS when the cursor was on line #11 and
> col #57, I see: 0B390000"
> 
> But as POS is only defined to be two bytes ( 370 and 371 ) shouldn't you
> only see 0B39  ????
> 
> Charles
> 
> 
> 
> 
> > -----Original Message-----
> > From: David Prowak [mailto:Prowak@xxxxxxxxx]
> > Sent: Friday, September 24, 2004 2:38 PM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: still can't get INFDS working.. ##@%%#%@%
> >
> >
> > Hi,
> >
> > I'm working on a RPG II program and trying to use the INFDS to
> > determine the line & col #s.  In my INFDS I have:
> > I        B      370  3710 POS
> >
> > When I check the value of POS when the cursor was on line #11 and col
> > #57, I see:
> > 0B390000
> >
> > I understand that 0B39 represents the line # and then the col #
> > consecutively, but
> > how do I determine the line # in my program?  I tried:
> > C       POS     DIV  256   LINE# 40
> >
> > but LINE# then is = '   3'.
> >
> > What am I doing wrong?
> >
> > TIA,
> > Dave
> > --
> > 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.
> >
> --
> 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.
> 
>
--
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.