Re: Positioning a windowed subfile

Look at the DDS keyword RTNCSRLOC.
It will return the location of the cursor to your program in separate row and 
column fields.


murali dhar <hydchap1@xxxxxxxxx> wrote:
Iam trying to get the inquiry window to pop up where the cursor is positioned 
in subfile program.
When the user presses F4 to call the subfile inquiry program , the program 
needs to retrieve the cursor position of the screen to pass the coordinates to 
the subfile program.This process is coded in the following lines...

F subfile C F E WORKSTN
F KINFDS INFDS

I INFDS DS
I 370 371 LINPOS

I B 1 20LIN
I 2 2 L

I DS

I B 1 20POS
I 2 2 P
C MOVE *ZEROS LIN
C MOVE *ZEROS POS
C MOVELLINPOS L
C MOVE LINPOS P
C Z-ADD LIN SL 30
C Z-ADD POS SP 30



Can some advise better ile code to the above or any much simplified code?

Thank you,



__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com