Re: Cursor Location -- MIDRANGE-L

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&nb!
sp;
                                     RTNCSRLOC(&CSRLOC &CSRFLD)
           CSRLOC        10A H
           CSRFLD        10A H                         &n!
bsp;
;   &

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      &!
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     !
; VALUE('0')       &n bsp; &nbs

p;
      CHGVAR &IN51      VALUE('1')
      CHGVAR &IN60      VALUE('1')
      GOTO MAIN
    ENDDO&!
nbsp;

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"

>

Do You Yahoo!?

Send instant messages & get email alerts with Yahoo! Messenger.

Do You Yahoo!?
Send instant messages & get email alerts with Yahoo! Messenger.