Regarding mappint logic
Hi,
i have the data in source table like
mapnumber , tdsnumber (here mapnumber,tdsnumber are varchar2 type)
1 , 1
2, 20
29, 39
100, 200
my target table should like this
mapnumber , tdsnumber (here mapnumber,tdsnumber are varchar2(3) type)
001, 001
002, 020
029, 039
100, 200
In target table mapnumber,tdsnumber values must be varchar2(3) data type.
in my source table i have the values like 1-100 .
Please give me the suggesstions please
It is very urgent.
Right now I am using case statement in my expression to get the values.
But i have to use 200 statements.
Please give me the suggestions please.
Thanks
Venkat
Put it through an expression of LPAD(column,3,0)
Similar Messages
-
Regarding the Logical Path and file name
Hi all ,
I am using LSMW for creating the BOM of a material .
I am getting problem at step 7 , saying the logical path is pointing to physical directory .
Then i did some R & D . I created the logical path and logical file name using transaction FILE . Then i got the physical path using FM file_get_name.
But when i give those logical path and logical file names , still i am getting prob.... at step 7 of lsmw.
Pls let me know . I did my best unti l now ....
RegardsHi Raj,
Can you send the Error which you got at Step 7??
It would be of great help if you can send the File Path and the file names you have used.
Regards,
-Syed. -
Can anyone please lemme know abt the logic used in the Report Customer Payment History. The T code used is f.99.
Points will be awardedYou can hook up a 2nd drive to the 1st drive - this called "daisy-chaining".
Two external disks is optimal - especially if you use large 3rd party Sample libraries. But it is no 'must'. If you only use Logics' own sampled instruments you don't need to use a dedicated disk for that. The same goes for recording; if you only record 1 or 2 tracks at a time you can easily use the startup disk for that. However, depending on how much you record you run the risk of filling up the startup disk, an for efficiency reasons it is advisable to keep at least 20 GB free on the startup disk, or +at least+ 10 % of the disks' capacity if it is 250 GB or bigger.
There is such a thing as a FireWire hub, but in your situation it is not necessary. Plus they tend to cause trouble, that vary depending on what devices are hooked up and how.
regards, Erik (6 feet guy) -
In my requiremet, I have to go to T-code IW51. There while we go to the second screen, we will have two fields where we can enter code groups. Now if an entry already exists in one of the fields, the user should not be allowed to press F4 on the other field, (i.e) an error message should appear.
Can anyone give me suggestions how to write the logic for this problem?Hi Laxman,
If you open the corresponding query in Query Designer, then you can check the logic of columns by having a look at the definition of it -- a restricted key figure or a calculated key figure.
Hope I understand correctly what you mean.
Regards,
Qing
Edited by: Qing Zhou on Jul 8, 2010 9:53 AM -
Hi Experts,
I have one requirement i.e Below mentioned is the cube,query,columnlogic for PP,now my requirement is i need to find out the column logic for remaining modules also like INV,SD,FI,PUR.
Is there any best way to find out.Please help me.
cube: 0PP_C01
query:0PP_C01_Q0001
columnlogic: Actual lead time = Actual GR - Finish Sch Date + 1Hi Laxman,
If you open the corresponding query in Query Designer, then you can check the logic of columns by having a look at the definition of it -- a restricted key figure or a calculated key figure.
Hope I understand correctly what you mean.
Regards,
Qing
Edited by: Qing Zhou on Jul 8, 2010 9:53 AM -
Regarding web logic certification
Hi,
If anyone could guide me in finding out any website which provides me
with discussion forums or sample question for bea weblogic certification
will be quite helpful for me. if not i like to know whether anyone who
had taken the certification earlier could guide me in which way i should
proceed.
Thanks & Regards,
Hemalatha.RSantoshSS wrote:
This is regarding 1Z0-114 certification. Is this reinstatement still on process ?
Can I register for this exam,Just wondering if there is any changes in exam registration process, please let me know..
http://education.oracle.com/pls/web_prod-plq-dad/db_pages.getpage?page_id=41&p_exam_id=1Z0_114
ThanksFor some reason unknown to me this exam was suspended (field hockey yellow carded; ice hockey sin binned) towards the end of the time when exams were offered from Prometric ( see 1Z0-114 Oracle SOA Architect Certified Expert certification ).
However I did check recently and this exam and now Pearson VUE will be delighted to relieve you of your money to sit this exam :-)
Oracle Exams Delivery has now transitioned from Prometric to Pearson VUE.
Please checkout the Pearson VUE registeration process at [http://www.oracle.com/education/certification] - support - faq's.
It is VERY important to ensure you use use your previous Prometric Id as Orale Testing Id when registed with prometric if you have sat Oracle exams previously. If this is the case alos check upon registering with Pearson VUE your previous Promteric Id has become your Oracle Testing Id.
Please be aware the Pearson VUe registration process has been described as clunky and a little error-prone and there may be a delay until it is confimred as successful. -
Hi All,
Having doubt in ranges ?
im having variable date1 which carries value sy-datlo.
for ex : 12.02.2008
My requirment is i want date that shoul be exactly less than 1000 days by the current system date(date1)
Regards,
MurthyHi,
use this FM
HR_SEN_CALE_DAYS_DATE
Import parameters Value
ID_DATE 10.02.2008
ID_OPERATOR -
IS_DURATION 0.0000 0.0000 1,000.0000
Export parameters Value
ED_DATE 17.05.2005
Cheers,
jose.
Edited by: jose on Feb 12, 2008 11:08 AM -
hi,
i have one requirement to add in below select statement
AND mara~mstav EQ 'S0'.(its a hard coaded value)
SELECT mara~matnr
marc~werks
marc~beskz
marc~webaz
marc~plifz
marc~wzeit
marc~dzeit
marc~ekgrp
marc~dispo
marc~strgr
mara~meins
marc~disls
marc~mrppp
marc~zz_ext_del
marc~zz_ext_mod
INTO TABLE itb_art
FROM ( mara
INNER JOIN marc
ON maramatnr = marcmatnr )
WHERE mara~matnr IN s_matnr
AND marc~werks EQ p_werks
AND mara~mtart IN s_mtart
AND mara~lvorm EQ ' '
AND marc~lvorm EQ ' '
AND marc~beskz NE ' '
AND mara~mstav EQ 'E0'.
this is the suggestion given by my client instaead of hardcoading follow these steps..
so how to i will write the code????
Why donu2019t you propose to have a new selection criteria field for MARA-MMSTAV and then initialize the values u201CE0u201D & u201CS0u201D?
Then you use the same screen variables in the select query.
OR ELSE.
Use a RANGES option in the program and then append both the values in the range and then use the range in select query instead of writing separately as
MARA~MMSTAV = u2018E0u2019
MARA~MMSTAV = u2018S0u2019 in the query.
WHAT TO DO????
please help me..
thanks
navketanFirst of all: if you want this parameter be visible in selection screen instead of ranges use select-options
select-options r_mstav for mara-mstav.
Now as it already created table with header line you can append this two entries without work area.
Now the meaning:
1) first record says: restrict the selection with all values (for field mstav ) where are equal to 'EQ'
( r_mstav-option = 'EQ'. ) including the result found ( r_mstav-sign = 'I'. ).
2) secod row does excactly the same but the values for field mstav has to be equal to 'S0'.
Generally when creating select-option parameter or ranges table, sing can be I which stands for u201Cinclusiveu201D (inclusion criterion) or E which stands for u201Cexclusiveu201D (exclusion criterion)
For option there are several entries possible EQ, NE, GT, LE, LT, CP, NP.
For more explanation please read [this|http://help.sap.com/erp2005_ehp_04/helpdata/EN/9f/dba71f35c111d1829f0000e829fbfe/frameset.htm]
Regards
Marcin -
Question Regarding SQL logic error!
Hello everyone,
I get the following error when executing an Informatica mapping with teh following SQL in the Source Qualifier.
error - OR- 00936: missing expression.
Can anyone help please!
SELECT
PS_CUSTOMER.SETID
, PS_CUSTOMER.CUST_ID
, PS_CUSTOMER.CUST_STATUS
, PS_CUSTOMER.ADD_DT
, PS_CUSTOMER.NAME1
, PS_CUSTOMER.TAXPAYER_ID
, PS_CUSTOMER.WEB_URL
, PS_CUSTOMER.LAST_MAINT_OPRID
, PS_CUSTOMER.DATE_LAST_MAINT
, PS_CUST_SIC_CODES.SIC_CD_QUAL
, PS_CUST_SIC_CODES.SIC_CODE
, PS_CUST_CGRP_LNK.CUST_GRP_TYPE
, PS_CUST_CGRP_LNK.CUSTOMER_GROUP
, PS_CUST_CGRP_LNK.LASTUPDDTTM
, PS_CUST_ID_NBRS.STD_ID_NUM
, PS_CUSTOMER.SUBCUST_QUAL1
FROM PS_CUSTOMER
select SIC1.SETID, SIC1.CUST_ID, MAX(SIC1.SIC_CODE) SIC_CODE, SIC1.SIC_CD_QUAL
from PS_CUST_SIC_CODES SIC1
where SIC1.SIC_CD_QUAL =
( select MAX(SIC_CD_QUAL)
from PS_CUST_SIC_CODES SIC2
where SIC2.CUST_ID = SIC1.CUST_ID
and SIC2.SETID = SIC1.SETID
group by SETID, CUST_ID, SIC1.SIC_CD_QUAL
) PS_CUST_SIC_CODES
select A.CUST_ID, A.SETID, A.CUST_GRP_TYPE
, MAX(A.CUSTOMER_GROUP) CUSTOMER_GROUP, A.LASTUPDDTTM
from PS_CUST_CGRP_LNK A
where A.CUST_GRP_TYPE =
SELECT MAX(CUST_GRP_TYPE)
FROM PS_CUST_CGRP_LNK B
WHERE A.CUST_ID = B.CUST_ID
AND A.SETID = B.SETID
AND A.LASTUPDDTTM = B.LASTUPDDTTM
AND B.LASTUPDDTTM =
SELECT MAX(LASTUPDDTTM)
FROM PS_CUST_CGRP_LNK C
WHERE C.CUST_ID = B.CUST_ID
AND C.SETID = B.SETID
GROUP BY CUST_ID, SETID, CUST_GRP_TYPE, LASTUPDDTTM
) PS_CUST_CGRP_LNK
select SETID, CUST_ID, STD_ID_NUM
from PS_CUST_ID_NBRS
where STD_ID_NUM_QUAL = 'DNS'
) PS_CUST_ID_NBRS
WHERE
{ PS_CUSTOMER
LEFT OUTER JOIN
PS_CUST_SIC_CODES ON
PS_CUSTOMER.SETID = PS_CUST_SIC_CODES.SETID
AND PS_CUSTOMER.CUST_ID = PS_CUST_SIC_CODES.CUST_ID
LEFT OUTER JOIN
PS_CUST_CGRP_LNK ON
PS_CUSTOMER.SETID = PS_CUST_CGRP_LNK.SETID
AND PS_CUSTOMER.CUST_ID = PS_CUST_CGRP_LNK.CUST_ID
LEFT OUTER JOIN
PS_CUST_ID_NBRS ON
PS_CUSTOMER.SETID = PS_CUST_ID_NBRS.SETID
AND PS_CUSTOMER.CUST_ID = PS_CUST_ID_NBRS.CUST_ID
ORDER BY PS_CUSTOMER.CUST_ID , PS_CUSTOMER.SETID
Thanks,
Ajay.Kramer wrote:
Hi
So.. do we have to pay for the feature regarding sql tuning advisor?
Can we use the dbms_sqltune package for free in oracle?
No, you need the license. Please read below,
http://download.oracle.com/docs/cd/E11882_01/license.112/e10594/options.htm#CIHFIHFG
I `m doing below test on my Linux. I installed an oracle on it and only for study purpose so didn`t pay.
As you can see. I got no output.
SQL> exec dbms_sqltune.execute_tuning_task('TASK_1634');
PL/SQL procedure successfully completed.
SQL> select dbms_sqltune.report_tuning_task('TASK_1634') from dual;
DBMS_SQLTUNE.REPORT_TUNING_TASK('TASK_1634')
GENERAL INFORMATION SECTION
Please read the below link to learn how to use the STA.
http://download.oracle.com/docs/cd/E11882_01/server.112/e16638/sql_tune.htm
HTH
Aman.... -
Hi all iam making blocked alv programe.
In the below code if i want to display in Second block the list of Material Types with No. of materials in each type than what should be the approach for this logic.
TYPE-POOLS: slis.
TYPES: BEGIN OF ty_mara ,
matnr TYPE mara-matnr,
mtart TYPE mara-mtart,
END OF ty_mara ,
BEGIN OF ty_makt ,
matnr TYPE makt-matnr,
maktx TYPE makt-maktx,
END OF ty_makt ,
BEGIN OF ty_final ,
mtart TYPE mara-mtart,
matnr TYPE mara-matnr,
maktx TYPE makt-maktx,
record TYPE i ,
END OF ty_final ,
BEGIN OF records,
records TYPE i,
END OF records.
DATA no TYPE i.
*************************INTERNAL TABLES******************************
DATA: it_mara TYPE TABLE OF ty_mara ,
it_makt TYPE TABLE OF ty_makt ,
it_final TYPE TABLE OF ty_final ,
it_fieldcat TYPE slis_t_fieldcat_alv,
it_events TYPE slis_t_event ,
it_fieldcat1 TYPE slis_t_fieldcat_alv,
it_records TYPE TABLE OF records.
*************************WORK AREAS***********************************
DATA: wa_mara TYPE ty_mara ,
wa_makt TYPE ty_makt ,
wa_final TYPE ty_final ,
wa_fieldcat TYPE slis_fieldcat_alv,
wa_layout TYPE slis_layout_alv ,
wa_events TYPE slis_alv_event ,
wa_fieldcat1 TYPE slis_fieldcat_alv,
wa_records TYPE records.
**************************VARIABLES***********************************
DATA: v_mtart TYPE mara-mtart, "#EC NEEDED
v_repid TYPE sy-repid ,
v_text TYPE string .
**************************CONSTANTS***********************************
CONSTANTS: c_zrh(4) TYPE c VALUE 'zrh' ,
c_x(1) TYPE c VALUE 'X' ,
c_02(2) TYPE c VALUE '02' ,
c_04(2) TYPE c VALUE '04' ,
c_06(2) TYPE c VALUE '06' ,
c_mtart(5) TYPE c VALUE 'MTART' ,
c_matnr(5) TYPE c VALUE 'MATNR' ,
c_maktx(5) TYPE c VALUE 'MAKTX' ,
c_it_final(8) TYPE c VALUE 'IT_FINAL' ,
c_mara(4) TYPE c VALUE 'MARA' ,
c_makt(4) TYPE c VALUE 'MAKT' ,
c_l(1) TYPE c VALUE 'L' ,
c_user_command(12) TYPE c VALUE 'USER_COMMAND' ,
c_alv_user_command(16) TYPE c VALUE 'ALV_USER_COMMAND',
c_top_of_page(11) TYPE c VALUE 'TOP_OF_PAGE' ,
c_alv_top_of_page(15) TYPE c VALUE 'ALV_TOP_OF_PAGE' ,
c_end_of_list(11) TYPE c VALUE 'END_OF_LIST' ,
c_alv_end_of_list(15) TYPE c VALUE 'ALV_END_OF_LIST' .
************************INITIALIZATION********************************
INITIALIZATION.
Initialize MTART at the selection screen
PERFORM initialize_mtart.
*********************SELECTION SCREEN*********************************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
DATA p_mtart TYPE mara-mtart.
SELECT-OPTIONS: imtart FOR p_mtart.
SELECTION-SCREEN END OF BLOCK blk1.
*********************AT SELECTION SCREEN******************************
AT SELECTION-SCREEN.
Validate MTART entered at the selection screen.
PERFORM validate_mtart.
**********************START-OF-SELECTION******************************
START-OF-SELECTION.
Select all the required data
PERFORM select_data.
Prepare final table
PERFORM populate_final_tab.
**********************END-OF-SELECTION********************************
END-OF-SELECTION.
Prepare ALV settings for display
PERFORM prepare_settings.
Display ALV Report
PERFORM display_report.
**********************SUBROUTINES*************************************
*& Form initialize_mtart
Subroutine to Initialize MTART at the selection screen.
FORM initialize_mtart .
p_mtart = c_zrh.
ENDFORM. " initialize_mtart
*& Form validate_mtart
This subroutine is to validate MTART entered at the
selection screen.
FORM validate_mtart .
SELECT SINGLE mtart
FROM t134
INTO v_mtart
WHERE mtart IN imtart.
If not found display error message
IF sy-subrc <> 0.
MESSAGE e014 WITH text-002.
ENDIF.
ENDFORM. " validate_mtart
*& Form select_data
This subroutine selects all the required data
FORM select_data .
SELECT matnr
mtart
FROM mara
INTO TABLE it_mara
WHERE mtart IN imtart.
IF sy-subrc <> 0.
MESSAGE i014 WITH text-003.
LEAVE LIST-PROCESSING.
ELSE.
SORT it_mara BY matnr.
SELECT matnr
maktx
FROM makt
INTO TABLE it_makt UP TO 20 ROWS
FOR ALL ENTRIES IN it_mara
WHERE matnr = it_mara-matnr
AND spras = sy-langu .
IF sy-subrc <> 0.
MESSAGE i014 WITH text-004.
LEAVE LIST-PROCESSING.
ELSE.
SORT it_mara BY mtart.
SORT it_makt BY matnr.
ENDIF.
ENDIF.
ENDFORM. " select_data
*& Form populate_final_tab
This subroutine prepares final internal table.
FORM populate_final_tab .
LOOP AT it_mara INTO wa_mara.
CLEAR wa_final.
CLEAR wa_makt.
READ TABLE it_makt INTO wa_makt
WITH KEY matnr = wa_mara-matnr
BINARY SEARCH.
IF sy-subrc = 0.
wa_final-mtart = wa_mara-mtart.
wa_final-matnr = wa_mara-matnr.
wa_final-maktx = wa_makt-maktx.
APPEND wa_final TO it_final.
ENDIF.
ENDLOOP.
DATA : v_lines TYPE i.
DESCRIBE TABLE it_final LINES v_lines.
**WRITE:/ 'Total lines = ', v_lines.
wa_records-records = v_lines.
LOOP AT it_final INTO wa_final.
no = no + 1.
ENDLOOP.
wa_records-records = no.
APPEND wa_records TO it_records.
ENDFORM. " populate_final_tab
*& Form prepare_settings
This subroutine prepares ALV settings for display
FORM prepare_settings .
Prepare layout
CLEAR wa_layout.
wa_layout-zebra = c_x.
Prepare fieldcat
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = c_02.
wa_fieldcat-fieldname = c_mtart.
wa_fieldcat-tabname = c_it_final.
wa_fieldcat-ref_fieldname = c_mtart.
wa_fieldcat-ref_tabname = c_mara.
wa_fieldcat-ddictxt = c_l.
wa_fieldcat-seltext_l = text-005.
wa_fieldcat-seltext_m = text-005.
wa_fieldcat-seltext_s = text-005.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = c_04.
wa_fieldcat-fieldname = c_matnr.
wa_fieldcat-tabname = c_it_final.
wa_fieldcat-ref_fieldname = c_matnr.
wa_fieldcat-ref_tabname = c_mara.
wa_fieldcat-ddictxt = c_l.
wa_fieldcat-seltext_l = text-006.
wa_fieldcat-seltext_m = text-006.
wa_fieldcat-seltext_s = text-006.
wa_fieldcat-hotspot = c_x.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = c_06.
wa_fieldcat-fieldname = c_maktx.
wa_fieldcat-tabname = c_it_final.
wa_fieldcat-ref_fieldname = c_maktx.
wa_fieldcat-ref_tabname = c_makt.
wa_fieldcat-ddictxt = c_l.
wa_fieldcat-seltext_l = text-007.
wa_fieldcat-seltext_m = text-007.
wa_fieldcat-seltext_s = text-007.
APPEND wa_fieldcat TO it_fieldcat.
records field cat
wa_fieldcat1-col_pos = c_04.
wa_fieldcat1-fieldname = 'RECORDS'.
wa_fieldcat1-tabname = 'RECORDS'.
wa_fieldcat1-seltext_m = 'NO OF RECORDS MATERIAL WISE TYPE LIST'.
APPEND wa_fieldcat1 TO it_fieldcat1.
Prepare Events table.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = it_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.
SORT it_events BY name.
CLEAR wa_events.
READ TABLE it_events INTO wa_events
WITH KEY name = c_user_command
BINARY SEARCH.
IF sy-subrc = 0.
wa_events-form = c_alv_user_command.
MODIFY it_events
FROM wa_events
INDEX sy-tabix
TRANSPORTING form.
ENDIF.
CLEAR wa_events.
READ TABLE it_events INTO wa_events
WITH KEY name = c_top_of_page
BINARY SEARCH.
IF sy-subrc = 0.
wa_events-form = c_alv_top_of_page.
MODIFY it_events
FROM wa_events
INDEX sy-tabix
TRANSPORTING form.
ENDIF.
CLEAR wa_events.
READ TABLE it_events INTO wa_events
WITH KEY name = c_end_of_list
BINARY SEARCH.
IF sy-subrc = 0.
wa_events-form = c_alv_end_of_list.
MODIFY it_events
FROM wa_events
INDEX sy-tabix
TRANSPORTING form.
ENDIF.
ENDFORM. " prepare_settings
*& Form display_report
This subroutine calls FM to display report
FORM display_report .
CLEAR v_repid.
v_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = v_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = wa_layout
it_fieldcat = it_fieldcat
i_tabname = 'it_FINAL'
it_events = it_events
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = it_final
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = wa_layout
it_fieldcat = it_fieldcat1
i_tabname = 'TY_FINAL'
it_events = it_events
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = it_records
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT = it_final
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
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_report
*& Form alv_user_command
This subroutine handles user command
FORM alv_user_command USING v_cmd TYPE sy-ucomm
wa_selfield TYPE slis_selfield. "#EC * "#EC
CLEAR wa_final.
READ TABLE it_final INTO wa_final
INDEX wa_selfield-tabindex.
CLEAR v_text.
CONCATENATE text-008
wa_final-matnr
INTO v_text
SEPARATED BY space.
Display to user which material he/she has clicked
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
EXPORTING
titel = text-009
textline1 = v_text
start_column = 25
start_row = 6.
ENDFORM. "alv_user_command.
*& Form alv_top_of_page
This subroutine writes top of page
FORM alv_top_of_page. "#EC CALLED
FORMAT COLOR COL_HEADING.
ULINE AT /1(80).
WRITE:/1 sy-vline,
2 text-010,
9 sy-datum,
80 sy-vline.
WRITE:/1 sy-vline,
2 text-011,
9 sy-uzeit,
40 text-012,
80 sy-vline.
WRITE:/1 sy-vline,
2 text-013,
9 sy-uname,
80 sy-vline.
ULINE AT /1(80).
FORMAT COLOR OFF.
ENDFORM. "alv_top_of_page.
*& Form alv_end_of_list
This subroutine writes end of list
FORM alv_end_of_list. "#EC CALLED
FORMAT COLOR COL_HEADING.
ULINE AT /1(80).
WRITE:/1 sy-vline,
2 text-014,
12 no,
80 sy-vline.
ULINE AT /1(80).
FORMAT COLOR OFF.
ENDFORM. "alv_end_of_list.hi,
here it is.
*& Report ZTEST_DS
REPORT ztest_ds.
TYPE-POOLS: slis.
TYPES: BEGIN OF ty_mara ,
matnr TYPE mara-matnr,
mtart TYPE mara-mtart,
END OF ty_mara ,
BEGIN OF ty_makt ,
matnr TYPE makt-matnr,
maktx TYPE makt-maktx,
END OF ty_makt ,
BEGIN OF ty_final ,
mtart TYPE mara-mtart,
matnr TYPE mara-matnr,
maktx TYPE makt-maktx,
record TYPE i ,
END OF ty_final ,
BEGIN OF records,
records TYPE i,
END OF records.
DATA no TYPE i.
*************************INTERNAL TABLES******************************
DATA : it_mara TYPE TABLE OF ty_mara ,
it_makt TYPE TABLE OF ty_makt ,
it_final TYPE TABLE OF ty_final ,
it_fieldcat TYPE slis_t_fieldcat_alv,
it_events TYPE slis_t_event ,
it_fieldcat1 TYPE slis_t_fieldcat_alv,
it_records TYPE TABLE OF records WITH HEADER LINE.
*************************WORK AREAS***********************************
DATA : wa_mara TYPE ty_mara ,
wa_makt TYPE ty_makt ,
wa_final TYPE ty_final ,
wa_fieldcat TYPE slis_fieldcat_alv,
wa_layout TYPE slis_layout_alv ,
wa_events TYPE slis_alv_event ,
wa_fieldcat1 TYPE slis_fieldcat_alv,
wa_records TYPE records.
**************************VARIABLES***********************************
DATA : v_mtart TYPE mara-mtart, "#EC NEEDED
v_repid TYPE sy-repid ,
v_text TYPE string .
<b>DATA : BEGIN OF i_rec OCCURS 0,
mtart TYPE mara-mtart,
record TYPE i,
END OF i_rec.
DATA : BEGIN OF i_rec_col OCCURS 0,
mtart TYPE mara-mtart,
record TYPE i,
END OF i_rec_col.</b>
**************************CONSTANTS***********************************
CONSTANTS : c_zrh(4) TYPE c VALUE 'zrh' ,
c_x(1) TYPE c VALUE 'X' ,
c_02(2) TYPE c VALUE '02' ,
c_04(2) TYPE c VALUE '04' ,
c_06(2) TYPE c VALUE '06' ,
c_mtart(5) TYPE c VALUE 'MTART' ,
c_matnr(5) TYPE c VALUE 'MATNR' ,
c_maktx(5) TYPE c VALUE 'MAKTX' ,
c_it_final(8) TYPE c VALUE 'IT_FINAL' ,
c_mara(4) TYPE c VALUE 'MARA' ,
c_makt(4) TYPE c VALUE 'MAKT' ,
c_l(1) TYPE c VALUE 'L' ,
c_user_command(12) TYPE c VALUE 'USER_COMMAND' ,
c_alv_user_command(16) TYPE c VALUE 'ALV_USER_COMMAND',
c_top_of_page(11) TYPE c VALUE 'TOP_OF_PAGE' ,
c_alv_top_of_page(15) TYPE c VALUE 'ALV_TOP_OF_PAGE' ,
c_end_of_list(11) TYPE c VALUE 'END_OF_LIST' ,
c_alv_end_of_list(15) TYPE c VALUE 'ALV_END_OF_LIST' .
************************INITIALIZATION********************************
INITIALIZATION.
Initialize MTART at the selection screen
PERFORM initialize_mtart.
*********************SELECTION SCREEN*********************************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
DATA p_mtart TYPE mara-mtart.
SELECT-OPTIONS: imtart FOR p_mtart.
SELECTION-SCREEN END OF BLOCK blk1.
*********************AT SELECTION SCREEN******************************
AT SELECTION-SCREEN.
Validate MTART entered at the selection screen.
PERFORM validate_mtart.
**********************START-OF-SELECTION******************************
START-OF-SELECTION.
Select all the required data
PERFORM select_data.
Prepare final table
PERFORM populate_final_tab.
**********************END-OF-SELECTION********************************
END-OF-SELECTION.
Prepare ALV settings for display
PERFORM prepare_settings.
Display ALV Report
PERFORM display_report.
**********************SUBROUTINES*************************************
*& Form initialize_mtart
Subroutine to Initialize MTART at the selection screen.
FORM initialize_mtart .
p_mtart = c_zrh.
ENDFORM. " initialize_mtart
*& Form validate_mtart
This subroutine is to validate MTART entered at the
selection screen.
FORM validate_mtart .
SELECT SINGLE mtart
FROM t134
INTO v_mtart
WHERE mtart = p_mtart.
If not found display error message
IF sy-subrc <> 0.
MESSAGE e014 WITH text-002.
ENDIF.
ENDFORM. " validate_mtart
*& Form select_data
This subroutine selects all the required data
FORM select_data .
SELECT matnr
mtart
FROM mara
INTO TABLE it_mara
WHERE mtart IN imtart.
IF sy-subrc <> 0.
MESSAGE i014 WITH text-003.
LEAVE LIST-PROCESSING.
ELSE.
SORT it_mara BY matnr.
SELECT matnr
maktx
FROM makt
INTO TABLE it_makt UP TO 20 ROWS
FOR ALL ENTRIES IN it_mara
WHERE matnr = it_mara-matnr
AND spras = sy-langu .
IF sy-subrc <> 0.
MESSAGE i014 WITH text-004.
LEAVE LIST-PROCESSING.
ELSE.
SORT it_mara BY mtart.
SORT it_makt BY matnr.
ENDIF.
ENDIF.
ENDFORM. " select_data
*& Form populate_final_tab
This subroutine prepares final internal table.
FORM populate_final_tab .
LOOP AT it_mara INTO wa_mara.
CLEAR wa_final.
CLEAR wa_makt.
READ TABLE it_makt INTO wa_makt
WITH KEY matnr = wa_mara-matnr
BINARY SEARCH.
IF sy-subrc = 0.
wa_final-mtart = wa_mara-mtart.
wa_final-matnr = wa_mara-matnr.
wa_final-maktx = wa_makt-maktx.
APPEND wa_final TO it_final.
ENDIF.
ENDLOOP.
LOOP AT it_final INTO wa_final.
no = no + 1.
ENDLOOP.
wa_records-records = no.
it_records-records = no.
APPEND it_records.
<b> LOOP AT it_final INTO wa_final.
i_rec-mtart = wa_final-mtart.
i_rec-record = 1.
APPEND i_rec.
ENDLOOP.
LOOP AT i_rec.
MOVE-CORRESPONDING i_rec TO i_rec_col.
COLLECT i_rec_col.
ENDLOOP.</b>
ENDFORM. " populate_final_tab
*& Form prepare_settings
This subroutine prepares ALV settings for display
FORM prepare_settings .
Prepare layout
CLEAR wa_layout.
wa_layout-zebra = c_x.
Prepare fieldcat
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = c_02.
wa_fieldcat-fieldname = c_mtart.
wa_fieldcat-tabname = c_it_final.
wa_fieldcat-ref_fieldname = c_mtart.
wa_fieldcat-ref_tabname = c_mara.
wa_fieldcat-ddictxt = c_l.
wa_fieldcat-seltext_l = text-005.
wa_fieldcat-seltext_m = text-005.
wa_fieldcat-seltext_s = text-005.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = c_04.
wa_fieldcat-fieldname = c_matnr.
wa_fieldcat-tabname = c_it_final.
wa_fieldcat-ref_fieldname = c_matnr.
wa_fieldcat-ref_tabname = c_mara.
wa_fieldcat-ddictxt = c_l.
wa_fieldcat-seltext_l = text-006.
wa_fieldcat-seltext_m = text-006.
wa_fieldcat-seltext_s = text-006.
wa_fieldcat-hotspot = c_x.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = c_06.
wa_fieldcat-fieldname = c_maktx.
wa_fieldcat-tabname = c_it_final.
wa_fieldcat-ref_fieldname = c_maktx.
wa_fieldcat-ref_tabname = c_makt.
wa_fieldcat-ddictxt = c_l.
wa_fieldcat-seltext_l = text-007.
wa_fieldcat-seltext_m = text-007.
wa_fieldcat-seltext_s = text-007.
APPEND wa_fieldcat TO it_fieldcat.
<b>wa_fieldcat1-col_pos = c_04.
wa_fieldcat1-fieldname = 'MTART'.
wa_fieldcat1-tabname = 'I_REC_COL'.
wa_fieldcat1-seltext_m = 'Material Type'.
APPEND wa_fieldcat1 TO it_fieldcat1.
records field cat
wa_fieldcat1-col_pos = c_04.
wa_fieldcat1-fieldname = 'RECORD'.
wa_fieldcat1-tabname = 'I_REC_COL'.
wa_fieldcat1-seltext_m = 'NO OF RECORDS MATERIAL WISE TYPE LIST'.
APPEND wa_fieldcat1 TO it_fieldcat1.</b>*
Prepare Events table.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = it_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.
SORT it_events BY name.
CLEAR wa_events.
READ TABLE it_events INTO wa_events
WITH KEY name = c_user_command
BINARY SEARCH.
IF sy-subrc = 0.
wa_events-form = c_alv_user_command.
MODIFY it_events
FROM wa_events
INDEX sy-tabix
TRANSPORTING form.
ENDIF.
CLEAR wa_events.
READ TABLE it_events INTO wa_events
WITH KEY name = c_top_of_page
BINARY SEARCH.
IF sy-subrc = 0.
wa_events-form = c_alv_top_of_page.
MODIFY it_events
FROM wa_events
INDEX sy-tabix
TRANSPORTING form.
ENDIF.
CLEAR wa_events.
READ TABLE it_events INTO wa_events
WITH KEY name = c_end_of_list
BINARY SEARCH.
IF sy-subrc = 0.
wa_events-form = c_alv_end_of_list.
MODIFY it_events
FROM wa_events
INDEX sy-tabix
TRANSPORTING form.
ENDIF.
ENDFORM. " prepare_settings
*& Form display_report
This subroutine calls FM to display report
FORM display_report .
CLEAR v_repid.
v_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = v_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = wa_layout
it_fieldcat = it_fieldcat
i_tabname = 'it_FINAL'
it_events = it_events
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = it_final
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = wa_layout
it_fieldcat = it_fieldcat1
i_tabname = 'TY_FINAL'
it_events = it_events
IT_SORT =
I_TEXT = ' '
TABLES
<b> t_outtab = i_rec_col</b>
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT = it_final
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
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_report
*& Form alv_user_command
This subroutine handles user command
FORM alv_user_command USING v_cmd TYPE sy-ucomm
wa_selfield TYPE slis_selfield. "#EC * "#EC
CLEAR wa_final.
READ TABLE it_final INTO wa_final
INDEX wa_selfield-tabindex.
CLEAR v_text.
CONCATENATE text-008
wa_final-matnr
INTO v_text
SEPARATED BY space.
Display to user which material he/she has clicked
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
EXPORTING
titel = text-009
textline1 = v_text
start_column = 25
start_row = 6.
ENDFORM. "alv_user_command.
*& Form alv_top_of_page
This subroutine writes top of page
FORM alv_top_of_page. "#EC CALLED
FORMAT COLOR COL_HEADING.
ULINE AT /1(80).
WRITE:/1 sy-vline,
2 text-010,
9 sy-datum,
80 sy-vline.
WRITE:/1 sy-vline,
2 text-011,
9 sy-uzeit,
40 text-012,
80 sy-vline.
WRITE:/1 sy-vline,
2 text-013,
9 sy-uname,
80 sy-vline.
ULINE AT /1(80).
FORMAT COLOR OFF.
ENDFORM. "alv_top_of_page.
it will solve ur problem.
reward if useful. -
I am having trouble with the App Store with regards to Logic X 10.0.7
Hi, I just bought Logic X and it says that it is installed under my purchases but I cannot find it anywhere on my Mac. Am I missing out on anything?
It should be in the Apps folder. Have you looked to see it listed in LaunchPad?
-
Transfer Case Animation Question Regarding if Logic.
I am using the following code in a transfer case animation and for the life of me, I can't figure out what I'm doing wrong. The "if (neutralSequence ==0)" part works great, but the "}else if (neutralSequence == 14){" part doesn't. I am using traces in each step and the value is equal to 14 when entering the function. I've attached the file and description of how to follow the sequence and it works until I get to this step.
this.neutral_mc.onPress = neutral_mc.onPress = function(){
trace ("Are you there?");
trace (_root.neutralSequence);
this.neutral_mc.onRelease = neutral_mc.onRelease = function(){
trace ("Here");
if (_root.neutralSequence == 0) {
if (needle_mc._x > 368) {
trace ("The vehicle must be completely stopped before shifting into neutral.");
_root.neutral_mc.gotoAndPlay ("flash");
} else if (_root.engineOff == "N") {
trace ("The engine must be turned off before shifting the transfer case into neutral.");
_root.neutral_mc.gotoAndPlay ("flash");
} else if ((_root.ignitionSwitchPosition == "F") || (_root.ignitionSwitchPosition == "A")){
trace ("The igntion switch must be in the ON position before shifting the transfer case into neutral.");
_root.neutral_mc.gotoAndPlay ("flash");
} else if (_root.held == "N") {
trace ("Please press the Brake Hold button before shifting the transfer case into neutral.");
_root.neutral_mc.gotoAndPlay ("flash");
} else if (shiftPosition != "N") {
trace ("The transmission must be in Neutral (N) before shifting the transfer case into neutral.");
_root.neutral_mc.gotoAndPlay ("flash");
} else {
if (_root.PreviousMode != "4Low") {
_root.gotoAndPlay ("NeutralFromTwo");
_root.neutralSequence = 1;
trace (_root.neutralSequence);
} else {
root.gotoAndPlay ("NeutralFromFour");
_root.neutralSequence = 1;
trace (_root.neutralSequence);
} else if (_root.neutralSequence == 14) {
_root.neutralSequence = 15;
trace (_root.neutralSequence);
_root.gotoAndPlay("Z2");
_root.neutral_mc.gotoAndPlay ("NProcComp");
Any and all help is greatly appreciated!!!kglad,
Thanks for the suggestions, but I think the problem is in Flash. It seems that when an onRelease command occurs within the movie the code is attached to, it creates problems for the run-time engine (if that's the correct term).
I was just about to pull my hair out and thought of one other possible woraround. I created a 0 alpha movie clip above the original movie clip, then copied and pasted the EXACT code to the new movie and it worked fine.
I'm pretty new to coding and would have done a lot of things differently (more function based) if I had to do it over again but I didn't want to spend 100 hours reworking an animation that is 95% done.
I've got a lot to learn but it seems the folks at Adobe do as well. I'm sure they are aware of these limits but I doubt they're published anywhere the gen pub can see them. Perhaps they're trying to get me to purchase Suite 4? LOL
Anyway, I really appreciate your taking the time to try to help!
Sincerely, -
Logical system name to be updated while client copy--URGENT HELP REQUIRED
Hello All,
I have a query regarding the "Logical System name" updation during Client copy.
When we make a client copy(SRM Masters) for the Production system(SRM),the Old Logical system name for backend(which is attached to the SRM masters) gets copied to the new Client (Copy) which needs to be updated.
There is a std transaction BDLS through whcih w e can change the current Logical system name to a new one but this seems to work fine for System copy but not for Client copy.
So when i make a client copy of SRM masters for Production system,is there any other std way wherein i can change the "Logical system name " for the backend or do i have to write a CUSTOM program wherein entries for the Backend Logical system name in tables like CRMMLSGUID will be updated with the new Logical system name?
Any help on this is appreciated.
Thanks & Regards,
Disha.Disha,
Yes, I did it twice and it worked fine.
The R/3 GUID is sent by the OLTP system (R/3) in R/3 message header.
SRM checks this GUID in CRMMLSGUID table.
If is not the same one, then replication process fails.
The only solution I found was to delete this entry. It is automatically recreated with the new GUID with the next replication, with FM CRMT_OLTP_LOGSYS1, called in BAPI_CRM_SAVE.
Look at OSS note 588701 & 765018 for deletion of CRMMLSGUID.
The issue is exactly ours: around system/client copy.
In an CRM environment, this is more critical, because we make a huge use of the middleware. But in our case, and especially after system/client copies, we can go, even if SAP does not guaranty anything, because we don't care about "old" replicated data (I don't care about old BDOCs, that should even be deleted after processing).
We have to take some risks sometimes...
Rgds
Christophe -
Can I use iCloud to sync my Logic folders between Macs?
So, I'm looking for a way to keep my MacBook and iMac in sync with regards to Logic (Pro 9 - downloaded). I figure I want the following folders on a two-way sync:
1) Application Support/Logic
2) Application Support/GarageBand
3) Audio/Apple Loops
4) Audio/Impluse Responses
5) My Logc folder in my Music folder
Have been looking at iCloud recently but don't know if it'll do this. If not, know of any any decent software for this?
Thanks.WorldOfWires is probably referring to the audio content found in their home folder, not the factory content.
~/
Hopefully iCloud functionality will be added in the future.
Currently I'm using ChronoSync to sync my ~/Library/Audio folders across machines. -
Issue in workflow - Logically Deleted Scenario
Hi,
We have an issue in Journal Entry Workflow. The user has tried to upload a document for Journal Entry Posting. Document is in Parked Status. In the workflow, when it has come to the required step of workflow approval and checks for the document type, it has got logically deleted. Thereby the workflow got terminated.
Kindly let us know as how to proceed further. What would have been the reason for this automatic logical delete? Mail us the solution regarding the same.
Regards,
VeeraAutomatic Logical deletion ! I think this is not possible check with the log of the workitem whose user id is appearing then in the code check weter you have assigned any FM to locially delete the work item which is being trigered by mistake if not just start another WF and proceed with your work.
Regards
Bikas
Maybe you are looking for
-
Untrusted Connection - when I try to add a security exception, NOTHING happens
A game company Web site I go to all the time has just started giving me Untrusted Connection messages. I was able to visit it with no problems as recently as a few hours ago, but now I just get a page that says "You have asked Firefox to connect secu
-
I have an ipod nano and when I plug it in, it shows the information I had on a previous ipod and says that it is 180GB (wouldn't that be nice). I have uninstalled itunes and reinstalled and it still has the old information. If I take my Ipod to a dif
-
Is "text" feature available for Adobe Touch yet?
I'm an avid fan of adobe for years. Please add in the feature of "text" annotation for adobe touch. Other apps already have this feature, and it would be disappointing to shift to another app because of this minor flaw. i'm currently using windows su
-
Lightroom won't write Metadata.
After importing RAW and JPEG files I can use Tools to replace Metadata for all RAW files but I cannot change Metadata for any of the JPEG files. Not by Tools or individually. Duel 3 Ghz. Quad Core Mac Pro, 8 G RAM, 2.25 TB RAID, additional external H
-
Hi all, Oracle 11g R2, ELinux 5.2 I have my Oracle database data files stored in a disk formatted with ext3 file system. I have read the following statement: "ext3 has three journaling levels that may be set with in the options section of /etc/fstab: