BPE is in RED status -Very urgent

Hi all,
I did post installation for PI and its successfully working. In run time workbench everything in green status except the business process engine.It indicates red color.Is there any configuration should we need to do?
Please tell if there is any document and also help me to solve this one.
Regards
Vijay kumar G

Hi Vijay
1. Call transaction SWF_XI_CUSTOMIZING (Automatic workflow customizing) to perform basic customizing. This transaction sets all required technical settings.
2. Check everything is green in this.
let us know for any further queries.
Cheers !!!
Satish Kumar.

Similar Messages

Very urgent:To find IDOC list in RSMO(BI 7.0)

Hi all,
Its very urgent to know,for a particular load IDOCs used to run to process the data&dialogs,in 3.5 we used to get the IDOCs list in RSMO screen itself,but in 7.0 is not having that options,please tell me for a particular load where we can find list of IDOCs?
Regards,
GTR.

Hi,
This info may be helpful.
Transact RFC error
tRFC Error - status running Yellow for long time (Transact RFC will be enabled in Status tab in RSMO).
Step 1: Goto Details, Status get the IDoc number,and go to BD87 in R/3,place the cursor in the RED IDoc entroes in tRFC
queue thats under outbound processing and click on display the IDOC which is on the menu bar.
Step 2: In the next screen click on Display tRFC calls (will take you to SM58 particular TRFC call)
place the cursor on the particular Transaction ID and go to EDIT in the menu bar --> press 'Execute LUW'
(Display tRFC calls (will take you to SM58 particular TRFC call) ---> select the TrasnID ---> EDIT ---> Execute LUW)
Rather than going to SM58 and executing LUW directly it is safer to go through BD87 giving the IDOC name as it will take you
to the particular TRFC request for that Idoc.
OR
Go into the JOB Overview of the Load there you should be able to find the Data Package ID.
(For this in RSMO Screen> Environment> there is a option for Job overview.)
This Data Package TID is Transaction ID in SM58.
OR
SM58 > Give * / user name or background (Aleremote) user name and execute.It will show you all the pending TRFC with
Transaction ID.
In the Status Text column you can see two status
Transation Recorded and Transaction Executing
Don't disturb, if the status is second one Transaction Executing. If the status is first one (Transation Recorded) manually
execute the "Execute LUWs"
OR
Directly go to SM58 > Give * / user name or background (Aleremote) user name and execute. It will show TRFCs to be executed
for that user. Find the particular TRFC (SM37 > Req name > TID from data packet with sysfail).select the TrasnID (SM58) --->
EDIT ---> Execute LUW
Also
Check Note 561880 - Requests hang because IDocs are not processed.
thanks,
JituK

Initialialized delta process(very urgent)

Hi all,
I am loading transaction data into master data table and the update mode is initialized data process.Today the loading were failed showing processing is overdue and i have made the QM status red and deleted the request.When i reran the infopackge its giving the message " delete init request requ_dr1.... before running init with same selection".I have checked in data request this request number is not there.
the datas are loaded daily as "initialized delta processc" update method..
Could anybody tell me how to delete the request and again reload the data..its very urgent...
Thanks
Manjula

hi...
did u upload to target level or not...?where u got the red alert in update level or target level...?before dis you should know the delta mode functiion...intially you can upload the datas using full mode....if use full mode that will take the datas only once for target...for example....if you are loading 40 records...when the uploading process method have done without any mistakes...it's showing 40 records in the target level also..
DELTA MODE:
but you are getting only 30 records...you may upload the remaining 10 datas by delta mode function...through a new source file...
if you can't get my point ...mssg me....
regards,
ramanan..

How to write code for this logic, plz help me very urgent

Hi All,
i am new to sap-abap, i got this work and i m working on this can any body help me in writing code, plz help me, this is very very urgent.
here i m giving my logic, can anybody send me the code related to this logic.
this is very urgent .
this program o/p should be in ALV format and need to create one commond 'SAVE" on this o/t list if user clicks save processedon and processedby fields in ZFIBUE should be updated automatically.
i am creating one custom table zfibue having fields: (serialno, bukrs, matnr,prdha,hkont,gsber,wrbtr,budat, credate, cretime,processed, processedon, processedby,mapped)
fields of zfibue:
serailno = numc
bukrs = char
matnr = char
prdha = char
hkont = char
gsber = char
wrbtr = char
budat = date
credate = date
cretime = time
processed= char
processedon = date
processedby = char
mapped = char      are   belongs to above type data types
and seelct-optionfields: s_bukrs for bseg-bukrs
                                    s_hkont for bseg-hkont,
                                     s_budat for bkpf-budat,
                                     s_processed for zfibue-processed,
                                      s_processedon for zfibue-processedon,
                                      s_mapped. for zfibue-mapped
parameters: p_chk1 as checkbox,
                  p_chk2 as checkbox.
                  p_filepath type rlgrap-filename.
1.1 Validate the user inputs (S_BUKRS and S_HKONT) against respective check tables (T001 and SKB1). If the validation fails, provide respective error message. Eg: Invalid input for Company Code.
1.2 Fetch SERIALNO, BUKRS, MATNR, PRDHA, HKONT, GSBER, WRBTR, BUDAT, CREDATE, CRETIME, PROCESSED, PROCESSEDON, PROCESSEDBY, MAPPED from table ZFIBUE into internal table GT_ZFIBUE where BUKRS IN S_BUKRS, HKONT IN S_HKONT, BUDAT IN S_BUDAT, PROCESSED IN S_PROCESSED, PROCESSEDON IN S_PROCESSEDON, and MAPPED IN S_MAPPED.
1.3 If P_CHK2 = X, go to step 1.11. Else continue.
1.4 If P_CHK1 = X, continue. Else go to step 1.9
1.5 Fetch MATNR, PRDHA from MARA into GT_MARA for all entries in GT_ZFIBUE where MATNR = GT_ZFIBUE-MATNR.
1.6 Sort and delete adjacent duplicates from GT_MARA based on MATNR.
1.7 Loop through GT_ZFIBUE where PRDHA = blank.
          Read Table GT_MARA based on MATNR = GT_ZFIBUE-MATNR.
          IF sy-subrc = 0.
                 Move GT_MARA-PRDHA to GT_ZFIBUE-PRDHA.
              Modify Table GT_ZFIBUE. Update Product Hierarchy
             Endif.
    Fetch PRDHA, GSBER from ZFIBU into GT_ZFIBU for all entries in GT_ZFIBUE where PRDHA = GT_ZFIBUE-PRDHA.
    Read Table GT_ZFIBU based on PRDHA = GT_ZFIBUE-PRDHA.
          IF sy-subrc = 0.
                 Move GT_ZFIBU-GSBER to GT_ZFIBUE-GSBER.
              Move X to GT_ZFIBUE-MAPPED.
              Modify Table GT_ZFIBUE.
             Endif.
Endloop.
1.8 Modify database table ZFIBUE from GT_ZFIBUE.
1.9 Fill the field catalog table GT_FIELDCAT using the details of output fields listed in section Inputs/Outputs (above).
   Eg:                 LWA_ FIELDCAT -SELTEXT_L = 'Serial Number.
                          LWA_ FIELDCAT -DATATYPE = NUMC.
                          LWA_ FIELDCAT -OUTPUTLEN = 9.
                          LWA_ FIELDCAT -TABNAME = 'GT_ZFIBUE'.
                          LWA_ FIELDCAT-FIELDNAME = 'SERIALNO'.
          Append LWA_FIELDCAT to GT_FIELDCAT
Note: a) The output field GT_ZFIBUE-PROCESSED will be editable marking INPUT = X in field catalog (GT_FIELDCAT).
         b) The standard ALV functionality will be used to give the user option for selecting all or blocks of entries at a time.
         c) The PF-STATUS STANDARD_FULLSCREEN from function group SLVC_FULLSCREEN will be copied to the program and modified to include a SAVE button.
1.10 Call the function module REUSE_ALV_GRID_DISPLAY passing output table GT_ZFIBUE and field catalog GT_FIELDCAT. Additional parameters like I_CALLBACK_PF_STATUS_SET (= ZFIBUESTAT) and I_CALLBACK_USER_COMMAND (=HANDLE_USER_ACTION) will also be passed to handle user events. Go to 2.14.
1.11 Download the file to P_FILEPATH using function module GUI_DOWNLOAD passing GT_ZFIBUE.
1.12 Exit Program.
Logic to be implemented in routine Handle_User_Action
This routine will have the following interface:
FORM Handle_User_Action USING r_ucomm LIKE sy-ucomm
                                                           rs_selfield TYPE slis_selfield.
ENDFORM.
Following logic will be implemented in this routine:
1.     If r_ucomm = SAVE, continue. Else exit.
2.     Loop through GT_ZFIBUE where SEL_ROW = X. Row is selected
a.     IF GT_ZFIBUE-PROCESSED = X.
i.     GT_ZFIBUE-PROCESSEDON = SY-DATUM.
ii.     GT_ZFIBUE-PROCESSEDBY = SY-UNAME.
iii.     MODIFY ZFIBUE FROM work area GT_ZFIBUE.
Endif.
Endloop.

Hi Swathi,
If it's very very urgent then you better get on with it, don't waste time on the web. Chop chop.

Very urgent regarding ALV

Hi all,
I have displayed data in alv.and the error condition is that if for a material if it has more than one S as ok_status records then it should throw an error. This logic is working fine.
Now suppose at first time user had entered S through keyboard which fails the condition so it throws an error first time.
Now user can change the ok status back to I or O from S (through keyboard although f4 help is available) which satisfies the conditon so that record should be saved. but when user presses save button then in the ALV display the changed status I or O for that record again converted back to status S automatically. and again gives an error.
if we try third time then it allows to save with record other than s ok status i.e. I or O.
this problem is comming only when we change the value through keyboard. If we select value using f4 help then whole logic is working fine, no problem at all.
Can you please help me out in this regard
Its very urgent.
Thanks & Regards
Ashutosh.

Hi,
to exclude toolbar buttons..
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
DATA LS_EXCLUDE TYPE UI_FUNC.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
CALL METHOD G_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
 IS_LAYOUT = GS_LAYOUT
 CHANGING
 IT_FIELDCATALOG = IT_FIELDCAT
 IT_OUTTAB = IT_FINAL[].
and you told you are using REUSE_ALV_GRID_DISPLAY_LVC
then in the user_command do this....
then your problem will be solved.
in the top you declare this..
DATA: REF_GRID TYPE REF TO CL_GUI_ALV_GRID.
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD.
*then insert the following code in your USER_COMMAND routine...
IF REF_GRID IS INITIAL.
 CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
 IMPORTING
 E_GRID = REF_GRID.
ENDIF.
IF NOT REF_GRID IS INITIAL.
 CALL METHOD REF_GRID->CHECK_CHANGED_DATA
ENDIF.
ENDFORM.
Regards
vijay

Very urgent, vendor down payment clearing - ka doc type

hello gurus,
while clearing vendor down payment, some down payment entries are posted as ka doc type. now i have to clear the invoice down payment with the ka doc type. how to do this.
for retention account we booked in special G now that retention money also paid but that doc is not showing as cleared. still it showing in red colour. but balance is nill. what to do for this..
can anybody help me very urgent friends
thanks
jaya

HI ,
CHECK THI SPROCEDURE ,
DOWN PAYMENT;
Vendor A/C--a DR1
TO Bank
Invoice;
Expence a/c dr
to Vendor----
2
down payment clear:
Vendor A/C-----Adr -
3
to Vendor a/c----4.
Hi once you do the Down payment clearing only 1 & 3 line items will be cleared.
but 2&4 line items will show as open items .
This line items you have to clear .Clear this in F-44.
CHANDRA

Very urgent: call servlet from JSP

Hello,
I'm facing a problem in invoking a servlet from a JSP having the JSF components.
The application has a text field to implement ajax for search functionality in the database .I have written a servlet to make the database connection and fire the querry.
Ajax implementation in a js file is called on every keyup event in the jsp file,and
a call is given to the servlet from the ajax methode.
The function in the js file is as follows:-
function getPersonByFirstNameXML( firstName ) {
 if (!firstName) {
 clearPersonByFirstNameXML();
 } else {
 var url = BASE_URL + "/servlet/get_PersonsXML";
 alert(url);
 return new AJAXRequest("post", url, "firstName=" + encode(firstName), processGetPersonByFirstNameXML);
}Im getting the myAJAX.status value as 500.
I think I'm not able to access the servlet properly.
what changes do i need to make in the we.xml file ?
and what should be the url to be passed.
Please provide me a sloution to the above problem as it is very urgent else if anybody is aware of a readymade JSF componet with search functionality freely available please let me know.
PS:
The sample application named RedirectionExample which makes use of a servlet and would be of help to you. You can find the tutorial on the following page:
http://developers.sun.com/prodtech/javatools/jscreator/reference/codesamples/sampleapps.html
is not available as stated in some of the suggestions by Author: mayagiri
Thanks for any help.
Abhi

the status 500 generally means either HTTP server internal error or that execution of CGI script or servlet aborted with error.
It can be reasonably supposed that the request reaches the servlet, ie. that "url" value points to some existing servlet, otherwise most probably the status value would be 404.
To test that the servlet is working i'd try to access it using some simple html page with form like this (with {BASE_URL} replaced by real value):
<form method=post action={BASE_URL}/servlet/get_PersonsXML>
<input type=text name=firstName>
<input type=Submit>
</form>

Error in Personnel Data Iview (its very urgent)

Hi All,
Personal Data
Critical Error
A critical error has occured. Processing of the service had to be terminated. Unsaved data has been lost.
Please contact your system administrator.
failed to create or init instance of model 'com.sap.xss.hr.per.in.pdata.model.HRXSS_PER_P0002_IN' in scope APPLICATION_SCOPE with instanceId 'null'
Caused by: com.sap.tc.webdynpro.progmodel.model.api.WDModelException: failed to create instance of model 'com.sap.xss.hr.per.in.pdata.model.HRXSS_PER_P0002_IN'
     at com.sap.tc.webdynpro.progmodel.model.api.WDModelFactory.getNewModelInstance(WDModelFactory.java:392)
     at com.sap.tc.webdynpro.progmodel.model.api.WDModelFactory.getOrCreateModelInstanceFromScopeMaintainer(WDModelFactory.java:329)
     ... 65 more
Caused by: com.sap.tc.webdynpro.services.exceptions.WDRuntimeException: no jcoMetadata found for RFC function 'HRXSS_PER_GET_F4_P0002_IN'! Please verify, that your model is consistent with the ABAP backend: 'EC6'.
Hi Please help me to solve this error it's very urgent ?
thanks and regards,
Phanikumar.

Hi,
I am not very much sure about this.
Are u calling a BAPi from WD application?
If yes then the error seems to be that : JCOs metadata is not available.
Please check that ur JCO definitions in portal and make sure the name in Portal and the name u defined in WD application are same( case sensitive).
Also TEST JCO in Portal.
Please revert back with current status and explain ur problem a bit more.
Regards,
Sumit

Error: dbms_java.end_import() IMp-00017 -- Very urgent

Hi All,
Please help me. It is very urgent.
I took export backup from oracle10g (IBM AIX)database using oracle9i client (9.2.0.6) to inport the dump in oracle 9.2.0.6 in solaris. I am getting the following error.
Export file created by EXPORT:V09.02.00 via conventional path
import done in WE8MSWIN1252 character set and AL16UTF16 NCHAR character set
import server uses WE8ISO8859P1 character set (possible charset conversion)
IMP-00017: following statement failed with ORACLE error 3113:
"BEGIN :STATUS := DBMS_JAVA.END_IMPORT(); END;"
IMP-00003: ORACLE error 3113 encountered
ORA-03113: end-of-file on communication channel
IMP-00000: Import terminated unsuccessfully
please help me ....
Thanks and Regards,
Kiran

Hi all,
very very urgent please help me..
Thanks and regards
Kiran

Its very urgent:how to insert data into database tables

Hi All,
I am very new to oaf.
I have one requirement data insert into database tables.
here createPG having data that data insert into one custom table.
but i dont know how to insert data into database tables.
i wrote the code in am,co as follows.
in am i wrote the code:
public void NewoperationManagerLogic()
ManagerCustomTableVOImpl vo1=getManagerCustomTableVO1();
OADBTransaction oadbt=getOADBTransaction();
if(!vo1.isPreparedForExecution())
vo1.executeQuery();
Row row=vo1.createRow();
vo1.insertRow(row);
in createPG processrequest co:
public void processRequest(OAPageContext pageContext, OAWebBean webBean)
super.processRequest(pageContext, webBean);
ManagerInformationAMImpl am=(ManagerInformationAMImpl)pageContext.getApplicationModule(webBean);
am.NewoperationManagerLogic();
process form request:
public void processFormRequest(OAPageContext pageContext, OAWebBean webBean)
super.processFormRequest(pageContext, webBean);
if(pageContext.getParameter("Submit")!=null)
ManagerInformationAMImpl am=(ManagerInformationAMImpl)pageContext.getApplicationModule(webBean);
am.getOADBTransaction().commit();
please help with an example(sample code).
its very urgent.
thanks in advance
Seshu
Edited by: its urgent on Dec 25, 2011 9:31 PM

Hi ,
1.)You must have to create a EO based on custom table and then VO based on this EO eventually to save the values in DB
2.) the row.setNewRowState(Row.STATUS_INITIALIZED); is used to set the the status of row as inialized ,this is must required.
3.) When u will create the VO based on EO the viewattributes will be created in VO which will be assigned to the fields to take care the db handling .
You must go thtough the lab excercise shipped with you Jdeveloper ,there is a example of Create Employee page ,that will solve your number of doubts.
Thanks
Pratap

Capex budget using Internal Oder - very urgent

Dear All
My requirement is to use statistical internal order to control the capex budget. I have created stat order , activated commitment management, availability control. and assigned order number in asster master.
But the problem is when creating purchase requisition the system should be a warning or information as per the availability control . to do this what should i do ?
Please respond .. its very urgent for me
regards
Venkat

Thank you Sridevi and Murali for the responses .
I want to do the aquisition of fixest asset using PR-PO-MIGO-MIRO . The system should react as per the available budget by giving warning / error at the time of PR itself. one more thing is i need not give order nuber in PR or PO as suggested by Murali . The system deriving IO number from the Asset master.
Now its working perfectly .
Now i found the reason for not working earlier .
I have done all the settings relating to Order type, Budget Profile , Availability Control every thing .
I have not done the following setting in the asset module :
In order for you to be able to makes this automatic statistical posting, all of the following must apply:
     The acquisition transaction types in Asset Accounting have to be designated as relevant to the budget.
     The APC asset balance sheet accounts have to be defined as statistical cost elements.
     The APC asset balance sheet accounts have to have a field status definition that allows additional account assignment to orders or WBS elements.
I have rectified the above now . I hope this will help others who have the same requirement
best regards
Venkat

Very urgent, no Transacctions Types possible to create Business Transaction

Hello, this question is very urgent, please I will be very pleased if anybody can helps me.
When I want to create a Business Transaction, at CRMD_ORDER, I dont have any Transaction Type to choose to create the Business Transaction, so I can't create anyone.
I have got many Transaction types, I am usign CRM 5.0 and I have got many Transaction Types with all Channel communication allowed.
Please check this image for further information:
<a href="http://img380.imageshack.us/my.php?image=businesspq5.jpg">http://img380.imageshack.us/my.php?image=businesspq5.jpg</a>

HI Fernando,
Please check whether all your Transaction type are in Active mode or Not.
Also check the Allowed Channels status, if it is not filled please add the same from the drop down.
Regards
Arun Kumar

Logic for Refreshing the ALV Report (Very Urgent)

Hi Experts,
My ALV report needs a refresh button on the output.
The Refresh button should be available to allow user to keep this report on screen and refresh regularly rather than going back and running it again.
I am using Function modules and not OOPS Concept here.............As i am unaware of OOPS Please provide me solution in FM's Only.
Kindly send me sample logic for this, Very urgent if ur reply is helpfull.... u will be rewarded heavily.......................
THanks in advance.
Rajesh Kumar

Hi,
This mean to say that if you have a 'refresh' push button in your gui status, every time you press the button, the list should get refreshed.
In ALV, to refresh the table you have to call the method "refresh_table_display".
It has the syntax very similar to creating the table.
It has two parameters. In the first one, you can mention if you want to refresh only the data (the icons are not refreshed)
or
if you want to refresh only the icons around the grid (the data is not refreshed - this option is mostly not used in day to day applications).
the synatx is :-
call method grid (name of grid )->refresh_table_display
exporting
IS_STABLE = <STRUCT OF TYPE LVC_S_STBL> (THIS IS FOR DATA REFRESHING)
I_SOFT_REFRESH = <VARIABLE OF CHAR 01> (THIS IS FOR ICON REFRESHING).
Regards,
Bhaskar

Hi this is very urgent

could u plz explain how to populate the data into the final internal table in this program.
i need how to add this all select statement into one final internal table
plz provide me
i am using ALVgrid repors
could u plz explain clearly with comments
very urgent
TABLES: eban, "Purchase Requisition
 ekko, "Purchasing Document Header
 mereq3328, "Purchase Requisition: Contact
 cdpos, "Change document items
 cdhdr, "Change document header
 dd04t. "R/3 DD: Data element texts
TYPE-POOLS: slis.
TYPES :
*declaration of type for internal table to be passed in ALV report as
*internal table.
 BEGIN OF typ_req1,
 statu TYPE eban-statu, "Processing status of purchase requisition
 banpr TYPE eban-banpr, "Requisition Processing State
 bsart TYPE eban-bsart, "Purchase requisition document type
 banfn TYPE eban-banfn, "Purchase requisition number
 bnfpo TYPE eban-bnfpo, "Item number of purchase requisition
 ebeln TYPE eban-ebeln, "Purchase order number
 ebelp TYPE eban-ebelp, "Purchase order item number
 matnr TYPE eban-matnr, "Material Number
 txz01 TYPE eban-txz01, "Short text
 creator_name TYPE mereq3328-creator_name, "Creator
 afnam TYPE eban-afnam, "Name of requisitioner/requester
 lifnr TYPE eban-lifnr, "Desired vendor
 flief TYPE eban-flief, "Fixed Vendor
 ekgrp TYPE ekko-ekgrp, "Purchasing Group
 tabkey TYPE cdpos-tabkey, "Item Number
 ddtext TYPE dd04t-ddtext, "Short Text
 chngind TYPE cdpos-chngind, "Action
 value_new TYPE cdpos-value_new, "New Value
 value_old TYPE cdpos-value_old, "Old Value
 username TYPE cdhdr-username, "Name
 udate TYPE cdhdr-udate, "Date
 utime TYPE cdhdr-utime, "Time
 changenr TYPE cdhdr-changenr, "Doc Number
 tcod TYPE cdhdr-tcode, "Transaction Code
 END OF typ_req1,
Type declaration for EBAN table fields
 BEGIN OF typ_eban,
 statu TYPE eban-statu, "Processing status of purchase requisition
 banpr TYPE eban-banpr, "Requisition Processing State
 bsart TYPE eban-bsart, "Purchase requisition document type
 banfn TYPE eban-banfn, "Purchase requisition number
 bnfpo TYPE eban-bnfpo, "Item number of purchase requisition
 ebeln TYPE eban-ebeln, "Purchase order number
 ebelp TYPE eban-ebelp, "Purchase order item number
 matnr TYPE eban-matnr, "Material Number
 txz01 TYPE eban-txz01, "Short text
 afnam TYPE eban-afnam, "Name of requisitioner/requester
 lifnr TYPE eban-lifnr, "Desired vendor
 flief TYPE eban-flief, "Fixed Vendor
 END OF typ_eban,
Type declaration for ekko table fields
 BEGIN OF typ_ekko,
 ekgrp TYPE ekko-ekgrp, "Purchasing Group
 END OF typ_ekko,
Type declaration for cdpos table fields
 BEGIN OF typ_cdpos,
 fname TYPE cdpos-fname,
 changenr TYPE cdpos-changenr, "Doc Number
 objectclas TYPE cdpos-objectclas, "Object class
 objectid TYPE cdpos-objectid, "Object value
 tabkey TYPE cdpos-tabkey, "Item Number
 chngind TYPE cdpos-chngind, "Action
 value_new TYPE cdpos-value_new, "New Value
 value_old TYPE cdpos-value_old, "Old Value
 CHNGIND type cdpos-CHNGIND
 END OF typ_cdpos,
Type declaration for cdhdr table fields
 BEGIN OF typ_cdhdr,
 objectclas TYPE cdhdr-objectclas, "Object class
 objectid TYPE cdhdr-objectid, "Object value
 username TYPE cdhdr-username, "Name
 udate TYPE cdhdr-udate, "Date
 utime TYPE cdhdr-utime, "Time
 changenr TYPE cdhdr-changenr, "Doc Number
 tcod TYPE cdhdr-tcode, "Transaction Code
 change_ind TYPE cdhdr-change_ind,
 objectid1(10) TYPE c,
 END OF typ_cdhdr,
Type declaration for dd04t table fields
 BEGIN OF typ_dd04t,
 ddtext TYPE dd04t-ddtext, "Short Text
 END OF typ_dd04t,
Type declaration for dd04t table fields
 BEGIN OF typ_mereq3328,
 creator_name TYPE mereq3328-creator_name, "Creator
 END OF typ_mereq3328.
*& delcaratilon of internal table *
 DATA:
Internal table for final internal table
 it_req1 TYPE STANDARD TABLE OF typ_req1,
Internal table for eban table
 it_eban TYPE STANDARD TABLE OF typ_eban,
Internal table for ekko table
 it_ekko TYPE STANDARD TABLE OF typ_ekko,
Internal table for cdpos table
 it_cdpos TYPE STANDARD TABLE OF typ_cdpos,
Internal table for cdhdr table
 it_cdhdr TYPE STANDARD TABLE OF typ_cdhdr,
Internal table for cdhdr1 table
 it_dd04t TYPE STANDARD TABLE OF typ_dd04t,
Internal table for mereq3328 table
 it_mereq3328 TYPE STANDARD TABLE OF typ_mereq3328,
Internal table for ALV Field Catalog
 it_fieldcat_alv TYPE slis_t_fieldcat_alv,
Internal table for ALV Event
 it_events TYPE slis_t_event.
*& Declaration of Work Area
work area for final internal table
 wa_req1 TYPE typ_req1,
work area for eban table
 wa_eban TYPE typ_eban,
work area for ekko table
 wa_ekko TYPE typ_ekko,
work area for cdpos table
 wa_cdpos TYPE typ_cdpos,
work area for cdhdr table
 wa_cdhdr TYPE typ_cdhdr,
work area for dd04t table
 wa_dd04t TYPE typ_dd04t,
work area for mereq3328 table
 wa_mereq3328 TYPE typ_mereq3328.
Declaration of work area for Field Catalog
 wa_fieldcat TYPE slis_fieldcat_alv,
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_bsart FOR eban-bsart OBLIGATORY
 DEFAULT 'znb1' TO 'znb2', "Purchase requisition document type
 s_banfn FOR eban-banfn, "Req Number
 s_bnfpo FOR eban-bnfpo, "Req Item Number
 s_ebeln FOR eban-ebeln, "Purchase Order Number
 s_ebelp FOR eban-ebelp, "Purchase Order Item Number
 s_matnr FOR eban-matnr. "Material Number
PARAMETER: p_txz01 TYPE eban-txz01. "Short text
SELECT-OPTIONS: s_creat FOR mereq3328-creator_name, "Creator
 s_afnam FOR eban-afnam, "Requester
 s_lifnr FOR eban-lifnr, "Desired vendor
 s_flief FOR eban-flief. "Fixed Vendor
SELECTION-SCREEN END OF BLOCK b.
SELECT objectclas
 objectid
 changenr
 username
 udate
 utime
 tcode
 change_ind FROM cdhdr
 INTO TABLE it_cdhdr
 WHERE objectclas = 'BANF'
 AND udate = sy-datum .
SELECT objectclas
 objectid
 changenr
 chngind
 tabkey
 value_new
 value_old
 FROM cdpos INTO TABLE it_cdpos
 FOR ALL ENTRIES IN it_cdhdr
 WHERE changenr EQ it_cdhdr-changenr AND
 chngind EQ it_cdhdr-change_ind AND
 objectclas EQ it_cdhdr-objectclas AND
 objectid EQ it_cdhdr-objectid.
IF NOT it_cdhdr[] IS INITIAL.
 SELECT banfn
 bnfpo
 bsart
 statu
 afnam
 txz01
 matnr
 lifnr
 ebeln
 ebelp
 banpr
 FROM eban INTO TABLE it_eban
 WHERE "banfn = it_cdhdr-objectid
 banfn IN s_banfn
 AND bnfpo IN s_bnfpo
 AND bsart IN s_bsart
 AND matnr IN s_matnr
 AND lifnr IN s_lifnr
 AND flief IN s_flief.
 ENDIF.
IF NOT it_cdpos[] IS INITIAL.
 SELECT rollname
 ddtext
 FROM dd04t INTO TABLE it_dd04t
 FOR ALL ENTRIES IN it_cdpos
 WHERE rollname = it_cdpos-fname.

hi rajeshreddy,
create one global internal table for the all output fields,
then move all these fields into this global internal table and pass into your gird FM.
i.e. see the below code for reference ,
loop at <itab> into <wa>.
read table <itab1> into <wa1> with key <keyfield> = <wa-field>.
if sy-subrc = 0.
move-correspondig <wa1> to <globalwa>.
move-correspondig <wa> to <globalwa>.
endif.
then read another <itab2> into <wa2> with key <keyfield> = <wa-field>.
if sy-subrc = 0.
move-correspondig <wa2> to <globalwa>.
endif.
endloop.
like this u can move all output fields into one global internal table but u should have relation among all the internal tables.
reward points if helpful,
regards,
seshu.

CODING EXAMPLE - LAYOUT ALV - ( very urgent )

Could any body please give me the coding example
where slis_layout_alv is used ? Please treat this as very urgent.
 Yours sincerely,
 SAURAV LAHIRY

Hi Saurav,
Please check this code.
REPORT y56098rdup_list
 NO STANDARD PAGE HEADING LINE-SIZE 240 LINE-COUNT 65(8) .
Declartion of Tables.
TABLES: ztril_logtable,zreasoncodes,zsdcustxref, usr21, adrp.
TABLES-POOLS
TYPE-POOLS: slis.
Internal tables declarations.
Declaration of output internal table
DATA: BEGIN OF tb_output OCCURS 0,
 user_id TYPE xubname, " Requestor ID
 role TYPE zrole, "Role
 kunnr TYPE kunnr , "Customer Number 1
 customer_name TYPE name1, "Customer Name
 stras TYPE stras_gp, "Street Address
 ort01 TYPE city, "City
 regio TYPE regio, "State
 pstlz TYPE pstlz, "Postal Code
 land1 TYPE land1_gp, "COUNTRY CODE
 po_box TYPE ad_pobx, "PO Box Number
 tril_po_postal TYPE zpobox_postal, "PO BOX Postal Code
 tril_err_msg TYPE zerr_message, "Error Message
 reason_type TYPE zreason_type, "Reason Type
 reason_code TYPE zreason_code, "Reason Code
 perc_prob TYPE zprobability , "Probability Percentage
 pattern_number TYPE z_pattern_no, "Match Pattern Number
 country_code TYPE land1, "COUNTRY CODE
 user_id_name(92) TYPE c, "UserID + Fast Name + Last Name
 zlkunnr LIKE zsdcustxref-zlkunnr, "Legacy Customer NO
 saplegcustno(20) TYPE c, "SAP + Legacy Customer No
 reason_desc LIKE zreasoncodes-reason_desc, "Reason Description
 saplegcustno1(20) TYPE c,
 END OF tb_output.
Declation of work area.
DATA: wa_output LIKE tb_output.
Declaration of Internal Table.
DATA: tb_fill_output LIKE tb_output OCCURS 0 WITH HEADER LINE,
 wa_fill_output LIKE tb_fill_output.
Declaration of internal table for ZREASONCODES
DATA: BEGIN OF tb_reasoncodes OCCURS 0.
 INCLUDE STRUCTURE zreasoncodes.
DATA: END OF tb_reasoncodes.
DATA: wa_reasoncodes LIKE tb_reasoncodes.
Declaration of internal table ZSDCUTXREF.
DATA: BEGIN OF tb_zsdcustxref OCCURS 0,
 zlkunnr LIKE zsdcustxref-zlkunnr, " Legacy Customer No
 zlsourc LIKE zsdcustxref-zlsourc, " Legacy customer source code
 kunnr LIKE zsdcustxref-kunnr, " Customer No
 END OF tb_zsdcustxref.
Declation of work area.
DATA: wa_zsdcustxref LIKE tb_zsdcustxref.
Declaration of internal table for USR21.
DATA: BEGIN OF tb_usr21 OCCURS 0,
 bname LIKE usr21-bname, " USER NAME IN USER MASTER RECORD
 persnumber LIKE usr21-persnumber, " PERSON NUMBER
 name_first LIKE adrp-name_first, " FIRST NAME
 name_last LIKE adrp-name_last, " LAST NAME
 END OF tb_usr21.
Declation of work area.
DATA: wa_usr21 LIKE tb_usr21.
Declaration of internal table for ADRP.
DATA: BEGIN OF tb_adrp OCCURS 0,
 persnumber LIKE adrp-persnumber, " PERSON NUMBER
 name_first LIKE adrp-name_first, " FIRST NAME
 name_last LIKE adrp-name_last, " LAST NAME
 END OF tb_adrp.
DATA: wa_adrp LIKE tb_adrp.
Declaration for fieldcatalog
DATA: tb_fieldcat TYPE slis_t_fieldcat_alv,
 wa_fieldcat TYPE slis_fieldcat_alv.
Declaration for events
DATA: tb_events TYPE slis_t_event,
 wa_event TYPE slis_alv_event.
Declaration for Layout
DATA: tb_layout TYPE slis_layout_alv,
 wb_layout TYPE slis_layout_alv.
DATA: wa_line TYPE slis_listheader,
 tb_list_header TYPE slis_t_listheader.
DATA: g_date1(40) TYPE c,
 g_date2(40) TYPE c,
 g_date3(80) TYPE c.
Declaration for Selection Screen Fields
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_userid FOR ztril_logtable-user_id, "Requestor ID
 s_r_type FOR zreasoncodes-reason_type, " Reason Type
 s_r_code FOR zreasoncodes-reason_code
 MATCHCODE OBJECT zr_code. " Reason Code
PARAMETERS : p_frmdat LIKE ztril_logtable-curr_date OBLIGATORY, " from date
 p_to_dat LIKE ztril_logtable-curr_date OBLIGATORY. " to date
SELECTION-SCREEN: END OF BLOCK b1.
Declaration for Varialbes
DATA: g_sc_no(20) TYPE c, " To combine the SAP & Legacy Customer No
 g_user_name(92) TYPE c. " To concatnate the Userid and User Name.
DATA : tb_repid LIKE trdir-name.
tb_repid = 'Y56098RDUP_LIST'.
*tb-repid type sy-repid.
DATA: BEGIN OF tb_user OCCURS 0,
 user_id LIKE ztril_logtable-user_id,
 END OF tb_user.
To get the P_USERID F4 Functionality for LOW and HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_userid-low.
SELECT user_id FROM ztril_logtable INTO TABLE tb_user.
SORT tb_user.
DELETE ADJACENT DUPLICATES FROM tb_user.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 retfield = 'S_USERID'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 dynprofield = 'S_USERID'
 value_org = 'S'
 TABLES
 value_tab = tb_user
 EXCEPTIONS
 parameter_error = 1
 no_values_found = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE e210(zsd).
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_userid-high.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 retfield = 'S_USERID'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 dynprofield = 'S_USERID'
 value_org = 'S'
 TABLES
 value_tab = tb_user
 EXCEPTIONS
 parameter_error = 1
 no_values_found = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE e210(zsd).
ENDIF.
At selection screen event.
AT SELECTION-SCREEN.
Validation of User_id(USER_ID) & Reason Type(REASON_CODE)
PERFORM checking_user_id.
Validation of Reason type from the table ZREASONCODES
PERFORM check_reasontype.
Validation of Reason code from the table ZREASONCODES
PERFORM check_reasoncode.
Validation for checking From-Date
PERFORM checking_from_date.
Validation for checking To-Date
PERFORM checking_to_date.
Start of selection event.
START-OF-SELECTION.
REFRESH data & clear data.
PERFORM refresh_tables.
Get ZTRIL_LOGTABLE Data.
PERFORM get_tril_logtable.
Get data from ZREASONCODE.
PERFORM get_reasoncode_data.
Get the data Customer No from ZSDCUSTREF based on ZTRIL_LOGTABLE-KUNNR
PERFORM get_sdcustrefdata.
Get the data First Name and Last Name
PERFORM get_data_from_usr21_adrp.
Updateing the output internal table i.e. IT_OUTPUT data
PERFORM fill_output_data.
Displaying output data with two different Rows.
PERFORM output_data.
Populate the field catelog.
PERFORM build_fieldcatlog.
Declartion Events.
PERFORM event_call.
Top of page Information
PERFORM top_of_page.
Declation of Layout
PERFORM layout USING tb_layout.
To get the Output Format( Simple List/ ALV )
PERFORM grid_display.
*& Form get_tril_logtable
 To get the data from table ztril_logtable
FORM get_tril_logtable.
REFRESH: tb_output.
Reading data from the table ZTRIL_LOGTABLE
SELECT user_id
 role "Role
 kunnr "Customer Number 1
 customer_name "Customer Name
 stras "Street Address
 ort01 "City
 regio "State
 pstlz "Postal Code
 land1 "COUNTRY CODE
 po_box "PO Box Number
 tril_po_postal "PO BOX Postal Code
 tril_err_msg "Error Message
 reason_type "Reason Type
 reason_code "Reason Code
 perc_prob
 pattern_number
 FROM ztril_logtable INTO
 CORRESPONDING FIELDS OF
 TABLE tb_output
 WHERE
 ( curr_date GE p_frmdat AND curr_date LE p_to_dat )
 ( curr_date BETWEEN p_frmdat AND p_to_dat )
 AND
 user_id IN s_userid
 AND reason_code IN s_r_code
 AND reason_type IN s_r_type.
IF sy-subrc NE 0.
 MESSAGE i202(zsd).
ENDIF.
ENDFORM. " get_tril_logtable
*& Form get_reasoncode_data
 To get the Reason code and Reason type
FORM get_reasoncode_data .
checking internal table initial data.
IF NOT tb_output[] IS INITIAL.
 SELECT reason_type
 reason_code
 reason_desc
 FROM zreasoncodes
 INTO CORRESPONDING FIELDS OF TABLE tb_reasoncodes
 WHERE reason_type IN s_r_type
 AND reason_code IN s_r_code.
ENDIF.
ENDFORM. " get_reasoncode_data
*& Form get_sdcustrefdata
 To get the legasy customer number data
FORM get_sdcustrefdata .
IF NOT tb_output[] IS INITIAL.
 SELECT zlkunnr " Legacy Customer No
 zlsourc " Legacy customer source code
 kunnr " Customer No
 FROM zsdcustxref INTO TABLE tb_zsdcustxref
 FOR ALL ENTRIES IN tb_output
 WHERE kunnr EQ tb_output-kunnr.
ENDIF.
ENDFORM. " get_sdcustrefdata
*& Form fill_output_data
 To get the final data into the Internal Table
FORM fill_output_data .
IF NOT tb_output[] IS INITIAL.
 SORT tb_output BY role user_id.
 LOOP AT tb_output INTO wa_output.
 READ TABLE tb_reasoncodes INTO wa_reasoncodes
 WITH KEY
 reason_type = wa_output-reason_type
 reason_code = wa_output-reason_code BINARY SEARCH.
 IF sy-subrc EQ 0.
 wa_output-reason_desc = wa_reasoncodes-reason_desc.
 CLEAR wa_reasoncodes.
 ENDIF.
 READ TABLE tb_zsdcustxref INTO wa_zsdcustxref
 WITH KEY
 kunnr = wa_output-kunnr.
 IF sy-subrc EQ 0.
 CONCATENATE wa_zsdcustxref-zlkunnr
 wa_zsdcustxref-zlsourc
 INTO
 g_sc_no SEPARATED BY ' - '.
 wa_output-saplegcustno1 = wa_zsdcustxref-zlkunnr.
 wa_output-saplegcustno1 = g_sc_no.
 ELSE.
 wa_output-saplegcustno = wa_output-kunnr.
 CLEAR: wa_reasoncodes,g_sc_no.
 ENDIF.
 READ TABLE tb_usr21 INTO wa_usr21 WITH KEY bname = wa_output-user_id.
 IF sy-subrc EQ 0.
 CONCATENATE wa_usr21-bname
 CONCATENATE wa_usr21-name_first
 wa_usr21-name_last
 INTO
 g_user_name SEPARATED BY space.
 wa_output-user_id_name = g_user_name.
 ENDIF.
 MODIFY tb_output FROM wa_output
 TRANSPORTING
 reason_desc
 saplegcustno
 user_id_name
 saplegcustno1.
 CLEAR: g_user_name,wa_usr21, wa_adrp.
 ENDLOOP.
ENDIF.
ENDFORM. " fill_output_data
*& Form get_data_from_USR21_ADRP
 To get the first name and last name from ADRP table
FORM get_data_from_usr21_adrp .
IF NOT tb_output[] IS INITIAL.
 SELECT bname
 persnumber
 FROM usr21
 INTO CORRESPONDING FIELDS OF TABLE tb_usr21
 FOR ALL ENTRIES IN tb_output
 WHERE bname EQ tb_output-user_id.
 IF NOT tb_usr21[] IS INITIAL.
 SELECT persnumber
 name_first
 name_last
 FROM adrp INTO TABLE tb_adrp
 FOR ALL ENTRIES IN tb_usr21
 WHERE persnumber EQ tb_usr21-persnumber.
 ENDIF.
ENDIF.
LOOP AT tb_usr21 INTO wa_usr21.
 READ TABLE tb_adrp INTO wa_adrp WITH KEY persnumber = wa_usr21-persnumber.
 IF sy-subrc EQ 0.
 wa_usr21-name_first = wa_adrp-name_first.
 wa_usr21-name_last = wa_adrp-name_last.
 CLEAR wa_adrp.
 MODIFY tb_usr21 FROM wa_usr21 TRANSPORTING name_first name_last.
 ENDIF.
ENDLOOP.
ENDFORM. " get_data_from_USR21_ADRP
*& Form build_fieldcatlog
 It is used to build the fieldcatlog
FORM build_fieldcatlog .
wa_fieldcat-col_pos = 1.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'USER_ID'.
wa_fieldcat-seltext_l = 'Requestor ID'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'USER_ID_NAME'.
wa_fieldcat-seltext_l = 'Requestor Name'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 3.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'SAPLEGCUSTNO'.
wa_fieldcat-seltext_l = 'SAP & Legacy Customer No'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 4.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'CUSTOMER_NAME'.
wa_fieldcat-seltext_m = 'Customer Name'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 5.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'STRAS'.
wa_fieldcat-seltext_m = 'Street Address'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 6.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'ORT01'.
wa_fieldcat-seltext_m = 'City'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 7.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'REGIO'.
wa_fieldcat-seltext_m = 'State'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 8.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'PSTLZ'.
wa_fieldcat-seltext_m = 'Postal Code'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 9.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'LAND1'.
wa_fieldcat-seltext_m = 'Country Code'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 10.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'PO_BOX'.
wa_fieldcat-seltext_m = 'PO BOX NO'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 11.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'TRIL_PO_POSTAL'.
wa_fieldcat-seltext_m = 'PO Box Postal Code'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 12.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'REASON_TYPE'.
wa_fieldcat-seltext_m = 'Reason Type'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 13.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'REASON_CODE'.
wa_fieldcat-seltext_m = 'Reason Code'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 14.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'REASON_DESC'.
wa_fieldcat-seltext_m = 'Reason Description'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 15.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'PERC_PROB'.
wa_fieldcat-seltext_m = 'TOP %'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 16.
wa_fieldcat-tabname = 'TB_FILL_DATA'.
wa_fieldcat-fieldname = 'PATTERN_NUMBER'.
wa_fieldcat-seltext_m = 'Match Pattern'.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
wa_fieldcat-datatype = 'N'.
APPEND wa_fieldcat TO tb_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " build_fieldcatlog
*& Form event_call
 It is used to call the events
FORM event_call .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = tb_events
 EXCEPTIONS
 list_type_wrong = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " event_call
*& Form grid_display
 To display the output in ALV Grid format
FORM grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 i_callback_program = tb_repid
 i_callback_pf_status_set = 'SET_PF_STATUS'
 i_callback_user_command = 'USER_COMMAND'
 i_callback_top_of_page = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
 is_layout = wb_layout
 it_fieldcat = tb_fieldcat[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
 I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 it_events = tb_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
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = tb_output
 t_outtab = tb_fill_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.
ENDFORM. " grid_display
*& Form top_of_page
 It is used to display the Top-of-page
FORM top_of_page .
CLEAR: wa_line, tb_list_header[].
wa_line-typ = 'H'.
wa_line-info = 'Duplicates Ignored by Requestor Report'.
APPEND wa_line TO tb_list_header.
CLEAR wa_line.
wa_line-typ = 'S'.
WRITE p_frmdat TO g_date1 DD/MM/YY.
WRITE p_to_dat TO g_date2 DD/MM/YY.
CONCATENATE 'From Date : ' g_date1 ' To Date : ' g_date2
 INTO g_date3 SEPARATED BY space .
wa_line-info = g_date3.
APPEND wa_line TO tb_list_header.
CLEAR wa_line.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = tb_list_header.
 i_logo =
 I_END_OF_LIST_GRID =
ENDFORM. " top_of_page
*& Form layout
 It is used to display the output layout
FORM layout USING p_tb_layout.
tb_layout-detail_popup = 'X'.
tb_layout-colwidth_optimize = 'X'.
ENDFORM. " layout
*& Form refresh_tables
TO Refresh the internal table workarea
FORM refresh_tables .
REFRESH: tb_output, tb_reasoncodes, tb_zsdcustxref, tb_usr21, tb_fill_output.
CLEAR: wa_output, wa_reasoncodes, wa_zsdcustxref, wa_usr21, wa_fill_output.
ENDFORM. " refresh_tables
*& Form SET_PF_STATUS
It is used to populate the PF_STATUS
FORM set_pf_status USING tb_extab TYPE slis_t_extab.
SET PF-STATUS 'ZSTANDARD'.
ENDFORM. " SET_PF_STATUS
*& Form USER_COMMAND
To avoid the shortdump of ALV Report
FORM user_command USING rf_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
ENDFORM. "user_command
*& Form check_reasoncode
 Checking Reason Code
FORM check_reasoncode .
IF NOT s_r_type IS INITIAL.
 SELECT SINGLE reason_code FROM zreasoncodes INTO s_r_code
 WHERE reason_type IN s_r_type
 AND reason_code IN s_r_code.
 IF sy-subrc NE 0.
 SET CURSOR FIELD 'S_R_CODE-LOW'.
 MESSAGE e204(zsd).
 ELSEIF s_r_code = 'TP'.
 MESSAGE e208(zsd).
 ENDIF.
ENDIF.
ENDFORM. " check_reasoncode
*& Form check_reasontype
 Checking Reason Type
FORM check_reasontype .
IF s_r_type-low = 'TP' OR
 s_r_type-high = 'TP'.
 MESSAGE e208(zsd).
ENDIF.
SELECT SINGLE reason_type FROM zreasoncodes INTO s_r_type
 WHERE reason_type IN s_r_type.
IF sy-subrc NE 0.
 MESSAGE e201(zsd).
ENDIF.
ENDFORM. " check_reasontype
*& Form checking_From_date
 Checking From Date
FORM checking_from_date .
SELECT SINGLE
 curr_date
 FROM ztril_logtable
 INTO ztril_logtable-curr_date
 WHERE curr_date EQ p_frmdat.
IF sy-subrc NE 0.
 MESSAGE e205(zsd).
ENDIF.
ENDFORM. " checking_From_date
*& Form checking_To_date
Checking To_date
FORM checking_to_date .
SELECT SINGLE
 curr_date
 FROM ztril_logtable
 INTO ztril_logtable-curr_date
 WHERE curr_date EQ p_to_dat.
IF sy-subrc NE 0.
 MESSAGE e206(zsd).
elseif p_frmdat lt p_to_dat.
 Message e209(zsd).
ELSEIF p_frmdat GT p_to_dat.
 MESSAGE e207(zsd).
ENDIF.
ENDFORM. " checking_To_date
*& Form checking_user_id
 text
FORM checking_user_id .
SELECT SINGLE user_id
 FROM ztril_logtable
 INTO s_userid
 WHERE user_id IN s_userid.
IF sy-subrc NE 0.
 MESSAGE e200(zsd).
ENDIF.
ENDFORM. " checking_user_id
*& Form output_data
To print the Legacy customer No and SAP no into two different rows.*
FORM output_data .
LOOP AT tb_output INTO wa_output.
 wa_fill_output-user_id = wa_output-user_id.
 wa_fill_output-role = wa_output-role.
 wa_fill_output-saplegcustno = wa_output-kunnr.
 wa_fill_output-user_id_name = wa_output-user_id_name.
 wa_fill_output-customer_name = wa_output-customer_name.
 wa_fill_output-stras = wa_output-stras.
 wa_fill_output-ort01 = wa_output-ort01.
 wa_fill_output-regio = wa_output-regio.
 wa_fill_output-pstlz = wa_output-pstlz.
 wa_fill_output-land1 = wa_output-land1.
 wa_fill_output-po_box = wa_output-po_box.
 wa_fill_output-tril_po_postal = wa_output-tril_po_postal.
 wa_fill_output-tril_err_msg = wa_output-tril_err_msg.
 wa_fill_output-reason_type = wa_output-reason_type.
 wa_fill_output-reason_code = wa_output-reason_code.
 wa_fill_output-country_code = wa_output-country_code.
 wa_fill_output-reason_desc = wa_output-reason_desc.
 wa_fill_output-pattern_number = wa_output-pattern_number.
 wa_fill_output-perc_prob = wa_output-perc_prob.
 CLEAR: wa_output-user_id,
 wa_output-role,
 wa_output-kunnr,
 wa_output-user_id_name,
 wa_output-stras,
 wa_output-ort01,
 wa_output-regio,
 wa_output-pstlz,
 wa_output-land1,
 wa_output-po_box,
 wa_output-tril_po_postal,
 wa_output-tril_err_msg,
 wa_output-reason_type,
 wa_output-reason_code,
 wa_output-country_code,
 wa_output-reason_desc,
 wa_output-customer_name,
 wa_output-pattern_number,
 wa_output-perc_prob.
 APPEND wa_fill_output TO tb_fill_output.
 IF NOT wa_output-saplegcustno1 IS INITIAL.
 CLEAR: wa_fill_output-user_id,
 wa_fill_output-role,
 wa_fill_output-kunnr,
 wa_fill_output-user_id_name,
 wa_fill_output-stras,
 wa_fill_output-ort01,
 wa_fill_output-regio,
 wa_fill_output-pstlz,
 wa_fill_output-land1,
 wa_fill_output-po_box,
 wa_fill_output-tril_po_postal,
 wa_fill_output-tril_err_msg,
 wa_fill_output-reason_type,
 wa_fill_output-reason_code,
 wa_fill_output-country_code,
 wa_fill_output-reason_desc,
 wa_fill_output-customer_name,
 wa_fill_output-pattern_number,
 wa_fill_output-perc_prob.
 wa_fill_output-saplegcustno = wa_output-saplegcustno1.
 APPEND wa_fill_output TO tb_fill_output.
 CLEAR: wa_output.
 ENDIF.
ENDLOOP.
ENDFORM. " output_data

BPE is in RED status -Very urgent

Similar Messages

Maybe you are looking for