• Subject: Re: Cursor Location
  • From: Dave Mahadevan <mahadevan@xxxxxxxx>
  • Date: Fri, 16 Jul 1999 14:46:19 -0400
  • Organization: Stoner and Associates

This points out the shortcoming of CSRLOC.  If CSRLOC also accepts the field 
name instead of just
row and column number, we can use that instead of the PC availability in the 
program-to-system
display attribute field.  There was a rumour that this will be a definite 
possibility in V4Rx .

ilechr@cbs.fiserv.com wrote:

> On the 2 previous occasions I have used the following record level key word I 
>have not had to
> do the standard mathematical routine for deriving row and column position.
>
>  A                                      RTNCSRLOC(*RECNAME &REC &FLD)
>  A            FLD           10A  H
>  A            REC           10A  H
>
> Within the RPG program I have coded:
>
> ..CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLo
>   C                     SELEC
>    * Salutation
>   C           FLD       WHEQ 'CUSALU'
>    *
>   C                     EXSR VALFLD
>   C           C1RTN     IFEQ 'Y'
>   C                     MOVELC1VAL     CUSALU    P
>   C                     ENDIF
>
> In this case CUSALU is a both field within the record format containing the 
>RTNCSRLOC keyword
>
> Hope this helps.
>
> Robert Ilechuku
> ilechr@cbs.fiserv.com
>
> $ConflictAction: 1
>
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

--
Thank You.

Regards

Dave Mahadevan.. mailto:mahadevan@fuse.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2019 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].