Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

regarding update statement

Former Member

‎10-13-2007 1:35 AM

0 Kudos

Hi all,

In this report when i click on update radio button and write my desk company code and code and and then press enter so all values coming on text box. now i want to update this one

before its working fine but after i add at selection screen in this report because of that my update function not working........

can i create two internal table for that......... what to do.........................

can u give me suggestion in this report....

below is my whole coding........

REPORT ZDESKDLC NO STANDARD PAGE HEADING LINE-SIZE 255.

----

  • DATA DECLARATION

----

TABLES : ZDESKDLC.

data: itab_zdeskdlc like zdeskdlc occurs 0 with header line.

*DATA: wa like zdeskdlc.

data wa_zdeskdlc like zdeskdlc.

*clear wa_zdeskdlc.

----

  • SELECTION SCREEN

----

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS: CCOD LIKE ZDESKDLC-CCODE MODIF ID ABC.

PARAMETERS: DESKCODE LIKE ZDESKDLC-DESK_CODE MODIF ID ABC.

SELECTION-SCREEN END OF BLOCK B1.

----

  • SELECTION SCREEN WITH RADIO BUTTON

----

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.

PARAMETERS: DELETE RADIOBUTTON GROUP G1 USER-COMMAND R DEFAULT 'X'.

PARAMETERS: UPDATE RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF BLOCK B2.

----

  • SELECTION SCREEN

----

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-001.

PARAMETERS: CCOD1 LIKE ZDESKDLC-CCODE MODIF ID DEF,

DESKCD LIKE ZDESKDLC-DESK_CODE MODIF ID DEF,

SR_MANAG LIKE ZDESKDLC-SR_MANAGEMENT MODIF ID DEF,

LASTNAME LIKE ZDESKDLC-LAST_NAME MODIF ID DEF,

FIRSTNM LIKE ZDESKDLC-FIRST_NAME MODIF ID DEF,

DEPART LIKE ZDESKDLC-DEPARTMENT MODIF ID DEF,

ADM_SYS LIKE ZDESKDLC-ADMIN_SYSTEM MODIF ID DEF,

RACF_ID LIKE ZDESKDLC-RACF_ID MODIF ID DEF,

OPEN_DT LIKE ZDESKDLC-OPEN_DATE MODIF ID DEF,

CLOSE_DT LIKE ZDESKDLC-CLOSE_DATE MODIF ID DEF,

SAPUSRID LIKE ZDESKDLC-SAP_USER_ID MODIF ID DEF.

SELECTION-SCREEN END OF BLOCK B3.

AT SELECTION-SCREEN OUTPUT.

IF DELETE = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'DEF'.

SCREEN-ACTIVE = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF UPDATE = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'ABC'.

SCREEN-ACTIVE = '0'.

screen-invisible = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

----

  • AT SELECTION-SCREEN.

----

AT SELECTION-SCREEN.

*if not CCOD1 is initial.

*

*clear : wa_zdeskdlc.

*

*CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

*EXPORTING

*INPUT = CCOD1

*IMPORTING

*OUTPUT = CCOD1.

*

*

*select single * from zdeskdlc into wa_zdeskdlc

*where CCODE = CCOD1 and desk_code = deskcd.

*

*if sy-subrc eq 0.

**DESKCD = wa_zdeskdlc-DESK_CODE.

*SR_MANAG = wa_zdeskdlc-SR_MANAGEMENT.

*LASTNAME = wa_zdeskdlc-LAST_NAME.

*FIRSTNM = wa_zdeskdlc-FIRST_NAME .

*DEPART = wa_zdeskdlc-DEPARTMENT.

*ADM_SYS = wa_zdeskdlc-ADMIN_SYSTEM.

*RACF_ID = wa_zdeskdlc-RACF_ID.

*OPEN_DT = wa_zdeskdlc-OPEN_DATE.

*CLOSE_DT = wa_zdeskdlc-CLOSE_DATE.

*SAPUSRID = wa_zdeskdlc-SAP_USER_ID.

*endif.

*

*endif.

SELECT SINGLE sr_management last_name first_name department admin_system racf_id open_date close_date sap_user_id

FROM ZDESKDLC

INTO (SR_MANAG,LASTNAME,FIRSTNM,DEPART,ADM_SYS,RACF_ID,OPEN_DT,CLOSE_DT,SAPUSRID)

WHERE CCODE = CCOD1 and DESK_CODE = DESKCD.

----

  • START-OF-SELECTION

----

start-of-selection.

----

  • DELETE QUERY

----

IF DELETE = 'X'.

DELETE from zdeskdlc where

CCODE = CCOD AND

DESK_CODE = DESKCODE.

IF SY-SUBRC = 0.

MESSAGE s001(zjig) WITH 'data delete successfully'.

ELSE.

MESSAGE s001(zjig) WITH 'NO RECORD FOUND'.

ENDIF.

ENDIF.

----

  • UPDATE QUERY

----

*start-of-selection.

IF UPDATE = 'X'.

zdeskdlc-CCODE = CCOD1.

zdeskdlc-DESK_CODE = DESKCD.

zdeskdlc-SR_MANAGEMENT = SR_MANAG.

zdeskdlc-LAST_NAME = LASTNAME.

zdeskdlc-FIRST_NAME = FIRSTNM.

zdeskdlc-DEPARTMENT = DEPART.

zdeskdlc-ADMIN_SYSTEM = ADM_SYS.

zdeskdlc-RACF_ID = RACF_ID.

zdeskdlc-OPEN_DATE = OPEN_DT.

zdeskdlc-CLOSE_DATE = CLOSE_DT.

zdeskdlc-SAP_USER_ID = SAPUSRID.

  • SR_MANAG = wa_zdeskdlc-SR_MANAGEMENT .

  • LASTNAME = wa_zdeskdlc-LAST_NAME .

  • FIRSTNM = wa_zdeskdlc-FIRST_NAME .

  • DEPART = wa_zdeskdlc-DEPARTMENT .

  • ADM_SYS = wa_zdeskdlc-ADMIN_SYSTEM .

  • RACF_ID = wa_zdeskdlc-RACF_ID .

  • OPEN_DT = wa_zdeskdlc-OPEN_DATE .

  • CLOSE_DT = wa_zdeskdlc-CLOSE_DATE .

  • SAPUSRID = wa_zdeskdlc-SAP_USER_ID .

MODIFY ZDESKDLC.

*insert ZDESKDLC.

IF SY-SUBRC = 0.

MESSAGE s001(zjig) WITH 'data modify successfully'.

ENDIF.

ENDIF.

zenithi..

4 REPLIES 4

Former Member

‎10-13-2007 3:04 AM

0 Kudos

In your AT SELECTION SCREEN you are getting all the parameters values from the ZTABLE using the company code the user enters,

However now you are trying to update the entries into the same table. These entries were also fetched from the same table, hence your UPDATE is not working. Unless i am missing something here..

Sri

former_member200338
Active Contributor

‎10-13-2007 3:42 AM

0 Kudos

1) Keep a break point at modify statment. check whether you get the updated values in the work area.

2) Try this. create an explicit workarea and assign the screen values to the corresponding fields of the workarea.

Try to print the workarea content. Also try to update the Ztable from the workarea.

regards,

Niyaz

Former Member
In response to former_member200338

‎10-15-2007 6:10 PM

0 Kudos

Hi All,

I have one problem more, Now update working is fine but selection screen not updated. in database update properly. but in selection screen shows same as data, not updated data..... so what to do for this query

for this mater can i use some clear screen................

pl give me suggestion.............

below is my whole code

&----

*& Report ZDESKDLC_NEW *

*& *

&----

*& *

*& *

&----

REPORT ZDESKDLC_NEW .

*REPORT ZDESKDLC NO STANDARD PAGE HEADING LINE-SIZE 255.

----

  • DATA DECLARATION

----

TABLES : ZDESKDLC.

DATA: LW_SELECT TYPE zdeskdlc,

LW_UPDATE TYPE ZDESKDLC.

----

  • SELECTION SCREEN

----

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS: CCOD LIKE ZDESKDLC-CCODE MODIF ID ABC.

PARAMETERS: DESKCODE LIKE ZDESKDLC-DESK_CODE MODIF ID ABC.

SELECTION-SCREEN END OF BLOCK B1.

----

  • SELECTION SCREEN WITH RADIO BUTTON

----

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.

PARAMETERS: DELETE RADIOBUTTON GROUP G1 USER-COMMAND R DEFAULT 'X'.

PARAMETERS: UPDATE RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF BLOCK B2.

----

  • SELECTION SCREEN

----

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-001.

PARAMETERS: CCOD1 LIKE ZDESKDLC-CCODE MODIF ID DEF,

DESKCD LIKE ZDESKDLC-DESK_CODE MODIF ID DEF,

SR_MANAG LIKE ZDESKDLC-SR_MANAGEMENT MODIF ID DEF,

LASTNAME LIKE ZDESKDLC-LAST_NAME MODIF ID DEF,

FIRSTNM LIKE ZDESKDLC-FIRST_NAME MODIF ID DEF,

DEPART LIKE ZDESKDLC-DEPARTMENT MODIF ID DEF,

ADM_SYS LIKE ZDESKDLC-ADMIN_SYSTEM MODIF ID DEF,

RACF_ID LIKE ZDESKDLC-RACF_ID MODIF ID DEF,

OPEN_DT LIKE ZDESKDLC-OPEN_DATE MODIF ID DEF,

CLOSE_DT LIKE ZDESKDLC-CLOSE_DATE MODIF ID DEF,

SAPUSRID LIKE ZDESKDLC-SAP_USER_ID MODIF ID DEF.

SELECTION-SCREEN END OF BLOCK B3.

AT SELECTION-SCREEN OUTPUT.

IF DELETE = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'DEF'.

SCREEN-ACTIVE = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF UPDATE = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'ABC'.

SCREEN-ACTIVE = '0'.

screen-invisible = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

----

  • AT SELECTION-SCREEN.

----

AT SELECTION-SCREEN.

IF UPDATE = 'X'.

**refresh sr_manag.

*CLEAR : sr_manag, lastname.

**CLEAR back.

*FREE MEMORY ID 'back'.

clear lw_update.

LW_UPDATE-SR_MANAGEMENT = SR_MANAG.

LW_UPDATE-LAST_NAME = LASTNAME.

LW_UPDATE-FIRST_NAME = FIRSTNM.

LW_UPDATE-DEPARTMENT = DEPART.

LW_UPDATE-ADMIN_SYSTEM = ADM_SYS.

LW_UPDATE-RACF_ID = RACF_ID.

LW_UPDATE-OPEN_DATE = OPEN_DT.

LW_UPDATE-CLOSE_DATE = CLOSE_DT.

LW_UPDATE-SAP_USER_ID = SAPUSRID.

SELECT SINGLE * FROM ZDESKDLC

INTO lW_SELECT

WHERE CCODE = CCOD1 and

DESK_CODE = DESKCD.

move LW_select-SR_MANAGEMENT to SR_MANAG.

MOVE LW_SELECT-Last_name TO LASTNAME.

MOVE LW_SELECT-FIRST_NAME TO FIRSTNM.

move LW_select-DEPARTMENT to DEPART.

move LW_select-ADMIN_SYSTEM to ADM_SYS.

move LW_select-RACF_ID to RACF_ID.

move LW_select-OPEN_DATE to OPEN_DT.

move LW_select-CLOSE_DATE to CLOSE_DT.

move LW_select-SAP_USER_ID to SAPUSRID.

CLEAR LW_SELECT.

ENDIF.

----

  • START-OF-SELECTION

----

start-of-selection.

  • DELETE QUERY

IF DELETE = 'X'.

DELETE from zdeskdlc where

CCODE = CCOD AND

DESK_CODE = DESKCODE.

IF SY-SUBRC = 0.

MESSAGE s001(zjig) WITH 'data delete successfully'.

ELSE.

MESSAGE s001(zjig) WITH 'NO RECORD FOUND'.

ENDIF.

ENDIF.

  • UPDATE QUERY

IF UPDATE = 'X'.

UPDATE ZDESKDLC

SET FIRST_NAME = LW_UPDATE-FIRST_NAME

LAST_NAME = LW_UPDATE-LAST_NAME

WHERE CCODE = CCOD1

AND DESK_CODE = DESKCD.

IF SY-SUBRC = 0.

  • lastname = LW_UPDATE-LAST_NAME.

  • firstnm = LW_UPDATE-FIRST_NAME.

MESSAGE s001(zjig) WITH 'data modified successfully'.

clear screen.

ENDIF.

CLEAR LW_UPDATE.

ENDIF.

Message was edited by:

zenithi george

Former Member
In response to former_member200338

‎10-15-2007 7:22 PM

0 Kudos

Hi experts,

Can u give me suggestion for this query....

its urgent..

zenithi......