|
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)"
> 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"
>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
