Re: Cursor Location

[Dave Mahadevan <mahadevan@xxxxxxxx>]

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