Selection screen generation

hi,
in my main dialog program, i created a selection screen using statements selection-screen....
i activated it and was able to see that at runtime..
i noticed that the same selection screen was listed in the tree in SE80 under my package under screens node !! how did it come there ? when i activate will the selection screens be generated and listed there ? if yes then i am not able to see such other selection screens in the list, which i have defined ??
can someone explain this ? thks

Sdnuser,
Se80 is object nevigator this will contain all objects which under lies in your program are seen in se80 like all dict structure and all screen and fields.
Amit.

Similar Messages

IPod Nani 5th Generation hangs at language selection screen

As the title states, I have 2 iPods that both 'hang' at the Language Selection Screen. Able to reset iPod and iTunes see's it but always hangs at same place. Any ideas please?
Cheers

Try:
- iOS: Not responding or does not turn on
- Also try DFU mode after try recovery mode
How to put iPod touch / iPhone into DFU mode « Karthik's scribblings
- If not successful and you can't fully turn the iOS device fully off, let the battery fully drain. After charging for an least an hour try the above again.
- Try on another computer
- Try another cable. Some 5G iPods were shipped with Lightning cable that were either initially defective or failed after short use.
- If still not successful that usually indicates a hardware problem and an appointment at the Genius Bar of an Apple store is in order.
Apple Retail Store - Genius Bar

How can i display output in the same selection screen?

I've a requirement. Suppose in my selection screen there are three input fields. On the basis of this selection screens input It will display the output in the same selection screen. Can it be possible? .
Can it be possible to modify the default screen no for the selection screen 1000?
Thanks in advance.
Abhijit

Hi Abijit,
Whatever changes made in STANDARD SELECETION SCREEN 1000 or screens generated using 'SELECTION-SCREEN' statements, are not permanent.
It will get back to its original appearance, while you execute again or some time later.
Whenever you get into 'CHANGE' mode of these screens, an information will be displayed as follows ;
Selection screen: Report generation makes screen
changes ineffective
Regards,
R.Nagarajan.

How to display a screen in selection-screen?

hi friends,
I have a requirement. I have one PNP database SELECTION-SCREEN in my report program. And i have created one more screen using screen painter.
Now i hae to display that screen which i created using screen painter under PNP SELECTION-SCREEN.
For ex:
PNP SELECTION-SCREE.
Pernr Number    _______________
Employe Name _______________
Company Code _______________
Payroll Area     ________________
Now after this i have to display my screen which i designed using screen painter.
As shown below.
O In rupees
O In Percentage
   Variance______
Here i specified some fields only. some more fields also there.
For this i did as....
I created a BUTTON in SELECTION-SCREEN. And when the user clicked on this then screen will appear as window.
It's working fine.
It's look like this.
   |More Selections...|                            -
> Button
But,my client required that screen also wants to display directly under PNP SELECTION-SCREEN but not as window and clicking button.
If Any Help.. Plz....
Thanks & Regards,
Shree.

hi prakash,
thanks for ur solution.
but it's not working properly. while changing 1000 screen and activating, it's showing syntax error like this.
while changing:
==> Element PNPS$MCD touches or overlaps other element
==> Selection screen: Report generation makes screen changes ineffective
==> Element PNPS$MCD touches or overlaps other element
While Activating:
Syntax Error in Screen.
Program <myprogram name>
Screen   1000
Position Flow Logic       Line 95
The include block has been used twice.
But, Here i clicked the button "Activate".
Then It's showing messages as this.
==> Selection screen: Report generation makes screen changes ineffective
==> Element PNPS$MCD touches or overlaps other element.
I checked out that Line 95.
There i am specifying my suscreen as this.
CALL SUBSCREEN subscreen1 INCLUDING sy-repid 106.
at end of PBO.
And in PAI.
CALL SUBSCREEN subscreen1.
Finally when i tried to execute it's giving DUMP.
Any solutions..
Thanks & Regards,
Shree.

How to set Screen type "Selection Screen" in Dialog program

Hi Experts,
I have copied a screen 400 from a program into my program. In that screen in source program, the screen type was defined as 'Selection Screen'. After i copied that screen into my program, the screen type Selection Screen option is disabled. How to set the screen type of a screen to Selection Screen.
I am currently getting the following error
"Error when generating the selection screen "0400" of "Ztest_screen ".
I tried running the generation program RSDBGENA. There the diagnosis was given as follows:
When generating the report Ztest_screen and its selection screen, an existing screen 1000 (not a selection screen) was overwritten.
The selection screen was defined as follows:
SELECTION-SCREEN BEGIN OF SCREEN 400 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK blck1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
PARAMETERS: p_werks TYPE werks_d OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blck1.
SELECTION-SCREEN END OF SCREEN 400 .
I am calling the screen 400 with selection screen declarations in PBO of screen 0100.
CALL SUBSCREEN sub_scr INCLUDING 'Ztest_Screen' '400'.
Where am i going wrong? Your inputs are needed.
Thanks

Thanks Przemysław and Nabheet for your suggestions.
I had copied the generated screen 400 also from the source program into my program. This was the error. I deleted that and the report got activated now.
Both the source and destination programs are not module pool. They are executable programs.
Thanks

BEx query selection screen takes long time to popup

Hi,
I have a query which is taking long time to popup the selection screen. I have tried in RSRT the generate report option, the generating report takes 45 to 60 mins. After the report is generated the query selection screen comes up in couple of seconds. The first time I run the query everything its fine but then for the second time the problem comes back again.
The selection screen takes +/- 40 mins to comes up in RSRT and in the portal it times out.
I have run the statistics of the query and according to the statistics report the query takes a lot of time for the following component :
OLAP: Query Gen. 2681,312682
I have removed the query from the cache monitor and after that regenerate the report. But these steps didnu2019t solve my problem.
I made two test queries, in one query I have made the CKFu2019s and RKFu2019s directly at the infoprovider, and dragged and dropped in the KF structure. In the other query I made the CKFu2019s and RKFu2019s in the query KF structure itself. The query where I have the CKFu2019s and RKFu2019s at the infoprovider that query times out, the other query where I put the CKFu2019s and RKFu2019s in the query KF structure doesn't has this performance problem.
What I donu2019t know is why the query is failing when I use RKFu2019s and CKFu2019s from the infoprovider, the other query donu2019t have this problem.
Please advise how to proceed.
Thanks in advance,
Arash

Hi,
Please check the following notes which should be useful.
1387593 - Performance optimization for query change/generation
1416737 - Performance optimization for query change/generation(2)
1396485 - Performance optimization for query check/save
Then please execute the SE38 report ANALYZE_RSZ_TABLES (see notes
1472915, 1506560) and repair/correct the different tables to optmize
the query definition tables.
Regards,
Amit

Selection screen flow logic change not taking affect. Please help!

Hi
   When I am trying to change the selection scren flow logic I get the following message:
Selection screen: Report generation makes screen changes ineffective.
Whatever I am changing is not taking affect in runtime.
Even though I have activated the changed code for the screen
What shall I do resolve this?
Thanks
Gopal

You should not be changing the screen flow logic of a standard selection screen 1000. It will always be regenerated. In order to modify the standard selection screen, you can do this in the AT SELECTION-SCREEN output event and loop at screen and change the attributes.
Loop at screen.
if screen-name = 'P_CHECK'.
    screen-input = '0'.
    modify screen.
endif.
endloop.
Regards,
Rich Heilman

Expand the selection Screen of ME2L

Hello everybody,
please can someone tell me how can I expand the selection Screen of ME2L .
Thanks
best regards

Hi
You can go for user-exits....
Enhancement/ Business Add-in            Description
Enhancement
MEQUERY1                                Enhancement to Document Overview ME21N/ME51N
MEVME001                                WE default quantity calc. and over/ underdelivery tolerance
MM06E001                                User exits for EDI inbound and outbound purchasing documents
MM06E003                                Number range and document number
MM06E004                                Control import data screens in purchase order
MM06E005                                Customer fields in purchasing document
MM06E007                                Change document for requisitions upon conversion into PO
MM06E008                                Monitoring of contr. target value in case of release orders
MM06E009                                Relevant texts for "Texts exist" indicator
MM06E010                                Field selection for vendor address
MMAL0001                                ALE source list distribution: Outbound processing
MMAL0002                                ALE source list distribution: Inbound processing
MMAL0003                                ALE purcasing info record distribution: Outbound processing
MMAL0004                                ALE purchasing info record distribution: Inbound processing
MMDA0001                                Default delivery addresses
MMFAB001                                User exit for generation of release order
MRFLB001                                Control Items for Contract Release Order
MELAB001                                Gen. forecast delivery schedules: Transfer schedule implem.
AMPL0001                                User subscreen for additional data on AMPL
LMEDR001                                Enhancements to print program
LMELA002                                Adopt batch no. from shipping notification when posting a GR
LMELA010                                Inbound shipping notification: Transfer item data from IDOC
LMEQR001                                User exit for source determination
LMEXF001                                Conditions in Purchasing Documents Without Invoice Receipt
LWSUS001                                Customer-Specific Source Determination in Retail
M06B0001                                Role determination for purchase requisition release
M06B0002                                Changes to comm. structure for purchase requisition release
MEFLD004                                Determine earliest delivery date f. check w. GR (only PO)
MEETA001                                Define schedule line type (backlog, immed. req., preview)
ME590001                                Grouping of requsitions for PO split in ME59
M06E0005                                Role determination for release of purchasing documents
M06E0004                                Changes to communication structure for release purch. doc.
M06B0005                                Changes to comm. structure for overall release of requisn.
M06B0004                                Number range and document number
M06B0003                                Number range and document number
Business Add-in
ME_PROCESS_PO                           Enhancements for Processing Enjoy Purchase Order: Intern.
ME_PROCESS_COMP                         Processing of Component Default Data at Time of GR: Customer
ME_PO_SC_SRV                            BAdI: Service Tab Page for Subcontracting
ME_PO_PRICING_CUST                      Enhancements to Price Determination: Customer
ME_PO_PRICING                           Enhancements to Price Determination: Internal
ME_INFOREC_SEND                         Capture/Send Purchase Info Record Changes - Internal Use
ME_HOLD_PO                              Hold Enjoy Purchase Orders: Activation/Deactivation
ME_GUI_PO_CUST                          Customer's Own Screens in Enjoy Purchase Order
ME_FIELDSTATUS_STOCK                    FM Account Assignment Behavior for Stock PR/PO
ME_DP_CLEARING                          Clearing (Offsetting) of Down Payments and Payment Requests
ME_DEFINE_CALCTYPE                      Control of Pricing Type: Additional Fields
ME_COMMTMNT_REQ_RE_C                    Check of Commitment Relevance of Purchase Requisitions
ME_COMMTMNT_REQ_RELE                    Check of Commitment Relevance of Purchase Requisitions
ME_PROCESS_PO_CUST                      Enhancements for Processing Enjoy Purchase Order: Customer
SMOD_MRFLB001                           Control Items for Contract Release Order
MM_EDI_DESADV_IN                        Supplementation of Delivery Interface from Purchase Order
MM_DELIVERY_ADDR_SAP                    Determination of Delivery Address
ME_WRF_STD_DNG                          PO Controlling Reminder: Extension to Standard Reminder
ME_TRIGGER_ATP                          Triggers New ATP for Changes in EKKO, EKPO, EKPV
ME_TRF_RULE_CUST_OFF                    BADI for Deactivation of Field T161V-REVFE
ME_TAX_FROM_ADDRESS                     Tax jurisdiction code taken from address
ME_REQ_POSTED                           Purchase Requisition Posted
ME_REQ_OI_EXT                           Commitment Update in the Case of External Requisitions
ME_RELEASE_CREATE                       BAdI: Release Creation for Sched.Agrmts with Release Docu.
ME_PURCHDOC_POSTED                      Purchasing Document Posted
ME_PROCESS_REQ_CUST                     Enhancements for Processing Enjoy PReqs: Customer
ME_PROCESS_REQ                          Enhancements for Processing Enjoy PReqs: Internal
ME_COMMTMNT_PO_REL_C                    Check for Commitment-Relevance of Purchase Orders
ME_CCP_BESWK_AUTH_CH                    BAdI for authorization checks for procuring plant
ME_CCP_ACTIVE_CHECK                     BAdI to check whether CCP process is active
ME_BSART_DET                            Change document type for automatically generated POs
ME_BAPI_PR_CREATE_02
ME_BAPI_PR_CREATE_01
ME_BAPI_PO_CREATE_02
ME_BAPI_PO_CREATE_01
ME_BADI_DISPLAY_DOC                     BAdI for Internal Control of Transaction to be Invoked
ME_ACTV_CANCEL_PO                       BAdI for Activating the Cancel Function at Header Level
MEGUI_LAYOUT                            BAdI for Enjoy Purchasing GUI
EXTENSION_US_TAXES                      Extended Tax Calculation with Additional Data
ARC_MM_EKKO_WRITE                       BAdI: Enhancement of Scope of Archiving (MM_EKKO)
ARC_MM_EKKO_CHECK                       BAdI: Enhancement of Archivability Check (MM_EKKO)
ME_CCP_DEL_DURATION                     Calc. of Delivery Duration in CCP Process (Not in Standard)
ME_COMMTMNT_PO_RELEV                    Check for Commitment-Relevance of Purchase Orders
ME_COMMITMENT_STO_CH                    BadI for checking if commitments for STOs are active
ME_COMMITMENT_RETURN                    Commitment for return item
ME_CIP_REF_CHAR                         Enables Reference Characteristics in Purchasing
ME_CIP_ALLOW_CHANGE                     Configuration in Purchasing: Changeability Control
ME_CIN_MM06EFKO                         Copy PO data for use by Country version India
ME_CIN_LEINRF2V                         BADI for LEINRF03 excise_invoice_details
ME_CIN_LEINRF2R                         BADI for CIN India - Delivery charges
ME_CHECK_SOURCES                        Additional Checks in Source Determination/Checking
ME_CHECK_OA                             Check BAdI for Contracts
ME_CHECK_ALL_ITEMS                      Run Through Items Again in the Event of Changes in EKKO
ME_CHANGE_OUTTAB                        Enrich ALV Output Table in Purchasing
ME_CHANGE_CHARACTER                     Customer-Specific Characteristics for Product Allocation
No.of Exits:         35
No.of BADis:         55
Arunima

Error in adding selection screen fields

Hi All,,
I am getting error when i add a selection screen parameters in module pool.
I copied stadard program to custom one, when I add an input field to screen it gives information message saying
"Selection screen: Report generation makes screen changes ineffective".
If though if i add the selection screen, when i relogin newly added screeen disappears.
Can any one y this is happening?

Hi,
You can find a lot of posts on the SDN. Please search for them.
[What create docking container on a subscreen?]
[Query Regarding 'cl_gui_docking_container'] are a few

Dynamic Parameters in the Selection screen

Hi,
I want to have a pair of Parameters (Source & Target Field) in the Selection Screen. Is it possible to create more pairs of Parameters by click of a Button or something else?
Sinan

hi,
Dynamic generation of selection-screen is bit confusing.
I have a sample program which takes an integer as an input. After giving input, click on the button on selection screen. You can make a similar logic in your case also.
Create a program with name 'Z_13317_DYN_CHKBOX' and paste the following code in it. Also make ensure that an include with name 'Z_13317_DYN_INCL' is not existing earlier because this program will be overwritten each and everytime.
Suppose, if you have given 3 as input and if you have clicked the button, then 3 checkboxes will be generated on your selection screen.
REPORT Z_13317_DYN_CHKBOX.
types :begin of t_itab1,
        line(72),
       end of t_itab1.
data: incl type table of t_itab1 with header line.
parameters: p_tab type i,
            p_frst type c no-display.
selection-screen begin of line.
selection-screen: pushbutton 2(20) but1 user-command cli1.
selection-screen end of line.
include z_13317_dyn_incl if found.
initialization.
at selection-screen output.
if p_frst = ' '.
    p_frst = 'X'.
    perform crt_dyn_incl.
endif.
at selection-screen.
case sy-ucomm.
    when 'CLI1'.
    perform crt_dyn_incl.
endcase.
*&      Form crt_dyn_incl
*       text
form crt_dyn_incl .
perform populate_incl.
perform del_incl.
insert report 'Z_13317_DYN_INCL' from incl.
commit work.
submit z_13317_dyn_chkbox via selection-screen with p_frst = p_frst.
endform.                    " crt_dyn_incl
*&      Form del_incl
*       text
form del_incl .
call function 'RS_DELETE_PROGRAM'
    exporting
     program                          = 'Z_13317_DYN_INCL'
     suppress_checks                  = 'X'
     suppress_popup                   = 'X'
     with_cua                         = ' '
     with_documentation               = ' '
     with_dynpro                      = 'X'
     with_includes                    = ' '
     with_textpool                    = ' '
     with_variants                    = ' '
if sy-subrc <> 0.
endif.
endform.                    " del_incl
*&      Form populate_incl
*       text
form populate_incl .
data: v_cnt type n.
do p_tab times.
    v_cnt = v_cnt + 1.
    incl-line = 'parameters: '.
    concatenate incl-line 'p_chk' v_cnt into incl-line.
    concatenate incl-line 'as checkbox.' into incl-line separated by space.
    append incl.
    clear incl.
enddo.
endform.                    " populate_incl
Regards
Sailaja.

Problem in selection screen because of GEN_SELECTION_SCREEN_ERROR error

Hi Experts,
I have one strange problom in selection screen.
here is my code..for selection screen.
Report Z_TEST_BEGINOF_ENDOF.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 1(25) Matname.
SELECT-OPTIONS: S_MATNR FOR MARD-MATNR.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: SKIP.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 1(25) STOGE.
SELECT-OPTIONS: S_WERKS FOR MARD-WERKS.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: SKIP 2.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 1(60) ABCD.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: END OF BLOCK B1.
it is working fine for select options using begin of line and end of line in block of selection screen.
if go for 2 select options in same begin of line and end of line or if go for *AT SELECTION-SCREEN ON HELP-REQUEST FOR S_MATNR event it is not activating my program .
That time it is showing one popup say "
Generation Error
Generation errors in program
source code dummy Line 10
Error when generating the selection screen "1000" of report "Z_TEST_BEGINOF_ENDOF
1.But i need to display range values for mard-matnr in selection screen and i have to maintaine HELP-REQUEST for S_MATNR field.
2.How can we display range in same line using parameters statement.
Note:"It is working fine in ecc6.0 with 2 select options in begin of line and end of line but it is not supporting at-selection help request event.In 4.6c(current system) both conditions are not working" .
Please any one help me.
Thanks
Nag
Edited by: nagraju102 on Sep 23, 2009 6:25 AM

If you are on 4.6c , you cannot use two select-options within the same selection-screen begin of line and end of line. It will throw the screen generation error which you mentioned. Convert the select options to parameters if you want two parameters fields in the same line and change your code this way
Report Z_TEST_BEGINOF_ENDOF.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN: COMMENT 1(25) Matname.
SELECT-OPTIONS: S_MATNR FOR MARD-MATNR.
SELECTION-SCREEN: SKIP.
SELECTION-SCREEN: COMMENT 1(25) STOGE.
SELECT-OPTIONS: S_WERKS FOR MARD-WERKS.
SELECTION-SCREEN: SKIP 2.
SELECTION-SCREEN: COMMENT 1(60) ABCD.
SELECTION-SCREEN: END OF BLOCK B1.

Language selection screen after every recharge

I have a 40GB 2nd generation Ipod. Every time I recharge it and power it back on it goes to the language selection screen. Is there anyway to fix this?
Thanks
-drauch
2G IPOD

Looks like it. I tried this and I had no luck: https://discussions.apple.com/message/7540488#7540488

Problems creating dynamic selection screen

Hi all,
i'm trying to dynamically generate a selection screen and show it as subscreen using the two function modules FREE_SELECTIONS_INIT and FREE_SELECTIONS_DIALOG. I call the function modules in the PBO of the therefor defined subscreen. The FREE_SELECTIONS_DIALOG fm has the two import parameter "as_subscreen" and "as_window". If i use the "as_window" parameter the selection screen comes up as popup. If i use the "as_subscreen" parameter, i can't see anything in my defined subscreen.
Any suggestions ?
Thanks in Advance
Dirk

Hi,
The above requirement is not possible without using logical database.
The reason is that the compiler identifies the below syntax only inside a LDB program .
SELECTION-SCREEN DYNAMIC SELECTIONS
                 FOR {NODE|TABLE} node [ID id].
The above syntax creates a subscreen container on the standard selection screen of the program during generation
and we are able to view the dynamic selections icon on the selection screen.
Hence it is not possible to use the FM 'FREE_SELECTIONS_DIALOG' as a subscreen without using a
logical database of the relevant table.
However if you dont want to create a new LDB for each table, there is a trick which needs to be performed
once in your SAP system and all custom programs can use this FM to create a dynamic selection screen
as a subscreen of the standard selection screen.
The prerequisite steps are as follows:
1: Create a dummy / test database table in SE11 with a single field i.e. for example mandt , matnr
2: Create a new logical database program for this table in SE36. Save and activate.
This will create dynamic selections for the fields of the table created in step 1.
Steps to be followed in the required custom ABAP program to create the dynamic selection screen as a subscreen.
A: Include the LDB program created in step 2, in the attributes of the custom ABAP program.
Now when you execute the program, you can see the dynamic selection icon for the dummy table created in step 1.
B: In your custom program we need to suppress the icon for 'Dynamic Selections' from the standard selection screen.
   We need to perform this action, because the 'Dynamic Selections' icon always triggers a call to the
   dynamic selection screen of the included LDB progam. ( In our case a dummy table created in step 1 ).
   Whereas we want to trigger a call of the dynamic selection screen of our desired table.
   Logic is as follows:
   In 'AT SELECTION-SCREEN OUTPUT' event call the FM RS_SET_SELSCREEN_STATUS to exclude the fcode 'DYNS'.
C: Add a pushbutton / checkbox on your selection screen to trigger a call to the FM 'FREE_SELECTIONS_INIT' &
   'FREE_SELECTIONS_DIALOG' in the 'AT SELECTION-SCREEN' event.
D: When the user clicks the pushbutton / checkbox for dynamic selections call the above 2 FM for the desired table
    with the AS_SUBSCREEN flag of FREE_SELECTIONS_DIALOG = 'X'
Result: Your dynamic selections screen will be created as a subscreen of the standard selection screen and not as a pop-up.
Advantage: With the creation of the single custom table & LDB, you are now able to create dynamic selections as subscreen
in any program in the system. All we need to do is follow the steps A, B & C in each program.
Note: Your other restrictions with dynamic selection screen ie. submit in background , save as variant still remain and
you need to handle them accordingly.
let me know if you need sample code.
Regards,
Bhawit Kumar

Selection Screen getting refreshed after execution..

Hello All,
I have a strange problem..
My selection-screen values are getting refreshed after execution and come back to selection screen. I am using normal ALV Fm to display the values. Can some suggest a possible reason?
Many thanks,
V Nair

No .. I have checked it..Selection variables are not getting refreshed.
My Code Below
REPORT yhr_icm_exception_report.
Type Pool declarations
TYPE-POOLS: slis,                                     "For AlV
            sdydo,                                    "Dynamic Documents
            icon.                                     "For ICON
Table declarations
TABLES : yhr_icm_exp_log,                             "ICM Exceptions Log
         yhr_icm_exp_hist.                            "ICM Exception History
Include Constants
INCLUDE   yhr_icm_constants .                         "Program to hold constants
Types declarations
*-To hold return field
TYPES: BEGIN OF ty_returntab.
        INCLUDE STRUCTURE ddshretval.                 "Interface Structure
TYPES: END OF ty_returntab.
*-To hold deletion records
TYPES : BEGIN OF ty_icm_del,
           tab_name      TYPE yhr_tabname,            "Internal table name
           objid         TYPE hrobjid,                "Object ID
           begda         TYPE begda,                  "Begin Date
           otype         TYPE otype,                  "Object Type
        END OF ty_icm_del.
*-Message details to be displayed
TYPES : BEGIN OF ty_message,
          msgnr          TYPE msgno,                 "System message number
          text           TYPE yhr_icm_exp_log-msgxx, "Message Text
        END OF ty_message.
*-To hold exception log
TYPES : BEGIN OF ty_icm_exp_log,
         msgno           TYPE msgnr,                  "Message number
         run_id          TYPE yhr_icm_erun_id,        "Exception Run ID
         delta_id        TYPE yhr_icm_run_id,         "Run ID
         record_type     TYPE yhr_icm_exp_type,       "Record Type
         otype           TYPE yhr_otype,              "Object Type
         objid           TYPE hrobjid,                "Object ID
         begda           TYPE begda,                  "Begin Date
         msgxx           TYPE msgxx,                  "Message
         status          TYPE yhr_icm_icon,           "Status
         delta_relevance TYPE yhr_delta_rel,          "Delta Relevance
        END OF ty_icm_exp_log.
*-To hold email attachment
TYPES: BEGIN OF ty_attach,
           text(500)     TYPE c,                      "Text
END OF ty_attach.
*To hold object type & text
TYPES :BEGIN OF ty_objid_text,
          objid          TYPE objid,                  "Object ID
          text           TYPE emnam,                  "Object Text
       END OF ty_objid_text.
*-To hold counter values - Exp , Del & historical
TYPES :BEGIN OF ty_count,
          exp(10)        TYPE c,                      "Exceptions
          del(10)        TYPE c,                      "Deletions
          hist(10)       TYPE c,                      "Historical Deletions
       END OF ty_count.
*- To hold lock details
TYPES : BEGIN OF ty_lock,
          live           TYPE c,                      "Live Callidus Program
          genr           TYPE c,                      "Generation Program
          exp            TYPE c,                      "Exception Program
        END OF ty_lock.
Range Declarations
RANGES :
       gr_objid          FOR hrp1001-objid,           "Range for Object ID
       gr_pernr          FOR pa0000-pernr.            "Range for Employee number
Internal Table Declarations
DATA : gt_records        TYPE STANDARD TABLE OF yhr_icm_exp_report,
       gt_objid_text     TYPE STANDARD TABLE OF ty_objid_text,
       gt_icm_exp_log    TYPE STANDARD TABLE OF ty_icm_exp_log,
       gt_returntab      TYPE STANDARD TABLE OF ty_returntab,
       gt_t777o          TYPE STANDARD TABLE OF t777o,
       gt_diff_tab       TYPE STANDARD TABLE OF yhr_icm_diff,
       gt_del_tab        TYPE STANDARD TABLE OF ty_icm_del, "#EC *
       gt_iattach        TYPE STANDARD TABLE OF ty_attach,
       gt_message        TYPE STANDARD TABLE OF ty_message,
       gt_fieldcat       TYPE slis_t_fieldcat_alv,
       gt_heading        TYPE slis_t_listheader,
       gt_exceptions     TYPE yhr_icm_exp_list_t,
       gt_events         TYPE slis_t_event.
Structure Declarations
DATA : gs_objid_text     TYPE ty_objid_text,
       gs_icm_exp_log    TYPE ty_icm_exp_log,
       gs_records        TYPE yhr_icm_exp_report,
       gs_exceptions     TYPE yhr_icm_exp_list,
       gs_count          TYPE ty_count,
       gs_fieldcat       TYPE slis_fieldcat_alv,            "#EC *
       gs_returntab      TYPE ty_returntab,
       gs_icm_exp_hist   TYPE yhr_icm_exp_hist,
       gs_iattach        TYPE ty_attach,
       gs_message        TYPE ty_message,                   "#EC *
       gs_layout         TYPE slis_layout_alv,
       gs_t777o          TYPE t777o,
       gs_lock           TYPE ty_lock.
Constant declarations
CONSTANTS:
       c_yes             TYPE string        VALUE 'YES',
       c_no              TYPE string        VALUE 'NO',
       c_true            TYPE c             VALUE 'X',
       c_deletions       TYPE c             VALUE 'D',
       c_delta_no        TYPE c             VALUE 'N',
       c_delta_yes       TYPE c             VALUE 'Y',
       c_historical      TYPE c             VALUE 'H',
       c_a               TYPE c             VALUE 'A',
       c_error           TYPE c             VALUE 'E',
       c_equal(2)        TYPE c             VALUE 'EQ',
       c_participants    TYPE c             VALUE 'P',
       c_include         TYPE c             VALUE 'I',
       c_position        TYPE c             VALUE 'S',
       c_organization    TYPE c             VALUE 'O',
       c_runlock         TYPE string        VALUE 'RUN_LOCK',
       c_parameter       TYPE string        VALUE 'P',
       c_selfield        TYPE string        VALUE 'SEL_FIELD' ,
       c_type            TYPE string        VALUE 'TYPE',
       c_topofpage       TYPE string        VALUE 'TOP_OF_PAGE',
       c_rectype         TYPE string        VALUE ' S_RECTYPE',
       c_objectkey       TYPE string        VALUE 'OBJECTKEY1',
       c_icon_green      TYPE string        VALUE '@08@',
       c_icon_red        TYPE string        VALUE '@0A@',
       c_icon_amber      TYPE string        VALUE '@09@',
       c_green           TYPE string        VALUE 'GREEN',
       c_amber           TYPE string        VALUE 'AMBER',
       c_red             TYPE string        VALUE 'RED',
       c_tabname         TYPE slis_tabname VALUE 'GT_RECORDS',
       c_structname      TYPE dd02l-tabname VALUE 'YHR_ICM_EXP_REPORT' ,
       c_siwb_wallpaper TYPE sdydo_key     VALUE 'SIWB_WALLPAPER',
       c_user_command    TYPE slis_formname VALUE 'F01_ALV_EVENT_USER_COMMAND',
       c_genname         TYPE trdir-name    VALUE 'YHR_ICM_GENERATE_EXCEPTIONS',
       c_expname         TYPE trdir-name    VALUE 'YHR_ICM_EXCEPTION_REPORT',
       c_pf_status       TYPE slis_formname VALUE 'SET_PF_STATUS',
       c_msg_class       TYPE string        VALUE 'YHR_ICM'.
Global Variable Declarations
DATA: gv_email_error    TYPE c,
       gv_email_sent     TYPE c,
       gv_exit           TYPE c.
Selection Screen - Block I
SELECTION-SCREEN:   BEGIN OF BLOCK b3 WITH FRAME TITLE text-s07.
SELECT-OPTIONS:
*- Run ID
    s_run_id             FOR yhr_icm_exp_hist-run_id,
*- Exception Type
    s_rectyp             FOR yhr_icm_exp_log-record_type NO INTERVALS,
*- Object Type
    s_otype              FOR yhr_icm_exp_log-otype NO INTERVALS,
*- Object ID
    s_objid              FOR yhr_icm_exp_log-objid NO INTERVALS,
*- Start Date
    s_begda              FOR yhr_icm_exp_log-begda,
*- Message number
    s_msgno              FOR yhr_icm_exp_log-msgno,
*- Message Text
    s_msgxx              FOR yhr_icm_exp_log-msgxx.
SELECT-OPTIONS:
*- Delta Relevance
   s_relv                FOR yhr_icm_exp_log-delta_relevance NO INTERVALS.
PARAMETERS:
*- Long Text
   p_ltext               AS   CHECKBOX DEFAULT ' '.
SELECTION-SCREEN:   END OF BLOCK b3.
Selection Screen - Block II
SELECTION-SCREEN:   BEGIN OF BLOCK b2 WITH FRAME TITLE text-s08.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(14) text-033.
*-Sucess
PARAMETERS:
p_stat_s               AS CHECKBOX.                  "D11K917251
SELECTION-SCREEN COMMENT 24(14) text-034.
*-Warning
PARAMETERS:
p_stat_w               AS CHECKBOX.                  "D11K917251
SELECTION-SCREEN COMMENT 48(15) text-035.
PARAMETERS:
*-Error
p_stat_e               AS CHECKBOX .                 "D11K917251
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN:   END OF BLOCK b2.
Selection Screen - Block III
SELECTION-SCREEN:   BEGIN OF BLOCK b4 WITH FRAME TITLE text-s09.
*-Email Details
PARAMETERS:
p_email(128)            TYPE c.
SELECTION-SCREEN:   END OF BLOCK b4.
             Selection Screen on value request.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_msgno-low.
PERFORM f4_message.
             Selection Screen Output.
AT SELECTION-SCREEN OUTPUT.
CHECK gt_returntab[] IS NOT INITIAL.
REFRESH s_msgno.
s_msgno-option = c_equal.
s_msgno-sign = c_include.
LOOP AT gt_returntab INTO gs_returntab.
    s_msgno-low = gs_returntab-fieldval.
    s_msgno-high = space.
    APPEND s_msgno.
ENDLOOP.
At Selection Screen for Validation
AT SELECTION-SCREEN.
CLEAR gv_email_error.
*-Validate Object Type
PERFORM validate_objecttype.
*-Validate Exception ID
PERFORM fetch_exp_header.
*-Validate Exception Type
PERFORM validate_exptype.
*-Validate Message Number
PERFORM validate_msgno.
*-Validate Message Type
PERFORM validate_msgtype.
*-Validate Delta
PERFORM validate_delta.
*-Validate Email ID
PERFORM validate_email USING p_email
                         CHANGING gv_email_error.
IF gv_email_error IS NOT INITIAL.
    MESSAGE e000(yhr_icm) WITH text-027.
ENDIF.
Initialization
INITIALIZATION.
Initialization
PERFORM initialization.
Start Of Selection
START-OF-SELECTION.
CLEAR : gv_email_error,
          gv_email_sent,
          gv_exit,
          gs_lock.
Try locking the main program
PERFORM lock_generation_program.
CHECK gs_lock IS INITIAL.
*-Fetch the messages stored in table
PERFORM fetch_item_records.
Read object type text.
PERFORM read_text.
Get Object Text
PERFORM get_object_text.
*-Fetch the current SAP messages
PERFORM fetch_records.
*-Update Delta Flag
PERFORM update_delta_flag.
*-Compare messages in table & in SAP
PERFORM compare_message.
If receiver is not blank, try sending out mail
PERFORM send_mail USING p_email.
End Of Selection
END-OF-SELECTION.
IF gv_exit IS NOT INITIAL.
    EXIT.
ENDIF.
*-Display ALV
PERFORM display_alv.
*-Build the event table for ALV display
PERFORM build_eventtab CHANGING gt_events[].
*-Fill the layout details
PERFORM layout_build .
Release all locks
PERFORM release_locks.
*-Finally call the grid display
PERFORM display_data.
*&      Form set_pf_status
      text
     -->RT_EXTAB   text
FORM set_pf_status USING rt_extab TYPE slis_t_extab.        "#EC *
Set PF Status
SET PF-STATUS 'STANDARD'.
ENDFORM. "Set_pf_status
*&      Form DISPLAY_ALV
      text
--> p1        text
<-- p2        text
FORM display_alv .
*- Use FM to create field catalog
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = sy-repid
      i_internal_tabname     = c_tabname
      i_structure_name       = c_structname
    CHANGING
      ct_fieldcat            = gt_fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 1
      OTHERS                 = 1.
IF sy-subrc = 1.
    MESSAGE i000(yhr_icm) WITH text-001.
    EXIT.
ENDIF.
*- Remove SEL Field Column as it is not required
DELETE gt_fieldcat WHERE fieldname = c_selfield.
*-If user chooses long text, activate icon
IF p_ltext IS INITIAL.
    LOOP AT gt_fieldcat INTO gs_fieldcat WHERE fieldname = c_type.
      gs_fieldcat-icon = c_true.
    ENDLOOP.
ENDIF.
ENDFORM.                    " DISPLAY_ALV
*&      Form BUILD_EVENTTAB
      text
     <--P_GT_EVENTS[] text
FORM build_eventtab CHANGING    p_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.
*-Get the list of event for alv
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = p_events.
*-Add top of page event to event list
READ TABLE p_events
        WITH KEY name = slis_ev_top_of_page
         INTO ls_event.
IF sy-subrc = 0.
    MOVE c_topofpage TO ls_event-form.
    APPEND ls_event TO p_events.
ENDIF.
ENDFORM.                    " BUILD_EVENTTAB
*&      Form LAYOUT_BUILD
      text
--> p1        text
<-- p2        text
FORM layout_build .
gs_layout-zebra                = c_true.
gs_layout-colwidth_optimize    = c_true.
gs_layout-detail_popup         = c_true.
gs_layout-detail_initial_lines = c_true.
gs_layout-detail_titlebar      = text-044.
gs_layout-box_fieldname        = c_selfield.
ENDFORM.                    " LAYOUT_BUILD
*&      Form DISPLAY_DATA
      text
--> p1        text
<-- p2        text
FORM display_data .
*-Display ALV display
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_user_command = c_user_command
      i_background_id          = c_siwb_wallpaper
      i_callback_program       = sy-repid
      i_callback_pf_status_set = c_pf_status
      i_default                = c_true
      i_save                   = c_a
      is_layout                = gs_layout
      it_fieldcat              = gt_fieldcat
      it_events                = gt_events
    TABLES
      t_outtab                 = gt_records.
ENDFORM.                    " DISPLAY_DATA
*&      Form FETCH_RECORDS
      text
--> p1        text
<-- p2        text
FORM fetch_records .
REFRESH : gt_diff_tab,
            gt_del_tab,
            gr_pernr,
            gt_exceptions.
CLEAR:    gs_icm_exp_log.
*-Get Employee details
PERFORM get_person_data.
*-Get Position Details
PERFORM get_position_data.
*-Get Organization Details
PERFORM get_org_data.
*-Get Exception current SAP exception list.
PERFORM get_exception_list.
*-Add deletion records
PERFORM filter_deletions.
ENDFORM.                    " FETCH_RECORDS
*&      Form top_of_page
      text
FORM top_of_page.                                           "#EC *
PERFORM build_comment   USING    gt_heading.
*-Display Use FM to display Top Of Page
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_heading[].
CLEAR gt_heading.
ENDFORM.                    "TOP_OF_PAGE
*&      Form build_comment
      text
     -->P_HEADING text
FORM build_comment USING p_heading TYPE slis_t_listheader.
DATA: ls_hline     TYPE slis_listheader,
        lv_text(120) TYPE c.
*-Display report title
ls_hline-typ = c_historical.
WRITE text-006 TO lv_text.
ls_hline-info = lv_text.
APPEND ls_hline TO p_heading.
CLEAR ls_hline.
ls_hline-typ = c_s.
*-Remove leading & trailing spaces
CONDENSE : gs_count-del, gs_count-exp, gs_count-hist.
*-If the count is space then pass 0
IF gs_count-del = space.
    gs_count-del = 0.
ENDIF.
IF gs_count-exp = space.
    gs_count-exp = 0.
ENDIF.
IF gs_count-hist = space.
    gs_count-hist = 0.
ENDIF.
IF gs_lock IS INITIAL.
*-Display Deletion, Exception, Historical Count
    CONCATENATE text-037 gs_count-del
                 text-032 gs_count-exp
                 text-039 gs_count-hist
            INTO ls_hline-info SEPARATED BY space.
ELSEIF gs_lock-live IS NOT INITIAL.
    ls_hline-info = text-007.
ELSEIF gs_lock-genr IS NOT INITIAL.
    ls_hline-info = text-008.
ELSEIF gs_lock-exp IS NOT INITIAL.
    ls_hline-info = text-009.
ENDIF.
APPEND ls_hline TO p_heading.
CLEAR ls_hline.
ENDFORM.                    "BUILD_COMMENT
*&      Form INITIALIZATION
      text
--> p1        text
<-- p2        text
FORM initialization .
Read Previous run
SELECT MAX( run_id )
   INTO s_run_id-low
   FROM yhr_icm_exp_hist.                                  "#EC *
s_run_id-option = c_equal.
s_run_id-sign = c_include.
APPEND s_run_id.
s_rectyp-option = c_equal.
s_rectyp-sign = c_include.
s_rectyp-low = c_error.
APPEND s_rectyp.
s_rectyp-low = c_deletions.
APPEND s_rectyp.
PERFORM restrict_selections.
*Get the message from Message Class YHR_ICM
SELECT msgnr
         text
    FROM t100
    INTO TABLE gt_message
   WHERE arbgb = c_msg_class AND
         msgnr GT '000'.                                    "#EC *
ENDFORM.                    " INITIALIZATION
*&      Form F4_MESSAGE
      text
     <--P_P_MSGNO text
FORM f4_message.
F4 Help - Display all messages
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'MSGNR'
      dynpprog        = sy-cprog
      dynpnr          = sy-dynnr
      dynprofield     = 'S_MSGNR'
      window_title    = text-045
      value_org       = c_s
      multiple_choice = c_true
    TABLES
      value_tab       = gt_message
      return_tab      = gt_returntab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 1.
IF sy-subrc = 1.
    MESSAGE i000(yhr_icm) WITH text-002.
    EXIT.
ELSEIF sy-subrc = 2.
    MESSAGE i000(yhr_icm) WITH text-003.
    EXIT.
ENDIF.
ENDFORM.                    " F4_MESSAGE
*&      Form VALIDATE_OBJECTTYPE
      text
--> p1        text
<-- p2        text
FORM validate_objecttype .
CHECK s_otype-low IS NOT INITIAL.
CONDENSE s_otype-low.
Validate object type to check whether user has entered only S, P or O
IF s_otype-low NE c_organization AND
        s_otype-low NE c_position AND
          s_otype-low NE c_participants .
    MESSAGE e000(yhr_icm) WITH 'Enter either S(Position), P(Person) or O(Org Unit)'(021).
ENDIF.
ENDFORM.                    " VALIDATE_OBJECTTYPE
*&      Form VALIDATE_OBJECTTYPE
FORM f01_alv_event_user_command USING r_ucomm LIKE sy-ucomm
                                      rs_selfield TYPE slis_selfield."#EC *
DATA : lv_answer TYPE c,
         lt_fields TYPE STANDARD TABLE OF sval,
         ls_fields TYPE sval.
*-Get the row user has selected in ALV list
READ TABLE gt_records INTO gs_records INDEX rs_selfield-tabindex.
CASE r_ucomm.
    WHEN 'DISP'.
      CASE gs_records-otype.
        WHEN 'S'.
          SET PARAMETER ID 'POT' FIELD gs_records-otype.
          SET PARAMETER ID 'PON' FIELD gs_records-objid.
          CALL TRANSACTION 'PP01_DISP' AND SKIP FIRST SCREEN.
        WHEN 'P'.
          SET PARAMETER ID 'PER' FIELD gs_records-objid.
          CALL TRANSACTION 'PA20' AND SKIP FIRST SCREEN.
        WHEN 'O'.
          SET PARAMETER ID 'POT' FIELD gs_records-otype.
          SET PARAMETER ID 'PON' FIELD gs_records-objid.
          CALL TRANSACTION 'PP01_DISP' AND SKIP FIRST SCREEN.
      ENDCASE.
    WHEN 'CHNG'.
      CASE gs_records-otype.
        WHEN 'S'.
          SET PARAMETER ID 'POT' FIELD gs_records-otype.
          SET PARAMETER ID 'PON' FIELD gs_records-objid.
          CALL TRANSACTION 'PP01' AND SKIP FIRST SCREEN.
        WHEN 'P'.
          SET PARAMETER ID 'PER' FIELD gs_records-objid.
          CALL TRANSACTION 'PA30' AND SKIP FIRST SCREEN.
        WHEN 'O'.
          SET PARAMETER ID 'POT' FIELD gs_records-otype.
          SET PARAMETER ID 'PON' FIELD gs_records-objid.
          CALL TRANSACTION 'PP01' AND SKIP FIRST SCREEN.
      ENDCASE.
    WHEN 'EMAIL'.
*-    Check whether email has already been sent
      IF gv_email_sent = c_true.
*-      If yes, then display pop up to confirm for mailing again
        CALL FUNCTION 'POPUP_TO_CONFIRM'
          EXPORTING
            text_question = text-041
            text_button_1 = text-042
            text_button_2 = text-043
          IMPORTING
            answer         = lv_answer
          EXCEPTIONS
            text_not_found = 1
            OTHERS         = 1.
        IF sy-subrc = 1.
          MESSAGE i000(yhr_icm) WITH text-004.
          EXIT.
        ENDIF.
*-     Continue only if user has selected Yes
        CHECK lv_answer = '1'.
      ENDIF.
*-      Add Email Field & Table
      ls_fields-tabname = 'SZA5_D0700'.
      ls_fields-fieldname = 'SMTP_ADDR'.
      APPEND ls_fields TO lt_fields.
*-      Use FM to get new Email ID
      CALL FUNCTION 'POPUP_GET_VALUES'
        EXPORTING
          popup_title     = text-s09
          start_column    = '5'
          start_row       = '5'
        TABLES
          fields          = lt_fields
        EXCEPTIONS
          error_in_fields = 1
          OTHERS          = 1.
      IF sy-subrc = 1.
        MESSAGE i000(yhr_icm) WITH text-004.
        EXIT.
      ENDIF.
*-    Get the Email user has entered
      READ TABLE lt_fields INTO ls_fields INDEX 1.
*-      Validate Email ID
      PERFORM validate_email USING ls_fields-value
                     CHANGING gv_email_error.
*-    If the flag is not initial, indicates possible error
      IF gv_email_error IS NOT INITIAL.
        MESSAGE i000(yhr_icm) WITH text-027.
        EXIT.
      ELSE.
      If no error, then try ending email
        PERFORM send_mail USING ls_fields-value.
      ENDIF.
    WHEN 'REFRESH'.
*-    Fetch the current SAP messages
      PERFORM fetch_records.
*-    Update Delta Flag
      PERFORM update_delta_flag.
*-    Compare messages in table & in SAP
      PERFORM compare_message.
*-    Refresh alv which is already displayed
      rs_selfield-refresh = c_true.
ENDCASE.
ENDFORM.                    "F01_ALV_EVENT_USER_COMMAND
*&      Form RESTRICT_SELECTIONS
      text
--> p1        text
<-- p2        text
FORM restrict_selections .
TYPE-POOLS sscr.
STATICS: lt_restrict TYPE sscr_restrict,
           lt_opt_list TYPE sscr_opt_list,
           ls_***      TYPE sscr_***.
Restrict the wage type selection so the user can only enter
values with the 'EQ' clause.
CLEAR lt_opt_list.
MOVE c_objectkey TO lt_opt_list.
MOVE c_true TO: lt_opt_list-options-eq,
                  lt_opt_list-options-bt,
                  lt_opt_list-options-cp,
                  lt_opt_list-options-eq,
                  lt_opt_list-options-ge,
                  lt_opt_list-options-gt,
                  lt_opt_list-options-le,
                  lt_opt_list-options-lt.
APPEND lt_opt_list TO lt_restrict-opt_list_tab.
MOVE: c_s         TO ls_***-kind,
        c_rectype   TO ls_***-name,
        c_include         TO ls_***-sg_main,
        space       TO ls_***-sg_addy,
        c_objectkey TO ls_***-op_main.
APPEND ls_***     TO lt_restrict-***_tab.
*-Restrict the values OTYPE
MOVE 'S_OTYPE'    TO ls_***-name.
APPEND ls_***      TO lt_restrict-***_tab.
*-Restrict the values OBJID
MOVE    'S_OBJID' TO ls_***-name.
APPEND ls_***      TO lt_restrict-***_tab.
*-Use FM to restrict the values
CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
      restriction = lt_restrict.
ENDFORM.                    " RESTRICT_SELECTIONS
*&      Form GET_PERSON_DATA
      text
--> p1        text
<-- p2        text
FORM get_person_data .
DATA : lt_del_tab TYPE STANDARD TABLE OF yhr_icm_diff.
SORT gt_icm_exp_log BY msgno .
gr_pernr-sign = c_include.
gr_pernr-option = c_equal.
LOOP AT gt_icm_exp_log INTO gs_icm_exp_log WHERE otype = c_participants AND
                                                   record_type = c_error.
*- Sort the table based on msgno and collect pernr
    gr_pernr-sign = c_include.
    gr_pernr-option = c_equal.
    gr_pernr-low = gs_icm_exp_log-objid.
    APPEND gr_pernr.
    CLEAR gr_pernr-low.
    AT END OF msgno.                                        "#EC *
*-    For the list of Pernr having same PERNR get the current exp details
      IF gs_icm_exp_log-msgno = c_msg_100.
*-      Export the pernr list to memory id & import in the below FM
*-      Selection of records should be based on values exported from here
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0001'.
      Get Org Assignment 0001 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0001_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
    ELSEIF gs_icm_exp_log-msgno = c_msg_101. "Y_HR_DIFF_PERNR_0001_ORG_DATA
      ELSEIF gs_icm_exp_log-msgno = c_msg_102 .
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0000'.
      Get Actions 0000 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0000_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
      ELSEIF gs_icm_exp_log-msgno = c_msg_103.
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0002'.
      Get Personal Details 0002 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0002_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
      ELSEIF gs_icm_exp_log-msgno = c_msg_104.
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0004'.
      Get Disability 0004 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0004_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
      ELSEIF gs_icm_exp_log-msgno = c_msg_105.
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0006'.
      Get Addresses 0006 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0006_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
      ELSEIF gs_icm_exp_log-msgno = c_msg_106.
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0007'.
      Get Planned Time 0007 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0007_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
      ELSEIF gs_icm_exp_log-msgno = c_msg_107.
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0016'.
      Get Contract Element 0016 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0016_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
      ELSEIF gs_icm_exp_log-msgno = c_msg_108.
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0077'.
      Get Additional Personal 0077 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0077_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
      ELSEIF gs_icm_exp_log-msgno = c_msg_109 .
        EXPORT gr_pernr TO MEMORY ID 'PERNR_0105'.
      Get Communications 0105 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_0105_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda
            refresh      = space
            UPDATE       = space
          TABLES
            diff_tab     = gt_diff_tab
            del_tab      = lt_del_tab.
      ELSEIF gs_icm_exp_log-msgno = c_msg_110.
        EXPORT gr_pernr TO MEMORY ID 'PERNR_2001'.
      Get Absences 2001 Data
        CALL FUNCTION 'Y_HR_DIFF_PERNR_2001_DATA'
          EXPORTING
            period_begda = gs_icm_exp_hist-begda
            period_endda = gs_icm_exp_hist-endda

My iPod is stuck on Language Selection screen

My iPod Nano 7th generation is stuck on language selection screen. Language can be selected but "Done" button cannot be pressed.

Sounds like a hardware malfunction with the device. Could be the clickwheel itself or the logicboard. Either way, you'll need to send your iPod in for service if you want to be able to use it again.
B-rock

Selection screen generation

Similar Messages

Maybe you are looking for