Extracting text data from CRM

Hi,
We have a NOTE section/field in CRM, which is used to enter some notes by the users on Activities. We need to pull it into BW.How to do it. NOTE can be any long!

Thanks to Eugene Khusainov
Long texts in SAP BW: Modeling Follow Up
Of course the clever way would be to publish to a KM document then attach the document a BLOB object to the master data - but you can figure out how to that yourself (and don;t forget to write a blog about it)

Similar Messages

Request: Problem in Extraction of data from CRM to BW

Hi Gurus
I have problems in extracting the data from CRM to BW.I thought you are the one who can solve them:
1) When I check the data in the datasource in RSA3 i can see all records as well as i can see complete data in that but when i extract and check the data in cube i can see all records but i cannot see the complete data i.e some data is missing.
2)And another problem is that In report i have 2 characteristics(DATS) start date and end date now i am trying to get number of days from start date to end date.
I appreciate you in advance. If u find any good documentation please send me to [email protected]
With regards
Nagamani.

Hi krishna,
yes we did enhancement to this data source. In PRDOCTION its taking 27 hours time to load data.
For extraction from source system (CRM) its taking nearly 24 hours time as per JOb LOG .
08/05/2010 11:53:08 Call customer enhancement EXIT_SAPLRSAP_001 (CMOD) with 10,849 records
08/05/2010 12:02:02 Result of customer enhancement: 10,849 records
08/05/2010 12:02:03 PSA=0 USING & STARTING SAPI SCHEDULER
08/05/2010 12:02:03 Asynchronous send of data package 1 in task 0002 (1 parallel tasks)
08/05/2010 12:02:06 IDOC: Info IDoc 2, IDoc No. 1576298, Duration 00:00:01
08/05/2010 12:02:06 IDoc: Start = 08/05/2010 10:26:37, End = 08/05/2010 10:26:38
08/05/2010 13:02:38 Call customer enhancement EXIT_SAPLRSAP_001 (CMOD) with 10,958 records
08/05/2010 13:11:48 Result of customer enhancement: 10,958 records
08/05/2010 13:11:52 Asynchronous send of data package 2 in task 0003 (1 parallel tasks)
08/05/2010 13:11:53 tRFC: Data Package = 1, TID = 0AA00D0301984C5AEE8E44DB, Duration = 00:16:
08/05/2010 13:11:53 tRFC: Start = 08/05/2010 12:02:19, End = 08/05/2010 12:18:27
08/05/2010 14:30:13 Call customer enhancement EXIT_SAPLRSAP_001 (CMOD) with 11,296 records
08/05/2010 14:39:53 Result of customer enhancement: 11,296 records
like this its taking 24 hours in extraction its self.
Edited by: kotha123 on Aug 10, 2010 12:08 PM
Edited by: kotha123 on Aug 10, 2010 12:09 PM

Extraction of data from CRM to BW for datasource 0crm_quotation_I

Hi,
      Extraction of data from CRM to BW for data source 0CRM_QUOTATION_I is taking 27 hours of time to load data into ODS for 1 million records.
Here I am doing FULL LOAD with 4 Infopackages in parllel with different select-options.Even I tried DELTA load but it hasn't worked out properly.
      Is there any solution to reduce time from Datasource to ODS with FULL LOAD. Please help me.

Hi krishna,
                   yes we did enhancement to this data source. In PRDOCTION its taking 27 hours time to load data.
          For extraction from source system (CRM) its taking nearly 24 hours time as per JOb LOG .
08/05/2010 11:53:08 Call customer enhancement EXIT_SAPLRSAP_001 (CMOD) with 10,849 records
08/05/2010 12:02:02 Result of customer enhancement: 10,849 records
08/05/2010 12:02:03 PSA=0 USING & STARTING SAPI SCHEDULER
08/05/2010 12:02:03 Asynchronous send of data package 1 in task 0002 (1 parallel tasks)
08/05/2010 12:02:06 IDOC: Info IDoc 2, IDoc No. 1576298, Duration 00:00:01
08/05/2010 12:02:06 IDoc: Start = 08/05/2010 10:26:37, End = 08/05/2010 10:26:38
08/05/2010 13:02:38 Call customer enhancement EXIT_SAPLRSAP_001 (CMOD) with 10,958 records
08/05/2010 13:11:48 Result of customer enhancement: 10,958 records
08/05/2010 13:11:52 Asynchronous send of data package 2 in task 0003 (1 parallel tasks)
08/05/2010 13:11:53 tRFC: Data Package = 1, TID = 0AA00D0301984C5AEE8E44DB, Duration = 00:16:
08/05/2010 13:11:53 tRFC: Start = 08/05/2010 12:02:19, End = 08/05/2010 12:18:27
08/05/2010 14:30:13 Call customer enhancement EXIT_SAPLRSAP_001 (CMOD) with 11,296 records
08/05/2010 14:39:53 Result of customer enhancement: 11,296 records
like this its taking 24 hours in extraction its self.
Edited by: kotha123 on Aug 10, 2010 12:08 PM
Edited by: kotha123 on Aug 10, 2010 12:09 PM

Extract Text Types from CRM Service Order

Hello Experts,
I have a requirement where we need to extract the Text Types and texts from a the Item Details of a CRM Service Order.
I know it's not ideal to have large strings of text in BW but it is needed by the business.
Can anyone point me to the table that contains the Text Types and associated texts?
When I F1 on the field, nothing happens.
Thanks in advance.

This can be done through action profile.

Ways to extract text/data from a pdf

I have just been given five large boxes of documents which are old work orders which include (in the same position on every page) a customer's name, address, tel etc. I'm pretty adept at scanning stuff to pdf using Adobe Acrobat 9.0 Pro (version 9 5 1 283) but I don't know how (if it's even possible) to batch scan just that part of the page which contains the customer data and save it to Excel or csv or similar. I know I could highlight the required text on each page and copy and paste it into Excel but is there a more elegant solution? To create the pdf, I can scan using our office Epson all-in-one (although it's on the other side of the office) or a Neatdesk Scanner I'm trying out. The latter scans the pages quickly but if I set the Neat software to treat the document as a contact card, it only picks up our company address from the top of the page and ignores everything else ;-) I'm running Windows 7.

Hello
You may try the following AppleScript script. It will ask you to choose a root folder where to start searching for *.map files and then create a CSV file named "out.csv" on desktop which you may import to Excel.
set f to (choose folder with prompt "Choose the root folder to start searching")'s POSIX path
if f ends with "/" then set f to f's text 1 thru -2
do shell script "/usr/bin/perl -CSDA -w <<'EOF' - " & f's quoted form & " > ~/Desktop/out.csv
use strict;
use open IN => ':crlf';
chdir $ARGV[0] or die qq($!);
local $/ = qq(\\0);
my @ff = map {chomp; $_} qx(find . -type f -iname '*.map' -print0);
local $/ = qq(\\n);
# CSV spec
# - record separator is CRLF
# - field separator is comma
# - every field is quoted
# - text encoding is UTF-8
local $\\ = qq(\\015\\012); # CRLF
local $, = qq(,); # COMMA
# print column header row
my @dd = ('column 1', 'column 2', 'column 3', 'column 4', 'column 5', 'column 6');
print map { s/\"/\"\"/og; qq(\").$_.qq(\"); } @dd;
# print data row per each file
while (@ff) {
 my $f = shift @ff; # file path
 if ( ! open(IN, '<', $f) ) {
 warn qq(Failed to open $f: $!);
 next;
 $f =~ s%^.*/%%og; # file name
 @dd = ('', $f, '', '', '', '');
 while (<IN>) {
 chomp;
 $dd[0] = \"$2/$1/$3\" if m%Link Time\\s+=\\s+([0-9]{2})/([0-9]{2})/([0-9]{4})%o;
 ($dd[2] = $1) =~ s/ //g if m/([0-9 ]+)\\s+bytes of CODE\\s/o;
 ($dd[3] = $1) =~ s/ //g if m/([0-9 ]+)\\s+bytes of DATA\\s/o;
 ($dd[4] = $1) =~ s/ //g if m/([0-9 ]+)\\s+bytes of XDATA\\s/o;
 ($dd[5] = $1) =~ s/ //g if m/([0-9 ]+)\\s+bytes of FARCODE\\s/o;
 last unless grep { /^$/ } @dd;
 close IN;
 print map { s/\"/\"\"/og; qq(\").$_.qq(\"); } @dd;
EOF
Hope this may help,
H

Extract text data from dbc on the fly

Hi All,
I am currently setting up a testsystem for a CAN based project with LV7.1 and Teststand 4.
I have my PXI8461 CAN card sending and receiving CAN messages fine but I wish to perform some work on all channel ( signal ) information before passing it up to Teststand for analysis.
For my Teststand purposes it is preferable to work with text, for example if the DUT has a button pressed then the appropriate signal gets sent up to Teststand as "On" or "Off" etc rather than 1 and 0. ( CANoe has this feature and the LDF driver kit for LIN in Labview also )
This is very useful for Teststand when checking test conditions rather than trying to equate a test with a number, so tests can be written like if result = "Ignition On" then Pass else Fail.
The dbc file I have contains this text representation of data but is there any VI which can be ran after a Read Channel which will convert Channel data to text ?
Thanks,
Mike

Hi Mike,
Thanks for the post! and I hope your well today.
Im not very familiar with the CAN palette, but Im sure we could use Lower Level VIs to build this functionality.
So, when on the fly, the CAN message is a number (0 or 1) and then convert it using a case structure?
I imagine this issue is more complex then I have caught on so far, so please, maybe some example code etc would help.
Kind Regards,
James.
Kind Regards
James Hillman
Applications Engineer 2008 to 2009 National Instruments UK & Ireland
Loughborough University UK - 2006 to 2011
Remember Kudos those who help!

Need to extract the data from the CRM table : SCAPPTSEG

Hi BW Experts,
I want to extract the Data from CRM Table "SCAPPTSEG" to BW. The dates are stored in UTC Format.So for getting the date in CET format, we have used the Function Module "IB_CONVERT_FROM_TIMESTAMP".
I want to create a datasource for extracting the data from "SCAPPTSEG" table and i need to use the function module for getting the date in CET Format.
Can i achieve this action through Generic Extraction.
please provide me the steps to achieve this.
Thanks,
Shahina.A

not answered

0CRM_SALES_ACT_1 takes a long time to extract data from CRM system

Hi gurus,
I am using the datasource 0CRM_SALES_ACT_1 to extract activities data from CRM side. However, it is taking too long time to get any information there.
I applied the SAP NOTE 829397 (Activity extraction takes a long time: 0crm_sales_act_1) but it did not solve my problem.
Does anybody knows something about that?
Thanks in advance,
Silvio Messias.

Hi Silvio,
I've experienced a similar problem with this extractor. I attempted to Initialize Delta with Data Transfer to no avail. The job ran for 12+ hours and stayed in "yellow" status (0 records extracted). The following steps worked for me:
1. Initialize Delta without Data Transfer
2. Run Delta Update
3. Run Full Update and Indicate Request as Repair Request
Worked like a champ, data load finished in less than 2 minutes.
Hopefully this will help.
Regards.
Jason

How can I use Automator to extract specific Data from a text file?

I have several hundred text files that contain a bunch of information. I only need six values from each file and ideally I need them as columns in an excel file.
How can I use Automator to extract specific Data from the text files and either create a new text file or excel file with the info? I have looked all over but can't find a solution. If anyone could please help I would be eternally grateful!!! If there is another, better solution than automator, please let me know!
Example of File Contents:
Link Time =
DD/MMM/YYYY
Random
Text
161 179
bytes of CODE memory (+ 68 range fill )
16 789
bytes of DATA memory (+ 59 absolute )
1 875
bytes of XDATA memory (+ 1 855 absolute )
90 783
bytes of FARCODE memory
What I would like to have as a final file:
EXCEL COLUMN1
Column 2
Column3
Column4
Column5
Column6
MM/DD/YYYY
filename1
161179
16789
1875
90783
MM/DD/YYYY
filename2
xxxxxx
xxxxx
xxxx
xxxxx
MM/DD/YYYY
filename3
xxxxxx
xxxxx
xxxx
xxxxx
Is this possible? I can't imagine having to go through each and every file one by one. Please help!!!

Hello
You may try the following AppleScript script. It will ask you to choose a root folder where to start searching for *.map files and then create a CSV file named "out.csv" on desktop which you may import to Excel.
set f to (choose folder with prompt "Choose the root folder to start searching")'s POSIX path
if f ends with "/" then set f to f's text 1 thru -2
do shell script "/usr/bin/perl -CSDA -w <<'EOF' - " & f's quoted form & " > ~/Desktop/out.csv
use strict;
use open IN => ':crlf';
chdir $ARGV[0] or die qq($!);
local $/ = qq(\\0);
my @ff = map {chomp; $_} qx(find . -type f -iname '*.map' -print0);
local $/ = qq(\\n);
# CSV spec
# - record separator is CRLF
# - field separator is comma
# - every field is quoted
# - text encoding is UTF-8
local $\\ = qq(\\015\\012); # CRLF
local $, = qq(,); # COMMA
# print column header row
my @dd = ('column 1', 'column 2', 'column 3', 'column 4', 'column 5', 'column 6');
print map { s/\"/\"\"/og; qq(\").$_.qq(\"); } @dd;
# print data row per each file
while (@ff) {
 my $f = shift @ff; # file path
 if ( ! open(IN, '<', $f) ) {
 warn qq(Failed to open $f: $!);
 next;
 $f =~ s%^.*/%%og; # file name
 @dd = ('', $f, '', '', '', '');
 while (<IN>) {
 chomp;
 $dd[0] = \"$2/$1/$3\" if m%Link Time\\s+=\\s+([0-9]{2})/([0-9]{2})/([0-9]{4})%o;
 ($dd[2] = $1) =~ s/ //g if m/([0-9 ]+)\\s+bytes of CODE\\s/o;
 ($dd[3] = $1) =~ s/ //g if m/([0-9 ]+)\\s+bytes of DATA\\s/o;
 ($dd[4] = $1) =~ s/ //g if m/([0-9 ]+)\\s+bytes of XDATA\\s/o;
 ($dd[5] = $1) =~ s/ //g if m/([0-9 ]+)\\s+bytes of FARCODE\\s/o;
 last unless grep { /^$/ } @dd;
 close IN;
 print map { s/\"/\"\"/og; qq(\").$_.qq(\"); } @dd;
EOF
Hope this may help,
H

Error while extracting data from CRM to 0BPARTNER

Hi All,
We are extracting   daily data from SAP CRM to 0BPARTNER using 0BPARTNER_ATTR(Delta mode) . While loading the data upto PSA, it showed the total number of records as * 50033 from 50033*. But the total and technical status are yellow . When checked the step by step analysis , *Processing error in source system reported * is red and rest all are green.When I saw the application Log it is writtern as * There is a discrepancy between confirmation and deletion of qrfc-LUWs*.
In the Details tab ,we got the following messages.
1)*Extraction (messages): Errors occurred *
   19485 Records sent ( 19485 Records received ) .
2)*Transfer (IDocs and TRFC): Missing messages or warnings *
    *IDoc : sent, not arrived ; Data passed to port OK * and rest every thing is green.
But all the data packets are fine.
WeI have checked using BD87, WE02, WE05   in BW and source systems for I DOCS . But none of the t-codes provide any IDOCS with warnings or errors.
So we have changed the Total l status to Green. Please note that still the technical status is showing as Yellow only.
We started to updating the data target from PSA. Now again, both statues are showing yellow only.So what should we do inorder to resolve this ?
Thanks in advance,
Babu Vasamsetti.
Edited by: babu vasamsetti on Jan 11, 2010 5:54 PM
Edited by: babu vasamsetti on Jan 11, 2010 5:55 PM
Edited by: babu vasamsetti on Jan 11, 2010 5:55 PM

Hi
please check sm58 in souce system side trfc may be strucked... to press f6 to run manually
first make a request a red.. in IP
hope u clear it
thx
viijender

Error while extracting data from CRM

Dear all,
I have used some standard and generic datasources to extract data from CRM. These were working fine for more than a year and are scheduled in Process chains. For the past few days I am getting Caller 09 error as shown below, only for the generic datasources. I have checked the connection,replicated the datasources and activated them, reinitialized and have tried all the solutions that were posted earlier, but still the process chain fails. When I execute the process chain for generic datasources manually, it is working fine.
When I tried in RSA3 for both standard and generic datasources in CRM with update mode D, I get a message 'Error occured during the extraction',
Kindly suggest what can be the problem.
Error message from the source system
Diagnosis
An error occurred in the source system.
System Response
Caller 09 contains an error message.
Further analysis:
The error occurred in Extractor .
Refer to the error message.
Procedure
How you remove the error depends on the error message.
Note
If the source system is a Client Workstation, then it is possible that the file that you wanted to load was being edited at the time of the data request. Make sure that the file is in the specified directory, that it is not being processed at the moment, and restart the request.
Thanks all in advance.
Regards
Adhira Anand

Hi Meyappan,
I have checked SM37, SM21 and ST22. There are no errors.
in SM37 the below log is displayed.
Job started
Step 001 started (program SBIE0001, variant &0000000005420, user ID ALEREMOTE)
Asynchronous transmission of info IDoc 2 in task 0001 (0 parallel tasks)
DATASOURCE = ZCRM_SRV_DEFECT
RLOGSYS    = CLNT645BIP
REQUNR     = REQU_4JHQ8HH6KA40JHC1TYLYIV2W2
UPDMODE    = D
LANGUAGES = *
         Current Values for Selected Profile Parameters               *
abap/heap_area_nondia......... 2000000000                              *
abap/heap_area_total.......... 2000000000                              *
abap/heaplimit................ 40000000                                *
zcsa/installed_languages...... DE                                      *
zcsa/system_language.......... E                                       *
ztta/max_memreq_MB............ 2047                                    *
ztta/roll_area................ 6500000                                 *
ztta/roll_extension........... 2000000000                              *
1 LUWs confirmed and 1 LUWs to be deleted with function module RSC2_QOUT_CONFIRM_DATA
IDOC: Info IDoc 2, IDoc No. 101415, Duration 00:00:00
IDoc: Start = 13.10.2010 22:51:39, End = 13.10.2010 22:51:39
Synchronized transmission of info IDoc 3 (0 parallel tasks)
IDOC: Info IDoc 3, IDoc No. 101416, Duration 00:00:00
IDoc: Start = 13.10.2010 22:51:42, End = 13.10.2010 22:51:42
Job finished

Extract data from CRM to SAP R/3

Hi Experts,
I Facing Problem to Extract the data from database table BUT000 in CRM 2.0 System to SAP R/3 whether its possible to update the data directly in R/3 system from CRM. whether any functional module exists?
Plz Provide me details about it

Why do you need to copy it? The data is easily available from R/3 via RFC.
Rob

Problem with upload data from CRM to BI system

When I try to perform full upload data from CRM to BI system with data source 0BPARTNER_ATTR (active version: Excutable). I waited for a long time but there are not any records were transfered (total records need to upload are 130) . I checked the log and can't find any errors.
Pls help me solve this problem.
Thanks and regard

Hi,
on the next day, the process finished with status not success.
The detail errors is:
Extraction(messages): Missing messages
          Missing message: Request received
          Missing message: Number of sent records
          Missing message: Selection completed
Transfer (IDocs and TRFC): Errors occurred
          Data package 1: arrived in BW; Processing: Selected number does not agree with transferred n
          Request IDoc: Application document posted
          Info IDoc 2: sent, not arrived; Data passed to port OK
          Info IDoc 1: sent, not arrived; Data passed to port OK
          Info IDoc 3: sent, not arrived; Data passed to port OK
          Info IDoc 4: sent, not arrived; Data passed to port OK
However, the data has been uploaded to infoobject. Pls explain to me about this error and why the data can be uploaded with this error.
Regard

Use LINQ to extract the data from a file...

Hi,
I have created a Subprocedure CreateEventList
which populates an EventsComboBox
with a current day's events (if any).
I need to store the events in a generic List communityEvents
which is a collection of
communityEvent
objects. This List needs to be created and assigned to the instance variable
communityEvents.
This method should call helper method ExtractData
which will use LINQ to extract the data from my file.
The specified day is the date selected on the calendar control. This method will be called from the CreateEventList.
This method should clear all data from List communityEvents.
A LINQ
query that creates CommunityEvent
objects should select the events scheduled for selected
day from the file. The selected events should be added to List
communityEvents.
See code below.
Thanks,
public class CommunityEvent
private int day;
public int Day
get
return day;
set
day = value;
private string time;
public string Time
get
return time;
set
time = value;
private decimal price;
public decimal Price
get
return price;
set
price = value;
private string name;
public string Name
get
return name;
set
name = value;
private string description;
public string Description
get
return description;
set
description = value;
private void eventComboBox_SelectedIndexChanged(object sender, EventArgs e)
if (eventComboBox.SelectedIndex == 0)
descriptionTextBox.Text = "2.30PM. Price 12.50. Take part in creating various types of Arts & Crafts at this fair.";
if (eventComboBox.SelectedIndex == 1)
descriptionTextBox.Text = "4.30PM. Price 00.00. Take part in cleaning the local Park.";
if (eventComboBox.SelectedIndex == 2)
descriptionTextBox.Text = "1.30PM. Price 10.00. Take part in selling goods.";
if (eventComboBox.SelectedIndex == 3)
descriptionTextBox.Text = "12.30PM. Price 10.00. Take part in a game of rounders in the local Park.";
if (eventComboBox.SelectedIndex == 4)
descriptionTextBox.Text = "11.30PM. Price 15.00. Take part in an Egg & Spoon Race in the local Park";
if (eventComboBox.SelectedIndex == 5)
descriptionTextBox.Text = "No Events today.";

Any help here would be great.
Look, you have to make the file a XML file type -- Somefilename.xml.
http://www.xmlfiles.com/xml/xml_intro.asp
You can use NotePad XML to make the XML and save the text file.
http://support.microsoft.com/kb/296560
Or you can just use Notepad (standard), if you know the basics of how to create XML, which is just text data that can created and saved in a text file, which, represents data.
http://www.codeproject.com/Tips/522456/Reading-XML-using-LINQ
You can do a (select new CommunityEvent) just like the example is doing a
select new FileToWatch and load the XML data into the CommunityEvent properties.
So you need to learn how to make a manual XML textfile with XML data in it, and you need to learn how to use LINQ to read the XML. Linq is not going to work against some flat text file you created. There are plenty of examples out on Bing and Google
on how to use Linq-2-XML.
http://en.wikipedia.org/wiki/Language_Integrated_Query
<copied>
LINQ extends the language by the addition of query
expressions, which are akin to
SQL statements, and can be used to conveniently extract and process data from
arrays, enumerable
classes, XML documents,
relational databases, and third-party data sources. Other uses, which utilize query expressions as a general framework for readably composing arbitrary computations, include the construction of event handlers[2]
or
monadic parsers.[3]
<end>

Example on extracting time data from clusters

Hi Experts,
 Please send me a sample code for time data extraction from clusters. or steps to extract time data from clusters.
Thank you.
Regards,
Admir.
Points will be rewarded.

Hi
see the sample report for time data fetching
But ime data is not fetched from Clusters, only payroll data is fetched from clusters
Time related infotypes are 2000 to 2999.
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
Reward points for useful Answers
Regards
Anji

Extracting text data from CRM

Similar Messages

Maybe you are looking for