topic Re: Query on Set Cursor Field in Application Development and Automation Discussions

Query on Set Cursor Field

former_member699182 — Wed, 03 Dec 2014 04:11:10 GMT

Hello All,

I have 3 fields in my selection screen.

I have a requirement to focus the cursor on the field when a wrong entry is done and error message is displayed.

I am right now trying the below source but in here the focus still remains on the first field even if there is error in second.

I am doing it in Start-of-selection. I tried using At Selection-screen on fieldname but doesnt seem to work.

Any ideas on how to solve this?

START-OF-SELECTION.

SELECT SINGLE * FROM ewoss WHERE dummykey = space.

IF sy-subrc = 0.

IF ( p_ipaddr <> space ) OR ( p_instno <> space ).

IF p_dest = space.

SET CURSOR FIELD 'P_DEST'.

MESSAGE 'サーバ名を指定してください' TYPE 'S' DISPLAY LIKE 'E'.

LEAVE LIST-PROCESSING.

ELSE.

EWOSS-SR1NAME = p_dest.

ENDIF.

IF ( p_dest <> space ) OR ( p_instno <> space ).

IF ( p_ipaddr CN '0123456789. ' ) OR ( p_ipaddr = space ).

SET CURSOR FIELD 'P_IPADDR'.

MESSAGE 'IPアドレスを指定してください' TYPE 'S' DISPLAY LIKE 'E'.

LEAVE LIST-PROCESSING.

ELSE.

EWOSS-SR1IP = p_ipaddr.

ENDIF.

IF ( p_dest <> space ) OR ( p_ipaddr <> space ).

IF ( p_instno CN '0123456789' ).

SET CURSOR FIELD 'P_INSTNO'.

MESSAGE 'インスタンス番号を指定してください' TYPE 'S' DISPLAY LIKE 'E'.

LEAVE LIST-PROCESSING.

ELSE.

EWOSS-SR1INST = p_instno.

ENDIF.

Thanks.

Re: Query on Set Cursor Field

former_member699182 — Wed, 03 Dec 2014 04:36:27 GMT

How do I check if sy-subrc is 0 in case of the At Selection-screen on fieldname since the select is common for all 3 fields.

Any ideas please?

Re: Query on Set Cursor Field

Former Member — Wed, 03 Dec 2014 04:37:09 GMT

before set cursor use get cursor

GET CURSOR FIELD cur_field.

cur_field = 'P_DEST'.

SET CURSOR FIELD cur_field.

regards

laxman

Re: Query on Set Cursor Field

former_member699182 — Wed, 03 Dec 2014 04:48:44 GMT

Thank you Laxman, i modified it as below but still doesnt seem to work.

Did it work for you?

DATA: cur_field TYPE C.

IF ( p_ipaddr CN '0123456789. ' ) OR ( p_ipaddr = space ).

GET CURSOR FIELD cur_field.

cur_field = 'P_IPADDR'.

SET CURSOR FIELD cur_field.

MESSAGE 'IPアドレスを指定してください' TYPE 'S' DISPLAY LIKE 'E'.

LEAVE LIST-PROCESSING.

ELSE.

EWOSS-SR1IP = p_ipaddr.

ENDIF.

Thanks.

Re: Query on Set Cursor Field

archanapawar — Wed, 03 Dec 2014 05:05:08 GMT

Hi Gita,

Refer below code. You are trying to set cursor in Start-of-selection event, change it to Initialization event and then check.

SELECTION-SCREEN BEGIN OF BLOCK b.

PARAMETERS:

matnr LIKE makt-matnr,

maktx LIKE makt-maktx.

SELECTION-SCREEN END OF BLOCK b.

AT SELECTION-SCREEN ON BLOCK b .

INITIALIZATION.

SET CURSOR FIELD 'MAKTX' .

Re: Query on Set Cursor Field

former_member699182 — Wed, 03 Dec 2014 05:21:54 GMT

Thank you Archana, But if i put it in initialization, it will by default place the cursor on the last initialized field (since all my fields are blank during generation).

I modified my source as below, but doesnt seem to work. When I execute it is by default pointing to Instance no and displaying the error message. ?!!

AT SELECTION-SCREEN ON BLOCK Router.

INITIALIZATION.
Router = 'SAPルータ'.
Destin = '名称'.
Ipadd = 'IP アドレス'.
Instno = 'Instance no.'.

SELECT SINGLE * FROM ewoss WHERE dummykey = space.
IF sy-subrc = 0.
    IF p_dest = space.
      SET CURSOR FIELD 'P_DEST'.
      MESSAGE 'サーバ名を指定してください' TYPE 'S' DISPLAY LIKE 'E'.
      LEAVE LIST-PROCESSING.
    ELSE.
      EWOSS-SR1NAME = p_dest.
    ENDIF.
    IF ( p_ipaddr CN '0123456789. ' ) OR ( p_ipaddr = space ).
      SET CURSOR FIELD 'P_IPADDR'.
      MESSAGE 'IPアドレスを指定してください' TYPE 'S' DISPLAY LIKE 'E'.
      LEAVE LIST-PROCESSING.
    ELSE.
      EWOSS-SR1IP = p_ipaddr.
    ENDIF.
    IF ( p_instno CN '0123456789' ).
      SET CURSOR FIELD 'P_INSTNO'.
      MESSAGE 'インスタンス番号を指定してください' TYPE 'S' DISPLAY LIKE 'E'.
      LEAVE LIST-PROCESSING.
    ELSE.
      EWOSS-SR1INST = p_instno.
    ENDIF.
ENDIF.

Re: Query on Set Cursor Field

archanapawar — Wed, 03 Dec 2014 05:37:31 GMT

try using it in AT SELECTION-SCREEN OUTPUT event.

Re: Query on Set Cursor Field

former_member699182 — Wed, 03 Dec 2014 05:42:55 GMT

Like I already said I have tried that as well. Doesnt seem to work as expected. I am pasting my current full source code here. If it is possible by you, can you please try at your end and see if it works for you?

Thanks.

*&---------------------------------------------------------------------*
*& Report ZGUITEST_ROUTER
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZGUITEST_ROUTER NO STANDARD PAGE HEADING MESSAGE-ID s1.

TABLES: EWOSS.

DATA: L_EV_RFC_OPTIONS LIKE RFCDES-RFCOPTIONS.

DATA:
      d_gateway1ip      LIKE rfcopt-rfchost    ,
      d_gateway1instanz LIKE rfcopt-rfcservice ,
      d_gateway2ip      LIKE rfcopt-rfchost    ,
      d_gateway2instanz LIKE rfcopt-rfcservice ,
      d_sapservxip      LIKE rfcopt-rfchost    ,
      d_sapservxinstanz LIKE rfcopt-rfcservice ,
      d_oss_servname    LIKE rfcopt-rfchost    ,
      d_oss_servinstanz LIKE rfcopt-rfcservice .

SELECTION-SCREEN BEGIN OF BLOCK Router WITH FRAME TITLE Router.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(15) Destin FOR FIELD p_dest.
PARAMETERS: p_dest TYPE EWOSS-SR1NAME.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(15) Ipadd FOR FIELD p_ipaddr.
PARAMETERS: p_ipaddr TYPE EWOSS-SR1IP.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(15) Instno FOR FIELD p_instno.
PARAMETERS: p_instno TYPE EWOSS-SR1INST.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK Router.

INITIALIZATION.
Router = 'SAPルータ'.
Destin = '名称'.
Ipadd = 'IP アドレス'.
Instno = 'Instance no.'.

START-OF-SELECTION.

IF EWOSS IS NOT INITIAL.
MODIFY ewoss.
    IF SY-SUBRC <> 0.
      WRITE: 'NG'.
    ELSE.
        d_gateway1ip      =   EWOSS-SR1IP.
        d_gateway1instanz =   EWOSS-SR1INST.
        d_gateway2ip      =   EWOSS-SR2IP .
        d_gateway2instanz =   EWOSS-SR2INST.
        d_sapservxip      =   EWOSS-SAPXIP.
        d_sapservxinstanz =   EWOSS-SAPXINST.
        d_oss_servname    =   EWOSS-OSSNAME.
        d_oss_servinstanz =   EWOSS-OSSINST.

*       Function module to update the RFC destination
        CALL FUNCTION 'EPS_UPDATE_RFC_DESTINATION'
         EXPORTING
           IV_ROUTER_1                = d_gateway1ip
           IV_SERVICE_1               = d_gateway1instanz
           IV_ROUTER_2                = d_gateway2ip
           IV_SERVICE_2               = d_gateway2instanz
           IV_ROUTER_SAP              = d_sapservxip
           IV_SERVICE_SAP             = d_sapservxinstanz
           IV_HOST_OSS                = d_oss_servname
           IV_SERVICE_OSS             = d_oss_servinstanz
         IMPORTING
           EV_RFC_OPTIONS             = L_EV_RFC_OPTIONS
         EXCEPTIONS
           ROUTER_PATH_TOO_LONG       = 1
           INVALID_ARGUMENTS          = 2
           UPDATE_FAILED              = 3
           OTHERS                     = 4.

          IF SY-SUBRC <> 0.
            WRITE: 'NG'.
          ELSE.
            WRITE: 'OK'.
          ENDIF.
     ENDIF.
ELSE.
WRITE: 'NG'.
ENDIF.

END-OF-SELECTION.

Re: Query on Set Cursor Field

Former Member — Wed, 03 Dec 2014 06:18:13 GMT

try to use AT SELECTION-SCREEN ON <field> event.

Re: Query on Set Cursor Field

Former Member — Wed, 03 Dec 2014 07:11:21 GMT

Hi,

This functionality can be obtained by using AT SELECTION-SCREEN ON fieldname event where fieldname is the name of the field which you want to be focused after error.

e.g :

PARAMETERS p_abc TYPE VBELN.

AT SELECTION-SCREEN ON p_abc.

IF p_abc IS INITIAL.

MESSAGE 'Please fill the required fields' TYPE 'E'.

ENDIF.

So, after the error message, only this field will be left enabled for input.

Regards,

Ashish

Re: Query on Set Cursor Field

former_member699182 — Wed, 03 Dec 2014 07:20:27 GMT

Thank you Ashish.

In my case there are 3 validations which I am doing based on the Select * query.

Now, where will I insert my At Selection-screen on field?

Supposing I do At selection-screen on field 3 times on all my 3 fields, where should i place it in my code so that it works? (sorry i tried a few times already and did not work for me)

Can you help out please?

Thanks.

Re: Query on Set Cursor Field

Former Member — Wed, 03 Dec 2014 07:33:48 GMT

Hi,

After an error message the only field which will be left enabled is the one for which the event is.

e.g AT SELECTION-SCREEN ON p_abc.

So, if a code with an error message is written in this even then only this field i.e p_abc will be left enabled on the screen and rest all fields will be disabled.

Therefore, in this particular event you should write the code relevant for validation of this field only. Because if validation code for another field is written here then it will be a waste as that field will get disabled after an error message.

Hence, in each AT SELECTION-SCREEN ON event write validation code for the field for which the event is running.

If you want to keep multiple fields enabled after an error message then keep them in a block and run event for this block

e.g

SELECTION-SCREEN BEGIN OF BLOCK xyz.

PARAMETERS : p_abc TYPE C,

p_pqr TYPE I,

p_aaa TYPE STRING.

SELECTION-SCREEN END OF BLOCK xyz.

AT SELECTION-SCREEN ON BLOCK xyz.

"validation code for all 3 fields

If an error message is given in this section then all the fields in the block xyz will be left enabled while all others will be disabled.

Hope it clears your doubt about the event functionality.

Regards,

Ashish

Re: Query on Set Cursor Field

archanapawar — Wed, 03 Dec 2014 07:49:51 GMT

Hi Gita,

Put below code in Initialization event and then check, it works.

INITIALIZATION.

router = 'SAPルータ'.

destin = '名称'.

ipadd = 'IP アドレス'.

instno = 'Instance no.'.

SELECT SINGLE * FROM ewoss WHERE dummykey = space.

IF sy-subrc = 0.

IF p_dest = space.

SET CURSOR FIELD 'P_DEST'.

MESSAGE 'サーバ名を指定してください' TYPE 'S' DISPLAY LIKE 'E'.

LEAVE LIST-PROCESSING.

ELSE.

ewoss-sr1name = p_dest.

ENDIF.

IF ( p_ipaddr CN '0123456789. ' ) OR ( p_ipaddr = space ).

SET CURSOR FIELD 'P_IPADDR'.

MESSAGE 'IPアドレスを指定してください' TYPE 'S' DISPLAY LIKE 'E'.

LEAVE LIST-PROCESSING.

ELSE.

ewoss-sr1ip = p_ipaddr.

ENDIF.

IF ( p_instno CN '0123456789' ).

SET CURSOR FIELD 'P_INSTNO'.

MESSAGE 'インスタンス番号を指定してください' TYPE 'S' DISPLAY LIKE 'E'.

LEAVE LIST-PROCESSING.

ELSE.

ewoss-sr1inst = p_instno.

ENDIF.

Re: Query on Set Cursor Field

former_member699182 — Wed, 03 Dec 2014 07:53:18 GMT

Thank you Ashish. Thank you for the explanation.

My requirement is to keep all the fields enabled and I want my cursor focus on the erraneous field.

For which I am using SET CURSOR FIELD command.

Tried enclosing the validations inside AT SELECTION SCREEN ON BLOCK aaa but wouldnt work either way.

Any clues?

Thanks.

Re: Query on Set Cursor Field

Former Member — Wed, 03 Dec 2014 08:07:47 GMT

Hi,

Write your code in this way :

AT SELECTION-SCREEN ON p_dest.

if p_ipaddr is not initial OR p_instno is not initial.

if p_dest is initial.

message 'Please fill the required field' TYPE 'E'.

else.

ewoss-sr1name = p_dest.

endif.

AT SELECTION-SCREEN ON p_ipaddr.

if p_dest is not initial or p_instno is not initial.

if p_ipaddr CN '012346789' or p_ipaddr is initial.

message 'Error message' TYPE 'E'.

else.

ewoss-sr1ip = p_ipaddr.

endif.

AT SELECTION-SCREEN ON p_instno.

if p_dest is not initial or p_ipaddr is not initial.

if p_instno CN '0123456789'.

message 'Error message' TYPE 'E'.

else.

ewoss-sr1inst = p_instno.

endif.

Re: Query on Set Cursor Field

former_member699182 — Wed, 03 Dec 2014 08:19:20 GMT

Thank you Ashish.

This disables the fields other than the erraneous one and even after providing the correct input it still shows Error message. Did this work for you?

BR,

Gita

Re: Query on Set Cursor Field

VenkatRamesh_V — Wed, 03 Dec 2014 08:26:21 GMT

Hi Gita,

Hope it helpful.

Try this code.

AT SELECTION-SCREEN.

DATA: fname(30),

fval(30).

GET CURSOR field fname value fval.

CASE fname.

WHEN 'P_DEST'.

IF fval IS INITIAL.

MESSAGE 'Enter the p_dest values' type 'S' DISPLAY LIKE 'E'.

STOP.

ENDIF.

WHEN 'P_IPADDR'.

IF fval IS INITIAL.

MESSAGE 'Enter the P_IPADDR values' type 'S' DISPLAY LIKE 'E'.

STOP.

ENDIF.

WHEN 'P_INSTNO'.

IF fval IS INITIAL.

MESSAGE 'Enter the P_INSTNO values' type 'S' DISPLAY LIKE 'E'.

STOP.

ENDIF.

ENDCASE.

Regards,

Venkat.

Re: Query on Set Cursor Field

Former Member — Wed, 03 Dec 2014 10:54:50 GMT

Hi,

Please debug and check if the if conditions are satisfying correctly, change them as required.

Regards,

Ashish

Re: Query on Set Cursor Field

Former Member — Fri, 05 Dec 2014 00:00:54 GMT

Hi Gita,

Was this issue resolved? If not let me know and I can help.

Thanks,

Naveen

Re: Query on Set Cursor Field

former_member699182 — Fri, 05 Dec 2014 02:28:00 GMT

Thank you Venkat. The 'GET CURSOR field fname value fval' statement retrieves the field in which the cursor is last placed and hence it necessarily goes to 'P_INSTNO' since thats the last field I enter. How to do get cursor for the erraneous field? Only then I assume it will work.