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

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

I got curious, and decided to try this myself.  I created an RPG II
program (which took a bit of brain racking, it's been a long time!) and I
got the same results that you did.

It appears that RPG II doesn't really understand the 'b' data type as
a numeric field.  Or, at the very least, it has no clue how to treat it
as a number.

The only suggestion that I can make is that you have your RPG II program
an RPG III or IV program to convert the number from binary to zoned, and
then use the zoned field in the RPG II program to calculate the row/col

The only alternative that I can think of is to use the bitwise operations
to convert it from binary to zoned, but that would be rather ugly!


On Fri, 24 Sep 2004, David Prowak wrote:

> 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.
>