Add new scan name

Greetings to my fellows DBA .
does any of you know (I now there is a way but not sure of it) to add another scan name and listeners (resolving to it's own ip address) in cluster 11.2. ?..
I need it to simulate separation of environments .
thanks
S.

Sahar wrote:
a way to simulate two separate environments with different networksWhy? To achieve what? What is the network architecture? Why is routing not enabled and why does the cluster need to run on two distinct networks?
What needs separation? At what level? Wire packet level? Application/database level?
each scan hopefully will register with different listeners (ill have few databases on same cluster)SCAN means Single Client Access Name. Not mutiple names. It is a single hostname that resolves to one or more IP addresses - where these IP addresses are managed by the cluster as virtual IPs running "remote" listeners.
A client does not directly connect to a SCAN IP for a database connection - it connects to a SCAN IP that redirects that client to the applicable cluster VIP (local) listener that can pass that connection to a dedicated server process, or a dispatcher process.
So instead of presenting a half baked idea of "+adding new scan names+" as the solution to an unknown problem - how about defining the problem instead?

Similar Messages

Data load component - add new column name alias

Apex 4.2.2.
Using the data load wizard a list of column and column name aliases had been created.
When looking at the component (shared components/Data load tables/column name aliases) it is possible to edit and delete a column alias there. Unfortunatly it does not seem possible to add a new alias. Do I overlook something, or is there a workaround for this?

Try this:
REPORT ztest LINE-SIZE 80 MESSAGE-ID 00.
DATA: name_int TYPE TABLE OF v_usr_name WITH HEADER LINE.
DATA: BEGIN OF it_bkpf OCCURS 0.
        INCLUDE STRUCTURE bkpf.
DATA:   username LIKE v_usr_name-name_text,
      END   OF it_bkpf.
SELECT * FROM bkpf INTO TABLE it_bkpf UP TO 1000 ROWS.
LOOP AT it_bkpf.
name_int-bname = it_bkpf-usnam.
APPEND name_int.
ENDLOOP.
SORT name_int BY bname.
DELETE ADJACENT DUPLICATES FROM name_int.
LOOP AT it_bkpf.
READ TABLE name_int WITH KEY
    bname = it_bkpf-usnam
    BINARY SEARCH.
IF name_int-name_text IS INITIAL.
    SELECT SINGLE name_text
      FROM v_usr_name
      INTO name_int-name_text
      WHERE bname = it_bkpf-usnam.
    MODIFY name_int index sy-tabix.
ENDIF.
it_bkpf-username = name_int-name_text.
MODIFY it_bkpf.
ENDLOOP.
Rob

Creating new Scan Tasks in HP Utility

Is there a way to create new Scan Tasks for Scan to Computer beyond the defaults of "Photo (JPEG)" and "Document (PDF)"? SYSTEM INFO:Mac OS 10.9.2HP Officejet 4630HP Utility Version 5.19.2

Hi mxbz, I am not certain you can add new scan tasks but you can modify the existing ones. Use the instructions below.
Open HP Utility from the Dock.UnderScan Settings, clickScan to Computer.Click the Scan Tasks tab.Select any presets that apply to your scan job.Click the Edit... button, change any desired settings, and then clickOK.To start the scan, click Test.The alternate options is to scan from the HP software, Go to Macintosh HD/Applications/Hewlett-Packard, and then double-click theHP Scanicon.Click Scan... in the upper right corner of the window.Click the Down arrow ( ) to view and change any scan settings.To save any scan settings for a future scan job, click the pop-up menu next to Presets, clickSave as... , name the new preset, and then click OK.Click Continueto start the scan.When the scan completes, click Done.
Hope this helps.

Addition of New Column name "Qty" in user defined layout for CJR2

Hi Friends,
I am going thorugh variurs posts but could not a fetch correct answer. If that was available and missed, sorry about that.
My requirement is, wanted to have new user defined layout which would be copied from 1-701 (CJR2). The layout should have new column which would be named as "Qty".
Note that I tried to change name after pulling new fileds from left side to right hand side but these fields are grayed out in change layout.
What is the work around solution to have new column and tthis wouold be named as "Qty". Let me ask one question is it possible to add new fields name to standard layout like 1-702 other than what it has been delivered by SAP????.
Looking forward to hear from and thanks for your efforts.
Regards,
Sudhakar

Have you tried MENU > Edit > Columns > Append additional fields?
I think you can not choose any other characteristics other than SAP has provided which is mentioned in SAP Help.
Regards,
Mahendra

Can we add new field to inventory Warehouse Report

I have to add new field name "Desc in Frgn from Item master data" to inventory Warehouse Report
How can I do that

Hello,
IN print out (PLD) yes, in SAP b1 form not possible.
Regards
János

How to add new text and an empty space before a file name with Automator

I can create a new service to add to multiple files some text before the file name but I need to add even an empty space; e.g. file name original becomes: new text(space)file name original. The aim is to add this text and space to multiple files.
I hope to be understood. Please can somebody help me?
Thanks

This is an old Apple-supplied AppleScript that will do the job.
IMPORTANT: note the conditions of use: it will choose the frontmost Finder window to operate on. Therefore, open the folder you want to change the names of and make it the front finder window BEFORE running the script.
Add to File Names
This script is designed to add a prefix or suffix to files in the front window of the desktop.
If no folder windows are open, the script will affect items on the desktop.
Copyright © 2001–2007 Apple Inc.
You may incorporate this Apple sample code into your program(s) without
restriction. This Apple sample code has been provided "AS IS" and the
responsibility for its operation is yours. You are not permitted to
redistribute this Apple sample code as "Apple sample code" after having
made changes. If you're going to redistribute the code, we require
that you make it clear that the code was descended from Apple sample
code, but that you've made changes.
--March 2014: Changes by Phil Stokes to make the script work on 10.9
--these changes are simply reversing the order of parameters in the lines that have "copy" in them
-- The following line is disabled due to a Menu Manager bug
--set the source_folder to (choose folder with prompt "Pick the folder containing the files to rename:")
try
          tell application "Finder" to set the source_folder to (folder of the front window) as alias
on error -- no open folder windows
          set the source_folder to path to desktop folder as alias
end try
set the prefix_or_suffix to ""
repeat
          display dialog "Enter the prefix or suffix to use:" default answer the prefix_or_suffix buttons {"Cancel", "Prefix", "Suffix"}
          copy the result as list to {button_pressed, prefix_or_suffix}
          if the prefix_or_suffix is not "" then exit repeat
end repeat
set the item_list to list folder source_folder without invisibles
set source_folder to source_folder as string
repeat with i from 1 to number of items in the item_list
          set this_item to item i of the item_list
          set this_item to (source_folder & this_item) as alias
          set this_info to info for this_item
          set the current_name to the name of this_info
          if folder of this_info is false and ¬
                    alias of this_info is false then
                    if the button_pressed is "Prefix" then
                              set the new_file_name to the (the prefix_or_suffix & the current_name) as string
                    else
                              set the new_file_name to the (the current_name & the prefix_or_suffix) as string
                    end if
                    my set_item_name(this_item, the new_file_name)
          end if
end repeat
beep 2
on set_item_name(this_item, new_item_name)
          tell application "Finder"
--activate
                    set the parent_container_path to (the container of this_item) as text
                    if not (exists item (the parent_container_path & new_item_name)) then
                              try
                                        set the name of this_item to new_item_name
                              on error the error_message number the error_number
                                        if the error_number is -59 then
                                                  set the error_message to "This name contains improper characters, such as a colon (:)."
                                        else --the suggested name is too long
                                                  set the error_message to error_message -- "The name is more than 31 characters long."
                                        end if
--beep
                                        tell me to display dialog the error_message default answer new_item_name buttons {"Cancel", "Skip", "OK"} default button 3
                                        copy the result as list to {button_pressed, new_item_name}
                                        if the button_pressed is "Skip" then return 0
                                        my set_item_name(this_item, new_item_name)
                              end try
                    else --the name already exists
--beep
                              tell me to display dialog "This name is already taken, please rename." default answer new_item_name buttons {"Cancel", "Skip", "OK"} default button 3
                              copy the result as list to {button_pressed, new_item_name}
                              if the button_pressed is "Skip" then return 0
                              my set_item_name(this_item, new_item_name)
                    end if
          end tell
end set_item_name

How may I change the format to enter new contacts? I need to add a business name and would like to change the defaults to work rather than home.

I am entering new contacts into the contact app. I need to add a business name and would like to change the default for phone numbers from home to work. I am entering a large amount of business cards

rcolbroth wrote:
Is there anyway of creatiing a different name for this Folder rather than 2013?
If you are using one of Lightroom's "date-based" folder templates, then the folders are created in accordance with the image capture date, not the date that you happen to import it. If you specifically want to use the import date for your folder names then you probably don't want to use the Lightroom date template, and instead you'll need to setup your folder names manually.
The vast majority of users that use date-based folder naming schemes will use a standard Lightroom template, i.e. based on the much more meaningful image capture date.

To add a new bank name in bank accounts field --AP

Dear All
In AP super user ---payments--entry--payments screen there is Bank Accounts field --how do we add a new Bank name( to that LOV)
Kindly guide
thanking in advance
lincy

Define bank, branch and bank account using below navigation -
Cash Management Super user > Set up > Banks > Banks/Bank Accounts
Before you define bank account, you have to proivde Legal Entity access to bank account which will own this bank account.

Aperture adds the same name to all new locations, how do I delete the name but not the address?

Aperture adds the same name to all new locations, how do I delete the name but not the address?

It's easy to rename each unit. When you connect your iPad and it syncs, the unit will appear on the left of the iTUnes screens just click on the unit there and you can rename it. You should do this immediately so you can see which unit was backed up by it's name. You can sync as many decices as you want in one iTunes library and you can even share Apps as long as you're going to sync both from teh same iTunes account. My household has 2 iPad 2s and we share our apps, and we also share downloaded books, magazines, music, etc.......

Keyboard doesn't show up when I want 2 add a new contacts name on my iPhone 4S

Keyboard doesn't show up when I want 2 add a new contacts name on my iPhone 4S

Basic troubleshooting from the User's Guide is reset, restart, restore (first from backup then as new). Try each of these in order until the issue is resolved.

Anyway to "UN" Ken Burns stills globally or as default bringing in jpeg's? New to iMovie. I have 3 titles that build. First is logo, add prod't name second line, add date 3rd line. They shift when dissolving between them. Title function NG for this.

Anyway to "UN" Ken Burns stills globally or as default bringing in jpeg's? New to iMovie. I have 3 titles that build. First is logo, add prod't name second line, add date 3rd line. They shift when dissolving between them. Title function NG for this.
The people at the Apple store gave me a long, tedious workaround which is open Pages and bring in logo. Export it as a PDF. Open the PDF in Review and then "Save As" a jpg to the desktop and drag and drop into the imovie. Even with this process, the text will sometimes shift. When it works, it looks good, the logo comes up, then the second line fades in under it as part of the build and then the third line completes the graphic. It would something this easy and straight forward would be easy.
HarveyV

I did the work around for the titles/jpg's in this short video.
I'll try your fix on the next one. I have 22 short 3-5 minute videos to produce
and I'm on number 5. This should save me a bunch of time.
It would appear that you know more than the guy at the Apple Store.
Thank goodness for on-line forums.
I already tried fixing them individually as you suggested,
by going the crop/fit route. However, even then,
the second in the series had always shifted.
The first and the third images lined up, but not number 2..
So I brought in all the images, (1, 2 and 3).
and then the 2nd image again and put it in the third position
in the sequence on the time line. I deleted the "original" 2nd image.
So I had 1, 3, then 2. Then I dragged and dropped the correct number two
into position two and it worked. So what happens is that the
client logo appears, then that stays put and the next line dissolves in
and then the third dissolves in. They are three separate titles, but they
are aligned perfectly so that they build as I dissolve between them.
I think the problem with the edit copy route would be that while
I could edit/copy the logo, I couldn't position text through the
iMovie text function exactly as it only gives you middle or bottom third etc.
Each title with the product name is positioned individually depending on
length and number of lines. By going through Pages, I can position the logo
and the text exactly. Also, some logos are horizontal, while others
are square etc., so text positioning is crucial.Anyhow,
I'll try the global approach for the next one and see how that works.
Thanks very much for your insight and especially for your prompt reply.
I trust you're inside on this gorgeous July 4th because you're
making money on your computer. ;-)HarveyVOn 7/4/2011 3:57 PM, Apple Support Communities Updates wrote:
> Apple Support Communities <https://discussions.apple.com/index.jspa>>>> Re: Anyway to "UN" Ken Burns stills globally or as default> bringing in jpeg's? New to iMovie. I have 3 titles that build.> First is logo, add prod't name second line, add date 3rd line.> They shift when dissolving between them. Title function NG for...>> created by AppleMan1958 > <https://discussions.apple.com/people/AppleMan1958> in /iMovie/ - View > the full discussion > <https://discussions.apple.com/message/15552380#15552380>> ------------------------------------------------------------------------>> I am baffled by what you are asking...but if you are asking how to > turn off the Ken Burns effect, you can do it for future photos you add > by going to File/Project Preferences and setting the default initial > photo placement to FIT or CROP rather than Ken Burns.>> For a global change on photos that are already in your project, pick a > photo. Open the Rotate, Crop, Ken Burns Tool. Select FIT or CROP. > Exit the tool. Now select this same photo and EDIT/COPY.>> Now, EDIT/SELECT ALL.>> Finally, EDIT/PASTE ADJUSTMENTS.../CROP ADJUSTMENTS.

Adding new scan listener

Hi
when i installed 11.2 rac, I only had one ip assigned to the scan in dns, so I have ended up with one scan listener listener_scan1
i have allocated second ip to the scan name in dns but struggling to get the second scan listener up and running.
srvctl config scan
SCAN VIP name: scan1, IP: /*****/****
SCAN VIP name: scan2, IP: /*****/****
i have also manually added entry to $grid_homenetwork/admin/listener.ora
LISTENER_SCAN2=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=IPC)(KEY=LISTENER_SCAN2)))) # line added by Agent
ENABLE_GLOBAL_DYNAMIC_ENDPOINT_LISTENER_SCAN2=ON # line added by Agent
do i need to make any other changes?

Levi Pereira wrote:
Hi,
i have also manually added entry to $grid_homenetwork/admin/listener.oraDid you use this command create new scan_listener?
srvctl add scan_listener
Regards,
Levi Pereirathe command initially failed wth error saying scan listener already exists...I fixed the issue by stopping the listener_scan1 , doing srvctl remove to remove scan listener then did srvctl add scan.... which created 2 listeners this time and all working ... i guess srvctl checks the dns and creates as many as listeners as required ( depending on number of ip's configured in dns)
thanks anyway

Add New partition

Hello,
Oracle 11.2.0.1
Windows
I am having one partitioned IOT something like this :
create table my_table (
col1 number(10) not null,
col2 varchar2(7) not null,
col3 varchar2(20) not null,
col4 varchar2(20) not null,
col5 varchar2(20) not null,
col6 date not null,
col7 number(4) not null,
col8 varchar2(1) not null,
col9 varchar2(1) not null,
primary key(col1,col2,col3,col4,col5,col6,col7,col8,col9)
organization index
partition by range (col3,col4,col5)
(partition p1 values less than('A%','A%','A%'),
partition p2 values less than('B%','B%','B%'),
partition p3 values less than('C%','C%','C%'),
PARTITION p27 VALUES LESS THAN (MAXVALUE,MAXVALUE,MAXVALUE))
Now, I want to add new range partition on column col7. There is an index exist on col7 too, but since table is carrying around 200 million rows, only having index is not looking good, so I thought to add similar type of partition on col7. In col7 there are range value between 2000 to 2010 only.
Kindly tell me how do I proceed to add new partition on another column of existing partitioned IOT please.
Thanks.

i thought that I am having the data of all student_name, father_name and mother_name whose name starts from A in partition p2 (because B is less than A) and like wise upto Z. Am I clear this ? I mean, if I says a student whose name is Boby John (partition p3), father name Robert (partition p19) and mother name Lilly (partition p13) ?A row can be in exactly one partition. It can't be in three different partitions. If you want to create 26*26*26 partitions, then you could have a separate partition for each possible combination. If you want just 26 partitions, you would realistically only want to partition by one column (presumably student_name).
select * from my_table where student_name like '%Boby%' and father_name like '%Robert%' and mother_name like '%Lilly%' and passing_year=2001. This would prevent Oracle from doing any sort of partition pruning since you're looking for a string anywhere within the name. You'd be better off not partitioning the table at all if you want to run this sort of query. You'd be much better off using Oracle Text and turning your LIKE conditions into CONTAINS conditions.
So, I think oracle is using 3 partitions i.e. P3 for Boby, P19 for Robert and P13 for Lilly. Upto this query is running fine and very good, no issue of slowness, but when ever query gets year=something other than 2001, it takes time. So, I thought I should have partitions on passing_year column too.No. A row exists in exactly 1 partition. Oracle has to scan all 26 partitions to satisfy this query. It would be more efficient not to partition the table at all. Even if you created 26*26*26*10 partitions, Oracle would still have to scan 26*26*26 partitions since passing_year is the only predicate on which you could do partition pruning. But that is unlikely to be useful-- you'd almost certainly be better off with no partitioning.
Justin

How to add folder/project name to a File Naming preset

Here's a tip to automatically add the name of the Project or its parent Folder to the filename during Import or Batch Change.
I always used a custom field for adding my client's name to the filename upon Import or Batch Changing versions or masters. But often I would forget to change the custom name, and since it's auto-populated with the previous entry, I'd end up with a bunch of files with the wrong client's name on them. That looks kind of bad. So once I saw with Aperture 3 you can add the Project name or Folder name when relocating referenced files to the new folder structure, I was excited to be able to do the same for the filenames at import. Well, no such luck. They're not an option when you create a custom File Naming preset.
However, I recently decided to poke around inside some plist files, and found a workaround. I discovered the format string for Folder Name is %F and Project Name is %P. The trick is getting the code into the Format Field where you create the preset.
Create a new File Naming preset by choosing "edit" from the Version Name menu during Import or Batch Change. Drag everything you want in the name into the Format field, and enter %F or %P where you want the Folder or Project name. The tricky part is that you can't insert it between two existing criteria. It only works at the very end. After you have it in place, you can drag the criteria around to get it in the order you want.
The alternative method is to insert the code directly into the plist. PLEASE, always make sure you're working with a copy and have a good backup when you're poking around in such things. If you have trouble getting the code to take from within Aperture, you can try this. Same as above, create a new preset, but this time, enter an F or P where you want the Folder or Project name. Give it a unique preset name and save it. Then Quit Aperture. Navigate to ~/Library/Application Support/Aperture/FileNamingPresets.plist, and make a copy of the file, then open with Property List Editor. Dropdown the plist and then dropdown the item you want to edit. You should recognize it by the preset name. Now the easy part. Click in the FormatString field and insert the % character before the F or P you entered in the Format field. Save and you're done.
I discovered later that while the Folder and Project name works just fine during import, for some reason only the Project name works during Batch Change. The Folder name simply creates a "-" in the filename.
In case this is seen as a hack and gets deleted, I'm also submitting it to http://www.macosxhints.com/ and I suspect if anyone from MacCreate sees it, they'll steal it too, as they're known to do.

I do not think there is an out of the box way to do this.
The immediate solution that comes to mind is using a workflow, that runs everytime a document is uploaded/item created, which may be too much for your scenario.
Cheers,
Prasanna Adavi, Project MVP
Blog:
Podcast:
Twitter:
LinkedIn:

I wnat to add new fieldtext in the alv list output plz tell me

hi,
i whant add new fieldtext in the list output, plz tell me where can i modify it.
CORRECTIONS
DATE       CORRECTION NOTE    AUTHOR DESCRIPTION
09.03.2001 L9CK045451 0388404 XSC    Wrong list output for multiple Os
05.06.2001 AL0K023393 0410219 Lud    Wrong keydate for search with
                                     Pchbegda and pchendda.
22.04.2004 S6BK024775 730486 PS     Too many selection parameters in
                                     header
19.06.2006 S6BK035494 956731 JF     No sorting by qualification
REPORT RHPK_FIND_PERS_WITH_EXPIRED_QU MESSAGE-ID PQ.
DATA AUFRUF(8).
TABLES : OBJEC, GDSET.
DATA LIST.
DATA MARKFIELD(1) TYPE C.
ALV_POOL
TYPE-POOLS SLIS.
INCLUDES
INCLUDE .
INCLUDE RHPEINI0.
TABLES
DATA: orgeh_BUFFER like hrobject OCCURS 1 WITH HEADER LINE.
DATA: OBJECTS    LIKE HRSOBID    OCCURS 1 WITH HEADER LINE.
DATA: h_OBJEC    LIKE objec    OCCURS 0 WITH HEADER LINE.
DATA: pers_objects LIKE HRSOBID    OCCURS 1 WITH HEADER LINE.
DATA: QUALI_TAB LIKE QUALI_PROF OCCURS 1 WITH HEADER LINE.
DATA: PERSONS LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: H_PERSONS LIKE HRPE_PROFL OCCURS 1 WITH HEADER LINE.
DATA: LIST_OUTPUT LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: BOOK_EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: PLAN_EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA H_SUITED LIKE DYNP_PCRIT-SUITED.
DATA: O_COLOR LIKE STREEATTR-COLOR.
DATA: O_INTENSIV LIKE STREEATTR-INTENSIV.
DATA SHOW_KEY.
DATA EVENT.
DATA: HTEXT LIKE P1000-STEXT.
DATA: EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: COLLECTED_EVENTS LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: SUBTY_TAB LIKE HRPE_OTYPE_SUBTY OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF HIDE_STRU,
        PERSTYPE LIKE HROTYPE-OTYPE,
        PERSOBID LIKE HRSOBID-SOBID,
        PERSTXT LIKE PERSQ_PROF-STEXT,
        SCALE_ID LIKE HRPE_PROFQ-SCALE_ID,
        TRAININGTYPE LIKE HRP1000-OTYPE,
        TRAININGID   LIKE HRP1000-OBJID,
        TRAININGSTXT LIKE HRP1000-STEXT,
        QUALID LIKE QUALI_PROF-QUALID,
        QUALTEXT LIKE QUALI_PROF-QUALSTXT,
      END OF HIDE_STRU.
DATA: BEGIN OF EXTAB OCCURS 10,
         FCODE LIKE RSMPE-FUNC,
      END OF EXTAB.
DATA: CURRENT_QUALID LIKE QUALI_PROF-QUALID.
DATA: CURRENT_TRAININGSID LIKE HRP1000-OBJID.
DATA: CURRENT_TRAININGTYPE LIKE HRP1000-OTYPE.
DATA: SUBRC LIKE SY-SUBRC.
VARIABLES
DATA: OBJID LIKE P1000-OBJID.
DATA: H_LINE_COUNT TYPE I.
DATA: H_TABIX1 LIKE SY-TABIX.
ALV-Variables
DATA: alv_events_line    TYPE slis_alv_event.         "header line
DATA ALV_EVENTS TYPE SLIS_T_EVENT.
DATA GT_ALV_LIST_TOP_OF_LIST TYPE SLIS_T_LISTHEADER.
DATA: gt_events TYPE SLIS_T_EVENT.
DATA G_REPID LIKE SY-REPID.
DATA G_VARIANT LIKE DISVARIANT.
DATA ALV_USERCOMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
DATA G_USERCOMMAND_FOR_RANKINGLIST TYPE SLIS_FORMNAME VALUE
'USER_COMMAND_FOR_RANKINGLIST'.
DATA ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: ALV_OUTPUT LIKE HRPDV_EXPIRED_Q OCCURS 0 WITH HEADER LINE.
DATA: Help_OUTPUT LIKE HRPDV_EXPIRED_Q OCCURS 0 WITH HEADER LINE.
begin of Dynpro 5020 - POPUP: WEITER
DATA: OK_CODE_5020   LIKE SY-UCOMM.
DATA: NO_ORG.                          "if no org selected
DATA: H_TABIX LIKE SY-TABIX.
begin of Dynpro 20nn - Header
TABLES: DYNP_RHPP.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-005.
PARAMETERS:
   H_EVENTS LIKE DYNP_RHPP-GEN_TRAIN, "with training sugg
   H_QUAL   LIKE DYNP_RHPP-EXPIRED_QUAL. "with Qual
SELECTION-SCREEN END OF BLOCK B3.
INITIALIZATION
INITIALIZATION.
PERFORM READ_T77S0_PARAMETERS_FOR_PE.
get user parameters/Planvariante und Beginndatum setzen:
PCHOTYPE = $ORGEH.
CALL FUNCTION 'RHP0_USER_PARAMETERS_GET'
       EXPORTING
            FILL_IF_INITIAL = 'X'
       IMPORTING
            PLVAR           = PCHPLVAR
            BEGDA           = PCHBEGDA
            endda           = Pchendda    "Correction 0410219
            WITH_KEY        = SHOW_KEY
          SUBSTITUTE      =
          ESSENTIAL       = only_essential
            ORG_UNIT        = PCHOBJID-LOW
      EXCEPTIONS
            OTHERS     = 0.
PCHBEGDA = LOW_DATE.   "Correction note: 0410219 / AL0K023393
get menu text for key on/off
PERFORM USER_MENU_TEXT_KEY(SAPLRHP0) USING G_MENU_TEXT_KEY.
start-of-selection
START-OF-SELECTION.
terminate the selection if objid isn't given
READ TABLE PCHOBJID INDEX 1 TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0
AND PCHOBJID IS INITIAL.
    PCHOBJID-SIGN   = 'I'.
    PCHOBJID-OPTION = 'EQ'.
    PCHOBJID-LOW    = '00000001'.
    APPEND PCHOBJID.
    NO_ORG = TRUE.
ELSE.
    NO_ORG = FALSE.
ENDIF.
GET OBJEC.
terminate the selection if objid isn't given
IF NO_ORG = TRUE.
    EXIT.
ENDIF.
OBJECTS-PLVAR = PCHPLVAR.
OBJECTS-OTYPE = PCHOTYPE.
OBJECTS-SOBID = OBJEC-REALO.
APPEND OBJECTS.
Für das lesen der Organisationseinheit
h_OBJEC-PLVAR = OBJEC-PLVAR.
h_OBJEC-OTYPE = OBJEC-OTYPE.
h_OBJEC-OBJID = OBJEC-objid.
append h_objec.
Read table h_objec index 1 transporting no fields.
if sy-subrc = 0.
Fill Buffer
    orgeh_BUFFER = h_OBJEC.
    orgeh_BUFFER[] = h_OBJEC[].
    CALL FUNCTION 'RH_TEXT_BUFFER_FILL'
      TABLES
        OBJECTS = orgeh_BUFFER.
    Loop at h_OBJEC.
      H_TABIX = SY-TABIX.
Read text of organisation
      CALL FUNCTION 'RH_READ_OBJECT'
           EXPORTING
                PLVAR     = h_OBJEC-plvar
                OTYPE     = h_OBJEC-otype
                OBJID     = h_OBJEC-OBJID
           IMPORTING
              OBEG      = h_objec-begda
              OEND      = h_objec-endda
               SHORT     = short
                STEXT     = h_OBJEC-stext
          EXCEPTIONS
                NOT_FOUND = 1
                OTHERS    = 2.
      IF SY-SUBRC = 0.
        modify h_OBJEC index H_TABIX.
      ENDIF.
    endloop.
endif.
end-of-selection
END-OF-SELECTION.
read objects of the organizational unit
OBJID = OBJECTS-SOBID.
CALL FUNCTION 'RHPH_PICK_UP_PERSONS'
      EXPORTING
           BEGDA      = PCHBEGDA    "Correction 0410219
           ENDDA      = PCHENDDA    "Correction 0410219
         STATUS     = '1'
           WITH_STEXT = 'X'
       TABLES
            OBJECTS    = OBJECTS
            PERSONS    = H_PERSONS
      EXCEPTIONS
           UNDEFINED = 1
           OTHERS     = 2.
IF SY-SUBRC = 0.
prepare objects !
    objects-otype = h_persons-ttype.
    objects-sobid = h_persons-tobid.
    append objects.
ELSE.
    EXIT.
ENDIF.
CLEAR OBJECTS. REFRESH OBJECTS.
prepare sel_objects !
pers_objects-PLVAR = PCHPLVAR.
LOOP AT H_PERSONS.
    pers_objects-OTYPE = H_PERSONS-TTYPE.
    pers_objects-SOBID = H_PERSONS-TOBID.
    APPEND pers_objects.
ENDLOOP.
sort objects and delete adjacent duplicates
SORT Pers_OBJECTS BY PLVAR OTYPE SOBID.
DELETE ADJACENT DUPLICATES FROM Pers_OBJECTS COMPARING PLVAR OTYPE
SOBID.
CALL FUNCTION 'RHPK_FIND_PERS_WITH_EXPIRED_Q'
       EXPORTING
           PLVAR            = PCHPLVAR
           CHECK_BEGDA      = PCHBEGDA
           CHECK_ENDDA      = PCHENDDA
           SUBTY            = $ownsb                        "'B032'
         only_essential   =
         target_otype     =
         target_ap_iea    =
       TABLES
            IMP_PER_TAB     = pers_objects
            QUALI_TAB       = QUALI_TAB
            PERSONS         = LIST_OUTPUT
        altq_tab          =
      EXCEPTIONS
           NO_QUALIFICATION = 1
           NO_PERSON_FOUND = 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.
100% case
READ TABLE pers_objects INDEX 1 TRANSPORTING NO FIELDS.
IF SY-SUBRC = 0.
    sort pers_objects by otype sobid.
check the selected persons: if org.unit was selected !
    Loop at pers_objects.
      H_TABIX = SY-TABIX.
      READ TABLE LIST_OUTPUT WITH KEY OTYPE = pers_objects-OTYPE
                                       SOBID = pers_objects-SOBID
                                       BINARY SEARCH.
      IF SY-SUBRC <> 0.
      person doesn't belong to the selected org.unit
      DELETE LIST_OUTPUT INDEX H_TABIX.
      ENDIF.
    ENDLOOP.
ENDIF.                               "org.unit check needed ?
end-of-selection.
sort h_objec by otype objid.
sort list_output by otype sobid.
sort h_persons by ttype tobid.
ALV-Liste aufbauen
loop at h_objec.
    loop at h_persons where otype = h_objec-otype     "XSC
                      and   sobid = h_objec-objid.    "XSC
      Read table list_output with key
                             otype = h_persons-ttype
                             sobid = h_persons-tobid
                             binary search.
      if sy-subrc = 0.
        h_tabix1 = sy-tabix.
        while sy-subrc = 0.
          clear alv_output.                            "XSC
          ALV_OUTPUT-otype    = h_objec-otype.
          ALV_OUTPUT-sobid    = h_objec-objid.
          ALV_OUTPUT-stext    = h_objec-stext.
          ALV_OUTPUT-Ptype    = LIST_OUTPUT-otype.
          ALV_OUTPUT-pobid    = LIST_OUTPUT-sobid.
          ALV_OUTPUT-pshort   = LIST_OUTPUT-short.
          ALV_OUTPUT-ptext    = LIST_OUTPUT-stext.
          ALV_OUTPUT-qualid   = LIST_OUTPUT-qualid.
          ALV_OUTPUT-qualstxt = LIST_OUTPUT-qualstxt.
          ALV_OUTPUT-expbegda = LIST_OUTPUT-vbegda.
          ALV_OUTPUT-expendda = LIST_OUTPUT-vendda.
      PERFORM FIND_TRAINING TABLES QUALI_TAB EVENT_TAB COLLECTED_EVENTS
                USING $PLVAR $GDATE H_EVENTS H_QUAL.
          IF NOT EVENT_TAB[] IS INITIAL.
            READ TABLE COLLECTED_EVENTS WITH KEY
                                 QUALID = LIST_OUTPUT-QUALID.
            IF SY-SUBRC = 0.
              ALV_OUTPUT-ICON_S_EVENTS = ICON_BOOKEVENT.
            endif.
          ENDIF.
          Append ALV_OUTPUT.
          h_tabix1 = h_tabix1 + 1.
          READ TABLE list_output INDEX h_tabix1
                     COMPARING otype sobid.
        endwhile.
      endif.
    endloop.
endloop.
check if indicator for qualification view is set
IF h_qual = 'X'.                                          "note 956731
    SORT alv_output by qualid OTYPE SOBID ptype pobid       "note 956731
    expbegda expendda.                                      "note 956731
ELSE.                                                     "note 956731
    SORT alv_output by OTYPE SOBID ptype pobid qualid expbegda expendda.
ENDIF.                                                    "note 956731
DELETE ADJACENT DUPLICATES FROM ALV_OUTPUT COMPARING OTYPE SOBID ptype
    pobid qualid expbegda expendda.
stext_AQ und icon-Feld noch nicht gefüllt
    perform PREPARE_TOP_OF_LIST.
    perform Build_FIELDCAT using GT_FIELDCAT[] H_EVENTS.
    perform ALV_LAYOUT USING alv_layout.
    G_REPID          = SY-REPID.
    G_VARIANT-REPORT = G_REPID.
    PERFORM EVENTTAB_BUILD USING GT_EVENTS.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
    I_INTERFACE_CHECK        = 'X'
        I_CALLBACK_PROGRAM       = G_REPID
    I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
        I_CALLBACK_USER_COMMAND = ALV_USERCOMMAND
        I_STRUCTURE_NAME         = 'HRPDV_EXPIRED_Q'
        IS_LAYOUT                = ALV_LAYOUT
        IT_FIELDCAT              = GT_FIELDCAT[]
    IT_EXCLUDING             =
    IT_SPECIAL_GROUPS        =
    IT_SORT                  =
    IT_FILTER                =
    IS_SEL_HIDE              =
        I_DEFAULT                = 'X'
        I_SAVE                   = 'A'
        IS_VARIANT               = G_VARIANT
        IT_EVENTS                = GT_EVENTS
    IT_EVENT_EXIT            =
    IS_PRINT                 =
    IS_REPREP_ID             =
    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   =
      TABLES
        T_OUTTAB                 = ALV_OUTPUT
      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.
*&      Form FIND_TRAINING
      text
     -->P_QUALI_TAB text
     -->P_EVENT_TAB text
     -->P_$PLVAR text
     -->P_GDATE text
     -->P_H_EVENT text
     -->P_H_QUAL text
FORM FIND_TRAINING TABLES P_QUALI_TAB STRUCTURE QUALI_TAB
                           P_EVENT_TAB STRUCTURE EVENT_TAB
                           P_COLLECTED_EVENTS STRUCTURE COLLECTED_EVENTS
                   USING   VALUE(P_$PLVAR) LIKE P1000-PLVAR
                           VALUE(P_GDATE) LIKE P1000-GDATE
                           VALUE(P_H_EVENT) TYPE ANY
                           VALUE(P_H_QUAL) TYPE ANY.
IF NOT P_H_EVENT IS INITIAL.
    READ TABLE EVENT_TAB INDEX 1 TRANSPORTING NO FIELDS.
    IF SY-SUBRC <> 0.
      CLEAR P_EVENT_TAB. REFRESH EVENT_TAB.
      CLEAR P_COLLECTED_EVENTS. REFRESH P_COLLECTED_EVENTS.
      IF EVENT = FALSE.
        EVENT = TRUE.
      ELSE.
        EVENT = FALSE.
      ENDIF.
      CALL FUNCTION 'RHPH_FIND_TRAINING_FOR_QUAL'
           EXPORTING
                PLVAR            = PCHPLVAR
                GDATE            = SY-DATUM
              GET_NAME         = 'X'
           TABLES
                QUALI_TAB        = QUALI_TAB
                TO_Q_TAB         = EVENT_TAB
          EXCEPTIONS
               NO_QUALIFICATION = 1
               NO_OBJECT_FOUND = 2
               TECHNICAL_ERROR = 3
               OTHERS           = 4.
      IF SY-SUBRC = 0.
the found qualifications are picked up into table event_tab
      ENDIF.
      IF SY-SUBRC = 1.
        MESSAGE S015.   "Zu den Eingaben wurden keine Daten gefunden
      ENDIF.
      IF SY-SUBRC > 2.
        EXIT.
      ENDIF.
collect events when there are double.
Veranstaltungen kollektieren, Können mehrfach auftauchen, da
verschiedenen Qualifikationen von gleichen Veranstaltungen vermittelt
      LOOP AT P_EVENT_TAB INTO P_COLLECTED_EVENTS.
        APPEND P_COLLECTED_EVENTS.
      ENDLOOP.
      SORT P_COLLECTED_EVENTS BY QUALID STEXT.
    ENDIF.
ENDIF.
ENDFORM.                               " FIND_TRAINING
*&      Form PREPARE_TOP_OF_LIST
      text
--> p1        text
<-- p2        text
FORM PREPARE_TOP_OF_LIST.
DATA ALV_TOP_OF_LIST TYPE SLIS_LISTHEADER. "typ, key, info
DATA STEXT LIKE HRPDV_SUCCESSOR_VIEW-TTEXT.
DATA P_SUBRC LIKE SY-SUBRC.
DATA P_STEXT LIKE T777O-OTEXT.
DATA l_tabix like sy-tabix value 0.
DATA: h_counter TYPE i.                             "note 730486
ALV_TOP_OF_LIST-TYP = 'H'.
ALV_TOP_OF_LIST-INFO = TEXT-REQ.
APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
Organisationseinheit
ALV_TOP_OF_LIST-typ = 'S'.
Read text for organisationunit
PERFORM READ_TEXT_OTYPE_T777O(SAPLRHP0) USING SY-LANGU $ORGEH
                                                P_STEXT P_SUBRC.
ALV_TOP_OF_LIST-key = P_STEXT.
fill buffer for read organisation-text
CALL FUNCTION 'RH_TEXT_BUFFER_FILL'
     EXPORTING
          CHECK_STRU_AUTH = 'X'
          WITH_EXTINT     = ' '
       TABLES
            OBJECTS         = OBJECTS.
loop at objects for multipleselection
clear h_counter.                          "note 730486
LOOP AT OBJECTS.
    $OBJID = OBJECTS-SOBID.
    CALL FUNCTION 'RH_READ_OBJECT'
         EXPORTING
            PLVAR           = OBJECTS-PLVAR
            OTYPE           = OBJECTS-OTYPE
            OBJID           = $OBJID
         IMPORTING
          SHORT           = short
            STEXT           = STEXT
         EXCEPTIONS
            NOT_FOUND       = 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.
    IF h_counter >= 15.                               "note 730486
      MOVE '( ... )' TO ALV_TOP_OF_LIST-INFO.         "note 730486
      APPEND ALV_TOP_OF_LIST TO gt_alv_list_top_of_list.
      "note 730486
      EXIT.                                           "note 730486
    ENDIF.                                            "note 730486
    CONCATENATE $ORGEH OBJECTS-SOBID STEXT INTO
    ALV_TOP_OF_LIST-INFO SEPARATED BY SPACE.
    APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
    CLEAR ALV_TOP_OF_LIST.
    ALV_TOP_OF_LIST-typ = 'S'.
    l_tabix = l_tabix + 1.
    ADD 1 TO h_counter.                         "note 730486
ENDLOOP.
CLEAR ALV_TOP_OF_LIST.
ALV_TOP_OF_LIST-TYP = 'S'.
ALV_TOP_OF_LIST-key = TEXT-003.
WRITE PCHBEGDA TO ALV_TOP_OF_LIST-INFO.
APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
clear ALV_TOP_OF_LIST-INFO.
ALV_TOP_OF_LIST-key = TEXT-004.
WRITE PCHENDDA TO ALV_TOP_OF_LIST-INFO.
Append ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
ENDFORM.                               " PREPARE_TOP_OF_LIST
*&      Form BUILD_FIELDCAT
      text
     -->P_GT_FIELDCAT[] text
FORM BUILD_FIELDCAT USING P_GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV
                           P_H_EVENTS.
DATA: WA_FIELDCAT LIKE LINE OF P_GT_FIELDCAT.
DATA: P_REPNAME LIKE SY-REPID,
        L_TABIX LIKE SY-TABIX.         "local variable for sy-tabix.
P_REPNAME = SY-REPID.
Erstellen des Feldkataloges
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
           I_PROGRAM_NAME         = P_REPNAME
           I_INTERNAL_TABNAME     =
           I_STRUCTURE_NAME       = 'HRPDV_EXPIRED_Q'
           I_CLIENT_NEVER_DISPLAY = 'X'
           I_INCLNAME             = PRONAME
     CHANGING
           CT_FIELDCAT            = P_GT_FIELDCAT
     EXCEPTIONS
           INCONSISTENT_INTERFACE = 0
           PROGRAM_ERROR          = 0
           OTHERS                 = 0.
LOOP AT P_GT_FIELDCAT INTO WA_FIELDCAT.
    l_tabix = sy-tabix.
    CASE WA_FIELDCAT-FIELDNAME.
      when 'OTYPE'.
        WA_FIELDCAT-DDICTXT = 'L'.
      when 'SOBID'.
        WA_FIELDCAT-DDICTXT = 'L'.
      WHEN 'STEXT'.
        WA_FIELDCAT-DDICTXT = 'L'.
      when 'PTYPE'.
        WA_FIELDCAT-DDICTXT = 'L'.
      when 'POBID'.
        WA_FIELDCAT-DDICTXT = 'L'.
      when 'PSHORT'.
        WA_FIELDCAT-DDICTXT = 'L'.
      WHEN 'PTEXT'.
        WA_FIELDCAT-DDICTXT = 'L'.
      WHEN 'QUALID'.
        WA_FIELDCAT-DDICTXT = 'L'.
      WHEN 'QUALSTXT'.
        WA_FIELDCAT-DDICTXT = 'L'.
      WHEN 'EXPBEGDA'.
        WA_FIELDCAT-DDICTXT = 'L'.
      WHEN 'EXPENDDA'.
        WA_FIELDCAT-DDICTXT = 'L'.
      WHEN 'ICON_S_EVENTS'.
        IF P_H_EVENTS IS INITIAL.
          WA_FIELDCAT-NO_OUT = 'X'.
        else.
          WA_FIELDCAT-DDICTXT = 'X'.
        endif.
    ENDCASE.
    MODIFY P_GT_FIELDCAT FROM WA_FIELDCAT INDEX l_tabix.
ENDLOOP.
ENDFORM.                               " BUILD_FIELDCAT
*&      Form ALV_LAYOUT
      text
     -->P_L_ALV_LAYOUT text
FORM ALV_LAYOUT USING    P_ALV_LAYOUT TYPE slis_layout_alv.
build layout
P_LAYOUT-BOX_FIELDNAME = 'MARK_X'.   "fieldname for checkbox
P_ALV_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
P_ALV_LAYOUT-BOX_TABNAME   = ALV_OUTPUT.   "tabname for checkbox
p_ALV_layout-info_fieldname = 'ALV_COLOR'.
ENDFORM.                               " ALV_LAYOUT
FORM eventtab_build USING
FORM EVENTTAB_BUILD USING RT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
MOVE 'TOP_OF_PAGE' TO LS_EVENT-NAME.
MOVE 'TOP_OF_PAGE' TO LS_EVENT-FORM.
APPEND LS_EVENT TO RT_EVENTS.
ENDFORM.                    "EVENTTAB_BUILD
*FORM TOP_OF_PAGE
FORM TOP_OF_PAGE.                                           "#EC CALLED
NEW-PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = GT_ALV_LIST_TOP_OF_LIST[].
ENDFORM.                    "TOP_OF_PAGE
      FORM USER_COMMAND                                             *
USER_COMMAND for the list of successor view                         *
--> r_ucomm                                                       *
--> rs_selfield                                                   *
FORM USER_COMMAND USING ALV_UCOMM LIKE SY-UCOMM
      RS_SELFIELD TYPE SLIS_SELFIELD.                       "#EC CALLED
DATA: SELECTED_LINE LIKE HRPDV_expired_q.
DATA: SOBID_QUA LIKE P1000-OBJID.
DATA: LT_PERS_TAB LIKE HRSOBID OCCURS 0 WITH HEADER LINE.
CASE ALV_UCOMM.
    WHEN '&IC1'.                       "per Doppelklick auswählen
      READ TABLE ALV_OUTPUT INDEX
      RS_SELFIELD-TABINDEX INTO SELECTED_LINE.
      CASE RS_SELFIELD-FIELDNAME.
        WHEN 'POTYPE' or 'POBID' or 'PTEXT' or 'OTYPE' or 'SOBID' or
'STEXT' or 'QUALID' or 'QUALSTXT' or 'EXPBEGDA' or 'EXPENDDA'.
          READ TABLE ALV_OUTPUT INDEX RS_SELFIELD-TABINDEX INTO
                Help_output.
          IF SY-SUBRC <> 0.
            MESSAGE S027.               "Bitte gültige Zeile auswählen
            EXIT.
          Endif.
     IF ALV_OUTPUT-SOBID IS INITIAL.
       MESSAGE S015. "Zu den Eingaben wurden keine Daten gefunden
     ELSE.
     converte the variable because of the different types
     SOBID_QUA = SELECTED_LINE-SOBID_QUA.
          CALL FUNCTION 'RHPP_SHOW_PROFILE'
            EXPORTING
              PLVAR        = pchplvar
              OTYPE        = SELECTED_LINE-PTYPE       "XSC
              OBJID        = SELECTED_LINE-POBID       "XSC
              BEGDA        = PCHBEGDA
              ENDDA        = PCHENDDA
              MAINTAIN     = ' '
            EXCEPTIONS
              NO_AUTHORITY = 1
              NOT_FOUND    = 2
              OTHERS       = 3.
          CASE SY-SUBRC.
            WHEN 0.
            All right.
            WHEN 1.
              MESSAGE S015.
            Zu Ihren Eingaben konnten keine Daten gefunden werden!
            WHEN 2.
              MESSAGE E000.
            Dazu haben sie keine berechtigung!
            WHEN OTHERS.
              MESSAGE E008.
            Es ist ein unvorhergesehener Fehler aufgetreten.
          ENDCASE.                     "sy-subrc.
          CLEAR ALV_OUTPUT.
   ENDIF.    "IF ALV_OUTPUT-SOBID IS INITIAL.
   CLEAR ALV_OUTPUT-SOBID.
        when 'ICON_S_EVENTS'.
          IF SELECTED_LINE-ICON_S_EVENTS IS INITIAL.
            MESSAGE S027.              "Bitte gültige Zeile auswählen
            EXIT.
          ENDIF.
          CLEAR LT_PERS_TAB.
          REFRESH LT_PERS_TAB.
          LT_PERS_TAB-PLVAR = pchPLVAR.
          LT_PERS_TAB-OTYPE = SELECTED_LINE-PTYPE.          "XSC
          LT_PERS_TAB-SOBID = SELECTED_LINE-POBID.          "XSC
          APPEND LT_PERS_TAB.
          SOBID_QUA = SELECTED_LINE-QUALID.
          CALL FUNCTION 'RHPP_SHOW_SUGGEST_EVENTS'
          EXPORTING
            P_PLVAR      = pchPLVAR
            P_SOBID_QUA = SOBID_QUA
          P_PROFCY_REQ = SELECTED_LINE-RATING_REQ
            P_GDATE      = sy-datum
          TABLES
          EVENT_TAB    =
            PERS_TAB     = LT_PERS_TAB.
      endcase.
      CLEAR SELECTED_LINE.
ENDCASE.                             "case sy-ucomm
CLEAR SY-UCOMM.
ENDFORM.                    "USER_COMMAND

Pls be more specific in your question. If you want to include an extra field in your alv output, then read the field catalog table you created through "Reuse_alv_fieldcatalog_merge" and then add an extra entry in it giving the details of the field you want to add.. and then call the "resuse_alv_grid_display",
Hope this helps. To be able to help you in a better way, kindly revert with any specific issue.
Reward if helpful,
Karan

Add new scan name

Similar Messages

Maybe you are looking for