• Subject: Re: RE: Put cursor in a displayfile based on a given fiel
  • From: Jromeh@xxxxxxx
  • Date: Sat, 4 Oct 1997 04:35:50 -0400 (EDT)

>I believe you can use DSPATR(PC),  on the field you want to position the 
>cursor to.    

>>Does anyone know a way to place the cursor in a field without providing
>>the hardcoded column and row position in your program and the DDS
>>definition:

>>      A          R RECORD1                   CSRLOC(LINNBR POSNBR)
>>      A            TITLE         40   B  1  2
>>      A            PAGE           5Y OB  1 60
>>      A            TEXT        1760   B  2  1
>>      A            LINNBR         3  OH
>>      A            POSNBR         3  OH

>>I can't find a DDS keyword like PutCursor(FieldName). 
>>Is it posible with a API?

Won't help you here, but the function you're looking for exists in 
AS/SET. Pretty nice, no indicators in the code, move the field and it 
still works. There's also a function %CursorLocateField or %CLF as in IF 
%CLF(fieldname) = *ON.

Nice AS/SET feature, though it's also pretty easy to find things to slam 
these days.



Jerome Hughes                     jromeh@aol.com
InterPro Consulting Services      www.interproinc.com
Rosemont, IL USA                  these are my own opinions only

OMNI User Communications Dir.     www.omniuser.org

"Remember, I started this company in my parent's garage." Steve Jobs


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


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

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