Code for given logic

Hi all,
How do i write the code for the Below
Logic is :
Check for BEDSD = X in table TVEP
Note all such ETTYP
With this ETTYP check for entries in VBEP
If entries exist in VBEP, Note all such ETTYP
With this ETTYP check in TVEPZ, and note PSTYV
With this PSTYV check in T184 and note AUART
Refer to Table TVAKZ
output is :
VKORG/ AUART/ Desc. Of AUART/PSTYV/
Desc of PSTYV/ ETTYP/ Desc of ETTYP/
relevant for Transfer of Requirements
Thanks in Advance
Mamatha

Hi in the above question :
TVEPZ, T184, TVAKZ Are Pooled tables.So, Join is not allowed.
Thanks
Mamu

Similar Messages

Need FM to find physical path for given logical path

Hi Guru's,
I wanted to find the physical path for the given the logical path.
I have a requirement where i have to write records into the file mentioned via logical path .Inside the program i wanted to fetch the physical path for given logical path .
Is there any FM to achieve this functionality.
Thanks!!
Pravee

Use fm FILE_GET_NAME to get physical file name from a logical file name. But u have to maintain the mapping between logical file name and physical file name in tran. FILE.
     call function 'FILE_GET_NAME'
          exporting
               logical_filename = lds_name << Logical file name
          importing
               file_name        = ds_name << Physical file name
          exceptions
               file_not_found   = 01.
Regards,
Joy.

I need a authorisation code for my logic 7.1 software.

hi folks, got my self a wee problem here in Scotland.
I recently tried to install a new operating system on my Mac, tiger to be exact. for some reason I couldn't install it on my main hard-drive. there was an installation error and it wouldn't go any further in the installation process. as you all know logic 7.1 needs this operating system to work. this is my first problem, why doesn't it allow me to install it on my main hard-drive on my comp???
my second problem is this. I have a carillon external hard drive which I use for my audio and arrangement files. when i tried to install the new operating system on my crrilion hard-drive the set-up process worked fine and if i boot up from my carilion drive the operating system works fine. i then proceeded to install logic 7.1 and it works fine, now that i have installed the operating system on my external hard drive. (is this an ok way to use my new software up-grades?) the only problem i have is that i cant connect to the internet when i use the new operating system on my carrilion drive. therefore i cant verify my logic 7.1 software via the net. i really want to authorise it now and when i start the software it states that my software will only work for 5 weeks with no authorisation code. the question i ask is how do i get my authorisation code from the logic website using another computer? i want to activate it manually for now untill i get my internet connection sorted.
is there anyone else out there who has experienced the problems stated above and could you please help me out as im getting severly frustated and dont know how to give myself peace of mind. could you please help?
thankyou to everyone who hears my pain. x

Sounds like Disk Utility may become your new best friend. Use it to make an Image, onto your internal drive. voila-authorizations are XSkey dependant, not system dependant.

Where to copy the codes for flow logic?

Hi.
I know that SE37 is to access the source code for function modules,
and SE38 is to access the source codes for programs/reports.
Does anyone know where I could get the codes for the<b> flow logic of the dialog screens</b> called by my programs?
Thanks.

Hi,
SE80 transaction
Select program in drop down & enter the program name
Best regards,
Prashant

How to write code for this logic in a routine, very urgent --help me

hi all,
i want to apply this logic into one subroutin ZABC.
here i m giving my logic ,can any body help me in coding for this, this is very urgent, i hv to submit on wednesday.
4.1 Read the company code number BSEG-BUKRS from document line item.
4.2 Fetch PRDHA from MARA into GV_PRDHA where MATNR = BSEG-MATNR.
4.3 Fetch Business area (GSBER) from ZFIBU into GV_GSBER where (PRDHA = GV_PRDHA and BUKRS = BSEG-BUKRS) OR (PRDHA = GV_PRDHA and BUKRS = SPACE).
4.4 If business area match is found, go to step 3.9. Else continue.
4.5 If BKPF-BLART IN set ZVS_POSDT OR BKPF-XBLNR starts with I0*, execute steps below. Else, go to Step 3.6.
i. MOVE: BSEG-BKURS TO work area field WA_ZFIBUE-BUKRS,
BSEG-MATNR TO work area field WA_ZFIBUE-MATNR,
GV_PRDHA TO work area field WA_ZFIBUE-PRDHA,
BSEG-HKONT TO work area field WA_ZFIBUE-HKONT,
BSEG-GSBER TO work area field WA_ZFIBUE-GSBER,
BSEG-PSWBT TO work area field WA_ZFIBUE-PSWBT,
BKPF-BUDAT TO work area field WA_ZFIBUE-BUDAT,
SY-DATUM TO work area field WA_ZFIBUE-CREDATE,
SY-UZEIT TO work area field WA_ZFIBUE-CRETIME,
Fetch running serial number (WA_ZFIBUE-SERIALNO) from ZFICO. This number will be stored in ZFICO with PARAMTYPE = "BPM030307", SUBTYPE = "ZFIBUE" and KEY1 = "SERIALNO". The actual serial number will be stored in the field VALUE1.
i. Insert WA_ZFIBUE INTO ZFIBUE.
ii. Send email notification to the user (if it is not already sent to user on the same posting date).
Use function module SO_NEW_DOCUMENT_ATT_SEND_API1 to send mail.
Fetch email address and date of last email from ZFICO. These values will be stored in ZFICO with PARAMTYPE = "BPM030307", SUBTYPE = "EMAIL" and KEY1 = "<USERNAME>". The email address will be stored in the field VALUE1 and posting date in VALUE2. Once mail is sent, VALUE2 is updated with latest posting date (BKPF-BUDAT).
iii. Increment the running serial number and update ZFICO with new serial number.
a. GV_ SERIALNO = WA_ZFIBUE-SERIALNO + 1
b. Update ZFICO Set value1 = GV_SERIALNO
Where PARAMTYPE = "BPM030307" AND
SUBTYPE = "ZFIBUE" AND
KEY1 = "SERIALNO".
iv Move VDFT to BSEG-GSBER.
v. Exit routine.
4.6 Fetch MTART into GV_MTART from MARA where MATNR = BSEG-MATNR.
4.7 If SY-BATCH = INITIAL AND GV_MTART <> ROH, issue the error message - Maintain the mapping of product hierarchy <PRDHA> from article <MATNR> for <BUKRS>. Else, go to step 3.8.
4.8 If SY-BATCH <> INITIAL AND GV_MTART <> ROH, issue the error message - Maintain product hierarchy on article master. Go to step 3.10.
4.9 Move GV_GSBER TO BSEG-GSBER.
4.10 Exit Routine
plz give me reply asap --this is very urgent
thanks in advance
swathi

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

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.

Please provide code for this logic

Hi,
table
id                    code
145623          xyz001
178956          sbh002
165895          sbi003
As per this logic,for every new entity of id a new autogenerated code will be generated.
This (xyz or sbh or sbi) code should be fetched using select query (select b_code into table.code from cmp where c_id =145623)
using id(145623). And 001,002 is autogenerated code and should be concentrated with xyz ex: xyz001
Here we can use trigger with sequence
Could you please help me..

How many times you will ask same question???
You need to use pl/sql block for your requirement   some thing like this:
create sequence and add into pl/sql block like:
>>Select max(count) into temp_var where id=’sbi’
>>New_code:=’sbi’+temp_var;
Now you need to optimize it...
Thanks...

Need SQL code for this logic - - From Serial and To serial no.

In Forms 4.5 Screen I have two text boxes where i will be entering From Serial No
and to serial no.
I want the code which will check whether any number in between these from and to serial exists in a table or not ?
For Example
Select * from t; -- contains
serial number
321-456-789
123-456-654
321-569-986
321-569-987
When I enter from Serial no 321-456-789 and to serial no as 321-456-789.. I should get a message sayinig that 321-456-789 exists.
When I enter from Serial no 321-569-986 and to serial no as 321-569-988.
I should get a message sayinig that 321-456-986 exists.
I should get a message sayinig that 321-456-987 exists.
I should get a message sayinig that 321-456-988 not exists.
is it possible with a SQL query or do we need to go for procedure or temp table ?
If anybody ahving similar code please post it here.
Thanks in Advance
Devender

Hi Devender,
Try this :
SQL> select * from t;
SN
321-456-789
123-456-654
321-569-986
321-569-987
SQL> var sn1 varchar2(11)
SQL> exec :sn1 := '321-569-986'
Procédure PL/SQL terminée avec succès.
SQL> var sn2 varchar2(11)
SQL> exec :sn2 := '321-569-988'
Procédure PL/SQL terminée avec succès.
SQL>1 select a.sn, decode(t.sn,null,'does not exists','already exists')
2 from
3 (select substr(replace(:sn1,'-','')+rownum-1,1,3)||'-'
4        ||substr(replace(:sn1,'-','')+rownum-1,4,3)||'-'
5        ||substr(replace(:sn1,'-','')+rownum-1,7,3) as sn
6 from (select level
7        from dual
8        connect by level <= (replace(:sn2,'-','')-replace(:sn1,'-',''))+1
9       )
10 )a,
11 t
12* where a.sn=t.sn(+)
SQL> /
SN                            DECODE(T.SN,NUL
321-569-986                   already exists
321-569-987                   already exists
321-569-988                   does not exists
SQL> exec :sn1 := '321-456-789'
Procédure PL/SQL terminée avec succès.
SQL> exec :sn2 := '321-456-789'
Procédure PL/SQL terminée avec succès.
SQL> l
1 select a.sn, decode(t.sn,null,'does not exists','already exists')
2 from
3 (select substr(replace(:sn1,'-','')+rownum-1,1,3)||'-'
4        ||substr(replace(:sn1,'-','')+rownum-1,4,3)||'-'
5        ||substr(replace(:sn1,'-','')+rownum-1,7,3) as sn
6 from (select level
7        from dual
8        connect by level <= (replace(:sn2,'-','')-replace(:sn1,'-',''))+1
9       )
10 )a,
11 t
12* where a.sn=t.sn(+)
SQL> /
SN                            DECODE(T.SN,NUL
321-456-789                   already exists
SQL> Nicolas.

ABAP Routine code for the below logic

Hello BW Experts ,
I need to write a complex ABAP routine in BW .
Following is the detail explaination .
Can anyone tell me the ABAP code for the below logic?
It would be a greate help as I am unable to do this
since last two days.
WBS Elements are maintained at IOS and Warranty levels in R/3 side.
The IOS WBS is a top level of WBS element and below that the Warranty WBS level.
The IOS and Warranty WBS elements can be differentiated by means of priority field.
When priority = i   , WBS Element is known as IOS Level WBS Element and
When priority = Y the WBS element is known as Warranty WBS element.
The Equipment Number is maintained compulsorily at IOS Level WBS elements only.
It is not maintained at Warranty WBS Element.
But the Cost is maintained at Warranty WBS Elements.
In BW I need all Warranty WBS ( priority = Y) along with their cost figures and Equipment Numbers.
But as the Equipment Number is not maintained compulsorily at Warranty WBS level we have asked to
Copy it from IOS WBS ( priority = i ) and assign it to Warranty WBS level ( priority = Y ).
So I have included the Equipment Number in the ODS and in update rules I need to write the routine for it as
per the above logic.
The Equipment Number is coming from Master data of WBS Element.
The WBS element master data we are loading in BW .
Also the same WBS Element transaction data is coming from the transaction data data source in BW.
Following fields / infoobjects and the table names in BW :
1. Equipment Number : /BIC/ZEQUIPMNT and table name /BIC/MZWBS_ELEM.
2. WBS Element       : ZWBS_ELEM is coming from transaction data data source as well as master data.
                                 In ODS update rules it is coming from transaction data data source Comm_structure-ZWBS_ELEM.
                                 Also we are loading separetly the master data for ZWBS_ELEM.
                                 The ZEQUIPMNT is an attribute of ZWBS_ELEM.
3. Priority                : PRIORITY     and table name /BIC/MZWBS_ELEM.
                                  The info object name for Priority is 0Priority but in master data table /BIC/MZWBS_ELEM
                                  the field name is    PRIORITY.
                                 When PRIORITY = ' i ' then    ZWBS_ELEM is at IOS Level
                                 When PRIORITY = ' y ' then ZWBS_ELEM is at Warranty Level.
4. ODS name : /BIC/AZCOST00 and same is table name active data table .
So please tell me the routine Code .
Best Regards ,
Amol.

Hi Dinaker,
Did you find any solution for this issue. I too have a similar requirement of pulling all the service orders for a specific Purchase Order in the BW report.
Thanks,
SAPBWI

Logic authorisation codes for logic 7.1

hi folks, got my self a wee problem here in Scotland.
I recently tried to install a new operating system on my Mac, tiger to be exact. for some reason I couldn't install it on my main hard-drive. there was an installation error and it wouldn't go any further in the installation process. as you all know logic 7.1 needs this operating system to work. this is my first problem, why doesn't it allow me to install it on my main hard-drive on my comp???
my second problem is this. I have a carillon external hard drive which I use for my audio and arrangement files. when i tried to install the new operating system on my crrilion hard-drive the set-up process worked fine and if i boot up from my carilion drive the operating system works fine. i then proceeded to install logic 7.1 and it works fine, now that i have installed the operating system on my external hard drive. (is this an ok way to use my new software up-grades?) the only problem i have is that i cant connect to the internet when i use the new operating system on my carrilion drive. therefore i cant verify my logic 7.1 software via the net. i really want to authorise it now and when i start the software it states that my software will only work for 5 weeks with no authorisation code. the question i ask is how do i get my authorisation code from the logic website using another computer? i want to activate it manually for now untill i get my internet connection sorted.
is there anyone else out there who has experienced the problems stated above and could you please help me out as im getting severly frustated and dont know how to give myself peace of mind. could you please help?
thankyou to everyone who hears my pain. x

The first problem you need to address is WHY you can't install Tiger on your mac HD.
Do you have enough disk space?
Would you consider backing up your data and re-formatting your Mac HD?
Then installing Tiger?

Error when changing a Company Code for a given Cost Center

Hello Friends ,
I'm trying to modify a company code value for a given cost center in KS02 and I get the below error. The error message receommends to change the analysis period ( not sure what it is..) but when I click edit > Analysis period from tool bar I still get the below message , is there way to get over come this issue ?
Thanks in advance ,
Field change Company Code is not possible (transaction data already exists)
Message no. KS134
Diagnosis
To ensure the consistency of existing data, you can only change object Company Code if no transaction data exists in the change period; that is, neither plan data nor actual data has been posted.
As transaction data already exists, it is not possible to change objects in this time period.
Procedure
If you still want to change the object, select a suitable change interval by choosing "Edit -> Analysis period...".

Thank you Vishal . I have 3 cost centers with 2 having validity period ( from 01/01/1950 to 12/31/9999) and third one had 2 records 12/30/2004 to 12/26/2009 and 12/27/2009 to 12/31/9999 ) for the third one it did allow to change the validty period and I could change the comapny code for my profit center . But for first 2 somehow it doesnt allow to change the validity periods. And when I run some reports against these 2 cost centers to see if there is any activity I dont see any data .
Could you please give your ideas ?
Thanks alot .

I had a code to get logics pro for free and after it installed its asking me for a serial number does anyone know what to do from here.

I had a code to get logics pro for free and after it installed its asking me for a serial number but it never gave me one to put in, it just started downloading and then asked me. Does anyone know what to do from here.

I really don't think that is anywhere near on track.
Most likely the trial version was installed earlier, is that correct?

T code for logical data base

Hi
could pls let me know the Tcode to look for the logical data base in sap r/3
Thanks
P

Hello,
SE36
Regards
Saket Sharma

How to display the source code for this friggin' file.

Below is a rather lengthy bit of code that provides the behavior and attributes of a web server for OpenCyc. I need to know if I can enter some java to have the HTML source code displayed in a separate text file whenever this class returns some resulting webpage. If you have any ideas it will be greatly appreciated.
-"Will code for foo."
package org.opencyc.webserver;
* Class WebServer is simple multithreaded HTTP server
* with CGI limited to a Cyc connection on default port 3600.
* <p>
import java.net.*;
import java.io.*;
import java.util.*;
import java.util.jar.*;
import java.text.*;
import org.opencyc.util.*;
public class WebServer extends Thread {
     * Singleton WebServer instance.
    public static WebServer current;
     * Default HTTP port.
    protected static int DEFAULT_PORT = 80;
     * Default Cyc base port.
    protected static int DEFAULT_CYC_PORT = 3600;
     * Default directory to serve files from on non-Windows OS.
    protected static String DEFAULT_DIR = "/";
     * Default directory to serve files from on Windows.
    //protected static String DEFAULT_WIN_DIR = "C:\\";
    protected static String DEFAULT_WIN_DIR = "k:\\opencyc\\run\\httpd\\htdocs";
     * File cache capacity.
    protected static final int CACHE_CAPACITY = 100;
     * File cache to improve file serving performance.
    protected static Hashtable fileCache = new Hashtable(CACHE_CAPACITY);
     * Number of files served from this web server.
    protected static long nbrFilesServed = 0;
     * Number of files served from this web server that were found in the cache.
    protected static long nbrCacheHits = 0;
     * Server socket for accepting connections.
    protected ServerSocket server;
     * Directories to serve files from.
    protected ArrayList dirs;
     * Map from String (jar root) to JarFile[] (jar class path).
    protected HashMap map;
     * Webserver HTTP port.
    protected int port;
     * Cyc HTML host.
    protected String cycHost = "localhost";
     * Cyc HTML port.
    protected int cycPort;
     * Expand jar tress.
    protected boolean trees;
     * Requests flag.
    protected boolean traceRequests;
     * Constructs a WebServer object.
     * @param port the port to use
     * @param directories the directory to serve files from
     * @param trees true if files within jar files should be served up
     * @param traceRequests true if client's request text should be logged.
     * @exception IOException if the listening socket cannot be opened, or problem opening jar files.
    public WebServer() throws IOException {
        getProperties();
        server = new ServerSocket(port);
        processDirectories();
     * Class Task processes a single HTTP request.
    protected class Task extends Thread {
         * Socket for the incoming request.
        protected Socket sock;
         * Client socket to the Cyc KB HTML server.
        protected Socket cycHtmlSocket;
         * Output tcp stream.
        protected DataOutputStream out;
         * Contains the file request path for a not-found error message.
        protected String notFoundPath;
         * Contains the first line of a request message.
        protected String methodLine;
         * Contains the body of a POST method.
        protected String bodyLine;
         * Constructs a Task object.
         * @param sock the socket assigned for this request.
        public Task(Socket sock) {
            this.sock = sock;
         * Processes the HTTP request.
        public void run() {
            if (traceRequests)
                Log.current.println("connection accepted from " + sock.getInetAddress());
            notFoundPath = "";
            try {
                out = new DataOutputStream(sock.getOutputStream());
                try {
                    getBytes();
                catch (Exception e) {
                    Log.current.println("file not found: " + notFoundPath);
                    try {
                        out.writeBytes("HTTP/1.1 404 Not Found\r\n");
                        out.writeBytes("Server: Cyc WebServer\r\n");
                        out.writeBytes("Connection: close\r\n");
                        out.writeBytes("Content-Type: text/html\r\n\r\n");
                        out.writeBytes("<HTML><HEAD>\n");
                        out.writeBytes("<TITLE>404 Not Found</TITLE>\n");
                        out.writeBytes("</HEAD><BODY>\n");
                        out.writeBytes("<H1>404 - Not Found</H1>\n");
                        out.writeBytes("</BODY></HTML>");
                        out.flush();
                    catch (SocketException se) {
            catch (Exception e) {
                Log.current.printStackTrace(e);
            finally {
                try {
                    sock.close();
                catch (IOException e) {
         * Reads the HTTP request and obtains the response.
         * @exception IOException when HTTP request has an invalid format.
        private void getBytes() throws IOException {
            // Below logic is complex because web browsers do not close the
            // socket after sending the request, so must parse message to find
            // the end.
            BufferedReader in = new BufferedReader(new InputStreamReader(sock.getInputStream()));
            ArrayList inBytes = new ArrayList(200);
            int ch = 0;
            boolean postMethod;
            methodLine = in.readLine();
            //if (traceRequests)
            //    Log.current.println("methodLine=" + methodLine);
            bodyLine = "";
            if (methodLine.startsWith("POST /"))
                postMethod = true;
            else
                postMethod = false;
            //if (traceRequests)
            //    Log.current.println("postMethod=" + postMethod);
            int ch1 = -1;
            int ch2 = -1;
            int ch3 = -1;
            int ch4 = -1;
            // Read the HTTP request headers.
            while (true) {
                ch = in.read();
                inBytes.add(new Integer(ch));
                ch1 = ch2;
                ch2 = ch3;
                ch3 = ch4;
                ch4 = ch;
                if (ch1 == '\r' && ch2 == '\n' && ch3 == '\r' && ch4 == '\n')
                    break;
                if ((! postMethod) &&
                    (! in.ready()) &&
                    ch1 == -1 &&
                    ch2 == -1 &&
                    ch3 == '\r' &&
                    ch4 == '\n') {
                    inBytes.add(new Integer('\r'));
                    inBytes.add(new Integer('\n'));
                    break;
            byte[] byteArray = new byte[inBytes.size()];
            for (int i = 0; i < inBytes.size(); i++) {
                Integer ich = (Integer) inBytes.get(i);
                byteArray[i] = ich.byteValue();
            String headers = new String(byteArray);
            if (postMethod) {
                String lcHeaders = headers.toLowerCase();
                int i = lcHeaders.indexOf("content-length: ");
                String contentLength = lcHeaders.substring(i + 16);
                int j = contentLength.indexOf("\r\n");
                contentLength = contentLength.substring(0, j);
                int bodyLen = (new Integer(contentLength)).intValue();
                for (int k = 0; k < bodyLen; k++) {
                    bodyLine = bodyLine + (new Character((char) in.read())).toString();
            String line = methodLine + "\r\n" + headers + bodyLine;
            if (traceRequests)
                Log.current.println(line);
            if (postMethod)
                processHttpPost();
            else
                if (line.startsWith("GET /"))
                    processHttpGet(line.substring(4));
                else {
                    Log.current.println("Invalid request = " + line);
                    throw new IOException();
         * Processes an HTTP GET method.
         * @param httpGetPath the path of the file to get.
         * @exception IOException if the file is not found.
        private void processHttpGet(String httpGetPath) throws IOException {
            int i = httpGetPath.indexOf(' ');
            if (i > 0)
                httpGetPath = httpGetPath.substring(0, i);
            Log.current.println(methodLine + " from " + sock.getInetAddress().getHostName());
            i = httpGetPath.indexOf("cg?");
            if (i > 0) {
                cycHtmlRequest(httpGetPath.substring(i + 3));
                return;
            notFoundPath = httpGetPath;
            i = httpGetPath.indexOf('/');
            if (i < 0 || map == null) {
                if (map == null || httpGetPath.endsWith(".jar")) {
                    for (int j = 0; j < dirs.size(); j++) {
                        String dir = (String) dirs.get(j);
                        String nativePath = dir + httpGetPath;
                        nativePath = nativePath.replace('/', File.separatorChar);
                        if (fileCache.containsKey(nativePath)) {
                            writeDataBytes((byte[]) fileCache.get(nativePath));
                            Log.current.println("...cached");
                            nbrCacheHits++;
                            nbrFilesServed++;
                            return;
                        try {
                            File f = new File(nativePath);
                            byte[] fileBytes = getBytes(new FileInputStream(f), f.length());
                            writeDataBytes(fileBytes);
                            if (fileCache.size() >= CACHE_CAPACITY)
                                fileCache.clear();
                            fileCache.put(nativePath, fileBytes);
                            Log.current.println("...from " + nativePath);
                            nbrFilesServed++;
                            return;
                        catch (IOException e) {
                throw new IOException();
            String jar = httpGetPath.substring(0, i);
            httpGetPath = httpGetPath.substring(i + 1);
            JarFile[] jfs = (JarFile[]) map.get(jar);
            if (jfs == null)
                throw new IOException();
            for (i = 0; i < jfs.length; i++) {
                JarEntry je = jfs.getJarEntry(httpGetPath);
if (je == null)
continue;
writeDataBytes(getBytes(jfs[i].getInputStream(je), je.getSize()));
nbrFilesServed++;
return;
throw new IOException();
* Processes an HTTP POST method.
* @exception IOException if the file is not found.
private void processHttpPost() throws IOException {
Log.current.println("POST " + bodyLine + " from " + sock.getInetAddress().getHostName());
cycHtmlRequest(bodyLine);
* Reads the specified number of bytes and always close the stream.
* @param in the file to be read for subsequent downloading.
* @param length the number of bytes to read from the file.
* @return An array of bytes from the file.
* @exception IOException if an error occurs when processing the file.
private byte[] getBytes(InputStream in, long length) throws IOException {
DataInputStream din = new DataInputStream(in);
byte[] bytes = new byte[ (int) length];
try {
din.readFully(bytes);
finally {
din.close();
return bytes;
* Sends the HTML request to Cyc.
* @param cycPath the portion of the URL which is given to the Cyc HTML server.
private void cycHtmlRequest(String cycPath) {
String request = sock.getInetAddress().getHostName() + "&" + cycPath + "#";
System.out.println("request=" + request);
ArrayList bytes = new ArrayList(10000);
try {
cycHtmlSocket = new Socket(cycHost, cycPort);
System.out.println("cycHost=" + cycHost + " cycPort=" + cycPort);
BufferedReader cycIn = new BufferedReader(new InputStreamReader(cycHtmlSocket.getInputStream()));
PrintWriter cycOut = new PrintWriter(cycHtmlSocket.getOutputStream(), true);
cycOut.println(request);
cycOut.flush();
int ch = 0;
while (ch >= 0) {
ch = cycIn.read();
bytes.add(new Integer(ch));
catch (Exception e) {
Log.current.printStackTrace(e);
byte[] byteArray = new byte[bytes.size()];
for (int i = 0; i < bytes.size() - 1; i++) {
Integer ich = (Integer) bytes.get(i);
byteArray[i] = ich.byteValue();
try {
writeTextBytes(byteArray);
catch (Exception e) {
Log.current.println(e.getMessage());
* Responds to the HTTP client with data content from the requested URL.
* @param bytes the array of bytes from the URL.
* @exception IOException if there is an error writing to the HTTP client.
public void writeDataBytes(byte[] bytes) throws IOException {
out.writeBytes("HTTP/1.1 200 OK\r\n");
out.writeBytes("Server: Cyc WebServer\r\n");
out.writeBytes("Connection: close\r\n");
out.writeBytes("Content-Length: " + bytes.length + "\r\n");
String prefix = (new String(bytes)).toLowerCase();
if (prefix.indexOf("<html>") > -1)
out.writeBytes("Content-Type: text/html\r\n\r\n");
else
out.writeBytes("Content-Type: application/java\r\n\r\n");
out.write(bytes);
out.flush();
* Respond to the HTTP client with text content from the requested URL.
* @param bytes the array of bytes from the URL.
* @exception IOException if there is an error writing to the HTTP client.
public void writeTextBytes(byte[] bytes) throws IOException {
out.writeBytes("HTTP/1.1 200 OK\r\n");
out.writeBytes("Server: Cyc WebServer\r\n");
out.writeBytes("Connection: close\r\n");
out.writeBytes("Content-Length: " + bytes.length + "\r\n");
out.writeBytes("Content-Type: text/html\r\n\r\n");
out.write(bytes);
out.flush();
* Gets properties governing the web server's behavior.
private void getProperties() {
port = DEFAULT_PORT;
String portProperty = System.getProperty("org.opencyc.webserver.port", "");
if (! portProperty.equalsIgnoreCase(""))
port = (new Integer(portProperty)).intValue();
Log.current.println("Listening on port " + port);
cycPort = DEFAULT_CYC_PORT;
String cycPortProperty = System.getProperty("org.opencyc.webserver.cycPort", "");
if (! cycPortProperty.equalsIgnoreCase(""))
cycPort = (new Integer(cycPortProperty)).intValue();
Log.current.println("Cyc connections directed to port " + cycPort);
String dirsProperty = System.getProperty("org.opencyc.webserver.dirs", "");
dirs = new ArrayList(3);
StringTokenizer st = new StringTokenizer(dirsProperty, ";", false);
while (st.hasMoreTokens()) {
String dir = st.nextToken();
dirs.add(dir);
trees = false;
String treesProperty = System.getProperty("org.opencyc.webserver.trees", "");
if (! treesProperty.equalsIgnoreCase(""))
trees = true;
traceRequests = false;
String traceRequestsProperty = System.getProperty("org.opencyc.webserver.traceRequests", "");
if (! traceRequestsProperty.equalsIgnoreCase("")) {
traceRequests = true;
Log.current.println("tracing requests");
* Adds transitive Class-Path jars to jfs.
* @param jar the jar file
* @param jfs the list of jar files to serve.
* @param dir the jar file directory.
* @exception IOException if an I/O error has occurred with the jar file.
private void addJar(String jar, ArrayList jfs, String dir) throws IOException {
Log.current.println("Serving jar files from: " + dir + jar);
JarFile jf = new JarFile(dir + jar);
jfs.add(jf);
Manifest man = jf.getManifest();
if (man == null)
return;
Attributes attrs = man.getMainAttributes();
if (attrs == null)
return;
String val = attrs.getValue(Attributes.Name.CLASS_PATH);
if (val == null)
return;
dir = dir + jar.substring(0, jar.lastIndexOf(File.separatorChar) + 1);
StringTokenizer st = new StringTokenizer(val);
while (st.hasMoreTokens()) {
addJar(st.nextToken().replace('/', File.separatorChar), jfs, dir);
* Administrative accessor method that obtains list of directories from which files are served.
public ArrayList getDirs() {
return dirs;
* Administrative method that updates the list of directories from which files are served.
public synchronized void setDirs(ArrayList dirs) throws IOException {
this.dirs = dirs;
fileCache.clear();
processDirectories();
* Administrative accessor method that obtains number of files served.
* @return The number of files served.
public long getNbrFilesServed() {
return nbrFilesServed;
* Administrative accessor method that obtains number of files served from cache.
* @return The number of files served from the cache.
public long getNbrCacheHits() {
return nbrCacheHits;
* Administrative method that clears the file cache.
public synchronized void clearFileCache() {
Log.current.println("Clearing file cache");
fileCache.clear();
nbrFilesServed = 0;
nbrCacheHits = 0;
* Processes the directories from which files are served, expanding jar trees if
* directed.
* @exception IOException if problem occurs while processing the jar files.
private void processDirectories() throws IOException {
if (dirs.size() == 0)
if (File.separatorChar == '\\')
dirs.add(DEFAULT_WIN_DIR);
else
dirs.add(DEFAULT_DIR);
Iterator directories = dirs.iterator();
while (directories.hasNext())
Log.current.println("Serving from " + directories.next());
if (trees) {
map = new HashMap();
for (int j = 0; j < dirs.size(); j++) {
String dir = (String) dirs.get(j);
String[] files = new File(dir).list();
for (int i = 0; i < files.length; i++) {
String jar = files[i];
if (!jar.endsWith(".jar"))
continue;
ArrayList jfs = new ArrayList(1);
addJar(jar, jfs, dir);
map.put(jar.substring(0, jar.length() - 4), jfs.toArray(new JarFile[jfs.size()]));
* Provides the command line interface for creating an HTTP server.
* The properties are:
* <pre>
* org.opencyc.webserver.port=<HTTP listening port>
* </pre>
* which defaults to 80.
* <pre>
* org.opencyc.webserver.cycPort=<Cyc connection port>
* </pre>
* which defaults to 3600.
* <pre>
* org.opencyc.webserver.dirs=<path>;<path> ... ;<path>
* </pre>
* with the argument enclosed in quotes if any path contains an
* embedded space.
* The default directory on Windows is C:
* and the default on other systems is / the default
* can be overridden with this property. By default, all files
* under this directory (including all subdirectories) are served
* up via HTTP. If the pathname of a file is <var>path</var> relative
* to the top-level directory, then the file can be downloaded using
* the URL
* <pre>
* http://<var>host</var>:<var>port</var>/<var>path</var>
* </pre>
* Caching of file contents is performed.
* <pre>
* org.opencyc.util.log=all
* </pre>
* If the all value is given, then all attempts to download files
* are output.
* <pre>
* org.opencyc.webserver.traceRequests
* </pre>
* If this property has any value, then the client HTTP requests are
* output.<p>
* <pre>
* org.opencyc.webserver.trees
* </pre>
* This property can be used to serve up individual files stored
* within jar files in addition to the files that are served up by
* default. If the property has any value, the server finds all jar files
* in the top-level directory (not in subdirectories). For each
* jar file, if the name of the jar file is <var>name</var>.jar, then any
* individual file named <var>file</var> within that jar file (or within
* the jar or zip files referenced transitively in the Class-Path manifest
* attribute, can be downloaded using a URL of the form:
* <pre>
* http://<var>host</var>:<var>port</var>/<var>name</var>/<var>file</var>
* </pre>
* When this property has any value, an open file descriptor and cached
* information are held for each jar file, for the life of the process.
* @param args an unused array of command line arguments.
public static void main(String[] args) {
Log.makeLog();
System.out.println("OpenCyc Web Server");
try {
// Launch thread to accept HTTP connections.
current = new WebServer();
current.start();
catch (IOException e) {
e.printStackTrace();
* Just keep looping, spawning a new thread for each incoming request.
public void run() {
try {
while (true) {
// Launch thread to process one HTTP request.
new Task(server.accept()).start();
catch (IOException e) {
e.printStackTrace();

JLundan,
I want to thank you for responding to the thread I started on the forum at java.sun.com. Your solution to my problem of needing to print the code of the html pages that the file I included generates was just what I was looking for. However, I have some further questions to ask, if you don't mind. To clarify my task I should say that your rephrasing of the problem is accurate: "You wan't to display the contents of the HTML file that the web server produces in response of client's request?"
Yes, this is what I need to do, but also it needs to display the source code of that html file that the server produces in response to the client's request. Also, in this case, I am the client requesting that the server return some html file, and I'm not sure where the server is. But the webserver.java file that I shared on the forum is on my local machine. I was wondering if I could modify this webserver.java file at my home so that any html file the server returns to me would automatically display the source code. This is a school project of mine and I am stuck on this one thing here.
Further, where would I put the "foo.html" file so it can be written to?
FileOuputStream fos = new FileOutputStream("foo.html");
fos.write(bytes);
fos.close();
Thanks so much for your help. I look forward to your response, at your convenience.
Regards

Urgent need of code for abap hr program

Hi,
Can any one provide with coding to calculate the leave balance for employee
for a given period. Its very urgent.
Thanks in advance,
Subha

Hi
See this sample code for calculation of absence quota
using 2001 and 2006 infotypes
make changes as per your requirement
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
<b>
Reward points for useful Answers</b>
Regards
Anji

Code for given logic

Similar Messages

Maybe you are looking for