SY-UCOMM PROBLEM
Hi all,
SORRY ALL, I POSTED IN ABAP GENERAL TOO. IGNORE THAT
I have a table control in which i added a vertical scroll bar .
when i save the record it updates the database table and ok_code is save.
and i have a condition if i save twice it will througha mess a mess say data is already saved.
My problem is when i drag the vertical scroll after saving , it gives me a mess saying data is already saved because the sy-ucomm or ok_code is save.
I should get the data is already saved only if i save it again NOT WHEN I MOVE THE SCROLL BAR.
THANKS.
The solution is here,
ISSUE WITH SY-UCOMM
Please close the multiple threads,
Regards
Kathirvel
Similar Messages
-
Sy-ucomm problem when hitting enter button
Hello all,
I am implementing a user exit for CO11N screen and i want the control after hitting save button so i made a control for sy-ucomm and i gave an error message. But when i hit enter button after this error message, sy-ucomm still equal to BU so it gives error message again. How can i prevent this?
Thanks.Im not creating blank message
i use the a term but the problem is, when i first hit save button and see the error message,than i hit enter button to pass the message and make the input fields editable again. But sy-ucomm is still equal to BU so it show the message again and again and i cant return to normal input screen. And if i make the message type 'S' i cant block the saving process.
I have to option first i will use type E message but i have to get over the problem above, or i will use type 'S' message but i have to stop the transaction after this message. I used type E like S or type S like E. They didnt work. -
hi all,
i want to know what does this statement mean?
IF sy-ucomm EQ 'Percentage 001'
thanks,
Poonam
Edited by: Poonam Naik on Sep 22, 2008 4:02 PMHi poonam,
In UI programming Sy-Ucomm is the system field which always holds the User Command(Function Code).
So in your code segment the If condition is checking whether the user has performed the action mentioned by function code '% 100'. If its true the statements inside the If will be executed , otherwise the next statement after the corresponding ENDIF will be executed.
Suppose, If Fcode '% 100' is assigned to a button which calculates percentage then the given code check whether the user has pressed that button.
Hope i have cleared your doubt.
Regards
Karthik D
Edited by: Karthik D on Sep 22, 2008 7:49 PM -
Memory Problem with SEt and GET parameter
hi,
I m doing exits. I have one exit for importing and another one for changing parameter.
SET PARAMETER exit code is ....
*data:v_nba like eban-bsart,
v_nbc like eban-bsart,
v_nbo like eban-bsart.
v_nbc = 'CAPX'.
v_nbo = 'OPEX'.
v_nba = 'OVH'.
if im_data_new-werks is initial.
if im_data_new-knttp is initial.
if im_data_new-bsart = 'NBC' or im_data_new-bsart = 'SERC' or im_data_new-bsart = 'SERI'
or im_data_new-bsart = 'SER' or im_data_new-bsart = 'SERM' or im_data_new-bsart = 'NBI'.
set parameter id 'ZC1' field v_nbc.
elseif im_data_new-bsart = 'NBO' or im_data_new-bsart = 'NBM' or im_data_new-bsart = 'SERO'.
set parameter id 'ZC2' field v_nbo.
elseif im_data_new-bsart = 'NBA' or im_data_new-bsart = 'SERA'.
set parameter id 'ZC3' field v_nba.
endif.
endif.
endif. *
and GET PARAMETER CODE IS....
get parameter id 'ZC1' field c_fmderive-fund.
get parameter id 'ZC2' field c_fmderive-fund.
get parameter id 'ZC3' field c_fmderive-fund.
FREE MEMORY ID 'ZC1'.
FREE MEMORY ID 'ZC2'.
FREE MEMORY ID 'ZC3'.
In this code i m facing memory problem.
It is not refreshing the memory every time.
So plz give me proper solution.
Its urgent.
Thanks
RanveerHi,
I suppose you are trying to store some particular value in memory in one program and then retieve it in another.
If so try using EXPORT data TO MEMORY ID 'ZC1'. and IMPORT data FROM MEMORY ID 'ZC1'.
To use SET PARAMETER/GET PARAMETER the specified parameter name should be in table TPARA. Which I don't think is there in your case.
Sample Code :
Data declarations for the function codes to be transferred
DATA : v_first TYPE syucomm,
v_second TYPE syucomm.
CONSTANTS : c_memid TYPE char10 VALUE 'ZCCBPR1'.
Move the function codes to the program varaibles
v_first = gv_bdt_fcode.
v_second = sy-ucomm.
Export the function codes to Memory ID
EXPORT v_first
v_second TO MEMORY ID c_memid. "ZCCBPR1 --- Here you are sending the values to memory
Then retrieve it.
Retrieve the function codes from the Memory ID
IMPORT v_first TO v_fcode_1
v_second TO v_fcode_2
FROM MEMORY ID c_memid. "ZCCBPR1
FREE MEMORY ID c_memid. "ZCCBPR1
After reading the values from memory ID free them your problem should be solved.
Thanks
Barada
Edited by: Baradakanta Swain on May 27, 2008 10:20 AM -
User exit ZXPADU02 - evaluating SY-UCOMM
Hello everyone,
I am trying to display an error message whenever someone tries to create a new work schedule rule (P0007-SCHKZ) in infotype 7. However, the error message should just come up when the user is trying to save his data.
I am using user exit ZXPADU02 for this purpose. My problem is that SY-UCOMM does not seem to hold reliable data in this user exit, and SSCRFIELDS does not seem to be supported at all.
My code looks like this (only the relevant code snippet in ZXPADU02):
CASE INNNN-INFTY.
WHEN '0007'.
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING PRELP = INNNN
IMPORTING PNNNN = P0007.
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING PRELP = PSAVE
IMPORTING PNNNN = P0007_ALT.
IF P0007_ALT-SCHKZ <> P0007-SCHKZ
AND IPSYST-MASSN IS INITIAL " do not warn within an info group of a personnel action
AND SY-UCOMM = 'UPD'. " only warn when saving the data -> problem here <-
MESSAGE 'Do not change IT7 directly or else.' TYPE 'I' DISPLAY LIKE 'E'.
SHOW_DATA_AGAIN = 'X'.
ENDIF.
At first glance, the above works nicely. But this is what happens when I test more thoroughly:
I create a new period in IT 7, enter a P0007-SCHKZ other than the one that was previously valid, press F11. Some warnings appear (for different reasons), which I dismiss using the Enter key. Afterwards, the above code fires, the error message is being displayed, and I am thrown back into the data screen. So far, so good.
Now I simply alter the value in the field "Weekly hours" (P0007-WOSTD) and press Enter (!). Again a series of warnings appear, including one that a dataset is going to be deleted (seeing that an IT 7-period with just the same date range already exists). I confirm that with Enter, and the data is being saved. The above code does not fire because I have only pressed Enter - but the data is being saved anyway!
Looks like a pretty erroneous behavior on the side of the SAP system. The question is whether I have a chance to do something about it in the code.Mihir Nagar wrote:
Dear Petersen,
Your IF condition seems ok. I doubt on the message statement. Can you replace your message statement with type E.
MESSAGE 'Do not change IT7 directly or else.' TYPE 'E'.
ENDIF.
Hope this works.
Regards,
Mihir.
I did not expect this to work, because normally you use type 'E'-messages only in certain PAI-environments, but it does the job, thank you!
make use of field IOPER of the structure PSYST to check on the infotype actions INS, MOD, COP, DEL...
In this particular case I did not care, so I did not check that. IT 7 should only be maintained through personnel actions in our case.
Next you can check with sy-ucomm field the different between "enter" and "save". With "save" sy-ucomm will be 'UPD'.
That is what I did, but as I described, there was a situation when SY-UCOMM is SPACE, but the system saved anyway due to a prior save attempt. -
Urgant problem for the updating problem HELP
Dear sir/miss,On 2008.12.01 one of our partner company consultant,setup an update(SAPKH50016 AND SAPKH50017) page on our production system without and test in the test system.
Now our transaction code CV03N,CV02N,CV01N can not be used,jump out abap problems as below:
It's already give us very big impact to our SAP system,so please tell me how to deal with it.
"Runtime Errors MOVE_CAST_ERROR
Exceptn CX_SY_MOVE_CAST_ERROR
Date and Time 2008.12.02 08:23:43
ShrtText
A dynamic type conflict occurred during reference assignment.
What happened?
Error in ABAP application program.
The current ABAP program "CL_EX_DOCUMENT_MAIN02=========CP" had to be
terminated because one of the
statements could not be executed.
This is probably due to an error in the ABAP program.
What can you do?
Print out the error message (using the "Print" function)
and make a note of the actions and input that caused the
error.
To resolve the problem, contact your SAP system administrator.
You can use transaction ST22 (ABAP Dump Analysis) to view and administer
termination messages, especially those beyond their normal deletion
date.
is especially useful if you want to keep a particular message.
Error analysis
An exception occurred. This exception is dealt with in more detail below
. The exception, which is assigned to the class 'CX_SY_MOVE_CAST_ERROR', wa
neither
caught nor passed along using a RAISING clause, in the procedure
"IF_EX_DOCUMENT_MAIN02~D100_BEFORE_PAI" "(METHOD)"
Since the caller of the procedure could not have expected this exception
to occur, the running program was terminated.
The reason for the exception is:
A 'CAST' operation ('?=' or 'MOVE ?TO') tried to assign an object or
interface variable to a reference variable.
However, the contents of the source variable do not fit in the target.
Source type. "\CLASS=ZCL_IM_DOCUMENT_MAIN02"
Target type: "\INTERFACE=IF_EX_DOCUMENT_MAIN02"
How to correct the error
If the error occurred in one of your own programs or in an SAP program
that you modified, try to correct it yourself.
You may able to find an interim solution to the problem
in the SAP note system. If you have access to the note system yourself,
use the following search criteria:
"MOVE_CAST_ERROR" CX_SY_MOVE_CAST_ERRORC
"CL_EX_DOCUMENT_MAIN02=========CP" or "CL_EX_DOCUMENT_MAIN02=========CM007"
"IF_EX_DOCUMENT_MAIN02~D100_BEFORE_PAI"
If you cannot solve the problem yourself and you wish to send
an error message to SAP, include the following documents:
1. A printout of the problem description (short dump)
To obtain this, select in the current display "System->List->
Save->Local File (unconverted)".
2. A suitable printout of the system log
To obtain this, call the system log through transaction SM21.
Limit the time interval to 10 minutes before and 5 minutes
after the short dump. In the display, then select the function
"System->List->Save->Local File (unconverted)".
3. If the programs are your own programs or modified SAP programs,
supply the source code.
To do this, select the Editor function "Further Utilities->
Upload/Download->Download".
4. Details regarding the conditions under which the error occurred
or which actions and input led to the error.
The exception must either be prevented, caught within the procedure
"IF_EX_DOCUMENT_MAIN02~D100_BEFORE_PAI"
"(METHOD)", or declared in the procedure's RAISING clause.
To prevent the exception, note the following:
System environment
SAP Release.............. "640"
Application server....... "ciserver"
Network address.......... "172.31.120.37"
Operating system......... "Linux"
Release.................. "2.6.9-11.19AXsmp"
Hardware type............ "x86_64"
Character length......... 16 Bits
Pointer length........... 64 Bits
Work process number...... 3
Short dump setting....... "full"
Database server.......... "diserver"
Database type............ "ORACLE"
Database name............ "PRD"
Database owner........... "SAPPRD"
Character set............ "C"
SAP kernel............... "640"
Created on............... "May 22 2006 19:43:51"
Created in............... "Linux GNU SLES-9 x86_64 cc3.3.3"
Database version......... "OCI_920 "
Patch level.............. "129"
Patch text............... " "
Supported environment....
Database................. "ORACLE 9.2.0.., ORACLE 10.1.0.., ORACLE
10.2.0.."
SAP database version..... "640"
Operating system......... "Linux 2.6"
Memory usage.............
Roll..................... 16192
EM....................... 12569568
Heap..................... 0
Page..................... 57344
MM Used.................. 2076240
MM Free.................. 2111024
SAP Release.............. "640"
User and Transaction
Client.............. 600
User................ "MENGQC001"
Language key........ "E"
Transaction......... "CV03N "
Program............. "CL_EX_DOCUMENT_MAIN02=========CP"
Screen.............. "SAPLCV110 0100"
Screen line......... 43
Information on where terminated
The termination occurred in the ABAP program "CL_EX_DOCUMENT_MAIN02=========CP"
in "IF_EX_DOCUMENT_MAIN02~D100_BEFORE_PAI".
The main program was "SAPLCV110 ".
The termination occurred in line 134 of the source code of the (Include)
program "CL_EX_DOCUMENT_MAIN02=========CM007"
of the source code of program "CL_EX_DOCUMENT_MAIN02=========CM007" (when
calling the editor 1340).
Processing was terminated because the exception "CX_SY_MOVE_CAST_ERROR"
occurred in the
procedure "IF_EX_DOCUMENT_MAIN02~D100_BEFORE_PAI" "(METHOD)" but was not
handled locally, not declared in the
RAISING clause of the procedure.
The procedure is in the program "CL_EX_DOCUMENT_MAIN02=========CP ". Its source
code starts in line 1
of the (Include) program "CL_EX_DOCUMENT_MAIN02=========CM007 ".
ource Code Extract
ine SourceCde
104 CLEAR data_ref.
105 GET REFERENCE OF OKCODE INTO data_ref.
106 CALL METHOD <flt_cache_line>-eo_object->set_parameter(
107 im_parmname = 'OKCODE'
108 im_value = data_ref ).
109
110 CLEAR data_ref.
111 GET REFERENCE OF DRAW INTO data_ref.
112 CALL METHOD <flt_cache_line>-eo_object->set_parameter(
113 im_parmname = 'DRAW'
114 im_value = data_ref ).
115
116 CALL METHOD <flt_cache_line>-eo_object->evaluate
117 IMPORTING
118 ex_exception = exc
119 EXCEPTIONS
120 raise_exception = 1
121 OTHERS = 2.
122 IF sy-subrc = 2.
123 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
124 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
125 ELSEIF sy-subrc = 1.
126 CASE exc-exceptn_nm.
127 WHEN 'CANCEL'.
128 MESSAGE ID exc-msgid TYPE exc-msgty NUMBER exc-msgno
129 WITH exc-msgv1 exc-msgv2 exc-msgv3 exc-msgv4
130 RAISING CANCEL.
131 ENDCASE.
132 ENDIF.
133 WHEN OTHERS.
EXITINTF ?= <flt_cache_line>-OBJ.
135 CALL METHOD EXITINTF->D100_BEFORE_PAI
136 EXPORTING
137 TCODE = TCODE
138 CHANGING
139 OKCODE = OKCODE
140 DRAW = DRAW
141 EXCEPTIONS
142 CANCEL = 1.
143 case sy-subrc.
144 when 1.
145 raise CANCEL.
146 endcase.
147 ENDCASE.
148
149 CALL FUNCTION 'PF_ASTAT_CLOSE'
150 EXPORTING
151 OPENKEY = 'S61ZFJapGHhX00002X5BGm'
152 TYP = 'UE'.
153 ENDLOOP.
Contents of system fields
Name Val.
SY-SUBRC 0
SY-INDEX 0
SY-TABIX 14
SY-DBCNT 14
SY-FDPOS 1
SY-LSIND 0
SY-PAGNO 0
SY-LINNO 1
SY-COLNO 1
SY-PFKEY D100DISPLAY
SY-UCOMM BACK
SY-TITLE Display Document: Initial Screen
SY-MSGTY
SY-MSGID
SY-MSGNO 000
SY-MSGV1
SY-MSGV2
SY-MSGV3
SY-MSGV4
Active Calls/Events
No. Ty. Program Include Line
Name
3 METHOD CL_EX_DOCUMENT_MAIN02=========CP CL_EX_DOCUMENT_MAIN02=========CM007 134
CL_EX_DOCUMENT_MAIN02=>IF_EX_DOCUMENT_MAIN02~D100_BEFORE_PAI
2 FORM SAPLCV110 LCV110F19 124
D100_CONSUME_EVENTS
1 MODULE (PAI) SAPLCV110 LCV110I08 10
D100_FCODE
Chosen variables
Name
Val.
No. 3 Ty. METHOD
Name CL_EX_DOCUMENT_MAIN02=>IF_EX_DOCUMENT_MAIN02~D100_BEFORE_PAI
TCODE
CV03
45332222222222222222
36030000000000000000
00000000000000000000
00000000000000000000
OKCODE
BACK
4444222222222222222222222222222222222222222222222222222222222222222222
213B000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
DRAW
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
SY-MSGV1
22222222222222222222222222222222222222222222222222
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
EXC-MSGV1
22222222222222222222222222222222222222222222222222
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
SY-MSGV2
22222222222222222222222222222222222222222222222222
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
EXC-MSGV2
22222222222222222222222222222222222222222222222222
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
SY-MSGV3
22222222222222222222222222222222222222222222222222
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
EXC-MSGV3
22222222222222222222222222222222222222222222222222
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
SY-MSGV4
22222222222222222222222222222222222222222222222222
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
EXC-MSGV4
22222222222222222222222222222222222222222222222222
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
EXITINTF
F0000000
F0000000
<FLT_CACHE_LINE>-OBJ
E0001000
E0001000
SYST-REPID
CL_EX_DOCUMENT_MAIN02=========CP
4454554445444554444333333333334522222222
3CF58F4F35D5E4FD19E02DDDDDDDDD3000000000
0000000000000000000000000000000000000000
0000000000000000000000000000000000000000
SY-REPID
CL_EX_DOCUMENT_MAIN02=========CP
4454554445444554444333333333334522222222
3CF58F4F35D5E4FD19E02DDDDDDDDD3000000000
0000000000000000000000000000000000000000
0000000000000000000000000000000000000000
%_DUMMY$$
2222
0000
0000
0000
SY-SUBRC
0
0000
0000
No. 2 Ty. FORM
Name D100_CONSUME_EVENTS
LF_ACT_IMP_EXISTING
X
5
8
0
0
%_SPACE
2
0
0
0
SY-REPID
SAPLCV110
5454453332222222222222222222222222222222
310C361100000000000000000000000000000000
0000000000000000000000000000000000000000
0000000000000000000000000000000000000000
SEEX_TRUE
X
5
8
0
0
LF_EXIT
F0000000
0000F000
%_DUMMY$$
2222
0000
0000
0000
GF_OI_CALLED_DISPLAY
2
0
0
0
SYST-REPID
SAPLCV110
5454453332222222222222222222222222222222
310C361100000000000000000000000000000000
0000000000000000000000000000000000000000
0000000000000000000000000000000000000000
SCREEN
MCDOK-REFVR
4444425445522222222222222222222222222222222222222222222222222222222222222222222222222222222222
D34FBD2566200000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
GF_TRANSACTION
CV03
45332222222222222222
36030000000000000000
00000000000000000000
00000000000000000000
OK_CODE
BACK
4444222222222222222222222222222222222222222222222222222222222222222222
213B000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
DRAW
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
CL_WB_REQUEST=>TO_IMMEDIATE_START
PROP_STRING
360
6000
8100
BITMAP_STRETCH
2
0000
2000
SY-SUBRC
0
0000
0000
SS_CENTER
1
0000
1000
C_DMS_PHIO_MASTER_CLASS
DMS_PCD1
4455544322
4D3F034100
0000000000
0000000000
PROP_TABINDEX
230
E000
6000
SPACE
2
0
0
0
LF_FCODE
2222222222222222222222222222222222222222222222222222222222222222222222
0000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
No. 1 Ty. MODULE (PAI)
Name D100_FCODE
TREEV_ITEM_CLASS_CHECKBOX
3
0000
3000
Internal notes
The termination occurred in the function "RxMoveCastErrorObj" of the SAP
Basis System, specifically in line 2995 of the module
"//bas/640_REL/src/krn/runt/abmove1.c#7".
The internal operation just processed is "CAST".
The internal session was started at 20081202082340.
Active Calls in SAP Kernel
Lines of C Stack in Kernel (Structure Differs on Each Platform)
(CTrcStack2+0x7a)0x63b29a
(CTrcStack+0xb)0x63b8db
(ab_rabax+0x2f02)0xa4b1e2
(_Z18RxMoveCastErrorObj4RUDIS_PKt+0xa5)0x7b7a45
(_Z8ab_jcastv+0x673)0x7bdec3
(_Z8ab_extriv+0x219)0x7ab4d9
(_Z9ab_xeventPKt+0x29a)0x8f9b4a
(ab_dstep+0x1a7)0xa5ec77
(dynpmcal+0x39a)0x69d84a
(dynppai0+0x933)0x69f393
(dynprctl+0x414)0x69e324
(dynpen00+0x444)0x693034
(Thdynpen00+0x2df)0x50a24f
(TskhLoop+0x307)0x514347
(tskhstart+0x1ae)0x522fae
(DpMain+0x28f)0x49b1bf
(nlsui_main+0x9)0x475159
(main+0x2e)0x47518e
/lib64/libc.so.6(__libc_start_main+0xa9)0x2a97124b49
List of ABAP programs affected
Index Ty. Program Group Date Time Size Lang.
0 Prg SAPLCV110 0 2008.12.01 10:13:43 671744 E
1 Prg SAPMSSYD 0 2008.12.01 02:17:53 21504 E
2 Prg SAPFSYSCALLS 0 2003.11.06 20:52:59 7168 E
3 Typ DRAW 0 2008.04.29 10:29:35 11264
4 Typ DRAT 0 1999.03.10 18:52:49 3072
5 Typ DMS_DB_DRAT 0 1999.03.10 18:36:01 3072
6 Typ TDWS 0 2003.09.10 16:46:37 6144
7 Typ TDWST 0 1997.05.12 16:50:34 2048
8 Typ AENR 0 2008.11.20 14:51:32 7168
9 Typ USR03 0 1997.05.12 16:51:23 6144
10 Typ T024X 0 1998.02.14 10:32:35 2048
11 Typ MCDOK 0 2004.12.08 17:17:49 28672
12 Prg SAPLCV121 12 2008.12.01 10:09:17 152576 E
13 Prg CL_GUI_CFW====================CP 13 2003.11.06 20:53:18 176128 E
14 Prg CL_GUI_PROPS_CONSUMER=========CP 14 2003.11.06 20:52:43 30720 E
15 Prg %_CCNTL 14 2003.11.06 20:52:41 16384 E
16 Prg SAPLTHFB 16 2008.12.01 02:18:03 368640 E
17 Prg SAPLOLEA 17 2008.12.01 02:00:50 93184 E
18 Prg SAPLSGUI 18 2008.12.01 02:18:03 76800 E
19 Prg SAPLSTTM 19 2006.09.21 08:17:23 86016 E
20 Prg SAPLSBDC 20 2006.09.21 08:24:43 45056 E
21 Prg SAPLSFES 21 2008.12.01 02:18:03 278528 E
22 Prg SAPLSPLUGIN 22 2003.11.06 21:28:25 8192 E
23 Prg SAPFGUICNTL 17 2003.11.06 20:57:18 24576 E
24 Typ DMS_FRONTEND_DATA 0 2001.06.07 17:41:14 2048
25 Typ ITDWA 0 1999.12.09 18:54:10 3072
26 Typ DNTAB 0 2000.11.09 14:07:14 6144
27 Typ DMS_AUDITS 0 1998.12.10 18:00:41 3072
28 Typ DRAD 0 1999.12.01 15:17:34 4096
29 Typ DRAZ 0 1998.04.01 02:05:08 4096
30 Typ DRAP 0 1995.04.04 16:53:07 3072
31 Typ DRAOZ 0 1995.04.04 16:53:05 6144
32 Typ DRAO 0 1995.04.04 16:53:03 6144
33 Typ TOAV0 0 1996.06.14 09:51:26 3072
34 Typ DMS_REC_FILE 0 2006.10.12 17:53:17 8192
35 Typ DMS_DOC_FILE 0 1999.04.21 13:22:51 12288
36 Prg SAPLCADM 36 2003.11.06 20:53:00 14336 E
37 Typ TDWA 0 2001.06.07 17:50:38 6144
38 Prg SAPLCV115 38 2008.12.01 10:13:43 220160 E
39 Prg SAPLCV118 39 2008.11.30 22:54:57 86016 E
40 Prg SAPLCV130 40 2008.12.01 09:57:54 342016 E
41 Prg SAPLCLO0 41 2006.09.21 11:31:12 55296 E
42 Typ API_CHAR 0 1997.07.09 23:48:05 2048
43 Typ API_VALI 0 1998.04.23 14:46:27 5120
44 Typ API_KSSK 0 1996.01.29 18:00:54 3072
45 Typ API_VALI 0 1998.04.23 14:46:27 5120
46 Prg SAPLCLFM 46 2008.12.01 03:27:54 711680 E
47 Typ RMCLF 0 2004.03.15 16:55:47 31744
48 Typ RMCLKSSK 0 2001.09.18 10:03:47 5120
49 Typ RMCLAUSP 0 2001.09.18 10:03:46 7168
50 Typ RMCLDEL 0 1997.08.13 12:51:45 3072
51 Typ AUSP 0 2001.09.18 10:02:23 6144
52 Prg SAPLCLSE 52 2008.11.20 14:51:39 188416 E
53 Prg SAPLCTMS 53 2008.12.01 03:28:16 985088 E
54 Prg SAPLCTCV 54 2008.12.01 03:27:56 197632 E
55 Prg SAPLCTCF 55 2008.12.01 03:27:07 20480 E
56 Typ USR01 0 1998.02.14 15:22:01 4096
57 Prg SAPLCLPR 57 2001.11.19 16:12:29 64512 E
58 Typ CLPROF 0 2001.06.07 17:40:33 12288
59 Typ RMCLPAR 0 2001.06.07 17:45:28 13312
60 Typ AGR_USERS 0 2003.01.20 16:27:01 3072
61 Prg SAPLCTCU 61 2008.05.18 09:34:46 189440 E
62 Prg %_CCXTAB 53 2003.11.06 21:51:14 7168 E
63 Typ SCXTAB_CONTROL 0 2003.11.06 20:31:00 6144
64 Prg SAPLCUDB 64 2008.11.30 22:48:18 332800 E
65 Prg SAPLCUD0 65 2008.12.01 09:57:54 196608 E
66 Prg SAPLCUEV 66 2001.06.07 18:26:56 12288 E
67 Prg SAPLSUNI 67 2008.05.18 09:44:54 151552 E
68 Typ TFDIR 0 1998.07.29 19:49:08 3072
69 Typ CABN 0 2001.09.18 10:02:26 12288
70 Typ CABN 0 2001.09.18 10:02:26 12288
71 Typ DDB_C05 0 1997.08.28 08:44:01 2048
72 Typ DDB_C02 0 1997.07.09 23:52:49 3072
73 Typ DDB_ITP 0 1997.08.28 08:44:01 2048
74 Typ DDB_C07 0 1997.07.09 23:52:50 2048
75 Prg SAPLCUTM 75 2006.09.21 11:40:39 68608 E
76 Prg SAPLCUPM 76 2008.05.18 11:52:42 472064 E
77 Prg SAPLSLG0 77 2003.11.06 20:53:05 64512 E
78 Prg SAPLSBAL_SERVICE 78 2008.05.18 09:48:19 172032 E
79 Typ BALOBJ 0 1997.08.13 13:16:25 2048
80 Typ BALSUB 0 1997.08.13 13:16:26 2048
81 Typ BAL_S_LFIL 0 2000.12.04 12:45:13 12288
82 Prg SAPLSBAL 82 2008.05.18 09:48:19 327680 E
83 Typ BAL_S_LOG 0 2000.12.04 13:04:00 7168
84 Typ BAL_S_CONT 0 1998.11.02 09:43:07 2048
85 Typ BAL_S_PARM 0 2000.12.04 12:45:14 3072
86 Typ BAL_S_CLBK 0 1998.11.02 09:43:07 2048
87 Typ BAL_S_SCNT 0 1998.11.30 15:52:33 3072
88 Typ BAL_S_SDEF 0 2000.12.04 12:45:15 2048
89 Prg CL_ABAP_CHAR_UTILITIES========CP 89 2004.11.12 14:02:13 14336 E
90 Prg SAPLSYGU 90 2003.11.06 20:55:40 29696 E
91 Prg SAPLCUXP 91 2008.12.01 10:09:15 147456 E
92 Typ CUXP_01 0 1995.04.10 15:58:58 3072
93 Typ T100 0 1997.08.28 09:04:45 2048
94 Typ CUXP_02 0 1995.04.10 15:58:59 2048
95 Typ CUXP_02 0 1995.04.10 15:58:59 2048
96 Typ TMS_JUST 0 1995.04.10 16:02:55 2048
97 Typ CUXP_02 0 1995.04.10 15:58:59 2048
98 Prg SAPLCUTC 98 2003.11.11 20:31:28 89088 E
99 Prg SAPLCUTRC 99 2008.12.01 02:26:11 87040 E
100 Typ CTMS_01 0 1997.08.13 12:25:20 3072
101 Typ INCL_BILD 0 1997.05.12 15:10:50 2048
102 Typ AUSP 0 2001.09.18 10:02:23 6144
103 Prg SAPLCCRL 103 2008.11.30 22:34:49 144384 E
104 Typ AEOIB 0 2001.09.18 10:02:18 7168
105 Typ TCC09 0 1999.03.17 16:24:37 2048
106 Typ AEOI 0 2001.09.18 10:02:17 5120
107 Prg SAPLCCCN 107 2008.11.20 14:51:39 293888 E
108 Typ AEOIT 0 2001.09.18 10:02:18 3072
109 Typ CCIN 0 2001.10.09 13:06:55 6144
110 Typ CCCN_XFACE 0 2001.10.09 13:06:55 7168
111 Prg SAPLCCBU 111 2008.11.20 14:51:39 33792 E
112 Prg SAPLCV150 112 2008.11.20 14:51:40 144384 E
113 Prg SAPFSPOR 0 2008.12.01 07:23:38 14336 E
114 Prg SAPLSCNT 114 2003.11.06 20:53:04 30720 E
115 Typ DYCBOX 0 1998.08.20 11:16:53 3072
116 Prg SAPLSVSM 116 2006.09.21 08:56:23 29696 E
117 Prg CL_DATAPROVIDER===============CP 117 2003.11.06 20:52:43 52224 E
118 Typ OBJ_RECORD 0 1998.02.14 08:30:43 2048
119 Prg SAPLSTUP 119 2006.09.21 08:34:57 75776 E
120 Prg SAPLCNDP 120 2006.09.21 09:10:54 208896 E
121 Prg SAPSHDTV 114 2003.11.06 20:57:23 33792 E
122 Typ SHDTVCIU 0 1998.12.14 23:15:37 3072
123 Typ SHDSTU 0 1998.12.14 23:15:34 2048
124 Typ SHDSTCIU 0 1998.12.14 23:15:34 2048
125 Typ ARFCRDATA 0 2000.11.09 14:04:16 6144
126 Prg SAPLGRFC 126 2003.11.06 20:53:02 16384 E
127 Typ SWCBCONT 0 2000.11.15 17:55:11 3072
128 Typ OLE_VERBS 0 1995.04.04 16:02:20 2048
129 Typ OLE_PA 0 1995.04.04 16:02:19 2048
130 Prg CL_DYNAMIC_GUI_EXTENSIONS=====CP 130 2003.11.06 20:52:43 37888 E
131 Prg CL_GUI_DATAMANAGER============CP 131 2006.09.21 09:11:48 77824 E
132 Prg CL_EXITHANDLER================CP 132 2008.12.01 02:24:29 34816 E
133 Prg SAPLSEXV 133 2008.12.01 02:05:16 124928 E
134 Prg CL_BADI_FLT_DATA_TRANS_AND_DB=CP 134 2008.12.01 02:24:26 44032 E
135 Typ SXS_ATTR 0 2001.08.20 12:23:27 4096
136 Typ V_EXT_ACT 0 2000.11.09 14:27:05 2048
137 Typ SXC_EXIT 0 2000.11.09 14:23:43 2048
138 Prg CL_EX_DOCUMENT_MAIN02=========CP 138 2008.04.29 10:29:37 80896 E
139 Prg IF_EX_DOCUMENT_MAIN02=========IP 132 2008.04.29 10:29:39 30720 E
140 Prg %_CSXRT 138 2004.11.12 13:45:31 16384 E
141 Prg CL_EXIT_MASTER================CP 141 2006.09.21 09:10:54 24576 E
142 Typ SXS_MLCO 0 2000.12.04 14:59:55 2048
143 Prg CL_EX_BADI_LAYER==============CP 143 2006.09.21 09:10:54 32768 E
144 Prg IF_EX_BADI_LAYER==============IP 132 2006.09.21 08:51:19 9216 E
145 Typ V_EXT_IMP 0 2003.11.06 20:40:20 3072
146 Typ V_EXT_IMP 0 2003.11.06 20:40:20 3072
147 Typ SXC_IMPSWH 0 2000.11.09 14:23:44 2048
148 Prg ZCL_IM_DOCUMENT_MAIN02========CP 148 2008.12.01 14:50:50 7168 E
149 Prg SAPLASTAT_TRIG 149 2003.11.06 20:53:00 13312 E
150 Typ ASTAT_TYP2 0 1998.11.10 05:35:18 2048
151 Typ ASTAT_TYP1 0 1998.11.30 15:54:16 2048
152 Prg CX_SY_MOVE_CAST_ERROR=========CP 152 2003.11.06 20:41:23 11264 E
153 Typ SCX_SRCPOS 0 2000.11.09 14:12:15 2048
154 Prg CX_DYNAMIC_CHECK==============CP 154 2003.11.06 21:33:04 10240 E
155 Prg CX_ROOT=======================CP 155 2003.11.06 21:56:05 12288 E
156 Prg CX_NO_CHECK===================CP 156 2003.11.06 21:33:04 10240 E
157 Prg CX_SY_NO_HANDLER==============CP 157 2003.11.06 21:33:04 10240 E
158 Typ SYST 0 2000.12.04 14:54:51 31744
159 Typ SFBM_XCPTN 0 2000.12.04 14:54:21 3072
160 Prg CL_WB_REQUEST=================CP 160 2008.12.01 02:25:56 71680 E
irectory of Application Tables
ame Date Time Lngth
Val.
rogram SAPLCV110
YST . . : : 00004608
\0\0\0\0\x0001\0\x000E\0\0\0\0\0\0\0\0\0\0\0\0\0\x000E\0
RAW 2008.04.29 10:29:35 00003196
RAT . . : : 00000236
MS_DB_DRAT . . : : 00000238
DWS . . : : 00000268
DWST . . : : 00000048
ENR . . : : 00000496
00 00000000 00000000
SR03 . . : : 00000876
T024X . . : : 00000074
MCDOK 2004.12.08 17:17:49 00013650
TDWA 2001.06.07 17:50:38 00000340
0000
Program CL_GUI_PROPS_CONSUMER=========CP
EUDB . . : : 00004068
%C002380004933B6098D9166C5E1000000AC1F7825 \0\0\0
Program SAPLCLFM
RMCLF . . : : 00003736
Program SAPLCTMS
RCTMS 2002.04.17 10:32:13 00002034
Program SAPLCTCF
USR01 . . : : 00000220
Program SAPLCLPR
RMCLPAR . . : : 00000418
SAPPROFILE
CLPROF . . : : 00000272
600BMENGQC001 X X XXX
AGR_USERS . . : : 00000164
0000000000000
Program SAPLSUNI
TFDIR . . : : 00000188
CUD0_CUSTOM_CONFIG_INITIALIZERSAPLCUD0
Program SAPLCCRL
AENR . . : : 00000496
00 00000000 00000000
AEOI . . : : 00000436
00
Program SAPLCCCN
CCIN . . : : 00000600
00 0
Program SAPSHDTV
SHDSTU . . : : 00000106
SHDSTCIU . . : : 00000100
ABAP Control Blocks (CONT)
Index Name Fl PAR0 PAR1 PAR2 PAR3 PAR4 PAR5 PAR6 SourceCde Line
409 DWRI 01 0042 CL_EX_DOCUMENT_MAIN02=========CM007 128
410 WRIT 00 C026 CL_EX_DOCUMENT_MAIN02=========CM007 128
411 PAR1 C0 0000 CL_EX_DOCUMENT_MAIN02=========CM007 128
412 JEND A6 0000 CL_EX_DOCUMENT_MAIN02=========CM007 128
413 DWRI 01 0043 CL_EX_DOCUMENT_MAIN02=========CM007 128
414 WRIT 00 C027 CL_EX_DOCUMENT_MAIN02=========CM007 128
415 PAR1 C0 0000 CL_EX_DOCUMENT_MAIN02=========CM007 128
416 JEND A6 0000 CL_EX_DOCUMENT_MAIN02=========CM007 128
417 FUNE 01 006E CL_EX_DOCUMENT_MAIN02=========CM007 128
418 ENDF 00 0000 CL_EX_DOCUMENT_MAIN02=========CM007 128
419 MESS 00 0000 CL_EX_DOCUMENT_MAIN02=========CM007 128
420 BRAX 00 0015 CL_EX_DOCUMENT_MAIN02=========CM007 133
CAST 00 0000 C006 C028 CL_EX_DOCUMENT_MAIN02=========CM007 134
423 METH 03 0003 0000 8001 0000 0000 0000 0000 CL_EX_DOCUMENT_MAIN02=========CM007 135
427 PAR1 01 C000 CL_EX_DOCUMENT_MAIN02=========CM007 135
428 PAR1 81 C001 CL_EX_DOCUMENT_MAIN02=========CM007 135
429 PAR1 81 C002 CL_EX_DOCUMENT_MAIN02=========CM007 135
430 PAR2 00 0000 0002 0000 CL_EX_DOCUMENT_MAIN02=========CM007 135
432 PAR2 00 0000 006E 0001 CL_EX_DOCUMENT_MAIN02=========CM007 135
434 BREL 04 0000 CL_EX_DOCUMENT_MAIN02=========CM007 143Hi,
As per your query, pls contact any abap consultant regarding this he will provide the solution. Because some times programe given some error then the abaper see the programe and take action accordingly.
Anil -
Regarding sy-ucomm and ok_code
hi experts,
gud morning,
i got something for sy-ucomm and ok_code....
<b>answer:::</b>
In the same way that the OK_CODE field in the ABAP program and the system field SY-UCOMM <b>receive the contents of the corresponding screen fields in the PAI event, their contents are also assigned to the OK_CODE screen field and system field SYST-UCOMM in the PBO event.</b> Therefore, you must clear the OK_CODE field in the ABAP program to ensure that the function code of a screen is not already filled in the PBO event with an unwanted value. This is particularly important when the next PAI event can be triggered with an empty function code (for example, using ENTERS). Empty function codes do not affect SY-UCOMM or the OK_CODE field, and consequently, the old field contents are transported.
cud u plz explain the meaning of the bold part how can we see that the contents are also copied in the pbo side as done in pai.......
nullSAP recommends that in dialog program always use OK_Code instead of sy-ucomm. Here is what the help says
In your ABAP programs, you should work with the OK_CODE field instead of SY-UCOMM. There are two reasons for this: Firstly, the ABAP program has full control over fields declared within it, and secondly, you should never change the value of an ABAP system field. However, you should also always initialize the OK_CODE field in an ABAP program for the following reason:
In the same way that the OK_CODE field in the ABAP program and the system field SY-UCOMM receive the contents of the corresponding screen fields in the PAI event, their contents are also assigned to the OK_CODE screen field and system field SYST-UCOMM in the PBO event. Therefore, you must clear the OK_CODE field in the ABAP program to ensure that the function code of a screen is not already filled in the PBO event with an unwanted value. This is particularly important when the next PAI event can be triggered with an empty function code (for example, using ENTER). Empty function codes do not affect SY-UCOMM or the OK_CODE field, and consequently, the old field contents are transported.
http://help.sap.com/saphelp_nw2004s/helpdata/en/9f/dba99935c111d1829f0000e829fbfe/content.htm
This is a long standing issue dating back many years. The general answer is that you control the OK_CODE field while SAP controls the SY-UCOMM field. You assign field OK_CODE to the OK code field in the screen painter and SAP copies SY-UCOMM to your OK_CODE field. Now you have control over the value. If you start invoking other code, like SAP utilities that display screens, you can be guaranteed that the value in OK_CODE will still be there, while you have no idea what SAP might be doing with SY-UCOMM.
This is a design decision that was probably made about 20 years ago when screen processing was introduced. In most cases, you can probably use SY-UCOMM and not have any problems but there are probably cases out there where SAP has done something tricky and you will have a problem.
Because there are unknowns out there, I always define an OK_CODE and do not use SY-UCOMM for standard screen processing. For me this is a long standing habit.
OK_Codes are like function code for each button or for any action on the screen.
When you press SAVE or when you Press some Button on the screen, your every action is recorded by using the OK_COde.
for example for ENTER button it is '/00'.
While you record BDC's using SHDB you will come to know all these OK codes. -
What is the diff between OK_CODE and SY-UCOMM
Dear All,
I am trying to develop on module pool program using push buttons to pass the data to input/out filed. When I do the debugging the sy-ucomm is showing the data but not OK_CODE in case statement.
Case OK_CODE.
When 'one'.
num = '1'.
call function 'ZCA_INPUT_OUT'.
Import
numz = num
export
number = inputi. " input/output field in screen painter
end case.
Can you pls give me a solutions what is the main mistake I did here.
I could not able to pass the data through push button to input/out field.
Regards,
Chandra.Hi all,
still I have same problem.
below is my program code.
REPORT ZCA_CALCULATOR_DEMO.
DATA INPUTI TYPE string.
Data num type string.
DATA: OK_CODE TYPE SY-UCOMM,
save_ok like ok_code.
call screen '100'.
INCLUDE ZCA_CALCULATOR_DEMO_STATUS_O03.
***INCLUDE ZCA_CALCULATOR_DEMO_STATUS_O03 .
*& Module STATUS_0100 OUTPUT
text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'GUI100'.
SET TITLEBAR 'ZCHAR'.
ENDMODULE. " STATUS_0100 OUTPUT
INCLUDE ZCA_CALCULATOR_DEMO_USER_COI01.
***INCLUDE ZCA_CALCULATOR_DEMO_USER_COI01 .
*& Module USER_COMMAND_0100 INPUT
text
MODULE USER_COMMAND_0100 INPUT.
save_ok = ok_code.
clear ok_code.
CASE save_ok.
WHEN 'one'.
num = '1'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'two'.
num = '2'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'three'.
num = '3'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'FOUR'.
num = '4'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'FIVE'.
num = '5'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'SIX'.
num = '6'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'SEVEN'.
num = '7'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'EIGHT'.
num = '8'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'NINE'.
num = '9'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
WHEN 'ZERO'.
num = '0'.
CALL FUNCTION 'ZCA_CAL_INPUT'
EXPORTING
NUM = num
IMPORTING
NUMBER = inputi.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
function zca_cal_input.
""Local Interface:
*" IMPORTING
*" REFERENCE(NUM) TYPE STRING
*" EXPORTING
*" REFERENCE(NUMBER) TYPE STRING
data: nextnum type string,
currnum type string.
loop at screen.
if screen-name = 'inputi'.
nextnum = num.
concatenate currnum nextnum into currnum.
number = currnum.
endif.
endloop.
endfunction.
this is my entire program code.
now I have mention OK_code type ok in screen painter attribute also.
but still haveing sample problem .......
can you pls some one will explain what need to be done in this case.
Regards,
Chandra V -
Problem when i try to modifi and save a query
Dear SDN Members
I have the follow error when I try to save a query (after to modified a Variable)
- The system tried to insert a data record, even though a data record with the same primary key already exists
- An exception with the type CX_SY_OPEN_SQL_DB occurred, but was neither handled locally, nor declared in a RAISING clause
- Program error in class SAPMSSY1 method: UNCAUGHT_EXCEPTION
My BW version is BI 7.0
I went to TCODE ST22, and the dumps is the follow
Runtime Errors UNCAUGHT_EXCEPTION
Exception CX_SY_NO_HANDLER
Date and Time 23.05.2007 12:03:10
Short text
An exception occurred that was not caught.
What happened?
The exception 'CX_SY_NO_HANDLER' was raised, but it was not caught anywhere
along
the call hierarchy.
Since exceptions represent error situations and this error was not
adequately responded to, the running ABAP program
'CL_RSBOLAP_BICS_SERVICES======CP' has to be
terminated.
What can you do?
Note down which actions and inputs caused the error.
To process the problem further, contact you SAP system
administrator.
Using Transaction ST22 for ABAP Dump Analysis, you can look
at and manage termination messages, and you can also
keep them for a long time.
Error analysis
An exception occurred which is explained in detail below.
The exception, which is assigned to class 'CX_SY_NO_HANDLER', was not caught
and
therefore caused a runtime error.
The reason for the exception is:
An exception with the type CX_SY_OPEN_SQL_DB occurred, but was neither handled
locally, nor declared in a RAISING clause
The occurrence of the exception is closely related to the occurrence of
a previous exception "CX_SY_OPEN_SQL_DB", which was raised in the program
"SAPLRZD1",
specifically in line 148 of the (include) program "LRZD1U40".
The cause of the exception was:
The system tried to insert a data record, even though a data record with the
same primary key already exists
How to correct the error
If the error occures in a non-modified SAP program, you may be able to
find an interim solution in an SAP Note.
If you have access to SAP Notes, carry out a search with the following
keywords:
"UNCAUGHT_EXCEPTION" "CX_SY_NO_HANDLER"
"CL_RSBOLAP_BICS_SERVICES======CP" or "CL_RSBOLAP_BICS_SERVICES======CM003"
"HANDLE_UNCAUGHT_EXCEPTION"
If you cannot solve the problem yourself and want to send an error
notification to SAP, include the following information:
1. The description of the current problem (short dump)
To save the description, choose "System->List->Save->Local File
(Unconverted)".
2. Corresponding system log
Display the system log by calling transaction SM21.
Restrict the time interval to 10 minutes before and five minutes
after the short dump. Then choose "System->List->Save->Local File
(Unconverted)".
3. If the problem occurs in a problem of your own or a modified SAP
program: The source code of the program
In the editor, choose "Utilities->More
Utilities->Upload/Download->Download".
4. Details about the conditions under which the error occurred or which
actions and input led to the error.
System environment
SAP-Release 700
Application server... "ecedc05bwh02"
Network address...... "192.168.186.10"
Operating system..... "Windows NT"
Release.............. "5.2"
Hardware type........ "8x Intel 801586"
Character length.... 8 Bits
Pointer length....... 32 Bits
Work process number.. 0
Shortdump setting.... "full"
Database server... "ECEDC05BWH02"
Database type..... "ORACLE"
Database name..... "BWD"
Database user ID.. "SAPBWP"
Char.set.... "Spanish_Spain.1252"
SAP kernel....... 700
created (date)... "Apr 2 2006 23:01:26"
create on........ "NT 5.0 2195 Service Pack 4 x86 MS VC++ 13.10"
Database version. "OCI_10103_SHARE "
Patch level. 52
Patch text.. " "
Database............. "ORACLE 9.2.0.., ORACLE 10.1.0.., ORACLE 10.2.0.."
SAP database version. 700
Operating system..... "Windows NT 5.0, Windows NT 5.1, Windows NT 5.2"
Memory consumption
Roll.... 8112
EM...... 8382048
Heap.... 0
Page.... 16384
MM Used. 5467512
MM Free. 2913088
User and Transaction
Client.............. 100
User................ "ATOS"
Language Key........ "S"
Transaction......... " "
Program............. "CL_RSBOLAP_BICS_SERVICES======CP"
Screen.............. "SAPMSSY1 3004"
Screen Line......... 2
Information on caller of Remote Function Call (RFC):
System.............. "########"
Database Release.... 710
Kernel Release...... 710
Connection Type..... "E" (2=R/2, 3=ABAP System, E=Ext., R=Reg. Ext.)
Call Type........... "synchron and non-transactional (emode 0, imode 0)"
Inbound TID.........." "
Inbound Queue Name..." "
Outbound TID........." "
Outbound Queue Name.." "
Client.............. "###"
User................ "############"
Transaction......... " "
Call Program........."BExQueryDesignerStarter"
Function Module..... "RSZ_X_COMPONENT_SET_NEW"
Call Destination.... "<unknown>"
Source Server....... "clalinetzky2"
Source IP Address... "10.139.56.93"
Additional information on RFC logon:
Trusted Relationship " "
Logon Return Code... 0
Trusted Return Code. 0
Note: For releases < 4.0, information on the RFC caller are often
only partially available.
Information on where terminated
Termination occurred in the ABAP program "CL_RSBOLAP_BICS_SERVICES======CP" -
in "HANDLE_UNCAUGHT_EXCEPTION".
The main program was "SAPMSSY1 ".
In the source code you have the termination point in line 28
of the (Include) program "CL_RSBOLAP_BICS_SERVICES======CM003".
Source Code Extract
Line
SourceCde
1
METHOD handle_uncaught_exception.
2
3
data:
4
l_r_program_error TYPE REF TO cx_rsbolap_program_error.
5
data: lBExDebug type rs_bool.
6
GET PARAMETER ID 'BEXDEBUG' FIELD lBExDebug.
7
8
if lBExDebug = rs_c_true or CL_RSTT_TRACE=>GET_TRACEMODE_CURRENT_TRACE( ) = rstt0_c_tracem
9
Break-point for debugging, e.g. during running a trace
10
break-point. "#EC NOBREAK
11
endif.
12
Subcall?
13
if P_RFC_CALL_DEPTH > 1.
14
Forward the exception
15
subtract 1 from P_RFC_CALL_DEPTH.
16
DATA: l_r_x TYPE REF TO cx_no_check.
17
TRY.
18
l_r_x ?= i_r_exception.
19
CATCH cx_root.
20
CLEAR l_r_x.
21
ENDTRY.
22
23
IF l_r_x IS INITIAL.
24
RAISE EXCEPTION TYPE cx_rsr_propagate_x
25
EXPORTING
26
previous = i_r_exception.
27
ELSE.
>>>>>
RAISE EXCEPTION l_r_x.
29
ENDIF.
30
endif.
31
32
All exceptions should have been caugth -> X-Message
33
r_max_message_type = 'A'.
34
35
Wrap the exception in a bolap program error exception
36
CREATE OBJECT l_r_program_error
37
EXPORTING
38
context = 'UNCAUGHT_EXCEPTION'
39
previous = i_r_exception.
40
41
Notify the message handler
42
CALL FUNCTION 'RRMS_EXCEPTION_HANDLING'
43
EXPORTING
44
I_MSGTY = 'A'
45
i_r_exception = l_r_program_error.
46
47
ENDMETHOD.
Contents of system fields
Name
Val.
SY-SUBRC
0
SY-INDEX
52
SY-TABIX
0
SY-DBCNT
0
SY-FDPOS
1
SY-LSIND
0
SY-PAGNO
0
SY-LINNO
1
SY-COLNO
1
SY-PFKEY
SY-UCOMM
SY-TITLE
Control CPI-C y RFC
SY-MSGTY
SY-MSGID
SY-MSGNO
000
SY-MSGV1
SY-MSGV2
SY-MSGV3
SY-MSGV4
SY-MODNO
0
SY-DATUM
20070523
SY-UZEIT
120310
SY-XPROG
SAPCNVE
SY-XFORM
CONVERSION_EXIT
Active Calls/Events
No. Ty. Program Include Line
Name
5 METHOD CL_RSBOLAP_BICS_SERVICES======CP CL_RSBOLAP_BICS_SERVICES======CM003 28
CL_RSBOLAP_BICS_SERVICES=>HANDLE_UNCAUGHT_EXCEPTION
4 FUNCTION SAPLRZX0 LRZX0U52 908
RSZ_X_COMPONENT_SET_NEW
3 FORM SAPLRZX0 LRZX0U52 1
RSZ_X_COMPONENT_SET_NEW
2 FORM SAPMSSY1 SAPMSSY1 85
REMOTE_FUNCTION_CALL
1 MODULE (PBO) SAPMSSY1 SAPMSSY1 30
%_RFC_START
Chosen variables
Name
Val.
No. 5 Ty. METHOD
Name CL_RSBOLAP_BICS_SERVICES=>HANDLE_UNCAUGHT_EXCEPTION
I_R_EXCEPTION
|
| 1000E000 |
| A0005000 |
| R_MAX_MESSAGE_TYPE |
| |
| 2 |
| 0 |
| L_R_X |
|
1000E000
A0005000
SYST-REPID
CL_RSBOLAP_BICS_SERVICES======CP
4455544445544455545544453333334522222222
3CF232FC10F2933F35269353DDDDDD3000000000
%_SPACE
2
0
%_DUMMY$$
2222
0000
%_ARCHIVE
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
RSJOBINFO
00000000000000 ####
222222222222222222222222222222223333333333333322222222222222222222222222222222220000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000
SY
4###########################################################################y#################
3000000000000000000000000000000000000000000000000000000000000000000000000000700000000000000000
400000000000800000000000A000000000000000000010001000000010000000000000000000900000000000000000
%_EXCP
F0000000
F0000000
SY-REPID
CL_RSBOLAP_BICS_SERVICES======CP
4455544445544455545544453333334522222222
3CF232FC10F2933F35269353DDDDDD3000000000
SPACE
2
0
L_R_PROGRAM_ERROR
|
| F0000000 |
| F0000000 |
| No. 4 Ty. FUNCTION |
| Name RSZ_X_COMPONENT_SET_NEW |
| I_COMPUID |
| F3IH9GRA1X9X7DRPIYFPE1QP7 |
| 4344345435353455454543553 |
| 6398972118987420996051107 |
| I_COPY_MODE |
| |
| 2 |
| 0 |
| I_LANGUAGE |
| S |
| 5 |
| 3 |
| I_NODE |
| 0000000000 |
| 3333333333 |
| 0000000000 |
| I_NO_TRANSPORT |
| |
| 2 |
| 0 |
| I_OBJVERS |
| A |
| 4 |
| 1 |
| I_QD_VERSION |
| 700 |
| 33322 |
| 70000 |
| I_ROLE |
| |
| 222222222222222222222222222222 |
| 000000000000000000000000000000 |
| E_GENUNIID |
| |
| 2222222222222222222222222 |
| 0000000000000000000000000 |
| E_SUBRC |
| 0 |
| 0000 |
| 0000 |
| C_T_CALC[] |
| Table IT_3889[5x158] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_CALC |
| Table reference: 56 |
| TABH+ 0(20) = 28DD0EA0E81518A00000000038000000310F0000 |
| TABH+ 20(20) = 050000009E000000FFFFFFFF04CB000058150000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x28DD0EA0 |
| ext1 = 0xE81518A0 |
| shmId = 0 (0x00000000) |
| id = 56 (0x38000000) |
| label = 3889 (0x310F0000) |
| fill = 5 (0x05000000) |
| leng = 158 (0x9E000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000087 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0x481839A0 |
| pgHook = 0x00000000 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2911 (0x5F0B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 16 (0x10000000) |
| lineAlloc = 16 (0x10000000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0xF0B70EA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0x40F60EA0 |
| delta_head = 0100000065000000E40000002B00000004CB0000901500009E0000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_CELL[] |
| Table IT_3890[0x76] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_CELL |
| Table reference: 52 |
| TABH+ 0(20) = 0000000028A51EA00000000034000000320F0000 |
| TABH+ 20(20) = 000000004C000000FFFFFFFF04CB0000C8150000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x00000000 |
| ext1 = 0x28A51EA0 |
| shmId = 0 (0x00000000) |
| id = 52 (0x34000000) |
| label = 3890 (0x320F0000) |
| fill = 0 (0x00000000) |
| leng = 76 (0x4C000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000089 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = Not allocated |
| pghook = Not allocated |
| idxPtr = Not allocated |
| shmTabhSet = Not allocated |
| id = Not allocated |
| refCount = Not allocated |
| tstRefCount = Not allocated |
| lineAdmin = Not allocated |
| lineAlloc = Not allocated |
| shmVersId = Not allocated |
| shmRefCount = Not allocated |
| shmIsReadOnly = Not allocated |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0x68DA0EA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0x38EA1DA0 |
| delta_head = 0100000066000000E60000002900000004CB0000001600004C0000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_COMPDIR[] |
| Table IT_3891[7x169] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_COMPDIR |
| Table reference: 54 |
| TABH+ 0(20) = D8D80EA048A51EA00000000036000000330F0000 |
| TABH+ 20(20) = 07000000A9000000FFFFFFFF04CB000098130000 |
| TABH+ 40( 8) = 10000000C1248501 |
| store = 0xD8D80EA0 |
| ext1 = 0x48A51EA0 |
| shmId = 0 (0x00000000) |
| id = 54 (0x36000000) |
| label = 3891 (0x330F0000) |
| fill = 7 (0x07000000) |
| leng = 169 (0xA9000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000079 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 1 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0x382239A0 |
| pgHook = 0x00000000 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2912 (0x600B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 16 (0x10000000) |
| lineAlloc = 16 (0x10000000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 2 (0x02000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0xB8C223A0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0x30B50EA0 |
| delta_head = 0100000067000000E70000002800000004CB0000D0130000A90000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_COMPIC[] |
| Table IT_3892[5x81] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_COMPIC |
| Table reference: 49 |
| TABH+ 0(20) = 80D90EA060D90EA00000000031000000340F0000 |
| TABH+ 20(20) = 0500000051000000FFFFFFFF04CB000008140000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x80D90EA0 |
| ext1 = 0x60D90EA0 |
| shmId = 0 (0x00000000) |
| id = 49 (0x31000000) |
| label = 3892 (0x340F0000) |
| fill = 5 (0x05000000) |
| leng = 81 (0x51000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000081 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0x409A1EA0 |
| pgHook = 0x00000000 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2913 (0x610B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 16 (0x10000000) |
| lineAlloc = 16 (0x10000000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0x18D90EA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0xD8B21EA0 |
| delta_head = 0100000068000000E50000002A00000004CB000040140000510000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_ELTATTR[] |
| Table IT_3893[0x124] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_ELTATTR |
| Table reference: 332 |
| TABH+ 0(20) = 0000000008DA0EA0000000004C010000350F0000 |
| TABH+ 20(20) = 000000007C000000FFFFFFFF04CB0000B8120000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x00000000 |
| ext1 = 0x08DA0EA0 |
| shmId = 0 (0x00000000) |
| id = 332 (0x4C010000) |
| label = 3893 (0x350F0000) |
| fill = 0 (0x00000000) |
| leng = 124 (0x7C000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000075 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = Not allocated |
| pghook = Not allocated |
| idxPtr = Not allocated |
| shmTabhSet = Not allocated |
| id = Not allocated |
| refCount = Not allocated |
| tstRefCount = Not allocated |
| lineAdmin = Not allocated |
| lineAlloc = Not allocated |
| shmVersId = Not allocated |
| shmRefCount = Not allocated |
| shmIsReadOnly = Not allocated |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0xC0D90EA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0x101520A0 |
| delta_head = 0100000069000000E30000002C00000004CB0000F01200007C0000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_ELTDIR[] |
| Table IT_3894[98x203] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_ELTDIR |
| Table reference: 339 |
| TABH+ 0(20) = 48A01EA0A89F1EA00000000053010000360F0000 |
| TABH+ 20(20) = 62000000CB000000FFFFFFFF04CB0000F8100000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x48A01EA0 |
| ext1 = 0xA89F1EA0 |
| shmId = 0 (0x00000000) |
| id = 339 (0x53010000) |
| label = 3894 (0x360F0000) |
| fill = 98 (0x62000000) |
| leng = 203 (0xCB000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000067 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0x883C39A0 |
| pgHook = 0x88A01EA0 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2915 (0x630B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 112 (0x70000000) |
| lineAlloc = 112 (0x70000000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0x609F1EA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0xC01620A0 |
| delta_head = 010000006A000000E80000002700000004CB000030110000CB0000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_ELTPRIO[] |
| Table IT_3895[77x150] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_ELTPRIO |
| Table reference: 341 |
| TABH+ 0(20) = 30A11EA010A01EA00000000055010000370F0000 |
| TABH+ 20(20) = 4D00000096000000FFFFFFFF04CB000048120000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x30A11EA0 |
| ext1 = 0x10A01EA0 |
| shmId = 0 (0x00000000) |
| id = 341 (0x55010000) |
| label = 3895 (0x370F0000) |
| fill = 77 (0x4D000000) |
| leng = 150 (0x96000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000073 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0x889539A0 |
| pgHook = 0x70A11EA0 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2917 (0x650B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 112 (0x70000000) |
| lineAlloc = 112 (0x70000000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0xC89F1EA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0xC01720A0 |
| delta_head = 010000006B000000E20000002D00000004CB000080120000960000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_ELTPROP[] |
| Table IT_3896[98x695] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_ELTPROP |
| Table reference: 344 |
| TABH+ 0(20) = 18A21EA0C8B139A00000000058010000380F0000 |
| TABH+ 20(20) = 62000000B7020000FFFFFFFF04CB0000D8110000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x18A21EA0 |
| ext1 = 0xC8B139A0 |
| shmId = 0 (0x00000000) |
| id = 344 (0x58010000) |
| label = 3896 (0x380F0000) |
| fill = 98 (0x62000000) |
| leng = 695 (0xB7020000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000071 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0x48FC39A0 |
| pgHook = 0x58A21EA0 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2919 (0x670B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 128 (0x80000000) |
| lineAlloc = 112 (0x70000000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0xB0A01EA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0x28DA0EA0 |
| delta_head = 010000006C000000E10000002E00000004CB000010120000B70200000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_ELTTXT[] |
| Table IT_3902[0x111] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_ELTTXT |
| Table reference: 349 |
| TABH+ 0(20) = 0000000068F73AA0000000005D0100003E0F0000 |
| TABH+ 20(20) = 000000006F000000FFFFFFFF04CB000018170000 |
| TABH+ 40( 8) = 10000000C1248001 |
| store = 0x00000000 |
| ext1 = 0x68F73AA0 |
| shmId = 0 (0x00000000) |
| id = 349 (0x5D010000) |
| label = 3902 (0x3E0F0000) |
| fill = 0 (0x00000000) |
| leng = 111 (0x6F000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000095 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 0 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = Not allocated |
| pghook = Not allocated |
| idxPtr = Not allocated |
| shmTabhSet = Not allocated |
| id = Not allocated |
| refCount = Not allocated |
| tstRefCount = Not allocated |
| lineAdmin = Not allocated |
| lineAlloc = Not allocated |
| shmVersId = Not allocated |
| shmRefCount = Not allocated |
| shmIsReadOnly = Not allocated |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0x20F73AA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0xE0F63AA0 |
| delta_head = 000000000000000000000000000000000000000000000000000000000000000000000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_ELTXREF[] |
| Table IT_3897[188x74] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_ELTXREF |
| Table reference: 340 |
| TABH+ 0(20) = 18A31EA0F8A01EA00000000054010000390F0000 |
| TABH+ 20(20) = BC0000004A000000FFFFFFFF04CB000028130000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x18A31EA0 |
| ext1 = 0xF8A01EA0 |
| shmId = 0 (0x00000000) |
| id = 340 (0x54010000) |
| label = 3897 (0x390F0000) |
| fill = 188 (0xBC000000) |
| leng = 74 (0x4A000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000077 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0xC8D53AA0 |
| pgHook = 0x58A31EA0 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2921 (0x690B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 432 (0xB0010000) |
| lineAlloc = 304 (0x30010000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0x98A11EA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0x801720A0 |
| delta_head = 010000006D000000EA0000002500000004CB0000601300004A0000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_RANGE[] |
| Table IT_3898[258x579] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_RANGE |
| Table reference: 345 |
| TABH+ 0(20) = B8F33AA088A31EA000000000590100003A0F0000 |
| TABH+ 20(20) = 0201000043020000FFFFFFFF04CB0000E8140000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0xB8F33AA0 |
| ext1 = 0x88A31EA0 |
| shmId = 0 (0x00000000) |
| id = 345 (0x59010000) |
| label = 3898 (0x3A0F0000) |
| fill = 258 (0x02010000) |
| leng = 579 (0x43020000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000085 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0x580140A0 |
| pgHook = 0xF8F33AA0 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2923 (0x6B0B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 512 (0x00020000) |
| lineAlloc = 272 (0x10010000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0xD82C39A0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0x98A21EA0 |
| delta_head = 010000006E000000E90000002600000004CB000020150000430200000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_SELECT[] |
| Table IT_3899[239x116] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_SELECT |
| Table reference: 346 |
| TABH+ 0(20) = 20F53AA0E0A11EA0000000005A0100003B0F0000 |
| TABH+ 20(20) = EF00000074000000FFFFFFFF04CB000078140000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0x20F53AA0 |
| ext1 = 0xE0A11EA0 |
| shmId = 0 (0x00000000) |
| id = 346 (0x5A010000) |
| label = 3899 (0x3B0F0000) |
| fill = 239 (0xEF000000) |
| leng = 116 (0x74000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000083 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0x202D39A0 |
| pgHook = 0x60F53AA0 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2925 (0x6D0B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 432 (0xB0010000) |
| lineAlloc = 304 (0x30010000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0x98F43AA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0xD8A21EA0 |
| delta_head = 010000006F000000CD0000000200000004CB0000B0140000740000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_UID_SERVER[] |
| Table IT_3900[2x50] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_UID_SERVER |
| Table reference: 347 |
| TABH+ 0(20) = 60F33AA0D8F53AA0000000005B0100003C0F0000 |
| TABH+ 20(20) = 0200000032000000FFFFFFFF04CB0000A8160000 |
| TABH+ 40( 8) = 02000000C1248101 |
| store = 0x60F33AA0 |
| ext1 = 0xD8F53AA0 |
| shmId = 0 (0x00000000) |
| id = 347 (0x5B010000) |
| label = 3900 (0x3C0F0000) |
| fill = 2 (0x02000000) |
| leng = 50 (0x32000000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000093 |
| occu = 2 (0x02000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0xE8F23AA0 |
| pgHook = 0x00000000 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2930 (0x720B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 2 (0x02000000) |
| lineAlloc = 2 (0x02000000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0x90F53AA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0xE0F43AA0 |
| delta_head = 0100000070000000C50000000A00000004CB0000E0160000320000000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| C_T_VAR[] |
| Table IT_3901[2x644] |
| FUNCTION-POOL=RZX0FORM=RSZ_X_COMPONENT_SET_NEWDATA=%_%_C_T_VAR |
| Table reference: 348 |
| TABH+ 0(20) = A0F63AA080F63AA0000000005C0100003D0F0000 |
| TABH+ 20(20) = 0200000084020000FFFFFFFF04CB000038160000 |
| TABH+ 40( 8) = 10000000C1248101 |
| store = 0xA0F63AA0 |
| ext1 = 0x80F63AA0 |
| shmId = 0 (0x00000000) |
| id = 348 (0x5C010000) |
| label = 3901 (0x3D0F0000) |
| fill = 2 (0x02000000) |
| leng = 644 (0x84020000) |
| loop = -1 (0xFFFFFFFF) |
| xtyp = TYPE#000091 |
| occu = 16 (0x10000000) |
| access = 1 (ItAccessStandard) |
| idxKind = 0 (ItIndexNone) |
| uniKind = 2 (ItUniqueNon) |
| keyKind = 1 (default) |
| cmpMode = 2 (cmpSingleMcmpR) |
| occu0 = 1 |
| groupCntl = 0 |
| rfc = 1 |
| unShareable = 0 |
| mightBeShared = 0 |
| sharedWithShmTab = 0 |
| isShmLockId = 0 |
| gcKind = 0 |
| isUsed = 1 |
| isCtfyAble = 1 |
| >>>>> Shareable Table Header Data <<<<< |
| tabi = 0xB8DD42A0 |
| pgHook = 0x00000000 |
| idxPtr = 0x00000000 |
| shmTabhSet = 0x00000000 |
| id = 2926 (0x6E0B0000) |
| refCount = 0 (0x00000000) |
| tstRefCount = 0 (0x00000000) |
| lineAdmin = 16 (0x10000000) |
| lineAlloc = 16 (0x10000000) |
| shmVersId = 0 (0x00000000) |
| shmRefCount = 1 (0x01000000) |
| >>>>> 1st level extension part <<<<< |
| regHook = 0x00000000 |
| collHook = 0x00000000 |
| ext2 = 0x38F63AA0 |
| >>>>> 2nd level extension part <<<<< |
| tabhBack = 0xF8F53AA0 |
| delta_head = 0100000071000000EC0000002300000004CB000070160000840200000100000005000000 |
| pb_func = 0x00000000 |
| pb_handle = 0x00000000 |
| %_DUMMY$$ |
| |
| 2222 |
| 0000 |
| SY-REPID |
| SAPLRZX0 |
| 5454555322222222222222222222222222222222 |
| 310C2A8000000000000000000000000000000000 |
| <L_TRACE_MAX_MESSAGE_TYPE> |
| ??? |
| ?????? |
| ?????? |
| SYST |
| 4###########################################################################y################# |
| 3000000000000000000000000000000000000000000000000000000000000000000000000000700000000000000000 |
| 400000000000800000000000A000000000000000000010001000000010000000000000000000900000000000000000 |
| G_CS_UID_LOOKUP_WRONG_DEFTP |
| ####ER9 171 |
| 1000453222222222222222222333 |
| C000529000000000000000000171 |
| G_CS_ELEMENT_LOCKED |
| ####ER9 113 |
| 0000453222222222222222222333 |
| D000529000000000000000000113 |
| L_R_FUNCTION_MODULE_EXCEPTION |
|
1000E000
A0005000
SPACE
2
0
L_TRACE_MAX_MESSAGE_TYPE
2
0
SY-ONCOM
X
5
8
%_SPACE
2
0
No. 3 Ty. FORM
Name RSZ_X_COMPONENT_SET_NEW
CL_RSTT_TRACE=>N_R_TRACEREF
F0000000
F0000000
RSBBS_C_TYPE-ABAP_QUERY
A
4
1
%_%_I_QD_VERSION
700
33322
70000
%_%_I_COMPUID
F3IH9GRA1X9X7DRPIYFPE1QP7
4344345435353455454543553
6398972118987420996051107
%_%_I_COPY_MODE
2
0
CL_GUI_TEXTEDIT=>ABAP_COMMENTLINE_IDENTIFIER
%_%_I_LANGUAGE
S
5
3
%_%_I_NODE
0000000000
3333333333
0000000000
%_%_I_NO_TRANSPORT
2
0
%_%_I_OBJVERS
A
4
1
%_%_I_ROLE
222222222222222222222222222222
000000000000000000000000000000
G_CS_NO_IOBJ_F4_AVAILABLE
####SR9 103
0000553222222222222222222333
8000329000000000000000000103
%_%_E_GENUNIID
2222222222222222222222222
0000000000000000000000000
CL_GUI_TEXTEDIT=>BOOL_INITIAL
%_%_E_SUBRC
0
0000
0000
%_%_C_T_CALC
Table IT_3889[5x158]
%_%_C_T_CELL
Table IT_3890[0x76]
%_%_C_T_COMPDIR
Table IT_3891[7x169]
%_%_C_T_COMPIC
Table IT_3892[5x81]
%_%_C_T_ELTATTR
Table IT_3893[0x124]
CL_BSP_MESSAGES=>CO_SEVERITY_ERROR
%_%_C_T_ELTDIR
Table IT_3894[98x203]
%_%_C_T_ELTPRIO
Table IT_3895[77x150]Hi Gaurav
I already locked for a OSS note, but i could not find the answer
Please, Could you tell me how you solve the problem?
Thanks
Ariel -
Hi Friends,
I have the following 2 problems in ALV report
1) Logo is not getting displayed in the report.
2) When i click on the Purchase order number in the report the interactive report is not working,i am not able to see report of First interactive level.
can you help it out friends.
Thanks and regards
Dinesh
REPORT YSDBALV1
tables: ekko , ekpo .
type-pools: slis .
Table for Display Header
data:i_header type slis_t_listheader with header line.
*Fieldcat Declaration
data:fieldcatalog type slis_T_fieldcat_alv WITH HEADER LINE.
*Table of Events
data:i_event type slis_t_event with header line .
For Layout
data:i_layout type slis_layout_alv .
data: text(30) .
*Internal Table Declaration
data: begin of it_final occurs 0 ,
ebeln like ekko-ebeln , "Purchasing Document No.
bedat like ekko-bedat , "Purchasing Document Date
matnr like ekpo-matnr , "Material No.
netwr like ekpo-netwr , "Net Order Value in PO Currancy
meins like ekpo-meins , "UOM
chk(1) ,
light(1) ,
change like ekpo-menge ,
end of it_final .
**select option Declaration
selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln .
selection-screen end of block block .
selection-screen begin of block block1 .
parameters:grid radiobutton group r .
parameters:list radiobutton group r .
selection-screen end of block block1 .
at selection screen
at selection-screen .
select single * from ekko where ebeln in s_ebeln .
if sy-subrc <> 0 .
message e000(8I) WITH 'No Data Exists' .
endif .
start-of-selection .
if grid = 'X' .
perform get_data .
perform event using i_event[] .
perform field using fieldcatalog[] .
perform layout using i_layout .
perform grid_display .
endif .
*& Form get_data
text
--> p1 text
<-- p2 text
form get_data .
*DATA Retrieval from tables
SELECT EKKO~EBELN
EKKO~BEDAT
EKPO~EBELP
EKPO~MATNR
EKPO~NETWR
EKPO~MEINS
EKPO~MENGE
EKPO~BPRME
INTO CORRESPONDING FIELDS OF table IT_FINAL
FROM EKKO INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN
WHERE EKKO~EBELN IN S_EBELN.
APPEND IT_FINAL.
endform. " get_data
*Getting the Event for Top of Page display.
*& Form event
text
-->P_I_event[] text
form event using p_i_event type slis_t_event.
clear p_i_event .
refresh p_i_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = p_i_event
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2
read table p_i_event with key name = slis_ev_top_of_page into i_event.
if sy-subrc = 0.
move 'TOP_OF_PAGE_PO' to i_event-form.
modify p_i_event from i_event index sy-tabix transporting form.
endif.
clear i_event.
endform. " event
*Display Top-of Page Details and Logo
form top_of_page_po .
clear i_header .
refresh i_header .
write sy-datum to text.
i_header-typ = 'H'.
i_header-info = 'PURCHASE OREDER DETAILS'.
append i_header.
*Logo Display
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_header[]
I_LOGO = 'ENJOYSAPLOGO'.
endform .
*Field Catalog Append
*& Form field
text
-->P_fieldCATALOG[] text
form field using p_fieldcatalog type slis_t_fieldcat_alv.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order No'.
fieldcatalog-col_pos = 1.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'BEDAT'.
fieldcatalog-seltext_m = 'PO Date'.
fieldcatalog-col_pos = 2.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material No'.
fieldcatalog-col_pos = 4.
fieldcatalog-outputlen = 20.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'NETWR'.
fieldcatalog-seltext_m = 'Net Value '.
fieldcatalog-col_pos = 5.
fieldcatalog-outputlen = 20.
fieldcatalog-do_sum = 'X'.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Units'.
fieldcatalog-col_pos = 6.
fieldcatalog-outputlen = 4.
append fieldcatalog .
clear fieldcatalog.
endform. " field
*& Form layout
text
form layout using p_i_layout TYPE SLIS_LAYOUT_ALV .
i_layout-zebra = 'X'.
i_layout-lights_fieldname = 'LIGHT'.
i_layout-lights_tabname = 'IT_FINAL'.
i_layout-box_fieldname = 'CHK'.
i_layout-box_tabname = 'IT_FINAL'.
i_layout-edit = ' '.
endform.
*To display Buttons in the MENU BAR if needed
FORM SET_PO_PF_STATUS USING P_I_EXTAB TYPE
SLIS_T_EXTAB.
SET PF-STATUS 'MENUPO'.
ENDFORM.
*Event for Interactive display of ALV report
form USER_COMMAND using r_ucomm like sy-ucomm
rs_selfield type slis_selfield .
if r_ucomm = '&IC1'.
READ TABLE IT_FINAL index rs_selfield-tabindex.
write:/ IT_FINAL-ebeln.
endif.
endform .
*Parameters of FM REUSE_ALV_GRID_DISPLAY
*& Form grid_display
text
--> p1 text
<-- p2 text
form grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PO_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IS_LAYOUT = I_LAYOUT
IT_FIELDCAT = FIELDCATALOG[]
IT_EVENTS = I_EVENT[]
TABLES
t_outtab = IT_FINAL.
endform. " grid_display*& Report YSDBALV1
REPORT YSDBALV1.
tables: ekko , ekpo .
type-pools: slis .
Table for Display Header
data:i_header type slis_t_listheader with header line.
*Fieldcat Declaration
data:fieldcatalog type slis_T_fieldcat_alv WITH HEADER LINE.
*Table of Events
data:i_event type slis_t_event with header line ,
wa_event type line of slis_t_event.
For Layout
data:i_layout type slis_layout_alv .
data: text(30) .
*Internal Table Declaration
data: begin of it_final occurs 0 ,
ebeln like ekko-ebeln , "Purchasing Document No.
bedat like ekko-bedat , "Purchasing Document Date
matnr like ekpo-matnr , "Material No.
netwr like ekpo-netwr , "Net Order Value in PO Currancy
meins like ekpo-meins , "UOM
chk(1) ,
light(1) ,
change like ekpo-menge ,
end of it_final .
**select option Declaration
selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln .
selection-screen end of block block .
selection-screen begin of block block1 .
parameters:grid radiobutton group r .
parameters:list radiobutton group r .
selection-screen end of block block1 .
at selection screen
at selection-screen .
select single * from ekko where ebeln in s_ebeln .
if sy-subrc <> 0 .
message e000(8I) WITH 'No Data Exists' .
endif .
start-of-selection .
if grid = 'X' .
perform get_data .
perform event using i_event[] .
perform field using fieldcatalog[] .
perform layout using i_layout .
perform grid_display .
endif .
*& Form get_data
text
--> p1 text
<-- p2 text
form get_data .
*DATA Retrieval from tables
SELECT EKKO~EBELN
EKKO~BEDAT
EKPO~EBELP
EKPO~MATNR
EKPO~NETWR
EKPO~MEINS
EKPO~MENGE
EKPO~BPRME
INTO CORRESPONDING FIELDS OF table IT_FINAL
FROM EKKO INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN
WHERE EKKO~EBELN IN S_EBELN.
APPEND IT_FINAL.
endform. " get_data
*Getting the Event for Top of Page display.
*& Form event
text
-->P_I_event[] text
form event using p_i_event type slis_t_event.
clear p_i_event .
refresh p_i_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = p_i_event.
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
read table p_i_event with key name = slis_ev_top_of_page into wa_event.
if sy-subrc = 0.
move 'TOP_OF_PAGE_PO' to i_event-form.
modify p_i_event from i_event index sy-tabix transporting form.
endif.
clear i_event.
endform. " event
*Display Top-of Page Details and Logo
form top_of_page_po .
clear i_header .
refresh i_header .
write sy-datum to text.
i_header-typ = 'H'.
i_header-info = 'PURCHASE OREDER DETAILS'.
append i_header.
*Logo Display
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_header[]
I_LOGO = 'ENJOYSAP_LOGO'.
endform .
*Field Catalog Append
*& Form field
text
-->P_fieldCATALOG[] text
form field using p_fieldcatalog type slis_t_fieldcat_alv.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order No'.
fieldcatalog-col_pos = 1.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'BEDAT'.
fieldcatalog-seltext_m = 'PO Date'.
fieldcatalog-col_pos = 2.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material No'.
fieldcatalog-col_pos = 4.
fieldcatalog-outputlen = 20.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'NETWR'.
fieldcatalog-seltext_m = 'Net Value '.
fieldcatalog-col_pos = 5.
fieldcatalog-outputlen = 20.
fieldcatalog-do_sum = 'X'.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Units'.
fieldcatalog-col_pos = 6.
fieldcatalog-outputlen = 4.
append fieldcatalog .
clear fieldcatalog.
endform. " field
*& Form layout
text
form layout using p_i_layout TYPE SLIS_LAYOUT_ALV .
i_layout-zebra = 'X'.
i_layout-lights_fieldname = 'LIGHT'.
i_layout-lights_tabname = 'IT_FINAL'.
i_layout-box_fieldname = 'CHK'.
i_layout-box_tabname = 'IT_FINAL'.
i_layout-edit = ' '.
endform.
*To display Buttons in the MENU BAR if needed
FORM SET_PO_PF_STATUS USING P_I_EXTAB TYPE
SLIS_T_EXTAB.
SET PF-STATUS 'MENUPO'.
ENDFORM.
*Event for Interactive display of ALV report
form USER_COMMAND using r_ucomm like sy-ucomm
rs_selfield type slis_selfield .
if r_ucomm = '&IC1'.
READ TABLE IT_FINAL index rs_selfield-tabindex.
set parameter id 'VL1' field it_final-ebeln.
call transaction 'ME23N'.
endif.
endform .
*Parameters of FM REUSE_ALV_GRID_DISPLAY
*& Form grid_display
text
--> p1 text
<-- p2 text
form grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PO_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IS_LAYOUT = I_LAYOUT
IT_FIELDCAT = FIELDCATALOG[]
IT_EVENTS = I_EVENT[]
TABLES
t_outtab = IT_FINAL.
endform. " grid_display
Regards,
Rusidar S. -
Table Control Text fields problem , help plz
Hello Anand , Rich , John & All
I hav problem with Text 3 fields( type c)(either L or R aligned ) , it is not geting updated , otherwise everything else is perfectly fine(scrolling,sorting etc ....) .
Fields giving problem are
1. Status(20) type c
2. Fdat type date
3. Remark(100) type c
All numerical fields are working fine .
<u><b> My yahoo messenger-id is [email protected]</b></u>
<b>Any light on this will be awarded plz .</b>
FLOW LOGIC
PROCESS BEFORE OUTPUT.
MODULE SET_STATUS.
LOOP AT ITAB
WITH CONTROL TCL1
CURSOR TCL1-CURRENT_LINE .
MODULE SET_LINE_COUNT .
ENDLOOP.
PROCESS AFTER INPUT.
MODULE UPD_OK_COD.
MODULE EXIT_COMAND AT EXIT-COMMAND.
MODULE SCROLL_SORT.
LOOP AT ITAB.
MODULE UPDATE_ITAB.
ENDLOOP.
MODULE UPDATE_TABLE.
REPORT ZSD_REP_ORDER_BANK_CHANGE NO STANDARD PAGE HEADING LINE-SIZE 255.
TABLES: VBAK,VBAP,VBRK,ZSD_TABL_ORDBANK,MARA,KONV.
CONTROLS: TCL1 TYPE TABLEVIEW USING SCREEN 0200.
DATA: ITAB LIKE ZSD_TABL_ORDBANK OCCURS 0 WITH HEADER LINE,
WA_ITAB LIKE ZSD_TABL_ORDBANK,
OK_CODE LIKE SY-UCOMM,
SAVE_OK_CODE LIKE SY-UCOMM,
UPD_OK_CODE LIKE SY-UCOMM,
ANSWER TYPE C,
I LIKE SY-LOOPC ,
J LIKE SY-LOOPC,
V_LINES LIKE SY-LOOPC,
LINE_COUNT LIKE SY-LOOPC,
STS TYPE N,
EMGRP LIKE MARA-EXTWG,
QTY LIKE ZSD_TABL_ORDBANK-QTY,
UPRICE LIKE ZSD_TABL_ORDBANK-UPRICE,
TOT LIKE ZSD_TABL_ORDBANK-TOT,
INO LIKE VBAP-POSNR,
COL TYPE CXTAB_COLUMN,
COPIED_ONCE ,
FLDNAME(100),HELP(100).
FIELD-SYMBOLS:
<FS_ITAB> LIKE LINE OF ITAB,
<FS_TCL1> LIKE LINE OF TCL1-COLS.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECT-OPTIONS: S_CCODE FOR ZSD_TABL_ORDBANK-CCODE
NO INTERVALS NO-EXTENSION OBLIGATORY,
S_SORG FOR ZSD_TABL_ORDBANK-SORG
NO INTERVALS NO-EXTENSION OBLIGATORY,
S_DCHAN FOR ZSD_TABL_ORDBANK-DISTCHAN,
S_DIV FOR ZSD_TABL_ORDBANK-DIV,
S_MATNO FOR ZSD_TABL_ORDBANK-MATNO,
S_CUSTNO FOR ZSD_TABL_ORDBANK-CUSTNO ,
S_QTNO FOR ZSD_TABL_ORDBANK-QTNO,
S_QTDAT FOR ZSD_TABL_ORDBANK-QTDAT,
S_QTVDAT FOR ZSD_TABL_ORDBANK-QTVALDAT,
S_SONO FOR ZSD_TABL_ORDBANK-SONO.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN.
SELECT * FROM ZSD_TABL_ORDBANK
INTO TABLE ITAB
WHERE CCODE IN S_CCODE
AND SORG IN S_SORG
AND DISTCHAN IN S_DCHAN
AND DIV IN S_DIV
AND MATNO IN S_MATNO
AND CUSTNO IN S_CUSTNO
AND QTNO IN S_QTNO
AND QTDAT IN S_QTDAT
AND QTVALDAT IN S_QTVDAT
AND SONO IN S_SONO .
IF SY-SUBRC EQ 0.
REFRESH ITAB.
CLEAR COPIED_ONCE.
CALL SCREEN 0200.
ELSE.
MESSAGE E012(ZQOTBANK) .
ENDIF.
*& Module SET_STATUS OUTPUT
* text
MODULE SET_STATUS OUTPUT.
SET PF-STATUS '0200'.
SET TITLEBAR '0200'.
IF COPIED_ONCE IS INITIAL.
SELECT * FROM ZSD_TABL_ORDBANK
INTO TABLE ITAB
WHERE CCODE IN S_CCODE
AND SORG IN S_SORG
AND DISTCHAN IN S_DCHAN
AND DIV IN S_DIV
AND MATNO IN S_MATNO
AND CUSTNO IN S_CUSTNO
AND QTNO IN S_QTNO
AND QTDAT IN S_QTDAT
AND QTVALDAT IN S_QTVDAT
AND SONO IN S_SONO .
IF SY-SUBRC EQ 0.
DESCRIBE TABLE ITAB LINES V_LINES.
TCL1-LINES = V_LINES.
ENDIF.
COPIED_ONCE = 'X'.
REFRESH CONTROL 'TCL1' FROM SCREEN '0200'.
ENDIF.
LOOP AT ITAB.
QTY = ITAB-QTY.
UPRICE = ITAB-UPRICE.
TOT = QTY * UPRICE .
ITAB-TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-CGL_QTY.
UPRICE = ITAB-CGL_UPRICE.
TOT = QTY * UPRICE .
ITAB-CGL_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-BHEL_QTY.
UPRICE = ITAB-BHEL_UPRICE.
TOT = QTY * UPRICE .
ITAB-BHEL_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-ALSTOM_QTY.
UPRICE = ITAB-ALSTOM_UPRICE.
TOT = QTY * UPRICE .
ITAB-ALSTOM_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-SIEMENS_QTY.
UPRICE = ITAB-SIEMENS_UPRICE.
TOT = QTY * UPRICE .
ITAB-SIEMENS_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-TELK_QTY.
UPRICE = ITAB-TELK_UPRICE.
TOT = QTY * UPRICE .
ITAB-TELK_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-OTH_QTY.
UPRICE = ITAB-OTH_UPRICE.
TOT = QTY * UPRICE .
ITAB-OTH_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
MODIFY ITAB.
ENDLOOP.
ENDMODULE. " SET_STATUS OUTPUT
*& Module SET_LINE_COUNT INPUT
* text
MODULE SET_LINE_COUNT OUTPUT.
LINE_COUNT = SY-LOOPC.
ENDMODULE. " SET_LINE_COUNT INPUT
*& Module UPD_OK_CODE INPUT
* text
MODULE UPD_OK_COD INPUT.
IF OK_CODE = 'SAVE'.
UPD_OK_CODE = OK_CODE.
* CLEAR OK_CODE.
ENDIF.
ENDMODULE. " UPD_OK_CODE INPUT
*& Module EXIT_COMAND INPUT
* text
MODULE EXIT_COMAND INPUT.
SAVE_OK_CODE = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK_CODE.
WHEN 'BACK'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Order Bank Entry'
TEXT_QUESTION = 'Do you want to Go BacK ?'
TEXT_BUTTON_1 = 'Yes'
TEXT_BUTTON_2 = 'No'
DEFAULT_BUTTON = '2'
IMPORTING
ANSWER = ANSWER.
IF ANSWER = '1'.
LEAVE TO SCREEN 0.
ELSE.
ENDIF.
WHEN '%EX'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Order Bank Entry'
TEXT_QUESTION = 'Do you want to Exit ?'
TEXT_BUTTON_1 = 'Yes'
TEXT_BUTTON_2 = 'No'
DEFAULT_BUTTON = '2'
IMPORTING
ANSWER = ANSWER.
IF ANSWER = '1'.
LEAVE TO SCREEN 0.
ELSE.
ENDIF.
ENDCASE.
ENDMODULE. " EXIT_COMAND INPUT
*& Module UPDATE_MOD INPUT
* text
MODULE UPDATE_ITAB INPUT.
MODIFY TABLE ITAB FROM ITAB.
ENDMODULE. " UPDATE_MOD INPUT
*& Module SCROLL INPUT
* text
MODULE SCROLL_SORT INPUT.
SAVE_OK_CODE = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK_CODE.
WHEN 'P--'.
TCL1-TOP_LINE = 1.
WHEN 'P-'.
TCL1-TOP_LINE = TCL1-TOP_LINE - LINE_COUNT.
IF TCL1-TOP_LINE LE 0.
TCL1-TOP_LINE = 1.
ENDIF.
WHEN 'P+'.
I = TCL1-TOP_LINE + LINE_COUNT.
J = TCL1-LINES - LINE_COUNT + 1.
IF J LE 0.
J = 1.
ENDIF.
IF I LE J.
TCL1-TOP_LINE = I.
ELSE.
TCL1-TOP_LINE = J.
ENDIF.
WHEN 'P++'.
TCL1-TOP_LINE = TCL1-LINES - LINE_COUNT + 1.
IF TCL1-TOP_LINE LE 0.
TCL1-TOP_LINE = 1.
ENDIF.
WHEN 'SORTUP'.
READ TABLE TCL1-COLS ASSIGNING <FS_TCL1> WITH KEY SELECTED = 'X'.
IF SY-SUBRC = 0.
SPLIT <FS_TCL1>-SCREEN-NAME AT '-' INTO HELP FLDNAME.
SORT ITAB ASCENDING BY (FLDNAME).
ENDIF.
WHEN 'SORTDN'.
READ TABLE TCL1-COLS ASSIGNING <FS_TCL1> WITH KEY SELECTED = 'X'.
IF SY-SUBRC = 0.
SPLIT <FS_TCL1>-SCREEN-NAME AT '-' INTO HELP FLDNAME.
SORT ITAB DESCENDING BY (FLDNAME).
ENDIF.
ENDCASE.
ENDMODULE. " USER_COMMAND INPUT
*& Module TABL_UPD INPUT
* text
MODULE UPDATE_TABLE INPUT.
CASE UPD_OK_CODE.
WHEN 'SAVE'.
UPDATE ZSD_TABL_ORDBANK FROM TABLE ITAB .
IF SY-SUBRC EQ 0.
MESSAGE I002(ZQOTBANK) .
CLEAR UPD_OK_CODE.
ELSE.
MESSAGE E003(ZQOTBANK) .
ENDIF.
ENDCASE.
ENDMODULE. " TABL_UPD INPUT
Thnx
moni<b></b><b></b>
Message was edited by: md monirujjaman
Message was edited by: md monirujjamanHi Moni,
The problem as I had replied in your earlier post is with the MODIFY statement.
MODIFY TABLE ITAB FROM ITAB. This statement will do the modifications based on the table key. When you have character fields as editable, then some problems are to be anticipated. In such a scenario, you must update the internal table based on the <i>index</i>, rather than based on <i>key</i>.
So consider using
MODIFY ITAB FROM ITAB INDEX TCL-CURRENT_LINE.
Where TCL is the name of the Table Control. Also observe the difference in syntax here, don't use the TABLE keyword for the MODIFY statement.
Please try it out and let me know.
Regards,
Anand Mandalika. -
Table control small Issues , Plz help in tracing the problem
Hello John , Rich , Anand & all
My sorting is working fine but thr is small problem
1. user has habit of pressing enter after everything,
after entering the values in editable fields in Table control , it doesnt retain the entered values but if he presses save button immediately after entering values , it saves .
how 2 hold the values after pressing enter button
2. Now with this code , it saves the table control content but doesnt display the latest values immediately on the screen .
3. User doesnt want to press SAVE button , he wants save the Table control content by pressing ENTER button,
What is the OK_CODE value for Enter Button plz ?
Plllllzzzzz help me for god sake ASAP.
<u><b>Everyone whoever make an attempt is going to get 10 pnts.</b></u>
==========================
FLOW Logic
PROCESS BEFORE OUTPUT.
MODULE SET_STATUS.
LOOP AT ITAB
WITH CONTROL TCL1
CURSOR TCL1-CURRENT_LINE .
MODULE SET_LINE_COUNT .
ENDLOOP.
PROCESS AFTER INPUT.
MODULE GET_OK_CODE .
MODULE EXIT_COMAND AT EXIT-COMMAND.
MODULE SCROLL_SORT.
LOOP AT ITAB.
MODULE UPDATE_MOD.
ENDLOOP.
==========================
REPORT ZSD_REP_ORDER_BANK_CHANGE NO STANDARD PAGE HEADING LINE-SIZE 255.
TABLES: VBAK,VBAP,VBRK,ZSD_TABL_ORDBANK,MARA,KONV.
CONTROLS: TCL1 TYPE TABLEVIEW USING SCREEN 0200.
DATA: ITAB LIKE ZSD_TABL_ORDBANK OCCURS 0 WITH HEADER LINE,
WA_ITAB LIKE ZSD_TABL_ORDBANK,
OK_CODE LIKE SY-UCOMM,
SAVE_OK_CODE LIKE SY-UCOMM,
UPD_OK_CODE LIKE SY-UCOMM,
ANSWER TYPE C,
I LIKE SY-LOOPC ,
J LIKE SY-LOOPC,
V_LINES LIKE SY-LOOPC,
LINE_COUNT LIKE SY-LOOPC,
STS TYPE N,
EMGRP LIKE MARA-EXTWG,
QTY LIKE ZSD_TABL_ORDBANK-QTY,
UPRICE LIKE ZSD_TABL_ORDBANK-UPRICE,
TOT LIKE ZSD_TABL_ORDBANK-TOT,
INO LIKE VBAP-POSNR,
COL TYPE CXTAB_COLUMN,
COPIED_ONCE ,
FLDNAME(100),HELP(100).
FIELD-SYMBOLS:
<FS_ITAB> LIKE LINE OF ITAB,
<FS_TCL1> LIKE LINE OF TCL1-COLS.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECT-OPTIONS: S_CCODE FOR ZSD_TABL_ORDBANK-CCODE
NO INTERVALS NO-EXTENSION OBLIGATORY,
S_SORG FOR ZSD_TABL_ORDBANK-SORG
NO INTERVALS NO-EXTENSION OBLIGATORY,
S_DCHAN FOR ZSD_TABL_ORDBANK-DISTCHAN,
S_DIV FOR ZSD_TABL_ORDBANK-DIV,
S_MATNO FOR ZSD_TABL_ORDBANK-MATNO,
S_CUSTNO FOR ZSD_TABL_ORDBANK-CUSTNO ,
S_QTNO FOR ZSD_TABL_ORDBANK-QTNO,
S_QTDAT FOR ZSD_TABL_ORDBANK-QTDAT,
S_QTVDAT FOR ZSD_TABL_ORDBANK-QTVALDAT,
S_SONO FOR ZSD_TABL_ORDBANK-SONO.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN.
SELECT * FROM ZSD_TABL_ORDBANK
INTO TABLE ITAB
WHERE CCODE IN S_CCODE
AND SORG IN S_SORG
AND DISTCHAN IN S_DCHAN
AND DIV IN S_DIV
AND MATNO IN S_MATNO
AND CUSTNO IN S_CUSTNO
AND QTNO IN S_QTNO
AND QTDAT IN S_QTDAT
AND QTVALDAT IN S_QTVDAT
AND SONO IN S_SONO .
IF SY-SUBRC EQ 0.
REFRESH ITAB.
CLEAR COPIED_ONCE.
CALL SCREEN 0200.
ELSE.
MESSAGE E012(ZQOTBANK) .
ENDIF.
*& Module SET_STATUS OUTPUT
text
MODULE SET_STATUS OUTPUT.
SET PF-STATUS '0200'.
SET TITLEBAR '0200'.
IF COPIED_ONCE IS INITIAL.
SELECT * FROM ZSD_TABL_ORDBANK
INTO TABLE ITAB
WHERE CCODE IN S_CCODE
AND SORG IN S_SORG
AND DISTCHAN IN S_DCHAN
AND DIV IN S_DIV
AND MATNO IN S_MATNO
AND CUSTNO IN S_CUSTNO
AND QTNO IN S_QTNO
AND QTDAT IN S_QTDAT
AND QTVALDAT IN S_QTVDAT
AND SONO IN S_SONO .
IF SY-SUBRC EQ 0.
DESCRIBE TABLE ITAB LINES V_LINES.
TCL1-LINES = V_LINES.
ENDIF.
COPIED_ONCE = 'X'.
REFRESH CONTROL 'TCL1' FROM SCREEN '0200'.
ENDIF.
LOOP AT ITAB.
QTY = ITAB-QTY.
UPRICE = ITAB-UPRICE.
TOT = QTY * UPRICE .
ITAB-TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-CGL_QTY.
UPRICE = ITAB-CGL_UPRICE.
TOT = QTY * UPRICE .
ITAB-CGL_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-BHEL_QTY.
UPRICE = ITAB-BHEL_UPRICE.
TOT = QTY * UPRICE .
ITAB-BHEL_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-ALSTOM_QTY.
UPRICE = ITAB-ALSTOM_UPRICE.
TOT = QTY * UPRICE .
ITAB-ALSTOM_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-SIEMENS_QTY.
UPRICE = ITAB-SIEMENS_UPRICE.
TOT = QTY * UPRICE .
ITAB-SIEMENS_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-TELK_QTY.
UPRICE = ITAB-TELK_UPRICE.
TOT = QTY * UPRICE .
ITAB-TELK_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ITAB-OTH_QTY.
UPRICE = ITAB-OTH_UPRICE.
TOT = QTY * UPRICE .
ITAB-OTH_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
MODIFY ITAB.
ENDLOOP.
ENDMODULE. " SET_STATUS OUTPUT
*& Module SET_LINE_COUNT INPUT
text
MODULE SET_LINE_COUNT OUTPUT.
LINE_COUNT = SY-LOOPC.
ENDMODULE. " SET_LINE_COUNT INPUT
*& Module GET_OK_CODE INPUT
text
MODULE GET_OK_CODE INPUT.
IF OK_CODE = 'SAVE'.
UPD_OK_CODE = OK_CODE.
ENDIF.
ENDMODULE. " GET_OK_CODE INPUT
*& Module EXIT_COMAND INPUT
text
MODULE EXIT_COMAND INPUT.
SAVE_OK_CODE = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK_CODE.
WHEN 'BACK'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Order Bank Entry'
TEXT_QUESTION = 'Do you want to Go BacK ?'
TEXT_BUTTON_1 = 'Yes'
TEXT_BUTTON_2 = 'No'
DEFAULT_BUTTON = '2'
IMPORTING
ANSWER = ANSWER.
IF ANSWER = '1'.
LEAVE TO SCREEN 0.
ELSE.
ENDIF.
WHEN '%EX'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Order Bank Entry'
TEXT_QUESTION = 'Do you want to Exit ?'
TEXT_BUTTON_1 = 'Yes'
TEXT_BUTTON_2 = 'No'
DEFAULT_BUTTON = '2'
IMPORTING
ANSWER = ANSWER.
IF ANSWER = '1'.
LEAVE TO SCREEN 0.
ELSE.
ENDIF.
ENDCASE.
ENDMODULE. " EXIT_COMAND INPUT
*& Module SCROLL INPUT
text
MODULE SCROLL_SORT INPUT.
SAVE_OK_CODE = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK_CODE.
WHEN 'P--'.
TCL1-TOP_LINE = 1.
WHEN 'P-'.
TCL1-TOP_LINE = TCL1-TOP_LINE - LINE_COUNT.
IF TCL1-TOP_LINE LE 0.
TCL1-TOP_LINE = 1.
ENDIF.
WHEN 'P+'.
I = TCL1-TOP_LINE + LINE_COUNT.
J = TCL1-LINES - LINE_COUNT + 1.
IF J LE 0.
J = 1.
ENDIF.
IF I LE J.
TCL1-TOP_LINE = I.
ELSE.
TCL1-TOP_LINE = J.
ENDIF.
WHEN 'P++'.
TCL1-TOP_LINE = TCL1-LINES - LINE_COUNT + 1.
IF TCL1-TOP_LINE LE 0.
TCL1-TOP_LINE = 1.
ENDIF.
WHEN 'SORTUP'.
READ TABLE TCL1-COLS ASSIGNING <FS_TCL1> WITH KEY SELECTED = 'X'.
IF SY-SUBRC = 0.
SPLIT <FS_TCL1>-SCREEN-NAME AT '-' INTO HELP FLDNAME.
SORT ITAB ASCENDING BY (FLDNAME).
ENDIF.
WHEN 'SORTDN'.
READ TABLE TCL1-COLS ASSIGNING <FS_TCL1> WITH KEY SELECTED = 'X'.
IF SY-SUBRC = 0.
SPLIT <FS_TCL1>-SCREEN-NAME AT '-' INTO HELP FLDNAME.
SORT ITAB DESCENDING BY (FLDNAME).
ENDIF.
ENDCASE.
ENDMODULE. " USER_COMMAND INPUT
*& Module UPDATE_MOD INPUT
text
MODULE UPDATE_MOD INPUT.
CASE UPD_OK_CODE.
WHEN 'SAVE'.
UPDATE ZSD_TABL_ORDBANK FROM ITAB .
STS = SY-SUBRC .
IF STS NE 0.
MESSAGE E003(ZQOTBANK) .
ENDIF.
ENDCASE.
ENDMODULE. " UPDATE_MOD INPUT
Thnx
Moni
Message was edited by: md monirujjamanPROCESS BEFORE OUTPUT.
MODULE SET_STATUS.
LOOP AT ITAB
WITH CONTROL TCL1
CURSOR TCL1-CURRENT_LINE .
MODULE SET_LINE_COUNT .
ENDLOOP.
PROCESS AFTER INPUT.
MODULE GET_OK_CODE .
MODULE EXIT_COMAND AT EXIT-COMMAND.
MODULE SCROLL_SORT.
LOOP AT ITAB.
MODULE UPDATE_ITAB.
ENDLOOP.
MODULE UPDATE_TABLE.
changed modules are ......
*& Module UPDATE_MOD INPUT
text
MODULE UPDATE_ITAB INPUT.
MODIFY TABLE ITAB FROM ITAB.
ENDMODULE. " UPDATE_MOD INPUT
*& Module TABL_UPD INPUT
text
MODULE UPDATE_TABLE INPUT.
CASE UPD_OK_CODE.
WHEN 'SAVE'.
UPDATE ZSD_TABL_ORDBANK FROM TABLE ITAB .
IF SY-SUBRC NE 0.
MESSAGE E003(ZQOTBANK) .
ENDIF.
ENDCASE.
ENDMODULE. " TABL_UPD INPUT
now i m able 2 get the latest edited values from user immediately i press enter button and getting saved by pressing SAVE button but further problems are, i have one dropdown button for status 1 field , and 1 date field are not getting updated .
So further help plz. -
Problem displaying drill down STANDARD ALV for a particular record after pressing back button
I have a simple interactive ALV grid report. NOT 'OO'. It display correctly on initial execution. AT the moment, 6 records. I want it to work such that if i click record '1', a drill-down version of that ALV with only that one record clicked is displayed. This currently occurs correctly. The problem arises when i click the back button and want to click on a new record, say in the 2nd row..this new 2nd row record is not displayed. The first one is displayed again. I tried clearing and fiddling around but then the last record is displayed. I have used the 'ID' field as a 'hotspot' getting picked up by sy-tabindex. Maybe it could be that i shouldn't loop and use a work area e.g in my select statement. i'm not so sure i've looked around, and tried a few things. I can't get it right yet. My code is below:
*& Report ZALV
REPORT ZALV.
TABLES: ZCONTACT.
TYPE-POOLS: slis. "slis contains all of the ALV data types.
TYPES: BEGIN OF ty_zcontact.
INCLUDE STRUCTURE zcontact.
TYPES: icon TYPE char4, "field holding traffic light value- adding a column to internal table to hold the traffic light
END OF ty_zcontact.
DATA: "fieldcatALOG TYPE slis_t_fieldcat_alv WITH HEADER LINE,
it_zcontact TYPE TABLE OF ty_zcontact,"declares an internal table of type ZCONTACT
wa_zcontact TYPE ty_zcontact,
gd_layout TYPE slis_layout_alv,
gd_repid LIKE sy-repid,
g_variant TYPE disvariant,
gx_variant TYPE disvariant,
g_save TYPE c VALUE 'X',
it_fieldcat TYPE slis_t_fieldcat_alv,"declares field catalog table of line type alv
wa_fieldcat TYPE slis_fieldcat_alv, "declares the work area of the field catalog
it_list_top_of_page TYPE slis_t_listheader.
DATA: it_fieldcat1 TYPE slis_t_fieldcat_alv,
wa_fieldcat1 TYPE slis_fieldcat_alv.
DATA: V_FIELD(30) TYPE C,
V_VALUE(10) TYPE C.
"izontact TYPE TABLE OF zcontact.
"i_logo TYPE OT.
"ls_layout TYPE slis_layout_alv.
**Selection Screen details
*SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
*PARAMETERS: variant like disvariant-variant.
*SELECTION-SCREEN END OF BLOCK B1.
SELECT-OPTIONS:
age FOR wa_zcontact-age,
lastnme FOR wa_zcontact-lastname.
**Getting default variant
* AT SELECTION-SCREEN ON age.
* SELECT SINGLE age FROM zcontact INTO wa_zcontact-age WHERE age = age.
* IF sy-subrc NE 0.
* MESSAGE:'That age does not exist mate, Please enter another age' TYPE 'E'.
* ENDIF.
INITIALIZATION.
*gx_variant-report = sy-repid.
*CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
*EXPORTING
* I_SAVE = G_SAVE
* CHANGING
* CS_VARIANT = GX_VARIANT
* EXCEPTIONS
* NOT_FOUND = 2.
*IF SY-SUBRC = 0.
* VARIANT = GX_VARIANT-VARIANT.
* ENDIF.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_FIELDCATALOG.
PERFORM DISPLAY_ALV_REPORT.
PERFORM top_of_page.
"g_repid = sy-repid.
*Fetch data from the database
FORM DATA_RETRIEVAL.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE age IN age AND lastname IN lastnme.
"assigning traffic light colour to each row based on a condition
* IF wa_zcontact-age GE 65.
* wa_zcontact-icon = 1. "Red Traffic Light
* ELSEIF wa_zcontact-age BETWEEN 40 AND 64.
* wa_zcontact-icon = 2. "Yellow traffic light
* ELSE.
* wa_zcontact-icon = 3." Green traffic light
* ENDIF.
* MODIFY it_zcontact FROM wa_zcontact TRANSPORTING icon.
* CLEAR wa_zcontact.
ENDFORM.
FORM BUILD_FIELDCATALOG.
*Build field catalog
wa_fieldcat-fieldname = 'ID'.
"wa_fieldcat-seltext_m = 'The Contact ID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LASTNAME'.
"wa_fieldcat-seltext_m = 'Contact Lastname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FIRSTNAME'.
"wa_fieldcat-seltext_m = 'Contact Firstname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'DOB'.
"wa_fieldcat-seltext_m = 'Date Of Birth'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'TEL'.
"wa_fieldcat-seltext_m = 'Telephone Number'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ADDRESS'.
"wa_fieldcat-seltext_m = 'The Address'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'OCCUPATION'.
"wa_fieldcat-seltext_m = 'The Occupation'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'WEIGHT'.
"wa_fieldcat-seltext_m = 'WEIGHT'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AGE'.
"wa_fieldcat-seltext_m = 'AGE OF THE CONTACT'.
wa_fieldcat-do_sum = 'X'. "Display column total
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'SALARY'.
"wa_fieldcat-seltext_m = 'SALARY'.
wa_fieldcat-do_sum = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
gd_layout-lights_fieldname = 'ICON'.
ENDFORM.
FORM DISPLAY_ALV_REPORT.
gd_repid = sy-repid.
*Pass data and field catalog to ALV function module to display ALV list
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = it_fieldcat
i_callback_program = gd_repid
i_callback_top_of_page = 'TOP_OF_PAGE'
i_callback_user_command = 'USER_COMMAND'
i_structure_name = 'ZCONTACT'
i_save = 'X'
is_variant = g_variant
is_layout = gd_layout
TABLES
t_outtab = it_zcontact
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM.
FORM top_of_page.
*ALV Header declarations
DATA: it_listheader TYPE slis_t_listheader,
wa_listheader TYPE slis_listheader,
t_line like wa_listheader-info,
ld_lines TYPE I,
ld_linesc(10) TYPE C.
wa_listheader-typ = 'H'.
wa_listheader-info = 'Contact Details'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = sy-repid.
wa_listheader-key = 'Program Name:'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = sy-uname.
wa_listheader-key = 'User Name:'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Run Date :'.
CONCATENATE sy-datum+6(2)
sy-datum+4(2)
sy-datum(4)
INTO wa_listheader-info
SEPARATED BY '/'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Time :'.
CONCATENATE sy-uzeit(2)
sy-uzeit+2(2)
sy-uzeit+4(2)
INTO wa_listheader-info
SEPARATED BY ':'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_listheader
i_logo = 'KLOGO'.
ENDFORM. "top_of_page
*& Form sub_user_command
FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM
P_SELTAB TYPE SLIS_SELFIELD.
CASE P_UCOMM.
WHEN '&IC1'.
CASE p_seltab-fieldname.
WHEN 'ID'.
READ TABLE it_zcontact INTO wa_zcontact INDEX p_seltab-tabindex.
PERFORM DATA_RETRIEVAL1.
PERFORM BUILD_FIELDCATALOG1.
PERFORM SECOND_GRID.
ENDCASE.
ENDCASE.
ENDFORM. "
FORM DATA_RETRIEVAL1.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE id EQ wa_zcontact-id.
ENDFORM.
FORM BUILD_FIELDCATALOG1.
*Build field catalog
CLEAR: wa_fieldcat, it_fieldcat.
wa_fieldcat-fieldname = 'ID'.
"wa_fieldcat-seltext_m = 'The Contact ID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LASTNAME'.
"wa_fieldcat-seltext_m = 'Contact Lastname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FIRSTNAME'.
"wa_fieldcat-seltext_m = 'Contact Firstname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM.
FORM SECOND_GRID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IT_FIELDCAT = IT_FIELDCAT
i_structure_name = 'ZCONTACT'
i_callback_user_command = 'USER_COMMAND'
TABLES
T_OUTTAB = IT_ZCONTACT.
ENDFORM.Hi Ten Mariga,
I wonder why the second select Query is needed at all instead you can use
---> Not Needed
FORM DATA_RETRIEVAL1.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE id EQ wa_zcontact-id.
ENDFORM.
----> Instead you can do
READ TABLE it_zcontact INTO wa_zcontact INDEX p_seltab-tabindex.
Append wa_zcontact to Second_table.
And you can use the Second_table to display the second ALV. The second Select Query will affect the performance too.
Cheers,
Krishnakumar B. -
hi,
i have problem in ALV.
my requirement is in a ALV report if i double click on a row it has to take me to another transaction ( say for eg vf03).
how should i do it.
john.hi
good
try this report
MESSAGE-ID ZZ_9838 .
TYPE-POOLS: SLIS.
*type declaration for values from ekko
TYPES: BEGIN OF I_EKKO,
EBELN LIKE EKKO-EBELN,
AEDAT LIKE EKKO-AEDAT,
BUKRS LIKE EKKO-BUKRS,
BSART LIKE EKKO-BSART,
LIFNR LIKE EKKO-LIFNR,
END OF I_EKKO.
DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,
WA_EKKO TYPE I_EKKO.
*type declaration for values from ekpo
TYPES: BEGIN OF I_EKPO,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
MENGE LIKE EKPO-MENGE,
MEINS LIKE EKPO-MEINS,
NETPR LIKE EKPO-NETPR,
END OF I_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,
WA_EKPO TYPE I_EKPO .
*variable for Report ID
DATA: V_REPID LIKE SY-REPID .
*declaration for fieldcatalog
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.
declaration for events table where user comand or set PF status will
be defined
DATA: V_EVENTS TYPE SLIS_T_EVENT,
WA_EVENT TYPE SLIS_ALV_EVENT.
declartion for layout
DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
declaration for variant(type of display we want)
DATA: I_VARIANT TYPE DISVARIANT,
I_VARIANT1 TYPE DISVARIANT,
I_SAVE(1) TYPE C.
*PARAMETERS : p_var TYPE disvariant-variant.
*Title displayed when the alv list is displayed
DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.
INITIALIZATION.
V_REPID = SY-REPID.
PERFORM BUILD_FIELDCATLOG.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_REPORT.
*& Form BUILD_FIELDCATLOG
Fieldcatalog has all the field details from ekko
FORM BUILD_FIELDCATLOG.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_M = 'DATE.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'LIFNR'.
WA_FIELDCAT-NO_OUT = 'X'.
WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG
*& Form EVENT_CALL
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = V_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "EVENT_CALL
*& Form POPULATE_EVENT
Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'TOP_OF_PAGE'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'USER_COMMAND'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form data_retrieval
retreiving values from the database table ekko
FORM DATA_RETRIEVAL.
SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.
ENDFORM. "data_retrieval
*& Form bUild_listheader
text
-->I_LISTHEADEtext
FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA HLINE TYPE SLIS_LISTHEADER.
HLINE-INFO = 'this is my first alv pgm'.
HLINE-TYP = 'H'.
ENDFORM. "build_listheader
*& Form display_alv_report
text
FORM DISPLAY_ALV_REPORT.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_GRID_TITLE = I_TITLE_EKKO
I_GRID_SETTINGS =
IS_LAYOUT = ALV_LAYOUT
IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
i_default = 'ZLAY1'
I_SAVE = 'A'
is_variant = i_variant
IT_EVENTS = V_EVENTS
TABLES
T_OUTTAB = IT_EKKO
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "display_alv_report
*& Form TOP_OF_PAGE
text
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_LISTHEADER
i_logo =
I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
text
-->R_UCOMM text
-->, text
-->RS_SLEFIELDtext
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN '&IC1'.
READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
PERFORM BUILD_FIELDCATLOG_EKPO.
PERFORM EVENT_CALL_EKPO.
PERFORM POPULATE_EVENT_EKPO.
PERFORM DATA_RETRIEVAL_EKPO.
PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_EKPO.
ENDCASE.
ENDFORM. "user_command
*& Form BUILD_FIELDCATLOG_EKPO
text
FORM BUILD_FIELDCATLOG_EKPO.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELP'.
WA_FIELDCAT-SELTEXT_M = 'LINE NO'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MENGE'.
WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_M = 'UOM'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'NETPR'.
WA_FIELDCAT-SELTEXT_M = 'PRICE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG_EKPO
*& Form event_call_ekpo
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL_EKPO.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = V_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "event_call_ekpo
*& Form POPULATE_EVENT
Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT_EKPO.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'TOP_OF_PAGE'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form TOP_OF_PAGE
text
FORM F_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_LISTHEADER
i_logo =
I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
text
-->R_UCOMM text
-->, text
-->RS_SLEFIELDtext
*retreiving values from the database table ekko
FORM DATA_RETRIEVAL_EKPO.
SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.
ENDFORM.
FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: HLINE1 TYPE SLIS_LISTHEADER.
HLINE1-TYP = 'H'.
HLINE1-INFO = 'CHECKING PGM'.
ENDFORM.
FORM DISPLAY_ALV_EKPO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = I_TITLE_EKPO
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT =
I_SAVE = 'A'
IS_VARIANT =
IT_EVENTS = V_EVENTS
TABLES
T_OUTTAB = IT_EKPO
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
implement your logic in it and i hope this will definitely work.
thanks
mrutyun -
Dear Experts,
I hv created an ALV report. when in double click on the record it take me to the required tcode (FB03).
But the problem is ,it always display last record of internal table if I clicked on first record,
Can any one suggest me something.
Regards,
MaverickThanks for ur reply.
I m using normal ALV. go through the following
form display_all_item_alv.
w_repid = sy-repid.
perform update_catalog.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = w_repid
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
* I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
IT_FIELDCAT = I_FCAT[]
I_SAVE = 'X'
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = i_faglflexa_all
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.
* FORM USER_COMMAND *
* --> R_UCOMM *
* --> RS_SELFIELD *
form user_command using r_ucomm like sy-ucomm
rs_selfield TYPE slis_selfield.
w_gjahr = p_gjahr.
case r_ucomm.
when '&IC1'.
if r_open = 'X'.
set parameter id 'BLN' field i_faglflexa_open-belnr.
elseif r_clear = 'X'.
set parameter id 'BLN' field i_faglflexa_clear-belnr.
else.
set parameter id 'BLN' field i_faglflexa_clear-belnr.
endif.
set parameter id 'BUK' field p_bukrs.
set parameter id 'GJR' field w_gjahr. "i_faglflexa_clear-gjahr.
call transaction 'FB03' and skip first screen.
endcase.
endform. "user_command
Regards,
Maverick
Maybe you are looking for
-
Problem with tooltips and spry data using startLoadInterval
I am trying to use tooltips with a dynamic table using the spry data example at the bottom of the page: http://labs.adobe.com/technologies/spry/articles/tooltip_overview/index.html I have it working except that it appears to have a memory leak as fir
-
Problem with Digital Cinema Desktop Preview on Macbook Pro
I hava a Macbook Pro 2.2 GHz with 2 GB RAM. I would like to use a connected 24"-Display for preview of my HD-Material (ProRes and HDV). Unfortunately I am not getting my Macbook Pro to playback all frames. Whend Digital Cinema Desktop Preview is acti
-
Hi, We are planning using Crystal reports for one of our applications. Can some one please provide me the system requirements and the steps involved in setting up the connection between BW and Crystal reports. Your help is greatly appreciated. Thanks
-
How to refund a app on an iPad that does not work
Today I purchase flash player and it does not work, how do I get a refund?
-
Nokia X3 is not getting switch on after flash.
Hi, I took back of contacts messages and others.. Then click restore factory setting to flash. Then I tried to restore the back up data. That was also done successfully. But soon after the mobile got switched off... When I tried to switch on.. It is