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

Try this.


    I                   DS
     *****************************************************
      *  SCREEN ROW/COLUMN DS
      *****************************************************
      * SCREEN ROW NO.
     I                                    B   1   20WROW#
      * SCREEN ROW FROM INFDS
     I                                        2   2 WROW
      * SCREEN COLUMN NO.
     I                                    B   3   40WCOL#
      * SCREEN COLUMN FROM INFDS
     I                                        4   4 WCOL
     IKINFDS      DS
      *****************************************************
      *  WRKSTN STATUS DS
      *****************************************************
     I                                     *STATUS  KCD
      * SCREEN ROW
     I                                      370 370 KROW
      * SCREEN COLUMN
     I                                      371 371 KCOL

     C                                  Z-ADD*ZEROS           WROW#
     C                                  MOVE KROW            WROW
     C                                  Z-ADD*ZEROS           WCOL#
     C                                  MOVE KCOL              WCOL

WROW# & WCOL# are the fields you want.

Tommy Briggs

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of David Prowak
Sent: Friday, September 24, 2004 2:09 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.
>
>
--
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.