Re: Cursor Location

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                   
                                     RTNCSRLOC(&CSRLOC &CSRFLD)
           CSRLOC        10A  H                                
           CSRFLD        10A  H                                
    & nbsp;                            1  2'TAXDX0A  '               
                                 1 26'   Select G&G Reports   '
                                     DSPATR(HI)                
           RPTH          10A  O  1 51                          
                                 1 73DATE                      
                                     EDTCDE(Y)                 
                                 2 7 3TIME                      
                                 4  2'Type choices, press Enter.
                                     COLOR(BLU)                
                                 6  2'Report Selected. . . . . .
 51        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      VALUE('0')         &nbs p;                  
      CHGVAR &IN51      VALUE('1')                            
      CHGVAR &IN60      VALUE('1')                            
      GOTO MAIN                                               
    ENDDO       

You could also use relative screen position by testing the  &CSRLOC field but this seemed easier at the time.

Hope this helps.

Vance Stanley                                             
                                                                           
                                                               
--- "Angela Wawrzaszek(EXCH)" wrote:

> Through a *record data structure I can get the

> cursor location in an RPG

> program. Is there a way to get the cursor location

> in a CL?

>

> Angie Wawrzaszek

> M.I.S. Department

>

>

background="Wallpaper.jpg"

bgcolor="#ABC5A2"

>