Regarding webservice Manager

Hi,
1)How can i acess webservice manager in oracle service bus.
2)OSB providing webservice manager functionality.
Regards,
NOus

1) you can use the wsdl you expose in webservice manager as endpoint in oracle service bus your proxyservice or business service
2) from as far i know there isn't any webservice manager related functionality in the bus.
what are you looking for ?

Similar Messages

[svn] 1602: Merging changes 1590, 1598, and 1600 from 3.0.x to trunk, regarding webservice endpoints

Revision: 1602
Author: [email protected]
Date: 2008-05-07 13:20:02 -0700 (Wed, 07 May 2008)
Log Message:
Merging changes 1590, 1598, and 1600 from 3.0.x to trunk, regarding webservice endpoints
Modified Paths:
blazeds/trunk/build.properties
blazeds/trunk/qa/apps/qa-regress/WEB-INF/server-config.wsdd
blazeds/trunk/qa/apps/qa-regress/WEB-INF/web.xml
blazeds/trunk/qa/apps/qa-regress/testsuites/flexunit/src/tests/flexunit/wscl/interop/SOAP BuilderRound3Import1_WhiteMesaTest.as
blazeds/trunk/qa/apps/qa-regress/testsuites/flexunit/src/tests/flexunit/wscl/interop/SOAP BuilderRound3Import3_WhiteMesaTest.as
blazeds/trunk/qa/apps/qa-regress/testsuites/flexunit/src/tests/flexunit/wscl/interop/SOAP BuilderRound3RPCEncoded.as
Added Paths:
blazeds/trunk/qa/apps/qa-regress/testsuites/flexunit/src/tests/flexunit/wscl/interop/SOAP BuilderRound3Compound1.as
blazeds/trunk/qa/lib/javax_mail.jar
blazeds/trunk/qa/lib/qa-services-wm.jar

Retrieve Client IP Address in a Oracle WebServices Manager Custom Policy

Hi everybody,
For some reasons i had to implement a custom policy in the OWSM, to restrict the access to webservices by Client IP Addresses. I´ve been following the examples for custom policies mentioned in the books: "Oracle Web Services Manager, Oracle Web Services Manager" by Sitaraman Lakshminarayanan, and the "Oracle® Web Services Manager Extensibility Guide 10g (10.1.3.3.0)" by Oracle. I followed the examples mentioned in those books to implement my Custom policy, the policy is successfully deployed to OWSM and it works, only by the issue that when i want to retrieve the Client Ip address it returns null, and following the example by the Oracle Guide, the HttpServletRequest its also returns null, im desperated because in every site that i finally find some info about it, quotes any of these 2 examples in those books, and mine doesnt work! this is the code of the custom policy, i´ve combined the 2 aproaches:
package project1;
import com.cfluent.ccore.util.logging.ILogger;
import com.cfluent.ccore.util.logging.Level;
import com.cfluent.ccore.util.logging.LogManager;
import com.cfluent.pipelineengine.container.MessageContext;
import com.cfluent.policysteps.sdk.AbstractStep;
import com.cfluent.policysteps.sdk.Fault;
import com.cfluent.policysteps.sdk.IMessageContext;
import com.cfluent.policysteps.sdk.IResult;
import com.cfluent.policysteps.sdk.InvocationStatus;
import com.cfluent.policysteps.sdk.Result;
import java.util.HashMap;
import java.util.Iterator;
import java.util.Vector;
import javax.servlet.http.HttpServletRequest;
public class CustomPolicy extends AbstractStep {
private static String CLASSNAME = CustomPolicy.class.getName();
private static ILogger LOGGER = LogManager.getLogger(CLASSNAME);
private String allowedIpAddress = null;
private String allowedRoleName = null;
private String protectedServiceMethodName = null;
public CustomPolicy() {
public void init() throws IllegalStateException {
// nothing to initialize
public void destroy() {
* This is the main method which will validate that the request is coming from
* the correct IP Address and has permission to access the specified metod.
public IResult execute(IMessageContext messageContext) throws Fault {
LOGGER.entering(CLASSNAME, "execute");
Result result = new Result();
result.setStatus(IResult.FAILED); //initialize result
String processingStage = messageContext.getProcessingStage();
LOGGER.log(Level.INFO, "Processing stage is " + processingStage);
HttpServletRequest httpServletRequest = (HttpServletRequest)
messageContext.getProperty("javax.servlet.request");
String remoteAddr = httpServletRequest.getHeader("Host");
LOGGER.log(Level.SEVERE, "Dir IP:"+remoteAddr);
String remoteHost = httpServletRequest.getRemoteHost();
LOGGER.log(Level.INFO, "ADDR" + remoteAddr+ "HOST"+remoteHost);
boolean isRequest =
(IMessageContext.STAGE_REQUEST.equals(messageContext.getProcessingStage()) ||
IMessageContext.STAGE_PREREQUEST.equals(messageContext.getProcessingStage()));
//Execute the step Only when its a Request pipeline else return success
if (!isRequest) {
result.setStatus(IResult.SUCCEEDED);
return result;
MessageContext msgCtxt = (MessageContext)messageContext;
String _MethodName = msgCtxt.getRequest().getMethodName();
LOGGER.log(Level.INFO,
"Writing Allowed IP Addr before creating SOAP header " +
allowedIpAddress);
LOGGER.log(Level.INFO,
"Writing Remote IP Addr before creating SOAP header " +
msgCtxt.getRemoteAddr());
/*LOGGER.log(Level.INFO,
"Writing Remote IP Addr before creating SOAP header " +
remoteAddr);*/
String cadTempo = allowedIpAddress;
Vector vect = new Vector();
for (int i = 0; i < allowedIpAddress.length(); i++) {
if (cadTempo.indexOf(",") != -1) {
//vect.add(cadTempo.substring(0, cadTempo.indexOf(",") - 1));
vect.add(cadTempo.substring(0, cadTempo.indexOf(",")));
cadTempo =
cadTempo.substring(cadTempo.indexOf(",") + 1, cadTempo.length());
LOGGER.log(Level.INFO,
"AQUI111");
} else {
if (!cadTempo.equalsIgnoreCase("")) {
vect.add(cadTempo);
LOGGER.log(Level.INFO,
"AQUI222");
break;
for(int i=0;i<vect.size();i++){
String temp = (String)vect.get(i);
if (temp.equals(msgCtxt.getRemoteAddr()) &&
_MethodName.equals(protectedServiceMethodName)) {
LOGGER.log(Level.INFO,
"AQUI333");
result.setStatus(IResult.SUCCEEDED);
break;
} else {
msgCtxt.getInvocationStatus().setAuthorizationStatus(InvocationStatus.FAILED);
LOGGER.log(Level.INFO,
"AQUI444");
/*if(allowedIpAddress!=null){
result.setStatus(IResult.SUCCEEDED);
/*if (allowedIpAddress.equals(msgCtxt.getRemoteAddr()) &&
_MethodName.equals(protectedServiceMethodName)) {
result.setStatus(IResult.SUCCEEDED);
} else {
msgCtxt.getInvocationStatus().setAuthorizationStatus(InvocationStatus.FAILED);
// Set the result to SUCCESS
//result.setStatus(IResult.SUCCEEDED);
return result;
public String getIpAddress() {
return allowedIpAddress;
public void setIpAddress(String IpAddress) {
this.allowedIpAddress = IpAddress;
LOGGER.log(Level.INFO, "IP Address is.. " + allowedIpAddress);
public String getServiceMethodName() {
return protectedServiceMethodName;
public void setServiceMethodName(String serviceMethodName) {
this.protectedServiceMethodName = serviceMethodName;
public String getRoleName() {
return allowedRoleName;
public void setRoleName(String roleName) {
this.allowedRoleName = roleName;
And the xml:
<csw:StepTemplate xmlns:csw="http://schemas.confluentsw.com/ws/2004/07/policy"
name="Custom authenticate step" package="project1"
timestamp="Oct 31, 2005 05:00:00 PM" version="1"
id="0102030405">
<csw:Description>Custom step that authenticates the user against the
credentials entered here. This step requires Extract
credentials to be present before it in the request pipeline.</csw:Description>
<csw:Implementation>project1.CustomPolicy</csw:Implementation>
<csw:PropertyDefinitions>
<csw:PropertyDefinitionSet name="Basic Properties">
<csw:PropertyDefinition name="Enabled" type="boolean">
<csw:Description>If set to true, this step is enabled</csw:Description>
<csw:DefaultValue>
<csw:Absolute>true</csw:Absolute>
</csw:DefaultValue>
</csw:PropertyDefinition>
</csw:PropertyDefinitionSet>
<csw:PropertyDefinitionSet name="Custom Access Rules">
<csw:PropertyDefinition name="IpAddress" type="string" isRequired="true">
<csw:DisplayName>IpAddress</csw:DisplayName>
<csw:Description>IP Address that is allowed access</csw:Description>
<csw:DefaultValue>
<csw:Absolute>192.168.0.1</csw:Absolute>
</csw:DefaultValue>
</csw:PropertyDefinition>
<csw:PropertyDefinition name="ServiceMethodName" type="string"
isRequired="true">
<csw:DisplayName>ServiceMethodName</csw:DisplayName>
<csw:Description>Service Method Name that is Protected (Secured)</csw:Description>
<csw:DefaultValue>
<csw:Absolute>getTime</csw:Absolute>
</csw:DefaultValue>
</csw:PropertyDefinition>
</csw:PropertyDefinitionSet>
</csw:PropertyDefinitions>
</csw:StepTemplate>
Please any tip or idea is welcome, thanks in advance for the help.
Carlos.

Hi again
copied your code for testing. And it works fine.
So both the code and policy-step definition is fine, log output below.
What is your log output?
Using soapui to send the request will give the ip of my localhost, using the test client will give the ip of the server, because that is the actual client.
I guess the server ip is 192.168.0.1 in your case, as you are testing from test console.
anyway, results from SOAPUI:
2009-05-19 09:52:15,096 FINE [HTTPThreadGroup-4] CSWComponent - Executing policy step. Policy='SID0003004', Step Name='Custom Policy Step', Step Class='com.*.soa.wsm.CustomPolicy'
2009-05-19 09:52:15,096 FINER [HTTPThreadGroup-4] wsm.CustomPolicy - com.*.soa.wsm.CustomPolicy execute:ENTERING
2009-05-19 09:52:15,096 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - Processing stage is Request
2009-05-19 09:52:15,096 SEVERE [HTTPThreadGroup-4] wsm.CustomPolicy - Dir IP:hostname.domain:8890
2009-05-19 09:52:15,096 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - ADDRhostname.domain:8890HOST10.47.89.116
2009-05-19 09:52:15,096 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - MethodName=getHostNameElement
2009-05-19 09:52:15,096 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - Writing Allowed IP Addr before creating SOAP header 10.47.89.116, 192.168.0.1
2009-05-19 09:52:15,096 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - Writing Remote IP Addr before creating SOAP header 10.47.89.116
2009-05-19 09:52:15,096 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - AQUI111
2009-05-19 09:52:15,096 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - AQUI222
2009-05-19 09:52:15,097 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - AQUI333
2009-05-19 09:52:15,097 FINER [HTTPThreadGroup-4] agent.Agent - com.cfluent.agent.Agent intercept:ENTERING
But if I use the test client the remote IP would be 10.47.137.50 and execution fails, as code is written

2009-05-19 09:54:12,266 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - Writing Allowed IP Addr before creating SOAP header 10.47.89.116, 192.168.0.1
2009-05-19 09:54:12,266 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - Writing Remote IP Addr before creating SOAP header 10.47.137.50
2009-05-19 09:54:12,267 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - AQUI111
2009-05-19 09:54:12,267 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - AQUI222
2009-05-19 09:54:12,267 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - AQUI444
2009-05-19 09:54:12,267 INFO [HTTPThreadGroup-4] wsm.CustomPolicy - AQUI444
2009-05-19 09:54:12,267 FINE [HTTPThreadGroup-4] CSWComponent - Step execution failed: Policy=[SID0003004] Pipeline=[Request] Step Name=[Custom Policy Step] Step Class=[com.tandberg.soa.wsm.CustomPolicy]
2009-05-19 09:54:12,267 FINER [HTTPThreadGroup-4] common.PrepareForServiceStep - Step PrepareForServiceStep called

Regarding batch managment in mm01 after stock had been made

hi,
I facing a problem when i tick on batch managment after the stock had come as i had not maintained the view while creating the material.
But now i want to maintain this field as it is not allowing it.
plzz help me out as it is really urgent to me.

Hi,
Changing from tick to untick or untick to tick of Batch Management indicator follow the procedure (Changing of status in Material Master Record)
Changing the status of the material from Uncheck to checked or viseversa is possible only if the following conditions are met
1 Check the Status of material MMBE
2 There should not be any open Purchase Order Use SE16 & Table EKPO Give the material number for which we have to find the Open Pos; Alternateively ME2M can also be used
3 There should not be any Open Production Order Use SE16 & Table AFPO Give the material number for which we have to find the Open Production Orders
4 There sould not be any Sales Order Use SE16 & Table VBAP Give the material Number for which we have to find the Open Sales Orders
5 There should not be any Purchase Requistion Use SE16 & Table EBAN Give the material Number for which we have to find the Open PRs
6 There should not be any Stock in Transit MB5T
7 There should not be any Plant availability Stock MB53
8 There should not be any Reservation MB25
9 Previuos Period Stock should be zero Use MM03 with Plant Stock & Storage Loc. View If Stock Exists follow the Procedure mentioned in next chapter to close
10 Stock requirement should be zero MD04
11 There should not be any open Delivery Use SE16 & Table LIPS Give the material Number for which we have to find the Open PRs
12 There should not be any open Warehouse Transfer Request Use SE16 & Table LTBP Give the material Number for which we have to find the Open PRs
13 There should not be any open Warehouse Transfer Request Use SE16 & Table LTAP Give the material Number for which we have to find the Open PRs
14 The Batch Corresponding to the plant has to be set for deletion indicator MSC2N
If previous period stocks exist, we can make a withdrawal posting as follows
1. Post the same amount to current period stock (for example, using
movement type 561) so that previous period stock and current period
stock are identical.
2. Make a withdrawal posting in the previous period for the stock
together with posting date (for example, using movement type 562).
If any of the above Stock Exists it has to be closed;If Any of the stock exists we cannot uncheck.
After closing all the open items;the related business documents viz Purchase Orders,Production Orders,Delivery,etc has to be Archived
Archiving has certain criteria while doing Archiving Process-- Systematic Archival is the Key factor i.e relationship diagram has be met.
SAP Note Number 533383 - Resetting batch management requirement
Regards,
Vengat

Tool required to test webservice regarding Webservice to IDoc

Dear All,
Iam dealing with Webservice to IDoc Scenario . I require a tool to test my Web service . Please Do the needful
Thanks & Regards,
Kalyan

Hi kalyan,
u can test using "Altova XML spy" or "Soapui".
Download "Altova XML spy" from the below link.
http://www.altova.com/download/xmlspy/xml_editor_enterprise.html
Using XML SPY:
Now open XML spy->go to FILE->OPEN->(select ur WSDL)->click on text(see below)->goto SOAP(see above)->create new SOAP request->ok->select MI->ok...
now u will get soap request in XML format.Now again goto SOAP->send request to server.if evrything is correct ...wait smtime u will get ur desire output.
Download SoapUi here below
http://sourceforge.net/projects/soapui/
Using SoapUi:
Open SoapUi....goto FILE->New WSDL Project->give any suitable name and browse the WSDL->Now drill down ->u will see "request1"->double click on that(here request gets create automatically.->click on the small green triange shape icon above.
Regards
biplab
**reward with points if helpful

Regarding Webservice WSDL file

Hello experts,
Please help me by clarifying the below mentioned issue.
I have cretaed a interactive form and placed one button on the form to submit the form data to the webservice.
Now, in the properties of the button(Execute Type) i got the new dataconnection name by choosing the path EDIT-->New Data Connection
and by uploading the WSDL file which was saved on my desktop.
Now, it is working fine and iam able to do the bindings to webservice importing fields.
But the problem is if i remove the WSDL file from the location where it was while creating new data connection in the form.
The interfacing parameters of webservice in the DATA VIEW of the form are going OFF and if i reopen the form it is saying that "the file XXXXXXXXXXXXXXXX not exist".
I tried with giving http URL in creating New data connection, but it is not accepting that URL and saying that "the URL : YYYYYYYYYYYYYYYYYYYYYYYY is invalid"
Iam just following the standard procedure for taking the WSDL file or http UTL.
Am i need to do any thing extra in taking WSDL file or URL?
Regards,
Ram

No you are doing it right ....if you enter the url for the wsdl in a browser to you get the wsdl showing up? Are there any dialogs that pop up?
Paul

Help Regarding Solution Manager Key

Hi, Experts,
Could anyone please generate solution manager key for me.
My details are
Host name: room
C instance number: 02
SID: DXI
I would appreciate if anyone help me in this regard
---Ravi

No, i dint help me.
It is asking Solution manager key in between the XI 7.0 installation.
But i don't have Solution manager s/w.
How can i solve with out having Solution manager key.
I saw in this forum that some one can generate who has solution manager s/w installed, for me.
My details are
Host name: room
Central Instance number : 02
SID:DXI
Can anyone please generate solution manager key who has solution manager installed for me.
I would appreciate your help.
Thanks,
---Ravi

Regarding Webservice

Hi Everyone,
Can we convert simple file to file Scenario in XI to a webservice.
Regards,
Varun.

Hi Varun,
Webservices are used to connect to the remote clients over internet by using SOAP protocol.
Check this links for creation of webservices:
https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/2131 [original link is broken] [original link is broken] [original link is broken] [original link is broken]
/people/community.user/blog/2006/10/24/exposing-bapi-as-web-services-through-sap-xi
/people/shabarish.vijayakumar/blog/2006/03/23/rfc--xi--webservice--a-complete-walkthrough-part-1
/people/shabarish.vijayakumar/blog/2006/03/28/rfc--xi--webservice--a-complete-walkthrough-part-2
/people/siva.maranani/blog/2005/09/03/invoke-webservices-using-sapxi - Invoke Webservices using SAPXI
/people/siva.maranani/blog/2005/03/01/testing-xi-exposed-web-services
/people/michal.krawczyk2/blog/2005/03/29/configuring-the-sender-rfc-adapter--step-by-step
https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/2131 [original link is broken] [original link is broken] [original link is broken] [original link is broken]
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/336365d3-0401-0010-9884-
a651295aeaa9
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/336365d3-0401-0010-9884-
a651295aeaa9
Regards,
Vinod.

Regarding status management

Hi,
I have a situation, wherein when a sales order is created, it is assigned a user status of CRTD using status management configuration. My requirement is to track a particular document's user status or system status to trigger a workflow if the document is complete with respect to header and item level info, and the status is in CRTD. I can check the completeness from VBUK table, but does anyone know as to which table the status profile values are stored in? Thanks for the help in advance.
Regards,
Vijay

Hi ,
Check the table JSTO & Jest table.
Also check the FM STATUS_READ
Thanks
Rajeev

Regarding Change Management in Solution Manager 4.0

Hi,
can anyone help in knowing the prerequisites for change management in solution manager 4.0

Hi,
Please refer http://help.sap.com/saphelp_nw04/helpdata/en/0c/5b2160f6fa4b83a3674a210b1cdeb0/content.htm
Regards,
Prem

Regarding Time management in HR

Hi Experts,
 I am new to HR-Abap, Can any body give brief idea about time management in hr in Techincal point of view .
Thanks and regards,
Sravanthi.

Hi
In time related infotypes records are multiple for a single pernr
say for example LEAVES
within a time for PERNR you will find different types of leaves
go and see the infotypes data practically PA2001 and PA2005, r etc
see the sample report on time related data
REPORT zh_absence_quota
 NO STANDARD PAGE HEADING
 MESSAGE-ID zh_msg
 LINE-SIZE 169
 LINE-COUNT 60(1).
 T A B L E S D E C L A R A T I O N S
TABLES: pernr, " Logical PNP
 t001p, " Personnel Subarea
 t529u, " Employment Status
 t500p, " Personnel Area
 t501, " Employee Group
 t503k, " Employee Subgroup
 t549a, " Payroll Area
 t554s, " Absence Type
 t554t, " Absence Type Texts
 t556a, " Quota Type
 t527x, " Orgn. Unit
 t556b, " Quota Type Text
 pa0003. " Payroll Status
INFOTYPES:
 0000, " Actions
 0001, " Organizational Assignment
 2006, " Absence Quota
 2001. " Absences
 T Y P E S D E C L A R A T I O N S
Employee Absence Structure
TYPES: BEGIN OF s_2001,
 pernr TYPE persno, " Personal Number
 awart TYPE awart, " Absence Type
 subty TYPE subty, " Sub Type
 endda TYPE endda, " End date
 begda TYPE begda, " Begin date
 abrtg TYPE abrtg, " Absence days
 ename TYPE emnam, " employee Name
 atext TYPE abwtxt, " Absence Type Text
 END OF s_2001.
Employee Absence Quota Structure
TYPES: BEGIN OF s_2006,
 pernr TYPE persno, " Personal Number
 ktart TYPE abwko, " Absence Quota Type
 year(4) TYPE n, " Year
 subty TYPE subty, " Sub Type
 endda TYPE endda, " End date
 begda TYPE begda, " Begin date
 anzhl TYPE ptm_quonum, " Absence Entitlement days
 ename TYPE emnam, " employee Name
 ktext TYPE kotxt, " Absence Type Text
 kverb TYPE kverb, " Deduction Quota days
 anzhb TYPE ptm_quonum, " Balance days
 END OF s_2006.
Combined Employee Absence and Quota Structure
TYPES: BEGIN OF s_rep,
 pernr TYPE persno, " Personal Number
 ktart TYPE abwko, " Absence Quota Type
 year(4) TYPE n, " Year
 anzhl TYPE ptm_quonum, " Absence Entitlement days
 kverb TYPE kverb, " Deduction Quota days
 anzhb TYPE ptm_quonum, " Balance days
 ktext TYPE kotxt, " Quota Type Text
 awart TYPE awart, " Absence Type
 abrtg TYPE abrtg, " Absence days
 ename TYPE emnam, " employee Name
 atext TYPE abwtxt, " Absence Type Text
 endda TYPE endda, " End date
 begda TYPE begda, " Begin date
 END OF s_rep.
Declaration of Variables
DATA : gv_atext TYPE abwtxt, " Absence Type Text
 gv_ktext TYPE kotxt, " Absence Type Text
 gv_title1 TYPE sylisel, " Report title
 gv_year(4) TYPE c, " Year
 gv_mon(2) TYPE c, " Month
 gv_hrs TYPE abwtg, " Hours
 gv_date TYPE sydatum, " Date
 gv_date1 TYPE sydatum, " Date
 gv_dial. " Color flag
Declaration of Constants
CONSTANTS :
c_x TYPE c VALUE 'X', " Sign
c_1 TYPE persg VALUE '1', " Emp Group
c_pernr(8) TYPE n VALUE '00000000', " Pernr
c_moabw TYPE moabw VALUE '01', " Per SA Grouping
c_mozko TYPE mozko VALUE '01', " Per SA Grouping
c_mopgk TYPE mopgk VALUE '1', " Emp SGrp Grouping
c_endda TYPE sydatum VALUE '99991231', " End Date
c_val1(2) TYPE c VALUE '31', " Date Type
c_val2(2) TYPE c VALUE '12', " Date Type
c_val LIKE p0041-dar01 VALUE '01', " Date Type
c_date1 LIKE sy-datum VALUE '18000101'. " Date
 I N T E R N A L T A B L E S D E C L A R A T I O N S
DATA: i_2001 TYPE STANDARD TABLE OF s_2001 WITH HEADER LINE,
 i_2006 TYPE STANDARD TABLE OF s_2006 WITH HEADER LINE,
 i_rep1 TYPE STANDARD TABLE OF s_2006 WITH HEADER LINE,
 i_rep TYPE STANDARD TABLE OF s_rep WITH HEADER LINE.
 S E L E C T I O N S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_ktart FOR t556a-ktart, " Absence Quota Type
 s_awart FOR t554s-subty. " Absence Type
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-003. " Quota & Absence
PARAMETERS: p_qa RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-004. " Quota
PARAMETERS: p_q RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-005. " Absence
PARAMETERS: p_a RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN END OF BLOCK b2.
 I N I T I A L I Z A T I O N *
INITIALIZATION.
 A T S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_screen.
 S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
Selection of Period
PERFORM get_period.
Get PERNR from LDB
GET pernr.
IF p0000-stat2 <> '0'.
Get the data from PA0001,PA2001, PA2006
 PERFORM get_pers_data.
ENDIF.
 T O P - O F - P A G E *
TOP-OF-PAGE.
Header of the List
PERFORM header.
 E N D - O F - P A G E *
Footer
END-OF-PAGE.
IF p_qa = c_x.
Display both Absence and Quota Data
 WRITE /1(188) sy-uline.
ELSEIF p_q = c_x.
Display only Quota Data
 WRITE /1(114) sy-uline.
ELSEIF p_a = c_x.
Display only Absence Data
 WRITE /1(125) sy-uline.
ENDIF.
 E N D - O F - S E L E C T I O N *
END-OF-SELECTION.
Combine the Absence and Quota Data
PERFORM append_data.
IF p_qa = c_x.
Display both Absence and Quota Data
 PERFORM display_qa_data.
ELSEIF p_q = c_x.
Display only Quota Data
 PERFORM display_q_data.
ELSEIF p_a = c_x.
Display only Absence Data
 PERFORM display_a_data.
ENDIF.
*& Form validate_screen
Validation of Selection Screen fields
FORM validate_screen .
Validation of Personnel Number
CLEAR pa0003.
IF NOT pnppernr[] IS INITIAL.
 SELECT pernr
 FROM pa0003 UP TO 1 ROWS
 INTO pa0003-pernr
 WHERE pernr IN pnppernr.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Personnel Number'(006).
 ENDIF.
ENDIF.
Validation of Employee Status
CLEAR t529u.
IF NOT pnpstat2[] IS INITIAL.
 SELECT SINGLE statv
 INTO t529u-statv
 FROM t529u
 WHERE statv IN pnpstat2 AND
 statn = '2' AND
 sprsl = sy-langu.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Invalid Employee Status'(007).
 ENDIF.
ENDIF.
Validation of Personnel Area
CLEAR t500p.
IF NOT pnpwerks[] IS INITIAL.
 SELECT persa
 FROM t500p UP TO 1 ROWS
 INTO t500p-persa
 WHERE persa IN pnpwerks.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Personnel Area'(008).
 ENDIF.
ENDIF.
Validation of Personnel Sub Area
CLEAR t001p.
IF NOT pnpbtrtl[] IS INITIAL.
 SELECT btrtl
 FROM t001p UP TO 1 ROWS
 INTO t001p-btrtl
 WHERE btrtl IN pnpbtrtl.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Personnel Sub Area'(009).
 ENDIF.
ENDIF.
Validation of Employee Group
CLEAR t501.
IF NOT pnppersg[] IS INITIAL.
 SELECT persg
 FROM t501 UP TO 1 ROWS
 INTO t501-persg
 WHERE persg IN pnppersg.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Group'(010).
 ENDIF.
ENDIF.
Validation of Employee Sub Group
CLEAR t503k.
IF NOT pnppersk[] IS INITIAL.
 SELECT persk
 FROM t503k UP TO 1 ROWS
 INTO t503k-persk
 WHERE persk IN pnppersk.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Sub Group'(011).
 ENDIF.
ENDIF.
Validation of Payroll Area
CLEAR t549a.
IF NOT pnpabkrs[] IS INITIAL.
 SELECT abkrs
 FROM t549a UP TO 1 ROWS
 INTO t549a-abkrs
 WHERE abkrs IN pnpabkrs.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Payroll Area'(026).
 ENDIF.
ENDIF.
Validation of Absence Type
CLEAR t554s.
IF NOT s_awart[] IS INITIAL.
 SELECT subty
 FROM t554s UP TO 1 ROWS
 INTO t554s-subty
 WHERE subty IN s_awart AND
 moabw EQ c_moabw AND
 endda EQ c_endda.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Absence Type'(012).
 ENDIF.
ENDIF.
Validation of Absence Quota Type
CLEAR t556a.
IF NOT s_ktart[] IS INITIAL.
 SELECT ktart
 FROM t556a UP TO 1 ROWS
 INTO t556a-ktart
 WHERE ktart IN s_ktart AND
 mopgk EQ c_mopgk AND
 mozko EQ c_mozko AND
 endda EQ c_endda.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Quota Type'(013).
 ENDIF.
ENDIF.
ENDFORM. "validate_screen
*& Form get_period
Get the Correct Period based on Selection screen selection
FORM get_period.
CLEAR: gv_year,gv_mon, gv_date, gv_date1.
gv_year = sy-datum+0(4).
gv_mon = sy-datum+4(2).
IF pnptimr1 = c_x. " Current Date
 pnpbegda = sy-datum.
 pnpendda = sy-datum.
ELSEIF pnptimr2 = c_x. " Current Month
 CONCATENATE gv_year gv_mon c_val INTO gv_date.
 CONCATENATE gv_year gv_mon c_val1 INTO gv_date1.
 pnpbegda = gv_date.
 pnpendda = gv_date1.
ELSEIF pnptimr3 = c_x. " Current Year
 CONCATENATE gv_year c_val c_val INTO gv_date.
 CONCATENATE gv_year c_val2 c_val1 INTO gv_date1.
 pnpbegda = gv_date.
 pnpendda = gv_date1.
ELSEIF pnptimr4 = c_x. " Upto Today
 pnpbegda = c_date1.
 pnpendda = sy-datum.
ELSEIF pnptimr5 = c_x. " From Today
 pnpbegda = sy-datum.
 pnpendda = c_endda.
ELSE.
 IF ( pnpbegda IS INITIAL AND pnpendda IS INITIAL ).
 pnpbegda = c_date1.
 pnpendda = c_endda.
 ELSEIF pnpbegda IS INITIAL AND NOT pnpendda IS INITIAL.
 pnpbegda = c_date1.
 pnpendda = pnpendda.
 ELSEIF NOT ( pnpbegda IS INITIAL AND pnpendda IS INITIAL ).
 pnpbegda = pnpbegda.
 pnpendda = pnpendda.
 ENDIF.
ENDIF.
ENDFORM. "get_period
*& Form get_pers_data
Get the Absence and Quota Data from PA0001,PA2001,PA2006
FORM get_pers_data.
DATA: lv_year1(4) TYPE n,
 lv_year2(4) TYPE n,
 lv_date1 TYPE sydatum,
 lv_date2 TYPE sydatum,
 lv_anzhb TYPE ptm_quonum. " Last Year Balance days
Get data from Respective Infotypes
rp_provide_from_last p0001 space pnpbegda pnpendda.
Absence Data
LOOP AT p2001 WHERE pernr = pernr-pernr AND
 begda GE pnpbegda AND
 endda LE pnpendda.
 IF p2001-awart IN s_awart.
 i_2001-pernr = pernr-pernr.
 i_2001-subty = p2001-subty.
 i_2001-awart = p2001-awart.
 i_2001-abrtg = p2001-abrtg.
 i_2001-begda = p2001-begda.
 i_2001-endda = p2001-endda.
 READ TABLE p0001 WITH KEY pernr = p2001-pernr.
 i_2001-ename = p0001-ename.
Get the Absence Type Text
 CLEAR gv_atext.
 SELECT SINGLE atext INTO gv_atext FROM t554t
 WHERE sprsl = sy-langu AND
 moabw = c_moabw AND
 awart = p2001-awart.
 IF sy-subrc = 0.
 i_2001-atext = gv_atext.
 ENDIF.
 APPEND i_2001.
 CLEAR i_2001.
 ENDIF.
ENDLOOP.
Quota Data
LOOP AT p2006 WHERE pernr = pernr-pernr AND
 begda GE pnpbegda AND
 endda LE pnpendda.
 IF p2006-ktart IN s_ktart.
 i_2006-pernr = pernr-pernr.
 i_2006-subty = p2006-subty.
 i_2006-begda = p2006-begda.
 i_2006-endda = p2006-endda.
 i_2006-year = p2006-endda+0(4).
 i_2006-ktart = p2006-ktart.
 i_2006-anzhl = p2006-anzhl.
 i_2006-kverb = p2006-kverb.
 i_2006-anzhb = p2006-anzhl - p2006-kverb.
 READ TABLE p0001 WITH KEY pernr = p2001-pernr.
 i_2006-ename = p0001-ename.
Get the Quota Type Text
 CLEAR gv_ktext.
 SELECT SINGLE ktext INTO gv_ktext FROM t556b
 WHERE sprsl = sy-langu AND
 mopgk = c_mopgk AND
 mozko = c_mozko AND
 ktart = p2006-ktart.
 IF sy-subrc = 0.
 i_2006-ktext = gv_ktext.
 ENDIF.
 APPEND i_2006.
 CLEAR i_2006.
 ENDIF.
ENDLOOP.
For Vacation Quota (80) get the Balance of the Last Year and
add to the Current Year Quota
LOOP AT i_2006.
 IF i_2006-ktart = '80'.
 lv_year1 = i_2006-endda+0(4).
 lv_year2 = lv_year1 - 1.
 CONCATENATE lv_year2 '01' '01' INTO lv_date1.
 CONCATENATE lv_year2 '12' '31' INTO lv_date2.
 LOOP AT p2006 WHERE pernr = i_2006-pernr AND
 begda GE lv_date1 AND
 endda LE lv_date2 AND
 ktart = '80'.
 lv_anzhb = p2006-anzhl - p2006-kverb.
 i_rep1-pernr = i_2006-pernr.
 i_rep1-ktext = i_2006-ktext.
 i_rep1-anzhl = p2006-anzhl.
 i_rep1-kverb = p2006-kverb.
 i_rep1-ename = i_2006-ename.
 i_rep1-begda = p2006-begda.
 i_rep1-endda = p2006-endda.
 i_rep1-anzhb = lv_anzhb.
 i_rep1-ktart = '80'.
 i_rep1-year = lv_year2.
 APPEND i_rep1.
 CLEAR: i_rep1.
 ENDLOOP.
 ENDIF.
 CLEAR: lv_year1, lv_year2,
 lv_date1, lv_date2,lv_anzhb.
ENDLOOP.
SORT i_rep1 BY pernr ktart.
ENDFORM. "get_pers_data
*& Form append_data
Put the Absence and Quota Data into one Report Int Table
FORM append_data.
CLEAR: i_rep.
REFRESH: i_rep.
SORT i_2001 BY pernr awart.
SORT i_2006 BY pernr ktart year.
Move I_REP1 data into i_2006
LOOP AT i_rep1.
 MOVE-CORRESPONDING i_rep1 TO i_2006.
 APPEND i_2006.
 CLEAR i_2006.
ENDLOOP.
Move the Absence and Quota Data into a final Int Table
LOOP AT i_2006.
 i_rep-pernr = i_2006-pernr.
 i_rep-ename = i_2006-ename.
 i_rep-ktart = i_2006-ktart.
 i_rep-anzhl = i_2006-anzhl.
 i_rep-kverb = i_2006-kverb.
 i_rep-ktext = i_2006-ktext.
 i_rep-anzhb = i_2006-anzhb.
 i_rep-year = i_2006-year.
 CLEAR i_2001.
 CASE i_2006-ktart.
 WHEN '81'.
 PERFORM get_2001 USING i_2006-pernr '1000' i_2006-year.
 WHEN '50'.
 PERFORM get_2001 USING i_2006-pernr '1002' i_2006-year.
 WHEN '80'.
 PERFORM get_2001 USING i_2006-pernr '1001' i_2006-year.
 WHEN '56'.
 PERFORM get_2001 USING i_2006-pernr '1003' i_2006-year.
 WHEN '51'.
 PERFORM get_2001 USING i_2006-pernr '1004' i_2006-year.
 WHEN '52'.
 PERFORM get_2001 USING i_2006-pernr '1005' i_2006-year.
 WHEN '54'.
 PERFORM get_2001 USING i_2006-pernr '1006' i_2006-year.
 WHEN '53'.
 PERFORM get_2001 USING i_2006-pernr '1007' i_2006-year.
 WHEN '55'.
 PERFORM get_2001 USING i_2006-pernr '1008' i_2006-year.
 WHEN '57'.
 PERFORM get_2001 USING i_2006-pernr '1009' i_2006-year.
 WHEN '90'.
 PERFORM get_2001 USING i_2006-pernr '2000' i_2006-year.
 WHEN '58'.
 PERFORM get_2001 USING i_2006-pernr '2001' i_2006-year.
 WHEN '59'.
 PERFORM get_2001 USING i_2006-pernr '2002' i_2006-year.
 WHEN '91'.
 PERFORM get_2001 USING i_2006-pernr '2003' i_2006-year.
 ENDCASE.
 IF sy-subrc <> 0.
 APPEND i_rep.
 ENDIF.
 CLEAR i_rep.
ENDLOOP.
SORT i_rep BY pernr ktart year.
DELETE i_rep WHERE pernr = ' '.
ENDFORM. " append_data
*& Form display_qa_data
Display the Absence and Quota Data
FORM display_qa_data.
DATA: lv_flag, " New Flag
 lv_tot2 TYPE ptm_quonum. " Absence Balance days
IF i_rep[] IS INITIAL.
 MESSAGE i000 WITH 'No Data found'(014).
ELSE.
 LOOP AT i_rep.
toggle color
 PERFORM toggle_color.
 IF lv_flag <> space.
 NEW-LINE.
 ENDIF.
 AT NEW pernr.
 READ TABLE i_rep INDEX sy-tabix.
 WRITE:/1 sy-vline,2(8) i_rep-pernr,
 10 sy-vline,11(40) i_rep-ename.
 ENDAT.
 AT NEW ktart.
 READ TABLE i_rep INDEX sy-tabix.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline,52(25) i_rep-ktext.
 ENDAT.
 AT NEW year.
 READ TABLE i_rep INDEX sy-tabix.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline,
 77 sy-vline, 78(4) i_rep-year,
 82 sy-vline, 83(11) i_rep-anzhl,
 94 sy-vline, 95(25) i_rep-atext,
 120 sy-vline,133 sy-vline,
 144 sy-vline,
 155 sy-vline,156(13) i_rep-anzhb,
 169 sy-vline.
 lv_tot2 = lv_tot2 + i_rep-anzhb.
 ENDAT.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline, 77 sy-vline,
 82 sy-vline, 94 sy-vline,
 120 sy-vline,121(12) i_rep-abrtg NO-ZERO,
 133 sy-vline,134(10) i_rep-begda NO-ZERO,
 144 sy-vline,145(10) i_rep-endda NO-ZERO,
 155 sy-vline,169 sy-vline.
 NEW-LINE.
 AT END OF pernr.
 WRITE : /1(169) sy-uline.
 SUM.
 FORMAT COLOR 3.
 WRITE:/1 sy-vline, 10 sy-vline,
 51 sy-vline, 77 sy-vline,
 82 sy-vline, 94 sy-vline,
 120 sy-vline,121(12) i_rep-abrtg,
 133 sy-vline,144 sy-vline,
 155 sy-vline, 156(13) lv_tot2,
 169 sy-vline.
 FORMAT COLOR OFF.
 WRITE : /1(169) sy-uline.
 CLEAR lv_tot2.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. " display_qa_data
*& Form display_q_data
Display only the Quota Data
FORM display_q_data.
DATA: lv_flag. " New Flag
SORT i_2006 BY pernr ktart year.
IF i_2006[] IS INITIAL.
 MESSAGE i000 WITH 'No Data found'(014).
ELSE.
 LOOP AT i_2006.
Toggle Color
 PERFORM toggle_color.
 IF lv_flag <> space.
 NEW-LINE.
 ENDIF.
 AT NEW pernr.
 READ TABLE i_2006 INDEX sy-tabix.
 WRITE: /1 sy-vline, 2(8) i_2006-pernr,
 10 sy-vline,11(40) i_2006-ename.
 ENDAT.
 AT NEW ktart.
 READ TABLE i_2006 INDEX sy-tabix.
 WRITE: 1 sy-vline,10 sy-vline,
 51 sy-vline,52(25) i_2006-ktext.
 ENDAT.
 AT NEW year.
 READ TABLE i_2006 INDEX sy-tabix.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline,
 77 sy-vline,78(4) i_2006-year,
 82 sy-vline,83(11) i_2006-anzhl,
 94 sy-vline,95(13) i_2006-anzhb,
 108 sy-vline.
 NEW-LINE.
 ENDAT.
 AT END OF pernr.
 WRITE : /1(108) sy-uline.
 SUM.
 FORMAT COLOR 3.
 WRITE: /1 sy-vline, 10 sy-vline,
 51 sy-vline,
 77 sy-vline, 82 sy-vline,
 94 sy-vline, 95(13) i_2006-anzhb,
 108 sy-vline.
 FORMAT COLOR OFF.
 WRITE : /1(108) sy-uline.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. " display_q_data
*& Form display_a_data
Display Only the Absence Quota
FORM display_a_data.
DATA: lv_flag. " New Flag
SORT i_2001 BY pernr awart.
IF i_2001[] IS INITIAL.
 MESSAGE i000 WITH 'No Data found'(014).
ELSE.
 LOOP AT i_2001.
Toggle Color
 PERFORM toggle_color.
 IF lv_flag <> space.
 NEW-LINE.
 ENDIF.
 AT NEW pernr.
 READ TABLE i_2001 INDEX sy-tabix.
 WRITE: /1 sy-vline, 2(10) i_2001-pernr,
 10 sy-vline,11(40) i_2001-ename.
 ENDAT.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline,52(25) i_2001-atext,
 77 sy-vline,78(12) i_2001-abrtg,
 90 sy-vline,91(10) i_2001-begda,
 101 sy-vline,102(10) i_2001-endda,
 112 sy-vline.
 NEW-LINE.
 AT END OF pernr.
 WRITE : /1(112) sy-uline.
 SUM.
 FORMAT COLOR 3.
 WRITE: /1 sy-vline, 10 sy-vline,
 51 sy-vline,
 77 sy-vline,78(12) i_2001-abrtg,
 90 sy-vline,101 sy-vline,
 112 sy-vline.
 FORMAT COLOR OFF.
 WRITE : /1(112) sy-uline.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. " display_a_data
*& Form header
Write the Report Header
FORM header .
data : lv_pers type pbtxt,
 lv_orgn type orgtx.
gv_title1 = sy-title. " Set List Header
IF p_qa = c_x.
 NEW-PAGE LINE-SIZE 193.
ELSEIF p_a = c_x.
 NEW-PAGE LINE-SIZE 125.
ELSEIF p_q = c_x.
 NEW-PAGE LINE-SIZE 119.
ENDIF.
Standard header
FORMAT RESET.
CALL FUNCTION 'Z_STANDARD_HEADER'
 EXPORTING
 title1 = gv_title1.
Get the Personal Area and Org.Unit Texts
clear : lv_pers,lv_orgn.
select single name1 into lv_pers
 from t500p where persa = pnpwerks-low.
select single orgtx into lv_orgn
 from t527x where sprsl = sy-langu and
 orgeh = pnporgeh-low and
 endda = c_endda.
if not lv_pers is initial.
 write : /2 'Personal Area:'(017), 17(25) lv_pers color 7.
endif.
if not lv_orgn is initial.
 write : /2 'Organization Unit:'(021), 20(25) lv_orgn color 3.
endif.
IF p_qa = c_x.
 FORMAT COLOR COL_HEADING.
 WRITE : /1(169) sy-uline.
 WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
 10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
 51 sy-vline,52(25) 'Quota Description'(018) CENTERED,
 77 sy-vline,78(4) 'Year'(027),
 82 sy-vline,83(11) 'Entitlement'(019),
 94 sy-vline,95(25) 'Absence Description'(022) CENTERED,
 120 sy-vline,121(12) 'Absence days'(023),
 133 sy-vline,134(10) 'From Date'(024),
 144 sy-vline,145(10) 'To Date'(025),
 155 sy-vline,156(13) 'Quota Balance'(020),
 169 sy-vline.
 WRITE : /1(169) sy-uline.
ELSEIF p_q = c_x.
 FORMAT COLOR COL_HEADING.
 WRITE : /1(108) sy-uline.
 WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
 10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
 51 sy-vline,52(25) 'Quota Description'(018) CENTERED,
 77 sy-vline,78(4) 'Year'(027),
 82 sy-vline,83(11) 'Entitlement'(019),
 94 sy-vline,95(13) 'Quota Balance'(020),
 108 sy-vline.
 WRITE : /1(108) sy-uline.
ELSEIF p_a = c_x.
 FORMAT COLOR COL_HEADING.
 WRITE : /1(112) sy-uline.
 WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
 10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
 51 sy-vline,52(25) 'Absence Description'(022) CENTERED,
 77 sy-vline,78(12) 'Absence days'(023),
 90 sy-vline,91(10) 'From Date'(024),
 101 sy-vline,102(10) 'To Date'(025),
 112 sy-vline.
 WRITE : /1(112) sy-uline.
ENDIF.
ENDFORM. " header
*& Form toggle_color
This routine alters the color of the records in the list
FORM toggle_color.
IF gv_dial = space.
 FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
 gv_dial = c_x.
ELSE.
 FORMAT COLOR 1 INTENSIFIED OFF.
 CLEAR gv_dial.
ENDIF.
ENDFORM. " toggle_color
*& Form get_2001
Get the ABsence type for each Quota type
FORM get_2001 USING p_pernr TYPE persno
 p_value TYPE awart
 p_year.
LOOP AT i_2001 WHERE pernr = p_pernr AND
 awart = p_value AND
 endda+0(4) = p_year.
 i_rep-awart = i_2001-awart.
 i_rep-abrtg = i_2001-abrtg.
 i_rep-atext = i_2001-atext.
 i_rep-begda = i_2001-begda.
 i_rep-endda = i_2001-endda.
 APPEND i_rep.
ENDLOOP.
ENDFORM. " get_2001
Regards
anji

Regarding webservice to RFC approach

Hi all,
I am doing webservice to RFC (Synchronous) interface.
1.coould you please let me khow how many times PI can try to send information to and external system via a web service.
2.In case PI could not connect to the external system after N number of trials and PI sends alert or email informing about the failure, what would happen to the data, would it still be in PI or we will lose the information.
3.What should be done from external system perspective to retrieve the data into itself once it is up and ready to receive the data.
Thanks and Regards
Kishore

1.in this case, how abt data reprocess from PI incase of failures when target webservice is not available.
Only the request will be processed (in terms of mapping and sending to target)......then you will get an error which will indicate that something is wrong with target system and the call will close with a red mark in SXMB_MONI.
You have to resend the message from the sender.
2.please confirm, data wont be available in PI, to resend from PI to webservice, since this is sync communication.
It does not happen as the way you have mentioned......PI wont store the data and make a call again in case of error.
3.Also please confirm how abt in async communication ( say for ex: proxy to webservice ) to handle data reprocess from
PI in case of failures due to target webservice is not available.
One is increasing the number of retries of the target channel....this is documented in a blog (probably by Naveen)
Regards,
Abhishek.

How can Webservice manage client sections and send back messages to clients

Hi all.
I am starting working with Webservice (jax-ws). Now i can make a good server side and on client side i can use method interface on webservice server side.
But i want to make a advance feature as Server side manage client section and can send back message to client when Server change status...
I know RMI and Corba can seems to support to send back messages to sections of cliens right ?
So Webservice can do it ? Please help me !
Thanks
Diego
Edited by: ThuCT on Sep 14, 2010 1:57 AM

Hi all.
I am starting working with Webservice (jax-ws). Now i can make a good server side and on client side i can use method interface on webservice server side.
But i want to make a advance feature as Server side manage client section and can send back message to client when Server change status...
I know RMI and Corba can seems to support to send back messages to sections of cliens right ?
So Webservice can do it ? Please help me !
Thanks
Diego
Edited by: ThuCT on Sep 14, 2010 1:57 AM

Regarding Access Manager Console Not Coming

Hi
I had installed glass fish application server on one zone.....its working fine.....then i try to install access manager 7.1 on same zone it shows successfully installed in the logs....then i try to open access console through firefox....*it showing the erroor:-http status 500 ....root cause [java.lng .null pointer exception]*
My directory server 6.3 is working fine and it is on some other zone ...
kindly tell me what's going wrong...
Thanks
Sarvar Ahmed

welcome.eis wrote:
I had installed glass fish application server on one zone.....its working fine.....then i try to install access manager 7.1 on same zone it shows successfully installed in the logs....then i try to open access console through firefox....*it showing the erroor:-http status 500 ....root cause [java.lng .null pointer exception]*As this question has nothing to do with Messaging Server I suggest asking this question in the Access Manager forum instead:
http://forums.sun.com/forum.jspa?forumID=760
Regards,
Shane.

Regarding webservice adding to context of component controller

Hi All,
I have imported a webservice model and i am creating a data link between
data model and component controller.why should i link Request Node(i,e Request_CustSessionWSViDocument_CustRetAll) to context of component controller why not response object(Response_CustSessionWSViDocument_CustRetAll).
I want a clear picture regarding Request Node object and Response Object Node.Actually I want to know what resides in Request Node and in Response Node of a webservice model
Thanks & Regards,
saleem

These classes are simply proxy classes for the web services.
They reprsent request and response to the web service.
For each method in web service there will be some parameter and return type. The request represent the paramaters and response represent the return type for the web service (or simply say method exposed as web service)
Web Dynpro through context allows to you easily map the request,response in form on context nodes. You have to fill the request node.Then execute the web service. The result is stored in response node.
This is good wiki to learn about AWS Model:
https://wiki.sdn.sap.com/wiki/display/WDJava/FAQ-Models-AdaptiveWebService
Regards
Ashwani Kr Sharma

Regarding webservice Manager

Similar Messages

Maybe you are looking for