RE: Cursor Location

Part of the problem, I believe, is that the original post and your reply
were sent as HTML instead of plain text, which is a no-no for this list.  It
almost looks like you inserted some HTML tags to highlight portions of your
code.

Please, everyone, do what you can to ensure that you send only plain text to
this list.  It is apparent that those who use HTML never see the digest mode
version of this list, because if they did, they'd see the hex dumps of their
email.

Hopefully, this reply will be sent as plain text.  I'm using Outlook 97 and
I tried to find a way to ensure that it does, but could not find the "plain
text" option.  

- Dan Bale

> -----Original Message-----
> From: Vance Stanley [SMTP:w_vance_stanley@yahoo.com]
> Sent: Thursday, May 18, 2000 1:20 AM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: Cursor Location
> 
> Angela, 
> 
>    For some reason that cut and paste didnt work out. It was supposed to
> be an example of using RTNCSRLOC in a DDS and then testing for cursor
> location in a CL. Well, I guess if you look hard you can kind of see it.
> 
>   If you are interested I will email you a cleaner sample in a .txt
> attachment. 
> 
> Vance 
> 
> 
> Vance Stanley wrote: 
> 
>       Angela,
> 
>        You can set up cursor location in a DDS file and access it in a
> CLP:
> 
>       DDS:
> 
> 
>       N01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++
>                R PROMPT                                               
>                                            BLINK                      
>                                            OVERLAY&am! p;nb! 
>       sp;                   
>                                            RTNCSRLOC(&CSRLOC &CSRFLD) 
>                  CSRLOC        10A  H                                 
>                  CSRFLD        10A  H                       &nbs! p; &n! 
>       bsp;       
>         ;   & 
>       
>       nbsp;                            1  2'TAXDX0A  '                
>                                        1 26'   Select G&G Reports   ' 
>                                            DSPATR(HI)                 
>                  RPTH  &n! bsp;     ! 
>       ;  10A  O  1 51                           
>                                        1 73DATE                       
>                                            EDTCDE(Y)                  
>                     &n! bsp;      ! 
>                    2 7 
>       
>       3TIME                       
>                                        4  2'Type choices, press Enter.
>                                            COLOR(BLU)                 
>                                        6  2'Report Selected. . . . . . 51
> &! 
>       nbsp; DESCR         40A  B  6 32             
> 
> 
>        CLP:
> 
> 
>         N01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++
> 
>         IF  (&DESCR *EQ  '   ') +                                    
>             CHGVAR &RPTH      VALUE(' ')                             
>         IF ! ;! 
>       ; (&RPTH  *EQ  '   '   *OR +                               
>               (&IN04 *EQ '1' *AND &CSRFLD *EQ 'DESCR')) +            
>           DO                                                         
>             CALL TAXR007 PARM(&RPTH &DESCR &SEL &SORT &FILE &DWNLD)  
>             CHGVAR &IN04   &nbs! p; ! 
>       ; VALUE('0')       &n bsp; &nbs 
>       
>       p;                   
>             CHGVAR &IN51      VALUE('1')                             
>             CHGVAR &IN60      VALUE('1')                             
>             GOTO MAIN
> ENDDO&! 
>       nbsp;      
> 
        <snip>
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---