× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.