MVSFORUMS.com

[Avishek]

Hello Everyone,

Can somebody help me out with the code or explanation of Cursor Positioning? I know that we need to do so using EIBCPOSN. However, the book I am following does not go very deep into the topic.
Thanks in advance.

Regards
_________________
Avishek Saha
India

[kolusu]

Avishek,

Positioning the cursor

Hope this helps...

cheers

kolusu

[Avishek]

Hello Kolusu,

Thank You for the reply but I guess I was not able to frame the question properly. What i want is to pick the current Cursor Position from the screen and not to place the Cursor in a particular field.

Thanks.
_________________
Avishek Saha
India

[sujayath]

Hi,

You could use EIBCPOSN to find out the latest cursor position. It returns a single number relative to position zero on the screen (row 1, column 1), in the same way that you specify the CURSOR parameter on a SEND MAP command.

Or you could use DFHCURSR Like

WHEN <FIELD1>F = DFHCURSR
PERFORM PARA-1
WHEN <FIELD2>F = DFHCURSR
PERFORM PARA-2

You can also use

WHEN <FIELD1>F = X'02'
PERFORM PARA-1
WHEN <FIELD2>F = X'02'
PERFORM PARA-2

[Manas Biswal]

Hi Avishek,

EIBCPOSN contains the cursor position in the following form:-

EIBCPOSN = (Row-1)*80 + (Column - 1)

Now, let us suppose that the cursor is present at 11th row and 10th column.
So, EIBCPOSN will contain the value 10*80+9 = 809.

Conversly, suppose you have to find out the row number from EIBCPOSN(which is usually the case), dividing it by 80 and rounding it off to the next greater integer should do the trick.
809/80 = 10.1 rounded off to 11
So, 11 is the row number on which the cursor was located prior to the RECEIVE.

Hope it makes things somewhat clearer.

Regards,
Manas

[Avishek]

Hello,

Thank You Sujayath and Manas. Your views will surely help.

Regards
_________________
Avishek Saha
India