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

Terry,
Thanks for the reply, but no luck.  I changed my LINE# var to 30 but
the value returned is still '    3'.  Any other ideas?

Thanks,
Dave


On Fri, 24 Sep 2004 14:48:20 -0400, terry@xxxxxxxxxx <terry@xxxxxxxxxx> wrote:
> Dave -
> 
> Try:
> 
> POS       DIV  256       ROW     30
>           MVR            COL     30
> 
> Terry Richardson
> Vermont Information Processing, Inc.
> terry@xxxxxxxxxx
> 
> David Prowak <Prowak@xxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 09/24/2004 02:37 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> rpg400-l@xxxxxxxxxxxx
> cc
> 
> Subject
> still can't get INFDS working.. ##@%%#%@% Suspected SPAM:
> 
> 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.
> 
>