The Guru Speaks - About SAP

How to access SAPGUI through Excel

noreply@blogger.com (The Guru Speaks) — Thu, 04 Aug 2011 05:26:00 +0000

Process to integrate SAP GUI with Excel sheet , so in case you have number of systems to manage you can maintain password less login .

We will Use SAP Shortcut to achieve the same.

Enable Password field

1) open regedit

2) go to HKEY_CURRENT_USER\Software\SAP\

3)Right Click on SAP -->New--> Key with name SAPShortcut--> Then using Same above Step create a key name "Security" under "SAPShortcut"

4)Now Right Click on the Security --> New --> String Value Give name "EnablePassword" to this and Set it Value 1

5) Close window

Create Shortcut

6) Login to SAP

7) Got to Customize Local Layout or ALT+F12 , select create shortcut

8) Provide detail(Password etc) and save somewhere in desktop, we recommended to save in some secure folder as using this shortcut any one can login to SAP GUI without proving password

Integrate With Excel

9) Open excel , type SID or ant description you want to give for shortcut

10) Right click and select hyperlink (Select the shortcut you have created earlier)

11) Save file and then try to access , you will be routed to SAP GUI with couple of warnings , to avoid warning follow below steps

Microsoft Excel Warnings

12) Disable hyperlink warnings for 2007 Office programs

""To disable the hyperlink warnings in 2007 Office Programs when an http:// address, notes:// or an ftp:// address is used, you must create a new registry subkey. To do this, follow these steps:

Click Start, and then click Run.

In the Open dialog box, type regedit, and then click OK.

In Registry Editor, locate one of the following registry subkeys:

HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Common

HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\12.0\Common

NoteYou only have to modify one of these registry subkeys. You do not have to modify both of them.

Note If the Security subkey already exists, skip to Step 6 after selecting the Security subkey.

Click the registry subkey, point to New on the Edit menu, and then click Key.

Type Security, and then press ENTER to name the key.

On the Edit menu, point to New, and then click DWORD Value.

Type DisableHyperlinkWarning, and then press ENTER to name the entry.

In the right pane, right-click DisableHyperlinkWarning, and then click Modify.

In the Edit DWORD Value dialog box, click Decimal, and then type 1 under Value data.

Note A value of 0 enables the hyperlink warning message. A value of 1 disables the hyperlink warning message.

Click OK.

Exit Registry Editor."

Still you will get one more warning to avoid that

Turn off the "Confirm open after download" option for the file type that you are trying to open

"Double-click My Computer.

On the Tools menu, click Folder Options.

On the File Types tab, select the appropriate file name extension SAP in the Registered File Types box, and then click Advanced.

Click to clear the Confirm open after download check box, and then click OK.

In the Folder Options dialog box, click Close.

Method 2: Modify the HKEY_CLASSES_ROOT\WMVFile\EditFlags registry subkey

Use this method if the warning message affects multiple computers. "

Now enjoy wil shortcuts , but dont forget to update shortcut if you will change your SAP password .

Moreover you can put one extra password for excel sheet also .

We recommend not to use this in any critical system as it can be a security issue.

Thanks to devratt For this info

ITS for Web GUI on ECC 5.0 and ECC 6.0

noreply@blogger.com (The Guru Speaks) — Thu, 04 Aug 2011 05:24:00 +0000

Since SAP ECC 5.0 and ECC 6.0, SAP has integrated its SAP Internet Transaction Server (ITS) on its server. You don’t need to install separate ITS server. You just need to activate and configure it.

Follow this procedure :

Check if you have activated:

1) With transaction SICF and locate the services by path:

/sap/public/bc/its/mimes

/sap/bc/gui/sap/its/webgui

2)With Transaction SE80 locate from the menu, Utilities –> Settings–>Internet Transaction Server (Tab)–>Publish (Tab) and set “On Selected

Site” = INTERNAL.

This restricts the publication in the next step to the integrated (internal) ITS.

3)In SE80 only, Locate the Internet Services: SYSTEM and WEBGUI.

Publish these services with the Context Menu -> Publish -> Complete Service

4)Now Browse to http://:/sap/bc/gui/sap/its/webgui/! and login to the webgui.

The Port number by default is 8080, if otherwise modified by Basis Team

Hope this helps

Multiple Field Selection in F4 Help

noreply@blogger.com (Harini Somaysula) — Wed, 24 Mar 2010 10:04:00 +0000

*&---------------------------------------------------------------------*
*& Report ZF4_MULTIPLE_FIELD_SEL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZF4_MULTIPLE_FIELD_SEL.

PARAMETERS carrid TYPE sflight-carrid.
DATA : BEGIN OF itab OCCURS 0,
carrid TYPE sflight-carrid,
END OF itab.
DATA : rtab TYPE TABLE OF ddshretval WITH HEADER LINE,
ptab TYPE TABLE OF ddshretval WITH HEADER LINE.
REFRESH rtab.
rtab-fieldname = 'CARRID'.
APPEND rtab.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR carrid.
SELECT carrid FROM sflight INTO TABLE itab.
IF sy-subrc = 0.
SORT itab BY carrid.
DELETE ADJACENT DUPLICATES FROM itab COMPARING carrid.
ENDIF.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
retfield = 'CARRID'
* PVALKEY = ' '
dynpprog = sy-repid
dynpnr = sy-dynnr
* DYNPROFIELD = ' '
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
value_org = 'S'
multiple_choice = 'X' " Allows to select multiple records
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
value_tab = itab
* FIELD_TAB =
return_tab = rtab " This holds multiple records
* DYNPFLD_MAPPING =
* EXCEPTIONS
* PARAMETER_ERROR = 1
* NO_VALUES_FOUND = 2
* OTHERS = 3 .

IF sy-subrc = 0.
ptab[] = rtab[]. " After F4 event rtab holds one value
* only so store them in other internal table
ENDIF.

START-OF-SELECTION. " Press F8 to see the output

LOOP AT ptab.
WRITE :/ ptab-fieldval. " This is a test program
ENDLOOP.

Program to find BADI's and User-exits of a Transaction Code

noreply@blogger.com (Harini Somaysula) — Wed, 18 Mar 2009 07:06:00 +0000

*&---------------------------------------------------------------------*
*& Report ZDEMO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZDEMO NO STANDARD PAGE HEADING.
*& Enter the transaction code that you want to search through in order *
*& to find which Standard SAP User Exits exists. *
*& *
*&---------------------------------------------------------------------\*
*&---------------------------------------------------------------------\*
*& Tables *
*&---------------------------------------------------------------------\*
TABLES : TSTC, "SAP Transaction Codes
TADIR, "Directory of Repository Objects
MODSAPT, "SAP Enhancements - Short Texts
MODACT, "Modifications
TRDIR, "System table TRDIR
TFDIR, "Function Module
ENLFDIR, "Additional Attributes for Function Modules
TSTCT, "Transaction Code Texts
RSSTCD,
TRKEY.
*&---------------------------------------------------------------------\*
*& Definition of Types *
*&---------------------------------------------------------------------\*
TYPES: BEGIN OF T_BADI_LIST,
OBJ_NAME TYPE SOBJ_NAME ,
DEVCLASS TYPE DEVI_CLASS ,
DLVUNIT TYPE DLVUNIT,
IMP_NAME TYPE EXIT_IMP ,
PACKNAME TYPE DEVCLASS ,
DLVUNIT2 TYPE DLVUNIT,
TEXT TYPE SXC_ATTRT-TEXT,
END OF T_BADI_LIST.
TYPES: BEGIN OF T_BADI_LIST2,
OBJ_NAME TYPE SOBJ_NAME ,
DEVCLASS TYPE DEVI_CLASS ,
DLVUNIT TYPE DLVUNIT,
END OF T_BADI_LIST2.
*&---------------------------------------------------------------------\*
*& Data Declaration *
*&---------------------------------------------------------------------\*
DATA: LT_BADI_LIST TYPE TABLE OF T_BADI_LIST,
LT_BADI_LIST2 TYPE TABLE OF T_BADI_LIST2,
LS_BADI_LIST TYPE T_BADI_LIST OCCURS 0 WITH HEADER LINE,
LS_BADI_LIST2 TYPE T_BADI_LIST2.
RANGES: R_BADI FOR TADIR-OBJ_NAME ,
RT_BADI FOR TADIR-OBJ_NAME .
*&---------------------------------------------------------------------\*
*& Variables *
*&---------------------------------------------------------------------\*
DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE,
P_TRKEY LIKE TRKEY.
DATA : FIELD1(30),
BADINAME(20),
COUNT TYPE P.
DATA : V_DEVCLASS LIKE TADIR-DEVCLASS,
P_DEVCLASS LIKE TADIR-DEVCLASS,
P_OLD_LANGU LIKE SY-LANGU,
P_MOD_LANGU LIKE SY-LANGU.
*&---------------------------------------------------------------------\*
*& Selection Screen Parameters *
*&---------------------------------------------------------------------\*
SELECTION-SCREEN BEGIN OF BLOCK A01 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP.
PARAMETERS : P_TCODE LIKE TSTC-TCODE OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK A01.
*&---------------------------------------------------------------------\*
*& Start of report *
*&---------------------------------------------------------------------\*
START-OF-SELECTION.
* Validate Transaction Code
SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.
*Find Repository Objects for transaction code
IF SY-SUBRC EQ 0.
SELECT SINGLE * FROM TADIR WHERE PGMID = 'R3TR'
AND OBJECT = 'PROG'
AND OBJ_NAME = TSTC-PGMNA.
MOVE: TADIR-DEVCLASS TO V_DEVCLASS.
IF SY-SUBRC NE 0.
* This section is used if a FGR is involved\!
CALL FUNCTION 'RS_ACCESS_PERMISSION'
EXPORTING
GLOBAL_LOCK = 'X'
OBJECT = P_TCODE
OBJECT_CLASS = 'TRAN'
MODE = 'SHOW'
LANGUAGE_UPD_EXIT = 'RS_TRANSACTION_LANGUAGE_EXIT'
SUPPRESS_LANGUAGE_CHECK = SPACE
IMPORTING
NEW_MASTER_LANGUAGE = P_OLD_LANGU
MODIFICATION_LANGUAGE = P_MOD_LANGU
TRANSPORT_KEY = P_TRKEY
DEVCLASS = P_DEVCLASS
EXCEPTIONS
CANCELED_IN_CORR = 1
OTHERS = 2.
IF SY-SUBRC = 0. " Success
MOVE: P_DEVCLASS TO V_DEVCLASS.
ELSE. " For the case that nothing is found\!
SELECT SINGLE * FROM TRDIR WHERE NAME = TSTC-PGMNA.
IF TRDIR-SUBC EQ 'F'.
SELECT SINGLE * FROM TFDIR WHERE PNAME = TSTC-PGMNA.
SELECT SINGLE * FROM ENLFDIR WHERE FUNCNAME = TFDIR-FUNCNAME.
SELECT SINGLE * FROM TADIR WHERE PGMID = 'R3TR'
AND OBJECT = 'FUGR'
AND OBJ_NAME = P_DEVCLASS.
MOVE: TADIR-DEVCLASS TO V_DEVCLASS.
ENDIF.
ENDIF.
ENDIF.
*Find SAP Modifactions
SELECT * FROM TADIR INTO TABLE JTAB
WHERE PGMID = 'R3TR'
AND OBJECT = 'SMOD'
AND DEVCLASS = V_DEVCLASS.
SELECT SINGLE * FROM TSTCT WHERE SPRSL EQ SY-LANGU
AND TCODE EQ P_TCODE.
FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ', 20(20) P_TCODE, 45(50) TSTCT-TTEXT.
FORMAT COLOR COL_POSITIVE INTENSIFIED ON.
SKIP.
WRITE:/1 'The application area is:', V_DEVCLASS.
SKIP.
IF NOT JTAB[] IS INITIAL.
WRITE:/(95) SY-ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 SY-VLINE, 2 'Exit Name', 21 SY-VLINE, 22 'Description', 95 SY-VLINE.
WRITE:/(95) SY-ULINE.
LOOP AT JTAB.
SELECT SINGLE * FROM MODSAPT
WHERE SPRSL = SY-LANGU
AND NAME = JTAB-OBJ_NAME.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE:/1 SY-VLINE, 2 JTAB-OBJ_NAME HOTSPOT ON, 21 SY-VLINE , 22 MODSAPT-MODTEXT,
95 SY-VLINE.
ENDLOOP.
WRITE:/(95) SY-ULINE.
DESCRIBE TABLE JTAB.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No of Exits:' , SY-TFILL.
SKIP.
WRITE:/(83) SY-ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 SY-VLINE, 2 'Badi Name', 22 SY-VLINE, 23 'Description', 83 SY-VLINE.
WRITE:/(83) SY-ULINE.
* select the BAdI Definitions from the tables sxc_exit and sxc_attr
SELECT T~OBJ_NAME T~DEVCLASS TC~DLVUNIT SX~IMP_NAME SAT~TEXT
INTO CORRESPONDING FIELDS OF TABLE LT_BADI_LIST
FROM ( ( ( ( TADIR AS T
INNER JOIN
TDEVC AS TC ON T~DEVCLASS = TC~DEVCLASS )
INNER JOIN
SXC_EXIT AS SX ON SX~EXIT_NAME = T~OBJ_NAME )
INNER JOIN
SXC_ATTR AS SA ON SX~IMP_NAME = SA~IMP_NAME )
INNER JOIN
SXC_ATTRT AS SAT ON SX~IMP_NAME = SAT~IMP_NAME )
WHERE T~PGMID = 'R3TR'
AND T~OBJECT = 'SXSD' "means BAdI
AND T~DEVCLASS = V_DEVCLASS "narrow down seach with Dev.Class
AND SAT~SPRSL = SY-LANGU.
SORT LT_BADI_LIST.
DELETE ADJACENT DUPLICATES FROM LT_BADI_LIST.
* create Ranges
LOOP AT LT_BADI_LIST INTO LS_BADI_LIST .
R_BADI-SIGN = 'I' .
R_BADI-OPTION ='EQ' .
R_BADI-LOW = LS_BADI_LIST-IMP_NAME .
R_BADI-HIGH = LS_BADI_LIST-IMP_NAME .
APPEND R_BADI TO RT_BADI .
ENDLOOP.
* select the implementations
SELECT T~OBJ_NAME T~DEVCLASS TC~DLVUNIT
INTO CORRESPONDING FIELDS OF TABLE LT_BADI_LIST2
FROM TADIR AS T
INNER JOIN
TDEVC AS TC ON T~DEVCLASS = TC~DEVCLASS
FOR ALL ENTRIES IN RT_BADI
WHERE T~OBJ_NAME = RT_BADI-LOW
AND T~PGMID = 'R3TR'
AND T~OBJECT = 'SXCI'.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE:/(83) SY-ULINE.
COUNT = '0'.
LOOP AT LT_BADI_LIST INTO LS_BADI_LIST .
WRITE:/1 SY-VLINE, 2 LS_BADI_LIST-OBJ_NAME HOTSPOT ON, 22 SY-VLINE,
23 LS_BADI_LIST-TEXT, 83 SY-VLINE.
COUNT = COUNT + 1.
ENDLOOP.
WRITE:/(83) SY-ULINE.
DESCRIBE TABLE LS_BADI_LIST.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No of BADIs:' , COUNT.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'No User Exit exists'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.
*&---------------------------------------------------------------------\*
*& Call SMOD or SE18 to lead the user to the selected exit or badi *
*&---------------------------------------------------------------------\*
AT LINE-SELECTION.
GET CURSOR FIELD FIELD1.
IF FIELD1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
ELSEIF FIELD1(12) EQ 'LS_BADI_LIST'.
CALL FUNCTION 'SXO_BADI_SHOW'
EXPORTING
EXIT_NAME = SY-LISEL+1(20)
EXCEPTIONS
ACTION_CANCELED
ACCESS_FAILURE
BADI_NOT_EXIXTING.
ELSE.
ENDIF.

Program to calculate Age of a person till the current date along with no. of days,months and years

noreply@blogger.com (Harini Somaysula) — Tue, 16 Dec 2008 07:45:00 +0000

REPORT z_no_of_days_months_years .

PARAMETERS:p_bdate TYPE sy-datum, " Begin Date
p_cdate TYPE sy-datum DEFAULT sy-datum. " Curent Date

DATA:v_months TYPE i,
v_days TYPE i,
v_years TYPE i,
v_tdays TYPE i.

CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'

EXPORTING

beg_da = p_bdate
end_da = p_cdate

IMPORTING

no_day = v_days
no_month = v_months
no_year = v_years
no_cal_day = v_tdays.

write:/ 'Age: ',v_years ,'Years ',v_months, 'Months ', v_days ,'Days.'.

To find BADIs that are linked to SAP transaction code.

noreply@blogger.com (Harini Somaysula) — Thu, 10 Jul 2008 06:11:00 +0000

The following steps will allow you to simply find a BADI that are linked to SAP transaction code.

1. Execute transaction SE37 or SE80 and find function module 'SXV_GET_CLIF_BY_NAME'.
2. Insert a breakpoint in it.
3. Now go to the SAP transaction you want to find a BADI.
4. When you execute it, it will stop at the above function module.
5. Look at the value of field EXIT_NAME.
6. This will provide you with the name of the BADI that is available in your SAP transaction code.

Calling BSP Applications from T-Code

noreply@blogger.com (The Guru Speaks) — Wed, 02 Apr 2008 12:20:00 +0000

Step 1. Create an se38 program as follows:

REPORT ZBROW .
CALL FUNCTION 'CALL_BROWSER'
EXPORTING
URL = 'http://theguruspeaksaboutsap.blogspot.com'
WINDOW_NAME = 'New '
NEW_WINDOW = 'X'.

IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Step 2: go to se93 and create a tcode and select "Report Transaction" option and assign the above program and save. select "Professional User Transaction" in the classification block.

you are ready to execute the tcode which will trigger the BSP Application

To Download and Upload Script

noreply@blogger.com (Harini Somaysula) — Tue, 18 Mar 2008 07:19:00 +0000

Go to se38 and mention program name : RSTXSCRP

Mention the Object name : zxyz
Mode : (EXPORT/IMPORT)

select From/on frontend button now execute and save at the desired location.

Upload Documents from BSP into ztables

noreply@blogger.com (The Guru Speaks) — Mon, 10 Mar 2008 14:34:00 +0000

Coming up in one week...

Upload Documents from BSP into ztables

Converting CSV seperated by comma

noreply@blogger.com (Harini Somaysula) — Wed, 23 Jan 2008 05:23:00 +0000

Converting csv separated by ','

REPORT ZTEST.

TYPE-POOLS:TRUXS.

DATA: BEGIN OF ITAB OCCURS 0,
VBELN LIKE VBAP-VBELN,
POSNR LIKE VBAP-POSNR,
END OF ITAB.

DATA: ITABT LIKE ITAB OCCURS 0 WITH HEADER LINE.

DATA: ITAB1 TYPE TRUXS_T_TEXT_DATA,
ITAB2 TYPE TRUXS_T_TEXT_DATA.

SELECT VBELN POSNR
UP TO 100 ROWS
FROM VBAP
INTO TABLE ITAB.

CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
EXPORTING
I_FIELD_SEPERATOR = ','
TABLES
I_TAB_SAP_DATA = ITAB
CHANGING
I_TAB_CONVERTED_DATA = ITAB1
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2.

IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = 'C:\TEMP\TEST.TXT'
TABLES
DATA_TAB = ITAB1
EXCEPTIONS
OTHERS = 1.

CALL FUNCTION 'TEXT_CONVERT_CSV_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR = ','
I_TAB_RAW_DATA = ITAB1
* I_FILENAME = 'C:\TEMP\TEST.TXT'
TABLES
I_TAB_CONVERTED_DATA = ITABT
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2.

IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

SAP Script Tutorial

noreply@blogger.com (Harini Somaysula) — Thu, 17 Jan 2008 08:01:00 +0000

http://www.geocities.com/sapscript_tutorial/

http://www.sappoint.com/PHPWebUI/Documents/SAPScript%20-%20Introduction.pdf

http://www.sappoint.com/PHPWebUI/Documents/SAPScript%20-%20Introduction%20-%20II.pdf

http://www.sappoint.com/PHPWebUI/Documents/SAPScript%20-%20Layout%20Sets.pdf

http://www.sappoint.com/PHPWebUI/Documents/SAPScript%20-%20Symbols.pdf

http://www.sappoint.com/PHPWebUI/Documents/SAPScript%20-%20Control%20Commands.pdf

Sample Code Using Field-Groups

noreply@blogger.com (Harini Somaysula) — Thu, 17 Jan 2008 07:23:00 +0000

A Note on the Use of Field Groups...

Because field-groups write their data to paging space (rather than storing it in memory), they are appropriate only for processing lists with lots (like 50,000 or more) of records. If you expect your programs to be handling tens of thousands of records, you should:

* analyze the expected size of your lists. For instance, if your system has 512M of main memory, you may decide that you don't want any report to use more than 15M of memory for its lists. In that program, you may have a list:

begin of mylist occurs XXX,

dat1(100) type c,

dat2(50) type c,

dat3(10) type c,

end of list.

Then each record takes up approximately 160 bytes; so every 6 records take up approximately 1K. For this list structure, it would take about 90,000 records to use up 15M RAM.
* decide the maximum amount of memory you want your program to use
* decide whether to use field-groups or something else (like internal tables).

If you expect the size of your list to be greater than the amount of memory you want your program to use, then use field-groups (actually, if you use internal tables, and the number of records exceeds the number of records in your OCCURS statement, the system just writes those extra records to the paging space. So is there really any difference between just using an internal table with an OCCURS 0 statement-- which would write the entire table to paging space-- and using field-groups? According to Gareth M. de Bruyn and Robert Lyfareff in Introduction to ABAP/4 Programming for SAP, field-groups are stored more efficiently, and have better performance. They recommend field-groups for lists of 100,000 or more records).

Field groups are groups similar fields together into one name. Field group works in conjuction with INSERT,EXTRACT,SORT,LOOP and ENDLOOP.

Field-Groups Sample Code

*&---------------------------------------------------------------------*
*& Report ZSPFLI *
*& *
*&---------------------------------------------------------------------*

REPORT ZSPFLI LINE-SIZE 132 LINE-COUNT 65(3)
NO STANDARD PAGE HEADING.
TABLES:SPFLI,SCARR, SFLIGHT, SBOOK.
SELECT-OPTIONS: MYCARRID FOR SPFLI-CARRID.

FIELD-GROUPS: HEADER, SPFLI_FG, SFLIGHT_FG, SBOOK_FG.

*------------------------------------------------------------------------------------
*The insert statement is used to create a field group dynamically by inserting the *field into it. Only global data fields can be inserted and not local data fields eg *: in form modules.
*------------------------------------------------------------------------------------

INSERT:
SPFLI-CARRID
SPFLI-CONNID
SFLIGHT-FLDATE
SBOOK-BOOKID
INTO HEADER,

SPFLI-CARRID
SPFLI-CONNID
SPFLI-CITYFROM
SPFLI-AIRPFROM
SPFLI-CITYTO
SPFLI-AIRPTO
SPFLI-DEPTIME
SCARR-CARRNAME
INTO SPFLI_FG,

SFLIGHT-FLDATE
SFLIGHT-SEATSMAX
SFLIGHT-SEATSOCC
SFLIGHT-PRICE
INTO SFLIGHT_FG,

SBOOK-BOOKID
SBOOK-CUSTOMID
SBOOK-CUSTTYPE
SBOOK-SMOKER
INTO SBOOK_FG.

*------------------------------------------------------------------------------------
*EXTRACT SPFLI_FG
*This will combine all the fields in the fieldgroup and write them to a sequential *dataset as a single record.
*------------------------------------------------------------------------------------

SELECT * FROM SPFLI WHERE CARRID IN MYCARRID.
SELECT SINGLE * FROM SCARR WHERE CARRID = SPFLI-CARRID.
EXTRACT SPFLI_FG.

SELECT * FROM SFLIGHT
WHERE CARRID = SPFLI-CARRID AND CONNID = SPFLI-CONNID.
EXTRACT SFLIGHT_FG.

SELECT * FROM SBOOK
WHERE CARRID = SFLIGHT-CARRID AND
CONNID = SFLIGHT-CONNID AND FLDATE = SFLIGHT-FLDATE.
EXTRACT SBOOK_FG.
CLEAR SBOOK.
ENDSELECT.
CLEAR SFLIGHT.
ENDSELECT.
CLEAR SPFLI.
ENDSELECT.

*------------------------------------------------------------------------------------
*SORT
*Sorting of sequential dataset by field group
*------------------------------------------------------------------------------------
SORT.
LOOP.
AT SPFLI_FG.
FORMAT COLOR COL_HEADING.
WRITE: / SCARR-CARRNAME,
SPFLI-CONNID, SPFLI-CITYFROM,
SPFLI-AIRPFROM, SPFLI-CITYTO, SPFLI-AIRPTO, SPFLI-DEPTIME.
FORMAT COLOR OFF.
ENDAT.

AT SFLIGHT_FG.
WRITE: /15 SFLIGHT-FLDATE, SFLIGHT-PRICE, SFLIGHT-SEATSMAX,
SFLIGHT-SEATSOCC.
ENDAT.

AT SBOOK_FG.
WRITE: /30 SBOOK-BOOKID, SBOOK-CUSTOMID,
SBOOK-CUSTTYPE, SBOOK-SMOKER.
ENDAT.
ENDLOOP.

*&---------------------------------------------------------------------*
*& END OF REPORT *
*&---------------------------------------------------------------------*

Program to Generate Graphs

noreply@blogger.com (Harini Somaysula) — Thu, 17 Jan 2008 06:10:00 +0000

*&---------------------------------------------------------------------*
*& Report Z_GRAPHS
*&---------------------------------------------------------------------*
*& This program demonstrates how easy it is to generate 3D or 2D graphs,
*& simply by populating the statistical data into an internal table and
*& passing it to a Function Module.
*&
*& The Example has no imput parameters, but they can be added based on
*& the requirement
*&---------------------------------------------------------------------*
*& URL: http://allaboutsap.blogspot.com
*&---------------------------------------------------------------------*

REPORT Z_GRAPHS.

*----------------------------------------------------------------------*
*INTERNAL TABLES AND STRUCTURES
*----------------------------------------------------------------------*
*** Internal table to hold Statistical data
DATA:
BEGIN OF IT_DATA OCCURS 0,
DATANAME(15),
QUANTITY1 TYPE I,
QUANTITY2 TYPE I,
QUANTITY3 TYPE I,
END OF IT_DATA.

*** Internal table to hold Options
DATA:
BEGIN OF IT_OPTIONS OCCURS 0,
OPTION(20),
END OF IT_OPTIONS.

*----------------------------------------------------------------------*
* Populating statistics data
IT_DATA-DATANAME = 'India'.
IT_DATA-QUANTITY1 = 55.
IT_DATA-QUANTITY2 = 62.
IT_DATA-QUANTITY3 = 59.
APPEND IT_DATA.

IT_DATA-DATANAME = 'UK'.
IT_DATA-QUANTITY1 = 35.
IT_DATA-QUANTITY2 = 80.
IT_DATA-QUANTITY3 = 44.
APPEND IT_DATA.

IT_DATA-DATANAME = 'USA'.
IT_DATA-QUANTITY1 = 18.
IT_DATA-QUANTITY2 = 80.
IT_DATA-QUANTITY3 = 19.
APPEND IT_DATA.

* Call FM to generate graph for the stats
CALL FUNCTION 'GRAPH_MATRIX_3D'
EXPORTING
COL1 = 'IT Professionals'
COL2 = 'Doctors'
COL3 = 'Engineers'
TITL = 'Professional Statistics'
TABLES
DATA = IT_DATA
OPTS = IT_OPTIONS
EXCEPTIONS
OTHERS = 1.

Hierarchical ALV list

noreply@blogger.com (Harini Somaysula) — Fri, 11 Jan 2008 05:30:00 +0000

REPORT Z_FI_RP_PROFIT_CENTER_DOCS NO STANDARD PAGE HEADING
MESSAGE-ID ZMSGCLASS.
************************************************************************
* Program Name : Z_FI_RP_PROFIT_CENTER_DOCS *
* Development class : ZDEVELOPMENT *
* Description : This program displays the Accounting documents *
* and their corresponding line items based on the *
* posting keys. *
* 1. Accouting Document *
* 2. Company code *
* 3. Fiscal Year *
* 4. Document date *
* 5. Posting date *
* 6. User name *
************************************************************************
*----------------------------------------------------------------------*
* Request No. Created Date Developer name
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* TYPE-POOLS *
*----------------------------------------------------------------------*
TYPE-POOLS: SLIS. " ALV Global types

*----------------------------------------------------------------------*
* TABLES *
*----------------------------------------------------------------------*
TABLES: BKPF,
FAGLFLEXA.

*---------------------------------------------------------------------*
* DATA DECLARATIONS *
*---------------------------------------------------------------------*
DATA:LS_LAYOUT TYPE SLIS_LAYOUT_ALV,
LS_KEYINFO TYPE SLIS_KEYINFO_ALV,
LS_SORT TYPE SLIS_SORTINFO_ALV,
LT_SORT TYPE SLIS_T_SORTINFO_ALV,
LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
GT_SORT TYPE SLIS_T_SORTINFO_ALV,
T_FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV,
S_FIELDCATALOG TYPE SLIS_FIELDCAT_ALV,
FCAT TYPE SLIS_T_FIELDCAT_ALV,
LAYOUT TYPE SLIS_LAYOUT_ALV,
EVENT TYPE SLIS_T_EVENT WITH HEADER LINE,
HEAD TYPE SLIS_T_LISTHEADER WITH HEADER LINE,
ITEM TYPE SLIS_T_LISTHEADER WITH HEADER LINE,
SORT TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.
*---------------------------------------------------------------------*
* CONSTANTS *
*---------------------------------------------------------------------*
CONSTANTS :C_X TYPE C VALUE 'X',
C_IT_HEAD TYPE SLIS_TABNAME VALUE 'IT_HEAD',
C_IT_ITEM TYPE SLIS_TABNAME VALUE 'IT_ITEM',
C_K TYPE C VALUE 'K',
C_D TYPE C VALUE 'D',
C_BLN(03) TYPE C VALUE 'BLN',
C_BUK(03) TYPE C VALUE 'BUK',
C_GJR(03) TYPE C VALUE 'GJR',
C_FB03(04) TYPE C VALUE 'FB03'.
*--- Constant for FORM TOP_OF_PAGE
CONSTANTS:GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

*---------------------------------------------------------------------*
* INTERNAL TABLE DECLARATIONS *
*---------------------------------------------------------------------*
*--- Internal table declaration to hold the Accounting Document Header data
DATA: BEGIN OF IT_BKPF OCCURS 0,
BUKRS LIKE BKPF-BUKRS, " Company Code
BELNR LIKE BKPF-BELNR, " Accounting Document Number
GJAHR LIKE BKPF-GJAHR, " Fiscal Year
BLDAT LIKE BKPF-BLDAT, " Document Date in Document
BUDAT LIKE BKPF-BUDAT, " Posting Date in the Document
CPUDT LIKE BKPF-CPUDT, " Day On Which Accounting Document Was Entered
USNAM LIKE BKPF-USNAM, " User Name
END OF IT_BKPF.
*--- Internal table declaration to hold the General Ledger: Actual Line Items
DATA: BEGIN OF IT_FAGLFLEXA OCCURS 0,
DOCNR LIKE FAGLFLEXA-DOCNR, " Accounting Document Number
BUDAT LIKE FAGLFLEXA-BUDAT, " Posting Date in the Document
RYEAR LIKE FAGLFLEXA-RYEAR, " Fiscal Year
RBUKRS LIKE FAGLFLEXA-RBUKRS, " Company Code
PRCTR LIKE FAGLFLEXA-PRCTR, " Profit Center
BUZEI LIKE FAGLFLEXA-BUZEI, " Line Item No.
TSL LIKE FAGLFLEXA-TSL, " Value in Transaction Currency
HSL LIKE FAGLFLEXA-HSL, " Value in Local Currency
DRCRK LIKE FAGLFLEXA-DRCRK, " Debit/Credit Indicator
BSCHL LIKE FAGLFLEXA-BSCHL, " Posting Key
RMVCT LIKE FAGLFLEXA-RMVCT, " Transaction Type
RTCUR LIKE FAGLFLEXA-RTCUR, " Currency Key
RCNTR LIKE FAGLFLEXA-RCNTR, " Cost Center
KOKRS LIKE FAGLFLEXA-KOKRS, " Controlling Ara
SEGMENT LIKE FAGLFLEXA-SEGMENT, " Segment
RASSC LIKE FAGLFLEXA-RASSC, " Company ID of trading partner
POPER LIKE FAGLFLEXA-POPER, " Posting Period
BSTAT LIKE FAGLFLEXA-BSTAT, " Document Status
USNAM LIKE FAGLFLEXA-USNAM, " Username
END OF IT_FAGLFLEXA.
*--- Internal table declaration to hold the Posting Keys
DATA: BEGIN OF IT_TBSL OCCURS 0,
BSCHL LIKE TBSL-BSCHL, " Posting Key
KOART LIKE TBSL-KOART, " Account Type
END OF IT_TBSL.
*--- Internal table declaration to hold Accounting: Secondary Index for Vendors
DATA: BEGIN OF IT_BSIK OCCURS 0,
BUKRS LIKE BSIK-BUKRS, " Company Code
LIFNR LIKE BSIK-LIFNR, " Vendor
UMSKZ LIKE BSIK-UMSKZ, " Special G/L Indicator
GJAHR LIKE BSIK-GJAHR, " Fiscal Year
BELNR LIKE BSIK-BELNR, " Accounting Document
BUZEI LIKE BSIK-BUZEI, " Line Item
END OF IT_BSIK.
*--- Internal table declaration to hold Accounting: Secondary Index for Vendors (Cleared Items)
DATA: BEGIN OF IT_BSAK OCCURS 0,
BUKRS LIKE BSAK-BUKRS, " Company Code
LIFNR LIKE BSAK-LIFNR, " Vendor
UMSKZ LIKE BSAK-UMSKZ, " Special G/L Indicator
GJAHR LIKE BSAK-GJAHR, " Fiscal Year
BELNR LIKE BSAK-BELNR, " Accounting Document
BUZEI LIKE BSAK-BUZEI, " Line Item
END OF IT_BSAK.
*--- Internal table declaration to hold Accounting: Secondary Index for Customers
DATA: BEGIN OF IT_BSID OCCURS 0,
BUKRS LIKE BSID-BUKRS, " Company Code
KUNNR LIKE BSID-KUNNR, " Customer Number
UMSKZ LIKE BSID-UMSKZ, " Special G/L Indicator
GJAHR LIKE BSID-GJAHR, " Fiscal Year
BELNR LIKE BSID-BELNR, " Accounting Document
BUZEI LIKE BSID-BUZEI, " Line Item
END OF IT_BSID.
*--- Internal table declaration to hold Accounting: Secondary Index for Customers (Cleared Items)
DATA: BEGIN OF IT_BSAD OCCURS 0,
BUKRS LIKE BSAD-BUKRS, " Company Code
KUNNR LIKE BSAD-KUNNR, " Customer Number
UMSKZ LIKE BSAD-UMSKZ, " Special G/L Indicator
GJAHR LIKE BSAD-GJAHR, " Fiscal Year
BELNR LIKE BSAD-BELNR, " Accounting Document
BUZEI LIKE BSAD-BUZEI, " Line Item
END OF IT_BSAD.
*--- Internal table declaration to hold Accounting: Secondary Index for G/L Accounts
DATA: BEGIN OF IT_BSIS OCCURS 0,
BUKRS LIKE BSIS-BUKRS, " Company Code
HKONT LIKE BSIS-HKONT, " GL Account
GJAHR LIKE BSIS-GJAHR, " Fiscal Year
BELNR LIKE BSIS-BELNR, " Accounting Document
BUZEI LIKE BSIS-BUZEI, " Line Item
END OF IT_BSIS.
*--- Internal table declaration to hold Accounting: Secondary Index for G/L Accounts (Cleared Items)
DATA: BEGIN OF IT_BSAS OCCURS 0,
BUKRS LIKE BSAS-BUKRS, " Company Code
HKONT LIKE BSAS-HKONT, " GL Account
GJAHR LIKE BSAS-GJAHR, " Fiscal Year
BELNR LIKE BSAS-BELNR, " Accounting Document
BUZEI LIKE BSAS-BUZEI, " Line Item
END OF IT_BSAS.
*--- Internal table to hold the Header data
DATA: BEGIN OF IT_HEAD OCCURS 0,
BUKRS LIKE BKPF-BUKRS, " Company Code
BELNR LIKE BKPF-BELNR, " Accounting Document
GJAHR LIKE BKPF-GJAHR, " Fiscal Year
BLDAT LIKE BKPF-BLDAT, " Document Date
BUDAT LIKE BKPF-BUDAT, " Posting date
CPUDT LIKE BKPF-CPUDT, " Entry Date
USNAM LIKE BKPF-USNAM, " User name
END OF IT_HEAD.
*--- Internal table to hold the Item data
DATA: BEGIN OF IT_ITEM OCCURS 0.
INCLUDE STRUCTURE IT_FAGLFLEXA.
DATA: LIFNR LIKE BSIK-LIFNR, " Vendor
UMSKZ LIKE BSIK-UMSKZ, " Special GL Indicator
KUNNR LIKE BSID-KUNNR, " Customer
HKONT LIKE BSIS-HKONT, " GL Account
ACCNT_NAME LIKE SKAT-TXT50, " GL Account Name
END OF IT_ITEM.
*--- Internal table to hold Vendor descriptions
DATA: BEGIN OF IT_LFA1 OCCURS 0,
LIFNR LIKE LFA1-LIFNR, " Vendor NUmber
NAME1 LIKE LFA1-NAME1, " Vendor Name
END OF IT_LFA1.
*--- Internal table to hold Customer descriptions
DATA: BEGIN OF IT_KNA1 OCCURS 0,
KUNNR LIKE KNA1-KUNNR, " Customer Number
NAME1 LIKE KNA1-NAME1, " Customer Name
END OF IT_KNA1.
*--- Internal table to hold GL descriptions
DATA: BEGIN OF IT_SKAT OCCURS 0,
SAKNR LIKE SKAT-SAKNR, " GL Account Number
TXT50 LIKE SKAT-TXT50, " GL Account Name
END OF IT_SKAT.

*---------------------------------------------------------------------*
* SELECTION-SCREEN *
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK SCLSCR1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_BUKRS FOR BKPF-BUKRS OBLIGATORY NO-EXTENSION, " Company Code
S_BELNR FOR BKPF-BELNR, " Accounting Document Number
S_GJAHR FOR BKPF-GJAHR OBLIGATORY NO-EXTENSION, " Fiscal Year
S_BLART FOR BKPF-BLART, " Document Type
S_BLDAT FOR BKPF-BLDAT, " Document Date in Document
S_BUDAT FOR BKPF-BUDAT, " Posting Date in the Document
S_CPUDT FOR BKPF-CPUDT, " Accounting Document Entry Date
S_USNAM FOR BKPF-USNAM NO-EXTENSION, " User Name
S_PRCTR FOR FAGLFLEXA-PRCTR OBLIGATORY. " Profit Center
SELECTION-SCREEN END OF BLOCK SCLSCR1.

*---------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON S_BUKRS.
*--- Perform to validate Company code
PERFORM VALIDATE_BUKRS.

AT SELECTION-SCREEN ON S_BELNR.
*--- Perform to validate Accounting Document Number
PERFORM VALIDATE_BELNR.

AT SELECTION-SCREEN ON S_GJAHR.
*--- Perform to validate Fiscal Year
PERFORM VALIDATE_GJAHR.

AT SELECTION-SCREEN ON S_BLART.
*--- Perform to validate Document Type
PERFORM VALIDATE_BLART.

AT SELECTION-SCREEN ON S_USNAM.
*--- Perform to validate User Name
PERFORM VALIDATE_USNAM.

AT SELECTION-SCREEN ON S_PRCTR.
*--- Perform to validate User Name
PERFORM VALIDATE_PRCTR.

*---------------------------------------------------------------------*
* TOP-OF-PAGE *
*---------------------------------------------------------------------*
TOP-OF-PAGE.

*---------------------------------------------------------------------*
* START-OF-SELECTION *
*---------------------------------------------------------------------*
START-OF-SELECTION.

*--- Perform to get the Accounting Document Header data
PERFORM GET_BKPF_DATA.
*--- Perform to get the General Ledger: Actual Line Items
PERFORM GET_FAGLFLEXA_DATA.
*--- Perform to get the Posting Keys
PERFORM GET_TBSL_DATA.
*--- Perform to get the Account Information based on Posting key
PERFORM GET_ACCOUNT_INFO.
*--- Perform to get the Vendor Descriptions
PERFORM GET_LFA1_DATA.
*--- Perform to get the Customer Descriptions
PERFORM GET_KNA1_DATA.
*--- Perform to get the GL Descriptions
PERFORM GET_SKAT_DATA.

*---------------------------------------------------------------------*
* END-OF-SELECTION *
*---------------------------------------------------------------------*
END-OF-SELECTION.
*--- Perform to get the Output data
PERFORM GET_OUTPUT.
*--- Perform to Build the fieldcat to display the output in ALV format
PERFORM BUILD_FIELDCAT_ALV.
*--- Perform to display the Hierarchial ALV List
PERFORM DISPLAY_ALV_OUTPUT.

*&---------------------------------------------------------------------*
*& Form GET_BKPF_DATA
*&---------------------------------------------------------------------*
* To get the Accounting Document Header data
*----------------------------------------------------------------------*
FORM GET_BKPF_DATA.

*--- Select construct to get the Accounting Document Header data
SELECT BUKRS BELNR GJAHR BLDAT BUDAT CPUDT USNAM
FROM BKPF
INTO TABLE IT_BKPF
WHERE BUKRS IN S_BUKRS
AND BELNR IN S_BELNR
AND GJAHR IN S_GJAHR
AND BLART IN S_BLART
AND BLDAT IN S_BLDAT
AND BUDAT IN S_BUDAT
AND CPUDT IN S_CPUDT
AND USNAM IN S_USNAM.
IF SY-SUBRC = 0.
*--- Sort table IT_BKPF by Accounting document
SORT IT_BKPF BY BELNR.
ELSE.
*--- Display message if an invalid Profit Center is entered
MESSAGE S002(ZMSGCLASS)
WITH 'No data exists for the selection criteria'.
ENDIF.

ENDFORM. " GET_BKPF_DATA
*&---------------------------------------------------------------------*
*& Form GET_FAGLFLEXA_DATA
*&---------------------------------------------------------------------*
* To get the General Ledger: Actual Line Items
*----------------------------------------------------------------------*
FORM GET_FAGLFLEXA_DATA .

IF NOT IT_BKPF[] IS INITIAL.
*--- Select construct to get the General Ledger: Actual Line Items
SELECT DOCNR " Document NUmber
BUDAT " Posting Date
RYEAR " Fiscal Year
RBUKRS " Company code
PRCTR " Profit center
BUZEI " Line Item
TSL " Value in Transaction Currency
HSL " Value in Local Currency
DRCRK " Debit/Credit Indicator
BSCHL " Posting Key
RMVCT " Transaction Type
RTCUR " Currency Key
RCNTR " Cost Center
KOKRS " Controlling Area
SEGMENT " Segment for Segmental Reporting
RASSC " Company ID of trading partner
POPER " Posting period
BSTAT " Document status
USNAM " User name
FROM FAGLFLEXA
INTO TABLE IT_FAGLFLEXA
FOR ALL ENTRIES IN IT_BKPF
WHERE RYEAR = IT_BKPF-GJAHR
AND DOCNR = IT_BKPF-BELNR
AND RBUKRS = IT_BKPF-BUKRS
AND PRCTR IN S_PRCTR.
IF SY-SUBRC = 0.
*--- Sort table IT_FAGLFLEXA by Document number
SORT IT_FAGLFLEXA BY DOCNR.
ENDIF.

ENDIF.

ENDFORM. " GET_FAGLFLEXA_DATA

*&---------------------------------------------------------------------*
*& Form GET_TBSL_DATA
*&---------------------------------------------------------------------*
* To get the Posting Keys
*----------------------------------------------------------------------*
FORM GET_TBSL_DATA.

IF NOT IT_FAGLFLEXA[] IS INITIAL.
*--- Select construct to get the Posting keys
SELECT BSCHL KOART
FROM TBSL
INTO TABLE IT_TBSL
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BSCHL = IT_FAGLFLEXA-BSCHL.
IF SY-SUBRC = 0.
ENDIF.

ENDIF.

ENDFORM. " GET_TBSL_DATA
*&---------------------------------------------------------------------*
*& Form GET_ACCOUNT_INFO
*&---------------------------------------------------------------------*
* To get the Vendor/Customer/GL Account Information
*----------------------------------------------------------------------*
FORM GET_ACCOUNT_INFO .

*--- Loop to get the Vendor, Customer, G/L related data based on posting key
LOOP AT IT_TBSL.
*--- If posting key relates to Vendor
IF IT_TBSL-KOART = C_K.
PERFORM GET_BSIK_DATA.
*--- If posting key relates to Customer
ELSEIF IT_TBSL-KOART = C_D.
PERFORM GET_BSID_DATA.
*--- If posting key relates to G/L
ELSE.
PERFORM GET_BSIS_DATA.
ENDIF.
ENDLOOP.

ENDFORM. " GET_ACCOUNT_INFO

*&---------------------------------------------------------------------*
*& Form GET_BSIK_DATA
*&---------------------------------------------------------------------*
* To get the Vendor data
*----------------------------------------------------------------------*
FORM GET_BSIK_DATA .

IF NOT IT_FAGLFLEXA[] IS INITIAL.
*--- Select construct to get the Vendor and document number from BSIK
SELECT BUKRS LIFNR UMSKZ GJAHR BELNR BUZEI
FROM BSIK
INTO TABLE IT_BSIK
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

IF SY-SUBRC <> 0.
*--- If document does not exist in BSIK get from BSAK
*--- Select construct to get the Vendor and document number from BSIK
SELECT BUKRS LIFNR UMSKZ GJAHR BELNR BUZEI
FROM BSAK
INTO TABLE IT_BSAK
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

ENDIF.
ENDIF.
ENDFORM. " GET_BSIK_DATA
*&---------------------------------------------------------------------*
*& Form GET_BSID_DATA
*&---------------------------------------------------------------------*
* To get the Customer data
*----------------------------------------------------------------------*
FORM GET_BSID_DATA .

IF NOT IT_FAGLFLEXA[] IS INITIAL.
*--- Select construct to get the Vendor and document number from BSID
SELECT BUKRS KUNNR UMSKZ GJAHR BELNR BUZEI
FROM BSID
INTO TABLE IT_BSID
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

IF SY-SUBRC <> 0.
*--- If document does not exist in BSID get from BSAD
*--- Select construct to get the Vendor and document number from BSAD
SELECT BUKRS KUNNR UMSKZ GJAHR BELNR BUZEI
FROM BSAD
INTO TABLE IT_BSAD
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

ENDIF.
ENDIF.

ENDFORM. " GET_BSID_DATA
*&---------------------------------------------------------------------*
*& Form GET_BSIS_DATA
*&---------------------------------------------------------------------*
* To get the G/L data
*----------------------------------------------------------------------*
FORM GET_BSIS_DATA .

IF NOT IT_FAGLFLEXA[] IS INITIAL.
*--- Select construct to get the Vendor and document number from BSID
SELECT BUKRS HKONT GJAHR BELNR BUZEI
FROM BSIS
INTO TABLE IT_BSIS
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

IF SY-SUBRC <> 0.
*--- If document does not exist in BSID get from BSAD
*--- Select construct to get the Vendor and document number from BSAD
SELECT BUKRS HKONT GJAHR BELNR BUZEI
FROM BSAS
INTO TABLE IT_BSAS
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

ENDIF.

ENDIF.

ENDFORM. " GET_BSIS_DATA

*&---------------------------------------------------------------------*
*& Form GET_LFA1_DATA
*&---------------------------------------------------------------------*
* To get the Vendor Descriptions
*----------------------------------------------------------------------*
FORM GET_LFA1_DATA.

IF NOT IT_BSIK[] IS INITIAL.
*--- Select construct to get the Vendor Names
SELECT LIFNR NAME1
FROM LFA1
INTO TABLE IT_LFA1
FOR ALL ENTRIES IN IT_BSIK
WHERE LIFNR = IT_BSIK-LIFNR.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.

ENDFORM. " GET_LFA1_DATA
*&---------------------------------------------------------------------*
*& Form GET_KNA1_DATA
*&---------------------------------------------------------------------*
* To get the Customer descriptions
*----------------------------------------------------------------------*
FORM GET_KNA1_DATA .

IF NOT IT_BSID[] IS INITIAL.
*--- Select construct to get the Vendor Names
SELECT KUNNR NAME1
FROM KNA1
INTO TABLE IT_KNA1
FOR ALL ENTRIES IN IT_BSID
WHERE KUNNR = IT_BSID-KUNNR.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.

ENDFORM. " GET_KNA1_DATA
*&---------------------------------------------------------------------*
*& Form GET_SKAT_DATA
*&---------------------------------------------------------------------*
* To get the GL Descriptions
*----------------------------------------------------------------------*
FORM GET_SKAT_DATA .

IF NOT IT_BSIS[] IS INITIAL.
*--- Select construct to get the GL Account descriptions
SELECT SAKNR TXT50
FROM SKAT
INTO TABLE IT_SKAT
FOR ALL ENTRIES IN IT_BSIS
WHERE SAKNR = IT_BSIS-HKONT
AND SPRAS = 'EN'.

IF SY-SUBRC <> 0.
ENDIF.
ENDIF.

ENDFORM. " GET_SKAT_DATA
*&---------------------------------------------------------------------*
*& Form GET_OUTPUT
*&---------------------------------------------------------------------*
* To get the Output data
*----------------------------------------------------------------------*
FORM GET_OUTPUT.

DATA: L_LIFNR LIKE BSIK-LIFNR,
L_KUNNR LIKE BSID-KUNNR,
L_SAKNR LIKE SKAT-SAKNR.
DATA: FG_DOC TYPE C.

LOOP AT IT_BKPF.
FG_DOC = SPACE.
LOOP AT IT_FAGLFLEXA WHERE DOCNR = IT_BKPF-BELNR.
*--- Get the documents pertaining to profit center
IF FG_DOC = SPACE.
IT_HEAD-BUKRS = IT_BKPF-BUKRS.
IT_HEAD-BELNR = IT_BKPF-BELNR.
IT_HEAD-GJAHR = IT_BKPF-GJAHR.
IT_HEAD-BLDAT = IT_BKPF-BLDAT.
IT_HEAD-BUDAT = IT_BKPF-BUDAT.
IT_HEAD-CPUDT = IT_BKPF-CPUDT.
IT_HEAD-USNAM = IT_BKPF-USNAM.
APPEND IT_HEAD.
CLEAR IT_HEAD.
FG_DOC = 'X'.
ENDIF.

IT_ITEM = IT_FAGLFLEXA.

*--- Read tables BSIK to get the Vendor data
READ TABLE IT_BSIK WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
IT_ITEM-LIFNR = IT_BSIK-LIFNR.
IT_ITEM-UMSKZ = IT_BSIK-UMSKZ.
L_LIFNR = IT_BSIK-LIFNR.
ELSE.
*--- Read tables BSAK to get the Vendor data
READ TABLE IT_BSAK WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
IT_ITEM-LIFNR = IT_BSAK-LIFNR.
IT_ITEM-UMSKZ = IT_BSAK-UMSKZ.
L_LIFNR = IT_BSAK-LIFNR.
ENDIF.
ENDIF.
*---- Get the Vendor description into output table
READ TABLE IT_LFA1 WITH KEY LIFNR = L_LIFNR.
IF SY-SUBRC = 0.
IT_ITEM-ACCNT_NAME = IT_LFA1-NAME1.
ENDIF.

*--- Read tables BSID to get the Customer data
READ TABLE IT_BSID WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
IT_ITEM-KUNNR = IT_BSID-KUNNR.
IT_ITEM-UMSKZ = IT_BSID-UMSKZ.
L_KUNNR = IT_BSID-KUNNR.
ELSE.
*--- Read tables BSAD to get the Customer data
READ TABLE IT_BSAD WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
IT_ITEM-KUNNR = IT_BSAD-KUNNR.
IT_ITEM-UMSKZ = IT_BSAD-UMSKZ.
L_KUNNR = IT_BSAD-KUNNR.
ENDIF.
ENDIF.
*---- Get the Customer description into output table
READ TABLE IT_KNA1 WITH KEY KUNNR = L_KUNNR.
IF SY-SUBRC = 0.
IT_ITEM-ACCNT_NAME = IT_KNA1-NAME1.
ENDIF.

*--- Read tables BSIS to get the G/L data
READ TABLE IT_BSIS WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
L_SAKNR = IT_BSIS-HKONT.
ELSE.
*--- Read tables BSAS to get the G/L data
READ TABLE IT_BSAS WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
L_SAKNR = IT_BSAS-HKONT.
ENDIF.
ENDIF.
*--- Get the GL Account descrition into Output table
READ TABLE IT_SKAT WITH KEY SAKNR = L_SAKNR.
IF SY-SUBRC = 0.
IT_ITEM-HKONT = L_SAKNR.
IT_ITEM-ACCNT_NAME = IT_SKAT-TXT50.
ENDIF.

APPEND: IT_ITEM.
CLEAR: IT_ITEM,
L_LIFNR,
L_KUNNR,
L_SAKNR.
ENDLOOP.
ENDLOOP.

ENDFORM. " GET_OUTPUT
*&---------------------------------------------------------------------*
*& Form BUILD_FIELDCAT_ALV
*&---------------------------------------------------------------------*
* Format and display the output
*----------------------------------------------------------------------*
FORM BUILD_FIELDCAT_ALV .

DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.
DATA: S_LAYOUT TYPE SLIS_LAYOUT_ALV.

*--- Set Layout properties
LS_LAYOUT-GROUP_CHANGE_EDIT = C_X.
LS_LAYOUT-COLWIDTH_OPTIMIZE = SPACE.
LS_LAYOUT-ZEBRA = C_X.
LS_LAYOUT-DETAIL_POPUP = C_X.
LS_LAYOUT-GET_SELINFOS = C_X.

**--- Build field catalog and sort table
S_FIELDCATALOG-COL_POS = '1'.
S_FIELDCATALOG-FIELDNAME = 'BELNR'.
S_FIELDCATALOG-TABNAME = 'IT_HEAD'.
S_FIELDCATALOG-ROLLNAME = 'BELNR_D'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
S_FIELDCATALOG-SP_GROUP = 'A'.
S_FIELDCATALOG-EMPHASIZE = 'C71'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Company Code (Header data)
S_FIELDCATALOG-COL_POS = '2'.
S_FIELDCATALOG-FIELDNAME = 'BUKRS'.
S_FIELDCATALOG-TABNAME = 'IT_HEAD'.
S_FIELDCATALOG-ROLLNAME = 'BUKRS'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Fiscal year (Header data)
S_FIELDCATALOG-COL_POS = '3'.
S_FIELDCATALOG-FIELDNAME = 'GJAHR'.
S_FIELDCATALOG-TABNAME = 'IT_HEAD'.
S_FIELDCATALOG-ROLLNAME = 'GJAHR'.
S_FIELDCATALOG-OUTPUTLEN = '12'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Document Date (Header data)
S_FIELDCATALOG-COL_POS = '4'.
S_FIELDCATALOG-FIELDNAME = 'BLDAT'.
S_FIELDCATALOG-TABNAME = 'IT_HEAD'.
S_FIELDCATALOG-ROLLNAME = 'BLDAT'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Posting Date (Header data)
S_FIELDCATALOG-COL_POS = '5'.
S_FIELDCATALOG-FIELDNAME = 'BUDAT'.
S_FIELDCATALOG-TABNAME = 'IT_HEAD'.
S_FIELDCATALOG-ROLLNAME = 'BUDAT'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Document Entry Date (Header data)
S_FIELDCATALOG-COL_POS = '6'.
S_FIELDCATALOG-FIELDNAME = 'CPUDT'.
S_FIELDCATALOG-TABNAME = 'IT_HEAD'.
S_FIELDCATALOG-ROLLNAME = 'CPUDT'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for UserName (Header data)
S_FIELDCATALOG-COL_POS = '7'.
S_FIELDCATALOG-FIELDNAME = 'USNAM'.
S_FIELDCATALOG-TABNAME = 'IT_HEAD'.
S_FIELDCATALOG-ROLLNAME = 'USNAM'.
S_FIELDCATALOG-OUTPUTLEN = '12'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Document No. (Item data)
S_FIELDCATALOG-COL_POS = '1'.
S_FIELDCATALOG-FIELDNAME = 'DOCNR'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'BELNR_D'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
S_FIELDCATALOG-EMPHASIZE = 'C11'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Posting Date. (Item data)
S_FIELDCATALOG-COL_POS = '2'.
S_FIELDCATALOG-FIELDNAME = 'BUDAT'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'BUDAT'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Fiscal Year (Item data)
S_FIELDCATALOG-COL_POS = '3'.
S_FIELDCATALOG-FIELDNAME = 'RYEAR'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'RYEAR'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Company Code. (Item data)
S_FIELDCATALOG-COL_POS = '4'.
S_FIELDCATALOG-FIELDNAME = 'RBUKRS'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'BUKRS'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Profit Center (Item data)
S_FIELDCATALOG-COL_POS = '5'.
S_FIELDCATALOG-FIELDNAME = 'PRCTR'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'PRCTR'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Item No. (Item data)
S_FIELDCATALOG-COL_POS = '6'.
S_FIELDCATALOG-FIELDNAME = 'BUZEI'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'BUZEI'.
S_FIELDCATALOG-OUTPUTLEN = '3'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Value in Transaction Currency (Item data)
S_FIELDCATALOG-COL_POS = '7'.
S_FIELDCATALOG-FIELDNAME = 'TSL'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'VTCUR12'.
S_FIELDCATALOG-OUTPUTLEN = '15'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Value in Local Currency (Item data)
S_FIELDCATALOG-COL_POS = '8'.
S_FIELDCATALOG-FIELDNAME = 'HSL'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'VLCUR12'.
S_FIELDCATALOG-OUTPUTLEN = '15'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Debit/Credit Indicator (Item data)
S_FIELDCATALOG-COL_POS = '9'.
S_FIELDCATALOG-FIELDNAME = 'DRCRK'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'DRCRK'.
S_FIELDCATALOG-OUTPUTLEN = '2'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Posting Key (Item data)
S_FIELDCATALOG-COL_POS = '10'.
S_FIELDCATALOG-FIELDNAME = 'BSCHL'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'BSCHL'.
S_FIELDCATALOG-OUTPUTLEN = '4'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Vendor Number (Item data)
S_FIELDCATALOG-COL_POS = '11'.
S_FIELDCATALOG-FIELDNAME = 'LIFNR'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'LIFNR'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for (Item data)
S_FIELDCATALOG-COL_POS = '12'.
S_FIELDCATALOG-FIELDNAME = 'UMSKZ'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'UMSKZ'.
S_FIELDCATALOG-OUTPUTLEN = '3'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Customer Number (Item data)
S_FIELDCATALOG-COL_POS = '13'.
S_FIELDCATALOG-FIELDNAME = 'KUNNR'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'KUNNR'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for GL Account (Item data)
S_FIELDCATALOG-COL_POS = '14'.
S_FIELDCATALOG-FIELDNAME = 'HKONT'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'HKONT'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Account Name (Item data)
S_FIELDCATALOG-COL_POS = '15'.
S_FIELDCATALOG-FIELDNAME = 'ACCNT_NAME'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'NAME1_GP'.
S_FIELDCATALOG-OUTPUTLEN = '50'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Transaction Type (Item data)
S_FIELDCATALOG-COL_POS = '16'.
S_FIELDCATALOG-FIELDNAME = 'RMVCT'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'RMVCT'.
S_FIELDCATALOG-OUTPUTLEN = '4'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Currency Key (Item data)
S_FIELDCATALOG-COL_POS = '17'.
S_FIELDCATALOG-FIELDNAME = 'RTCUR'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'RTCUR'.
S_FIELDCATALOG-OUTPUTLEN = '5'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Cost Center (Item data)
S_FIELDCATALOG-COL_POS = '18'.
S_FIELDCATALOG-FIELDNAME = 'RCNTR'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'RCNTR'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Controlling Area (Item data)
S_FIELDCATALOG-COL_POS = '19'.
S_FIELDCATALOG-FIELDNAME = 'KOKRS'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'KOKRS'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Segment (Item data)
S_FIELDCATALOG-COL_POS = '20'.
S_FIELDCATALOG-FIELDNAME = 'SEGMENT'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'SEGMENT'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Company ID of trading partner (Item data)
S_FIELDCATALOG-COL_POS = '21'.
S_FIELDCATALOG-FIELDNAME = 'RASSC'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'RASSC'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Posting period (Item data)
S_FIELDCATALOG-COL_POS = '22'.
S_FIELDCATALOG-FIELDNAME = 'POPER'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'POPER'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for Document Status (Item data)
S_FIELDCATALOG-COL_POS = '23'.
S_FIELDCATALOG-FIELDNAME = 'BSTAT'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'BSTAT'.
S_FIELDCATALOG-OUTPUTLEN = '4'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

*--- Fieldcatalog for User Name (Item data)
S_FIELDCATALOG-COL_POS = '24'.
S_FIELDCATALOG-FIELDNAME = 'USNAM'.
S_FIELDCATALOG-TABNAME = 'IT_ITEM'.
S_FIELDCATALOG-ROLLNAME = 'USNAM'.
S_FIELDCATALOG-OUTPUTLEN = '10'.
APPEND S_FIELDCATALOG TO T_FIELDCATALOG.
CLEAR: S_FIELDCATALOG.

S_LAYOUT-SUBTOTALS_TEXT = 'SUBTOTAL TEXT'.
S_LAYOUT-KEY_HOTSPOT = 'X'.
S_LAYOUT-EXPAND_FIELDNAME = 'EXPAND'.

*--- Add events for the Hierarchial List
EVENT-NAME = 'TOP_OF_PAGE'.
EVENT-FORM = 'TOP_OF_PAGE'.
APPEND EVENT.

*--- Specifying the Key field information
LS_KEYINFO-HEADER01 = 'BELNR'.
LS_KEYINFO-ITEM01 = 'DOCNR'.
LS_KEYINFO-ITEM02 = 'RYEAR'.

ENDFORM. " BUILD_FIELDCAT_ALV
*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV_OUTPUT
*&---------------------------------------------------------------------*
* To display the ALV list output
*----------------------------------------------------------------------*
FORM DISPLAY_ALV_OUTPUT .

*--- Call function to display Hierarchical list
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-CPROG
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_EVENTS = EVENT[]
IS_LAYOUT = LS_LAYOUT
IT_FIELDCAT = T_FIELDCATALOG
I_TABNAME_HEADER = C_IT_HEAD
I_TABNAME_ITEM = C_IT_ITEM
IS_KEYINFO = LS_KEYINFO
TABLES
T_OUTTAB_HEADER = IT_HEAD
T_OUTTAB_ITEM = IT_ITEM
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.

IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " DISPLAY_ALV_OUTPUT

*&---------------------------------------------------------------------*
*& Form USER_COMMAND
*&---------------------------------------------------------------------*
* To navigate to the Document display - transaction FB03
*----------------------------------------------------------------------*
FORM USER_COMMAND USING I_UCOMM TYPE SY-UCOMM
IS_SELFIELD TYPE SLIS_SELFIELD. "#EC CALLED

DATA: LS_HEAD LIKE IT_HEAD,
LS_ITEM LIKE IT_ITEM.

*--- Check the User command
CASE I_UCOMM.
WHEN '&IC1'. " Pick
CASE IS_SELFIELD-TABNAME.
*--- Check whether selection is from HEADER data
WHEN C_IT_HEAD.
*--- Get the Values from the Header table matching the selected values
READ TABLE IT_HEAD INDEX IS_SELFIELD-TABINDEX INTO LS_HEAD.
IF SY-SUBRC EQ 0.
*--- Set the parameter IDs for BELNR and BUKRS and fill values
SET PARAMETER ID C_BLN FIELD LS_HEAD-BELNR.
SET PARAMETER ID C_BUK FIELD LS_HEAD-BUKRS.
SET PARAMETER ID C_GJR FIELD LS_HEAD-GJAHR.
*--- Call transaction for the corresponding value selected
CALL TRANSACTION C_FB03 AND SKIP FIRST SCREEN.
ENDIF.

*--- Check whether selection is from ITEM data
WHEN C_IT_ITEM.
*--- Get the Values from the Header table matching the selected values
READ TABLE IT_ITEM INDEX IS_SELFIELD-TABINDEX INTO LS_ITEM.
IF SY-SUBRC EQ 0.
*--- Set the parameter IDs for BELNR and BUKRS and fill values
SET PARAMETER ID C_BLN FIELD LS_ITEM-DOCNR.
SET PARAMETER ID C_BUK FIELD LS_ITEM-RBUKRS.
SET PARAMETER ID C_GJR FIELD LS_ITEM-RYEAR.
*--- Call transaction for the corresponding value selected
CALL TRANSACTION C_FB03 AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDCASE.

ENDFORM. " USER_COMMAND

*&---------------------------------------------------------------------*
*& Form VALIDATE_BUKRS
*&---------------------------------------------------------------------*
* To validate Company code against the check table T001
*----------------------------------------------------------------------*
FORM VALIDATE_BUKRS.

DATA: L_BUKRS LIKE BKPF-BUKRS.

IF NOT S_BUKRS[] IS INITIAL.
*--- Select Construct to check S_BUKRS against BUKRS from T001
SELECT SINGLE BUKRS
INTO L_BUKRS
FROM T001
WHERE BUKRS IN S_BUKRS.
IF SY-SUBRC <> 0.
*--- Display message if an invalid Company Code is entered
MESSAGE E002(ZMSGCLASS) WITH 'Enter a valid Company code'.
ENDIF.
ENDIF.

ENDFORM. " VALIDATE_BUKRS
*&---------------------------------------------------------------------*
*& Form VALIDATE_BELNR
*&---------------------------------------------------------------------*
* Validating the Document No. against the check table BKPF
*----------------------------------------------------------------------*
FORM VALIDATE_BELNR .

DATA: L_BELNR LIKE BKPF-BELNR.

IF NOT S_BELNR[] IS INITIAL.
*--- Select Construct to check S_BELNR against BELNR from BKPF
SELECT SINGLE BELNR
INTO L_BELNR
FROM BKPF
WHERE BELNR IN S_BELNR.
IF SY-SUBRC <> 0.
*--- Display message if an invalid Document Number is entered
MESSAGE E002(ZMSGCLASS) WITH 'Enter a valid Document Number'.
ENDIF.
ENDIF.

ENDFORM. " VALIDATE_BELNR
*&---------------------------------------------------------------------*
*& Form VALIDATE_GJAHR
*&---------------------------------------------------------------------*
* Validating the Fiscal Year against the check table BKPF
*----------------------------------------------------------------------*
FORM VALIDATE_GJAHR.

DATA: L_GJAHR LIKE BKPF-GJAHR.

IF NOT S_GJAHR[] IS INITIAL.
*--- Select Construct to check S_GJAHR against GJAHR from BKPF
SELECT SINGLE GJAHR
INTO L_GJAHR
FROM BKPF
WHERE GJAHR IN S_GJAHR.
IF SY-SUBRC <> 0.
*--- Display message if an invalid Fiscal Year is entered
MESSAGE E002(ZMSGCLASS) WITH 'Enter a valid Fiscal Year'.
ENDIF.
ENDIF.

ENDFORM. " VALIDATE_GJAHR
*&---------------------------------------------------------------------*
*& Form VALIDATE_BLART
*&---------------------------------------------------------------------*
* Validating the Document Type against T003
*----------------------------------------------------------------------*
FORM VALIDATE_BLART .

DATA: L_BLART LIKE T003-BLART.

IF NOT S_BLART[] IS INITIAL.
*--- Select Construct to check S_BELNR against BELNR from BKPF
SELECT SINGLE BLART
INTO L_BLART
FROM T003
WHERE BLART IN S_BLART.
IF SY-SUBRC <> 0.
*--- Display message if an invalid Document Type is entered
MESSAGE E002(ZMSGCLASS) WITH 'Enter a valid Document Type'.
ENDIF.
ENDIF.

ENDFORM. " VALIDATE_BLART
*&---------------------------------------------------------------------*
*& Form VALIDATE_USNAM
*&---------------------------------------------------------------------*
* Validating the Username against the check table BKPF
*----------------------------------------------------------------------*
FORM VALIDATE_USNAM .

DATA: L_USNAM LIKE BKPF-USNAM.

IF NOT S_USNAM[] IS INITIAL.
*--- Select Construct to check S_USNAM against USNAM from BKPF
SELECT SINGLE USNAM
INTO L_USNAM
FROM BKPF
WHERE USNAM IN S_USNAM.
IF SY-SUBRC <> 0.
*--- Display message if an invalid User Name is entered
MESSAGE E002(ZMSGCLASS) WITH 'Enter a valid User Name'.
ENDIF.
ENDIF.

ENDFORM. " VALIDATE_USNAM
*&---------------------------------------------------------------------*
*& Form VALIDATE_PRCTR
*&---------------------------------------------------------------------*
* Validating the Profit against the check table CEPC
*----------------------------------------------------------------------*
FORM VALIDATE_PRCTR .

DATA: L_PRCTR LIKE CEPC-PRCTR.

IF NOT S_PRCTR[] IS INITIAL.
*--- Select Construct to check S_PRCTR against PRCTR from CEPC
SELECT SINGLE PRCTR
INTO L_PRCTR
FROM CEPC
WHERE PRCTR IN S_PRCTR.
IF SY-SUBRC <> 0.
*--- Display message if an invalid Profit Center is entered
MESSAGE E002(ZMSGCLASS) WITH 'Enter a valid Profit Center'.
ENDIF.
ENDIF.

ENDFORM. " VALIDATE_PRCTR

*---------------------------------------------------------------------*
* FORM TOP_OF_PAGE *
*---------------------------------------------------------------------*
* TOP OF PAGE *
*---------------------------------------------------------------------*
FORM TOP_OF_PAGE.

DATA: V_COUNT(05) TYPE N.
DATA: L_COUNT(05) TYPE C.
DATA: V_HEADER(100) TYPE C.

*--- Get the number of Documents to be displayed
DESCRIBE TABLE IT_HEAD LINES V_COUNT.
V_COUNT = V_COUNT.
L_COUNT = V_COUNT.
CONCATENATE ' Profit center wise documents'
'Number of Documents'
V_COUNT
INTO V_HEADER SEPARATED BY ':'.

REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = V_HEADER.
APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]
* I_LOGO =
* I_END_OF_LIST_GRID =
.
ENDFORM. "TOP_OF_PAGE

ABAP Performance Standards

noreply@blogger.com (Harini Somaysula) — Wed, 09 Jan 2008 12:09:00 +0000

Run Extended syntax checks with character literals checkbox switched on & Code Inspector to rectify all relevant errors and warning (e.g. Use the results of the above checks to remove all variables/constants etc that are declared but are not used)

Transaction SE30 (ABAP Runtime Analysis) must be checked to measure/compare program performance/runtime if program has multiple inefficient databases selects or complicated internal table operations

Use transaction ST05 (SQL Trace) to see what indices your database accesses are using. Check these indices against your “where” clause to assure they are significant. Check other indices for this table and where you have to change your “where” clause to use it. Create new indices if necessary, but do not forget to check the impact by consulting onsite coordinator.

TYPE (data element) command is used while declaring the fields whenever feasible instead of LIKE. Remember not always the data element name matches with the table field name

Internal Table is defined with “TYPE STANDARD TABLE OF” & Work-Areas is used instead of header lines

Global variables are minimized by declaring local variables or by passing variables through parameters & arguments while creating internal subroutine(s)

In SELECT statement, only the required fields are selected in the same order as they reside on the database table/structure/view

For selecting single row from a database table, “SELECT UP to 1 Rows” is used. “Select Single” is used only when full primary key combination is known

No SELECT * is used

Use “SELECT INTO TABLE” rather than “SELECT INTO CORRESPONDING FIELDS OF TABLE”

Always specify as many primary keys as possible in WHERE clause to make the Select efficient

Always select into an internal table, except when the table will be very large (i.e., when the internal table will be greater than 500,000 records). Use “Up to N Rows” when the number of records needed is known

Select statement within a GET event is not used

Wild cards like ‘A%’ is avoided as much as possible

Nested Select is not used instead “Inner Join” and/or “For all Entries” is used. “For all Entries” is to be used over “Loop at ITAB / Select / ENDLOOP” (FOR ALL ENTRIES retrieves a unique result set so ensure you retrieve the full key from the database)

When creating joins over database tables there should be an index at least on the inner table for the fields in the join condition else use “ FOR ALL ENTRIES” select statement

Usage of JOIN is limited to a maximum of 2 i.e. not more than 3 database tables are joined at one time

CHECK that the internal table used in FOR ALL ENTRIES is NOT empty as this will retrieve all entries from the table

Delete adjacent duplicate entries from internal table before selection from database table using “ FOR ALL ENTRIES” statement

For copying internal tables use ‘=’ operator instead of Looping & Appending

SORT inside a LOOP is not used

Sort internal table by fields in the correct order, which are used in a READ TABLE statement using BINARY SEARCH. If the order of sorting is invalid the BINARY SEARCH will never work

For large internal tables where only some rows are to be processed, use SORT and then the READ TABLE command is used to set index to first relevant row before looping from that index. Use CHECK or IF…EXIT…ENDIF as appropriate to exit from the loop

Sort fields and Sort Order on the SORT statement should be mentioned explicitly (e.g. SORT ITAB BY FLD1 FLD2 ASCENDING)

Hashed table is used for processing large amount of data (provided that you access single records only, and all with a fully specified key)

DELETE or SORT is not used on a hashed table since it increases memory consumption

Sorted table is used for range accesses involving table key or index accesses

Fields specified in the WHERE condition with the critical operators NOT and <> (negative SQL statements) cannot be used for a search using database indexes. Whenever possible formulate SQL statements positively

When coding IF or CASE, testing conditions are nested so that the most frequently true conditions are processed first. Also CASE is used instead of IF when testing multiple fields “equal to” something

LOOP AT ITAB INTO WORKAREA WHERE K = ‘XXX’ should be used instead of LOOP AT ITAB INTO WORKAREA / CHECK ITAB-K = ‘XXX’.

Also READ TABLE INTO WORKAREA should be used instead of only READ TABLE.

After the APPEND statement inside a loop, the work area that has been appended is cleared

Internal tables, Work areas & Global Variables are freed when no longer needed (e.g. using the FREE / REFRESH command), especially when the tables are large or the program is a batch program

Do not delete the records of internal table inside the Loop – End loop.

Do not use: LOOP AT ITAB WHERE EQUNR = ‘00001011’.
DELETE ITAB.

ENDLOOP.

Use: DELETE ITAB WHERE EQUNR = ‘00001011’.

Use the MODIFY ITAB ... TRANSPORTING f1 f2 ... for single line, and MODIFY ITAB ... TRANSPORTING f1 f2 ... WHERE condition for a set of line, to accelerate the updating of internal table

If possible, Update/Insert statement is used instead of Modify

Is the following steps ensured during database updates?
• Lock data to be edited
• Read current data from the database
• Process data and write it to the database
• Release the locks set at the beginning

Try to avoid logical databases. If your program
uses a logical database, but does not require all fields belonging to a certain GET event, always use the FIELDS addition to reduce the amount of data selected by the logical database

Avoid the aggregate (Count, Max, Min) functions in the database selection

Use Parallel Cursor methods for nested loop into the internal tables if second internal table contains considerable number of records

In Smartform/ Sapscript do not make redundant data retrieval where data is available in interface

Good Link

http://www.sappoint.com/PHPWebUI/Documents/Performance%20Problems%20in%20ABAP%20Programs%20How%20to%20Find%20Them.pdf

How to update and insert database records without writing code?

noreply@blogger.com (Harini Somaysula) — Wed, 09 Jan 2008 09:50:00 +0000

Update Database Records
http://allaboutsap.blogspot.com/2008/01/how-to-update-database-records-without.html

http://www.saptechnical.com/Tips/Basis/Transport/TableEntries.htm

Creating Entries in Table when Table Maintainence is not allowed.
First set break points to both the includes LSD41F01 for case df-ddxx-mainflag and for include LSETBU03 set break point to if dd02l-mainflag = 'N'.

Now go to SE11 tcode and give the table name and press display now debug will start and take you to the case mentioned below.

CASE df-ddxx-mainflag.
during debug change the value to 'X'
and press F8 Now it will take you to the next include

LSETBU03
if dd02l-mainflag = 'N'.
Here set the value to 'X'.Now it will take you to the creation of table entries and we can give the required entries.

Search Help Step-by-Step

noreply@blogger.com (Harini Somaysula) — Wed, 09 Jan 2008 08:00:00 +0000

Creating Search Helps - Elementary & Collective

Elementary search helps define the standard flow of an input help. Components of this flow include:

* the sources data displayed in the hit list (selection method)
* information that should be displayed in the dialog box for value selection and in the hit list (search help parameters)
* field contents that can be taken into account for hit list selections and which values in the hit list can be returned to the screen fields (search help parameters)
* dialog steps that should be executed in the input help (dialog behavior)

Collective search helps can combine more than one elementary search helps. Thus enabling the user to choose one of several alternative search paths with a collective search help.

When you define a collective search help, you only have to specify the search helps that are to be combined in the collective search help. In the input help, the values are transported between the elementary search help selected by the user and the input template using the collective search help. This is why a collective search help also has an interface for transporting the values.

Creation of Search Helps: A Simple Elementary Search Help
Go to SE11 -> Select radio button "Search Help" -> enter a name

You will see a popup window (as shown below), select "Elementary Search Help" radio button and hit "Enter"

-> Enter "Short description", "Selection method**" (MARA in this case) and fields that should be displayed in the Search Help.

Selection method** You can enter the name of a table or a view (database view, projection view or help view) here. If you enter a table that has a text table, the name of the text table is automatically entered in the corresponding field.

Notice that the text table of MARA (MAKT) has automatically been included as we entered MARA in the Selection Method

-> "Save" -> "Check" -> "Activate" -> "Execute". You will see a popup window (as shown below) with all the fields you added. Press F4 on any of them to see how your first Elementary Search Help looks.

Below is how it looks.Your first Elementary Search Help is ready.

Creation of Search Helps: A Simple Collective Search Help
Go to SE11 -> Select radio button "Search Help" -> enter a name

Select "Elementary Search Help" radio button (on the popup) and hit "Enter"

-> Enter "Short description" and fields that should be displayed in the Search Help in the Definition Tab.

-> Now go to the "Included Search Helps" tab and enter the names of the Elementary Search Helps you wish to include into your Collective Search Help (ZKAR_SHLP in this case).

-> Now select the line which contains your Elementary Search Help and click on "Param. Assignment**"

Position the cursor one after the other on each allocated search help and choose Parameter assignment.

In the next screen, enter the parameter names of the elementary search helps to which the corresponding parameters of the collective search help should be assigned in the field Reference parameter. You can select the parameters contained in the included search help using the input help. Create a proposal for the assignment with Proposal.

-> "Save" -> "Check" -> "Activate" -> "Execute". You will see a popup window (as shown below) with all the fields you added. Press F4 on any of them to see how your first Collective Search Help looks.

Below is how it looks.Your first Collective Search Help is ready.

Once done, you can attach the search help to:

* A data element
* A check table
* A table field
* A screen field

ABAP Debugger

noreply@blogger.com (Harini Somaysula) — Fri, 04 Jan 2008 06:27:00 +0000

Single step(F5) - Use this option to step through the program statement by statement. This allows you to branch into subroutines and function modules, and to execute these routines step by step as well. Once a subroutine or function module has been processed, control returns to the statement following the CALL FUNCTION or PERFORM statement.

Execute(F6)- Use this option to process a program line by line. All of the statements on the current line are processed in a single step. If you are positioned on a line that calls a subroutine and you choose Execute, the Debugger processes the whole subroutine and then moves on to the line following the subroutine call.
This allows you to jump through the statements within the subroutine.

Return(F7) - The Debugger returns from a routine to the point at which control returns to the main program. Use this option to return from a subroutine, function module, or called program to the calling program.

Continue(F8)- Use this option to process the program up to the next dynamic or static breakpoint or up to the cursor position. If there are no more breakpoints in the program and no cursor has been set, the system exits debugging mode and executes the rest of the program normally.

Tables - Display the contents of internal tables.

Good Link

http://www.sappoint.com/PHPWebUI/Documents/The%20New%20ABAP%20Debugger%20-%20An%20Introduction.pdf

Using SHD0 Tcode For Creation of Variant for making permit issue button invisible

noreply@blogger.com (Harini Somaysula) — Tue, 18 Dec 2007 10:06:00 +0000

Hiding/Unhiding selection screen

noreply@blogger.com (Harini Somaysula) — Thu, 15 Nov 2007 11:59:00 +0000

*&---------------------------------------------------------------------*
*& Report Z_HRA
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_HRA.

tables: pa0000, pa0001.

parameters: p_chk1 as checkbox user-command rusr,
p_chk2 as checkbox user-command rusr,
p_chk3 as checkbox user-command rusr,
p_chk4 as checkbox user-command rusr,
p_chk5 as checkbox user-command rusr.

selection-screen: begin of block blk1 with frame.
select-options: s_pernr for pa0000-pernr modif id ABC no-extension no intervals,
s_stat2 for pa0000-stat2 modif id DEF,
s_werks for pa0001-werks modif id GHI,
s_persg for pa0001-persg modif id JKL,
s_persk for pa0001-persk modif id MNO.
selection-screen: end of block blk1.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'ABC'.
IF p_chk1 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.

IF SCREEN-GROUP1 = 'DEF'.
IF p_chk2 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.

IF SCREEN-GROUP1 = 'GHI'.
IF p_chk3 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.

IF SCREEN-GROUP1 = 'JKL'.
IF p_chk4 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.

IF SCREEN-GROUP1 = 'MNO'.
IF p_chk5 = 'X'.
SCREEN-ACTIVE = 1.
ELSE.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.

ENDLOOP.

*Titles for check boxes and select options

*P_CHK1 Personal Number
*P_CHK2 Employment Status
*P_CHK3 Personnel Area
*P_CHK4 Employee Group
*P_CHK5 Employee Sub group
*S_PERNR Personal Number
*S_PERSG Employee Group
*S_PERSK Employee Sub group
*S_STAT2 Employment Status
*S_WERKS Personnel Area

SNRO Number Range Object - Step by Step

noreply@blogger.com (The Guru Speaks) — Thu, 08 Nov 2007 08:47:00 +0000

Go to transaction SNRO (Simple way to remember is SapNumberRangeObject).

2. Enter the number range object name and press CREATE.
3. Enter the description, Long text and Number Length domain andWarning % as shown below

Warning: Assume that an interval is defined from 1 to 1000. If you want to issue a warning at the number 900, enter 10 (%) here.
4. Press SAVE. You would get a prompt as shown below:

5. Press YES and assign the object to a local class.

6. Now click on “Number Ranges” button on the application toolbar.

7. Click on “Change Intervals”.

8. Click on “Insert Interval”.

9. Enter the values as shown below:

Try this Demo program:

*&---------------------------------------------------------------------*
*& Report ZGURU_SNRO_DEMO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZGURU_SNRO_DEMO.

DATA:
NUMBER TYPE I.

CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr = '01'
object = 'ZDEMO'
IMPORTING
NUMBER = NUMBER
EXCEPTIONS
INTERVAL_NOT_FOUND = 1
NUMBER_RANGE_NOT_INTERN = 2
OBJECT_NOT_FOUND = 3
QUANTITY_IS_0 = 4
QUANTITY_IS_NOT_1 = 5
INTERVAL_OVERFLOW = 6
BUFFER_OVERFLOW = 7
OTHERS = 8.

IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Write :/ 'Next Range Number is: ', Number.

E-CLASS Learning Link

noreply@blogger.com (Harini Somaysula) — Tue, 06 Nov 2007 07:14:00 +0000

https://www.sdn.sap.com/irj/sdn/ep?rid=/webcontent/uuid/4b0c105e-0501-0010-bcb0-92478a4b2a17

Interactive Using REUSE_ALV_HIERSEQ_LIST_DISPLAY

noreply@blogger.com (Harini Somaysula) — Tue, 06 Nov 2007 07:00:00 +0000

REPORT Z_FI_RP_PROFIT_CENTER_DOCS NO STANDARD PAGE HEADING
MESSAGE-ID Z_MSGCLASS.
************************************************************************
* Program Name : Z_FI_RP_PROFIT_CENTER_DOCS *
* Description : This program displays the Accounting documents *
* and their corresponding line items based on the *
* posting keys. *
* 1. Accouting Document *
* 2. Company code *
* 3. Fiscal Year *
* 4. Document date *
* 5. Posting date *
* 6. User name *
* Functional : *
* Developer : *
* Development class : *
* *
************************************************************************

*----------------------------------------------------------------------*
* Request No. Created Date Developer name *
*----------------------------------------------------------------------*
* LD1K900601 15/07/2007
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* TYPE-POOLS *
*----------------------------------------------------------------------*
TYPE-POOLS: SLIS. " ALV Global types

*----------------------------------------------------------------------*
* TABLES *
*----------------------------------------------------------------------*
TABLES: BKPF,
FAGLFLEXA.

*---------------------------------------------------------------------*
* DATA DECLARATIONS *
*---------------------------------------------------------------------*
DATA:LS_LAYOUT TYPE SLIS_LAYOUT_ALV,
LS_KEYINFO TYPE SLIS_KEYINFO_ALV,
LS_SORT TYPE SLIS_SORTINFO_ALV,
LT_SORT TYPE SLIS_T_SORTINFO_ALV," Sort table
LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV," Field catalog
GT_SORT TYPE SLIS_T_SORTINFO_ALV.

DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

DATA:FCAT TYPE slis_t_fieldcat_alv.
DATA:LAYOUT TYPE slis_layout_alv.
DATA:EVENT TYPE slis_t_event WITH HEADER LINE.
DATA:HEAD TYPE slis_t_listheader WITH HEADER LINE.
DATA:ITEM TYPE slis_t_listheader WITH HEADER LINE.
DATA:SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE.

*---------------------------------------------------------------------*
* CONSTANTS *
*---------------------------------------------------------------------*
CONSTANTS :C_X TYPE C VALUE 'X',
C_IT_HEAD TYPE SLIS_TABNAME VALUE 'IT_HEAD',
C_IT_ITEM TYPE SLIS_TABNAME VALUE 'IT_ITEM',
C_K TYPE C VALUE 'K',
C_D TYPE C VALUE 'D',
C_BLN(03) TYPE C VALUE 'BLN',
C_BUK(03) TYPE C VALUE 'BUK',
C_GJR(03) TYPE C VALUE 'GJR',
C_FB03(04) TYPE C VALUE 'FB03'.

CONSTANTS:GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

*---------------------------------------------------------------------*
* INTERNAL TABLE DECLARATIONS *
*---------------------------------------------------------------------*
*--- Internal table declaration to hold the Accounting Document Header data
DATA: BEGIN OF IT_BKPF OCCURS 0,
BUKRS LIKE BKPF-BUKRS,
BELNR LIKE BKPF-BELNR,
GJAHR LIKE BKPF-GJAHR,
BLDAT LIKE BKPF-BLDAT,
BUDAT LIKE BKPF-BUDAT,
cpudt like bkpf-cpudt,
USNAM LIKE BKPF-USNAM,
END OF IT_BKPF.

*--- Internal table declaration to hold the General Ledger: Actual Line Items
DATA: BEGIN OF IT_FAGLFLEXA OCCURS 0,
DOCNR LIKE FAGLFLEXA-DOCNR,
BUDAT LIKE FAGLFLEXA-BUDAT,
RYEAR LIKE FAGLFLEXA-RYEAR,
RBUKRS LIKE FAGLFLEXA-RBUKRS,
PRCTR LIKE FAGLFLEXA-PRCTR,
BUZEI LIKE FAGLFLEXA-BUZEI,
TSL LIKE FAGLFLEXA-TSL,
HSL LIKE FAGLFLEXA-HSL,
DRCRK LIKE FAGLFLEXA-DRCRK,
BSCHL LIKE FAGLFLEXA-BSCHL,
RMVCT LIKE FAGLFLEXA-RMVCT,
RTCUR LIKE FAGLFLEXA-RTCUR,
RCNTR LIKE FAGLFLEXA-RCNTR,
KOKRS LIKE FAGLFLEXA-KOKRS,
SEGMENT LIKE FAGLFLEXA-SEGMENT,
RASSC LIKE FAGLFLEXA-RASSC,
POPER LIKE FAGLFLEXA-POPER,
BSTAT LIKE FAGLFLEXA-BSTAT,
USNAM LIKE FAGLFLEXA-USNAM,
END OF IT_FAGLFLEXA.

*--- Internal table declaration to hold the Posting Keys
DATA: BEGIN OF IT_TBSL OCCURS 0,
BSCHL LIKE TBSL-BSCHL,
KOART LIKE TBSL-KOART,
END OF IT_TBSL.

*--- Internal table declaration to hold Accounting: Secondary Index for Vendors
DATA: BEGIN OF IT_BSIK OCCURS 0,
BUKRS LIKE BSIK-BUKRS,
LIFNR LIKE BSIK-LIFNR,
UMSKZ LIKE BSIK-UMSKZ,
GJAHR LIKE BSIK-GJAHR,
BELNR LIKE BSIK-BELNR,
BUZEI LIKE BSIK-BUZEI,
END OF IT_BSIK.

*--- Internal table declaration to hold Accounting: Secondary Index for Vendors (Cleared Items)
DATA: BEGIN OF IT_BSAK OCCURS 0,
BUKRS LIKE BSAK-BUKRS,
LIFNR LIKE BSAK-LIFNR,
UMSKZ LIKE BSAK-UMSKZ,
GJAHR LIKE BSAK-GJAHR,
BELNR LIKE BSAK-BELNR,
BUZEI LIKE BSAK-BUZEI,
END OF IT_BSAK.

*--- Internal table declaration to hold Accounting: Secondary Index for Customers
DATA: BEGIN OF IT_BSID OCCURS 0,
BUKRS LIKE BSID-BUKRS,
KUNNR LIKE BSID-KUNNR,
UMSKZ LIKE BSID-UMSKZ,
GJAHR LIKE BSID-GJAHR,
BELNR LIKE BSID-BELNR,
BUZEI LIKE BSID-BUZEI,
END OF IT_BSID.

*--- Internal table declaration to hold Accounting: Secondary Index for Customers (Cleared Items)
DATA: BEGIN OF IT_BSAD OCCURS 0,
BUKRS LIKE BSAD-BUKRS,
KUNNR LIKE BSAD-KUNNR,
UMSKZ LIKE BSAD-UMSKZ,
GJAHR LIKE BSAD-GJAHR,
BELNR LIKE BSAD-BELNR,
BUZEI LIKE BSAD-BUZEI,
END OF IT_BSAD.

*--- Internal table declaration to hold Accounting: Secondary Index for G/L Accounts
DATA: BEGIN OF IT_BSIS OCCURS 0,
BUKRS LIKE BSIS-BUKRS,
HKONT LIKE BSIS-HKONT,
GJAHR LIKE BSIS-GJAHR,
BELNR LIKE BSIS-BELNR,
BUZEI LIKE BSIS-BUZEI,
END OF IT_BSIS.

*--- Internal table declaration to hold Accounting: Secondary Index for G/L Accounts (Cleared Items)
DATA: BEGIN OF IT_BSAS OCCURS 0,
BUKRS LIKE BSAS-BUKRS,
HKONT LIKE BSAS-HKONT,
GJAHR LIKE BSAS-GJAHR,
BELNR LIKE BSAS-BELNR,
BUZEI LIKE BSAS-BUZEI,
END OF IT_BSAS.

*--- Internal table to hold the Header data
DATA: BEGIN OF IT_HEAD OCCURS 0,
BUKRS LIKE BKPF-BUKRS,
BELNR LIKE BKPF-BELNR,
GJAHR LIKE BKPF-GJAHR,
BLDAT LIKE BKPF-BLDAT,
BUDAT LIKE BKPF-BUDAT,
cpudt like bkpf-cpudt,
USNAM LIKE BKPF-USNAM,
END OF IT_HEAD.

*--- Internal table to hold the Item data
DATA: BEGIN OF IT_ITEM OCCURS 0.
INCLUDE STRUCTURE IT_FAGLFLEXA.
DATA: LIFNR LIKE BSIK-LIFNR,
UMSKZ LIKE BSIK-UMSKZ,
KUNNR LIKE BSID-KUNNR,
HKONT LIKE BSIS-HKONT,
*DATA: ACCNT_NUM(10) TYPE C,
ACCNT_NAME LIKE SKAT-TXT50,
END OF IT_ITEM.

*--- Internal table to hold Vendor descriptions
DATA: BEGIN OF IT_LFA1 OCCURS 0,
LIFNR LIKE LFA1-LIFNR,
NAME1 LIKE LFA1-NAME1,
END OF IT_LFA1.

*--- Internal table to hold Customer descriptions
DATA: BEGIN OF IT_KNA1 OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
NAME1 LIKE KNA1-NAME1,
END OF IT_KNA1.

*--- Internal table to hold GL descriptions
DATA: BEGIN OF IT_SKAT OCCURS 0,
SAKNR LIKE SKAT-SAKNR,
TXT50 LIKE SKAT-TXT50,
END OF IT_SKAT.

*---------------------------------------------------------------------*
* SELECTION-SCREEN *
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK SCLSCR1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_BUKRS FOR BKPF-BUKRS OBLIGATORY NO-EXTENSION, " Company Code
S_BELNR FOR BKPF-BELNR, " Accounting Document Number
S_GJAHR FOR BKPF-GJAHR OBLIGATORY NO-EXTENSION, " Fiscal Year
S_BLART FOR BKPF-BLART, " Document Type
S_BLDAT FOR BKPF-BLDAT, " Document Date in Document
S_BUDAT FOR BKPF-BUDAT, " Posting Date in the Document
s_cpudt for bkpf-cpudt,
S_USNAM FOR BKPF-USNAM NO-EXTENSION, " User Name
S_PRCTR FOR FAGLFLEXA-PRCTR OBLIGATORY. " Profit Center
SELECTION-SCREEN END OF BLOCK SCLSCR1.

*---------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON S_BUKRS.
*--- Perform to validate Company code
PERFORM VALIDATE_BUKRS.

AT SELECTION-SCREEN ON S_BELNR.
*--- Perform to validate Accounting Document Number
PERFORM VALIDATE_BELNR.

AT SELECTION-SCREEN ON S_GJAHR.
*--- Perform to validate Fiscal Year
PERFORM VALIDATE_GJAHR.

AT SELECTION-SCREEN ON S_BLART.
*--- Perform to validate Document Type
PERFORM VALIDATE_BLART.

AT SELECTION-SCREEN ON S_USNAM.
*--- Perform to validate User Name
PERFORM VALIDATE_USNAM.

AT SELECTION-SCREEN ON S_PRCTR.
*--- Perform to validate User Name
PERFORM VALIDATE_PRCTR.

*---------------------------------------------------------------------*
* TOP-OF-PAGE *
*---------------------------------------------------------------------*
TOP-OF-PAGE.

*---------------------------------------------------------------------*
* START-OF-SELECTION *
*---------------------------------------------------------------------*
START-OF-SELECTION.

*--- Perform to get the Accounting Document Header data
PERFORM GET_BKPF_DATA.
*--- Perform to get the General Ledger: Actual Line Items
PERFORM GET_FAGLFLEXA_DATA.
*--- Perform to get the Posting Keys
PERFORM GET_TBSL_DATA.
*--- Perform to get the Account Information based on Posting key
PERFORM GET_ACCOUNT_INFO.
*--- Perform to get the Vendor Descriptions
PERFORM GET_LFA1_DATA.
*--- Perform to get the Customer Descriptions
PERFORM GET_KNA1_DATA.
*--- Perform to get the GL Descriptions
PERFORM GET_SKAT_DATA.

*---------------------------------------------------------------------*
* END-OF-SELECTION *
*---------------------------------------------------------------------*
END-OF-SELECTION.
*--- Perform to get the Output data
PERFORM GET_OUTPUT.
*--- Perform to Build the fieldcat to display the output in ALV format
PERFORM BUILD_FIELDCAT_ALV.
*--- Perform to display the Hierarchial ALV List
PERFORM DISPLAY_ALV_OUTPUT.

*&---------------------------------------------------------------------*
*& Form GET_BKPF_DATA
*&---------------------------------------------------------------------*
* To get the Accounting Document Header data
*----------------------------------------------------------------------*
FORM GET_BKPF_DATA.

*--- Select construct to get the Accounting Document Header data
SELECT BUKRS BELNR GJAHR BLDAT BUDAT cpudt USNAM
FROM BKPF
INTO TABLE IT_BKPF
WHERE BUKRS IN S_BUKRS
AND BELNR IN S_BELNR
AND GJAHR IN S_GJAHR
AND BLART IN S_BLART
AND BLDAT IN S_BLDAT
AND BUDAT IN S_BUDAT
and cpudt in s_cpudt
AND USNAM IN S_USNAM.

IF SY-SUBRC = 0.
SORT IT_BKPF BY BELNR.
ELSE.
*--- Display message if an invalid Profit Center is entered
MESSAGE S002(Z_MSGCLASS)
WITH 'No data exists with selection criteria'.
ENDIF.

ENDFORM. " GET_BKPF_DATA
*&---------------------------------------------------------------------*
*& Form GET_FAGLFLEXA_DATA
*&---------------------------------------------------------------------*
* To get the General Ledger: Actual Line Items
*----------------------------------------------------------------------*
FORM GET_FAGLFLEXA_DATA .

IF NOT IT_BKPF[] IS INITIAL.
*--- Select construct to get the General Ledger: Actual Line Items
SELECT DOCNR " Document NUmber
BUDAT " Posting Date
RYEAR " Fiscal Year
RBUKRS " Company code
PRCTR " Profit center
BUZEI " Line Item
TSL " Value in Transaction Currency
HSL " Value in Local Currency
DRCRK " Debit/Credit Indicator
BSCHL " Posting Key
RMVCT " Transaction Type
RTCUR " Currency Key
RCNTR " Cost Center
KOKRS " Controlling Area
SEGMENT " Segment for Segmental Reporting
RASSC " Company ID of trading partner
POPER " Posting period
BSTAT " Document status
USNAM " User name
FROM FAGLFLEXA
INTO TABLE IT_FAGLFLEXA
FOR ALL ENTRIES IN IT_BKPF
WHERE RYEAR = IT_BKPF-GJAHR
AND DOCNR = IT_BKPF-BELNR
AND RBUKRS = IT_BKPF-BUKRS
AND PRCTR IN S_PRCTR.
IF SY-SUBRC = 0.
SORT IT_FAGLFLEXA BY DOCNR.
ENDIF.

ENDIF.

ENDFORM. " GET_FAGLFLEXA_DATA

*&---------------------------------------------------------------------*
*& Form GET_TBSL_DATA
*&---------------------------------------------------------------------*
* To get the Posting Keys
*----------------------------------------------------------------------*
FORM GET_TBSL_DATA.

IF NOT IT_FAGLFLEXA[] IS INITIAL.
*--- Select construct to get the Posting keys
SELECT BSCHL KOART
FROM TBSL
INTO TABLE IT_TBSL
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BSCHL = IT_FAGLFLEXA-BSCHL.

IF SY-SUBRC = 0.
ENDIF.

ENDIF.

ENDFORM. " GET_TBSL_DATA
*&---------------------------------------------------------------------*
*& Form GET_ACCOUNT_INFO
*&---------------------------------------------------------------------*
* To get the Vendor/Customer/GL Account Information
*----------------------------------------------------------------------*
FORM GET_ACCOUNT_INFO .

*--- Loop to get the Vendor, Customer, G/L related data based on posting key
LOOP AT IT_TBSL.
*--- If posting key relates to Vendor
IF IT_TBSL-KOART = C_K.
PERFORM GET_BSIK_DATA.
*--- If posting key relates to Customer
ELSEIF IT_TBSL-KOART = C_D.
PERFORM GET_BSID_DATA.
*--- If posting key relates to G/L
ELSE.
PERFORM GET_BSIS_DATA.
ENDIF.
ENDLOOP.

ENDFORM. " GET_ACCOUNT_INFO

*&---------------------------------------------------------------------*
*& Form GET_BSIK_DATA
*&---------------------------------------------------------------------*
* To get the Vendor data
*----------------------------------------------------------------------*
FORM GET_BSIK_DATA .

IF NOT IT_FAGLFLEXA[] IS INITIAL.
*--- Select construct to get the Vendor and document number from BSIK
SELECT BUKRS LIFNR UMSKZ GJAHR BELNR BUZEI
FROM BSIK
INTO TABLE IT_BSIK
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

IF SY-SUBRC <> 0.
*--- If document does not exist in BSIK get from BSAK
*--- Select construct to get the Vendor and document number from BSIK
SELECT BUKRS LIFNR UMSKZ GJAHR BELNR BUZEI
FROM BSAK
INTO TABLE IT_BSAK
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

ENDIF.
ENDIF.
ENDFORM. " GET_BSIK_DATA
*&---------------------------------------------------------------------*
*& Form GET_BSID_DATA
*&---------------------------------------------------------------------*
* To get the Customer data
*----------------------------------------------------------------------*
FORM GET_BSID_DATA .

IF NOT IT_FAGLFLEXA[] IS INITIAL.
*--- Select construct to get the Vendor and document number from BSID
SELECT BUKRS KUNNR UMSKZ GJAHR BELNR BUZEI
FROM BSID
INTO TABLE IT_BSID
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

IF SY-SUBRC <> 0.
*--- If document does not exist in BSID get from BSAD
*--- Select construct to get the Vendor and document number from BSAD
SELECT BUKRS KUNNR UMSKZ GJAHR BELNR BUZEI
FROM BSAD
INTO TABLE IT_BSAD
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

ENDIF.
ENDIF.

ENDFORM. " GET_BSID_DATA
*&---------------------------------------------------------------------*
*& Form GET_BSIS_DATA
*&---------------------------------------------------------------------*
* To get the G/L data
*----------------------------------------------------------------------*
FORM GET_BSIS_DATA .

IF NOT IT_FAGLFLEXA[] IS INITIAL.
*--- Select construct to get the Vendor and document number from BSID
SELECT BUKRS HKONT GJAHR BELNR BUZEI
FROM BSIS
INTO TABLE IT_BSIS
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

IF SY-SUBRC <> 0.
*--- If document does not exist in BSID get from BSAD
*--- Select construct to get the Vendor and document number from BSAD
SELECT BUKRS HKONT GJAHR BELNR BUZEI
FROM BSAS
INTO TABLE IT_BSAS
FOR ALL ENTRIES IN IT_FAGLFLEXA
WHERE BUKRS = IT_FAGLFLEXA-RBUKRS
AND GJAHR = IT_FAGLFLEXA-RYEAR
AND BELNR = IT_FAGLFLEXA-DOCNR
AND BUZEI = IT_FAGLFLEXA-BUZEI.

ENDIF.

ENDIF.

ENDFORM. " GET_BSIS_DATA

*&---------------------------------------------------------------------*
*& Form GET_LFA1_DATA
*&---------------------------------------------------------------------*
* To get the Vendor Descriptions
*----------------------------------------------------------------------*
FORM GET_LFA1_DATA.

IF NOT IT_BSIK[] IS INITIAL.
*--- Select construct to get the Vendor Names
SELECT LIFNR NAME1
FROM LFA1
INTO TABLE IT_LFA1
FOR ALL ENTRIES IN IT_BSIK
WHERE LIFNR = IT_BSIK-LIFNR.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.

ENDFORM. " GET_LFA1_DATA
*&---------------------------------------------------------------------*
*& Form GET_KNA1_DATA
*&---------------------------------------------------------------------*
* To get the Customer descriptions
*----------------------------------------------------------------------*
FORM GET_KNA1_DATA .

IF NOT IT_BSID[] IS INITIAL.
*--- Select construct to get the Vendor Names
SELECT KUNNR NAME1
FROM KNA1
INTO TABLE IT_KNA1
FOR ALL ENTRIES IN IT_BSID
WHERE KUNNR = IT_BSID-KUNNR.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.

ENDFORM. " GET_KNA1_DATA
*&---------------------------------------------------------------------*
*& Form GET_SKAT_DATA
*&---------------------------------------------------------------------*
* To get the GL Descriptions
*----------------------------------------------------------------------*
FORM GET_SKAT_DATA .

IF NOT IT_BSIS[] IS INITIAL.
*--- Select construct to get the GL Account descriptions
SELECT SAKNR TXT50
FROM SKAT
INTO TABLE IT_SKAT
FOR ALL ENTRIES IN IT_BSIS
WHERE SAKNR = IT_BSIS-HKONT
AND SPRAS = 'EN'.

if sy-subrc <> 0.
endif.
ENDIF.

ENDFORM. " GET_SKAT_DATA
*&---------------------------------------------------------------------*
*& Form GET_OUTPUT
*&---------------------------------------------------------------------*
* To get the Output data
*----------------------------------------------------------------------*
FORM GET_OUTPUT.

DATA: L_LIFNR LIKE BSIK-LIFNR,
L_KUNNR LIKE BSID-KUNNR,
L_SAKNR LIKE SKAT-SAKNR.
DATA: FG_DOC TYPE C.

LOOP AT IT_BKPF.
FG_DOC = SPACE.
LOOP AT IT_FAGLFLEXA WHERE DOCNR = IT_BKPF-BELNR.
*--- Get the documents pertaining to profit center
IF FG_DOC = SPACE.
IT_HEAD-BUKRS = IT_BKPF-BUKRS.
IT_HEAD-BELNR = IT_BKPF-BELNR.
IT_HEAD-GJAHR = IT_BKPF-GJAHR.
IT_HEAD-BLDAT = IT_BKPF-BLDAT.
IT_HEAD-BUDAT = IT_BKPF-BUDAT.
it_head-cpudt = it_bkpf-cpudt.
IT_HEAD-USNAM = IT_BKPF-USNAM.
APPEND IT_HEAD.
CLEAR IT_HEAD.
FG_DOC = 'X'.
ENDIF.

IT_ITEM = IT_FAGLFLEXA.

*--- Read tables BSIk or BSAK to get the Vendor data
READ TABLE IT_BSIK WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
IT_ITEM-LIFNR = IT_BSIK-LIFNR.
IT_ITEM-UMSKZ = IT_BSIK-UMSKZ.
L_LIFNR = IT_BSIK-LIFNR.
ELSE.
READ TABLE IT_BSAK WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
IT_ITEM-LIFNR = IT_BSAK-LIFNR.
IT_ITEM-UMSKZ = IT_BSAK-UMSKZ.
L_LIFNR = IT_BSAK-LIFNR.
ENDIF.
ENDIF.
*---- Get the Vendor description into output table
READ TABLE IT_LFA1 WITH KEY LIFNR = L_LIFNR.
IF SY-SUBRC = 0.
IT_ITEM-ACCNT_NAME = IT_LFA1-NAME1.
ENDIF.

*--- Read tables BSID or BSAD to get the Customer data
READ TABLE IT_BSID WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
IT_ITEM-KUNNR = IT_BSID-KUNNR.
IT_ITEM-UMSKZ = IT_BSID-UMSKZ.
L_KUNNR = IT_BSID-KUNNR.
ELSE.
READ TABLE IT_BSAD WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
IT_ITEM-KUNNR = IT_BSAD-KUNNR.
IT_ITEM-UMSKZ = IT_BSAD-UMSKZ.
L_KUNNR = IT_BSAD-KUNNR.
ENDIF.
ENDIF.
*---- Get the Customer description into output table
READ TABLE IT_KNA1 WITH KEY KUNNR = L_KUNNR.
IF SY-SUBRC = 0.
IT_ITEM-ACCNT_NAME = IT_KNA1-NAME1.
ENDIF.

*--- Read tables BSIS or BSAS to get the G/L data
READ TABLE IT_BSIS WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
L_SAKNR = IT_BSIS-HKONT.
ELSE.
READ TABLE IT_BSAS WITH KEY BELNR = IT_FAGLFLEXA-DOCNR
BUZEI = IT_FAGLFLEXA-BUZEI.
IF SY-SUBRC = 0.
L_SAKNR = IT_BSAS-HKONT.
ENDIF.
ENDIF.
*--- Get the GL Account descrition into Output table
READ TABLE IT_SKAT WITH KEY SAKNR = L_SAKNR.
IF SY-SUBRC = 0.
IT_ITEM-HKONT = L_SAKNR.
IT_ITEM-ACCNT_NAME = IT_SKAT-TXT50.
ENDIF.

APPEND: IT_ITEM.
CLEAR: IT_ITEM,
L_LIFNR,
L_KUNNR,
L_SAKNR.
ENDLOOP.
ENDLOOP.

ENDFORM. " GET_OUTPUT
*&---------------------------------------------------------------------*
*& Form BUILD_FIELDCAT_ALV
*&---------------------------------------------------------------------*
* Format and display the output
*----------------------------------------------------------------------*
FORM BUILD_FIELDCAT_ALV .

DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.

*--- Set Layout properties
LS_LAYOUT-GROUP_CHANGE_EDIT = C_X.
LS_LAYOUT-COLWIDTH_OPTIMIZE = SPACE.
LS_LAYOUT-ZEBRA = C_X.
LS_LAYOUT-DETAIL_POPUP = C_X.
LS_LAYOUT-GET_SELINFOS = C_X.

**--- Build field catalog and sort table
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'BELNR'.
s_fieldcatalog-tabname = 'IT_HEAD'.
s_fieldcatalog-rollname = 'BELNR_D'.
s_fieldcatalog-outputlen = '10'.
s_fieldcatalog-SP_GROUP = 'A'.
s_fieldcatalog-EMPHASIZE = 'C71'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BUKRS'.
s_fieldcatalog-tabname = 'IT_HEAD'.
s_fieldcatalog-rollname = 'BUKRS'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'GJAHR'.
s_fieldcatalog-tabname = 'IT_HEAD'.
s_fieldcatalog-rollname = 'GJAHR'.
s_fieldcatalog-outputlen = '12'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'BLDAT'.
s_fieldcatalog-tabname = 'IT_HEAD'.
s_fieldcatalog-rollname = 'BLDAT'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '5'.
s_fieldcatalog-fieldname = 'BUDAT'.
s_fieldcatalog-tabname = 'IT_HEAD'.
s_fieldcatalog-rollname = 'BUDAT'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '6'.
s_fieldcatalog-fieldname = 'CPUDT'.
s_fieldcatalog-tabname = 'IT_HEAD'.
s_fieldcatalog-rollname = 'CPUDT'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '7'.
s_fieldcatalog-fieldname = 'USNAM'.
s_fieldcatalog-tabname = 'IT_HEAD'.
s_fieldcatalog-rollname = 'USNAM'.
s_fieldcatalog-outputlen = '12'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'DOCNR'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'BELNR_D'.
s_fieldcatalog-outputlen = '10'.
s_fieldcatalog-EMPHASIZE = 'C11'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BUDAT'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'BUDAT'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'RYEAR'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'RYEAR'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'RBUKRS'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'BUKRS'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '5'.
s_fieldcatalog-fieldname = 'PRCTR'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'PRCTR'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '6'.
s_fieldcatalog-fieldname = 'BUZEI'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'BUZEI'.
s_fieldcatalog-outputlen = '3'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '7'.
s_fieldcatalog-fieldname = 'TSL'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'VTCUR12'.
s_fieldcatalog-outputlen = '15'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '8'.
s_fieldcatalog-fieldname = 'HSL'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'VLCUR12'.
s_fieldcatalog-outputlen = '15'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '9'.
s_fieldcatalog-fieldname = 'DRCRK'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'DRCRK'.
s_fieldcatalog-outputlen = '2'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '10'.
s_fieldcatalog-fieldname = 'BSCHL'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'BSCHL'.
s_fieldcatalog-outputlen = '4'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '11'.
s_fieldcatalog-fieldname = 'LIFNR'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'LIFNR'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '12'.
s_fieldcatalog-fieldname = 'UMSKZ'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'UMSKZ'.
s_fieldcatalog-outputlen = '3'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '13'.
s_fieldcatalog-fieldname = 'KUNNR'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'KUNNR'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '14'.
s_fieldcatalog-fieldname = 'HKONT'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'HKONT'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '15'.
s_fieldcatalog-fieldname = 'ACCNT_NAME'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'NAME1_GP'.
s_fieldcatalog-outputlen = '50'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '16'.
s_fieldcatalog-fieldname = 'RMVCT'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'RMVCT'.
s_fieldcatalog-outputlen = '4'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '17'.
s_fieldcatalog-fieldname = 'RTCUR'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'RTCUR'.
s_fieldcatalog-outputlen = '5'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '18'.
s_fieldcatalog-fieldname = 'RCNTR'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'RCNTR'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '19'.
s_fieldcatalog-fieldname = 'KOKRS'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'KOKRS'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '20'.
s_fieldcatalog-fieldname = 'SEGMENT'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'SEGMENT'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '21'.
s_fieldcatalog-fieldname = 'RASSC'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'RASSC'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '22'.
s_fieldcatalog-fieldname = 'POPER'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'POPER'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '23'.
s_fieldcatalog-fieldname = 'BSTAT'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'BSTAT'.
s_fieldcatalog-outputlen = '4'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '24'.
s_fieldcatalog-fieldname = 'USNAM'.
s_fieldcatalog-tabname = 'IT_ITEM'.
s_fieldcatalog-rollname = 'USNAM'.
s_fieldcatalog-outputlen = '10'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.

DATA: s_layout TYPE slis_layout_alv.

s_layout-subtotals_text = 'SUBTOTAL TEXT'.
s_layout-key_hotspot = 'X'.
s_layout-expand_fieldname = 'EXPAND'.

*--- Add events for the Hierarchial List
EVENT-NAME = 'TOP_OF_PAGE'.
EVENT-FORM = 'TOP_OF_PAGE'.
APPEND EVENT.

*--- Specifying the Key field information
LS_KEYINFO-HEADER01 = 'BELNR'.
LS_KEYINFO-ITEM01 = 'DOCNR'.
LS_KEYINFO-ITEM02 = 'RYEAR'.

ENDFORM. " BUILD_FIELDCAT_ALV
*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV_OUTPUT
*&---------------------------------------------------------------------*
* To display the ALV list output
*----------------------------------------------------------------------*
FORM DISPLAY_ALV_OUTPUT .

*--- Call function to display Hierarchical list
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-CPROG
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_EVENTS = EVENT[]
IS_LAYOUT = LS_LAYOUT
IT_FIELDCAT = t_fieldcatalog
I_TABNAME_HEADER = C_IT_HEAD
I_TABNAME_ITEM = C_IT_ITEM
IS_KEYINFO = LS_KEYINFO
TABLES
T_OUTTAB_HEADER = IT_HEAD
T_OUTTAB_ITEM = IT_ITEM
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.

IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " DISPLAY_ALV_OUTPUT

*&---------------------------------------------------------------------*
*& Form USER_COMMAND
*&---------------------------------------------------------------------*
* To navigate to the Document display - transaction FB03
*----------------------------------------------------------------------*
FORM USER_COMMAND USING I_UCOMM TYPE SY-UCOMM
IS_SELFIELD TYPE SLIS_SELFIELD. "#EC CALLED

DATA: LS_HEAD LIKE IT_HEAD,
LS_ITEM LIKE IT_ITEM.

*--- Check the User command
CASE I_UCOMM.
WHEN '&IC1'. " Pick
CASE IS_SELFIELD-TABNAME.
*--- Check whether selection is from HEADER data
WHEN C_IT_HEAD.
*--- Get the Values from the Header table matching the selected values
READ TABLE IT_HEAD INDEX IS_SELFIELD-TABINDEX INTO LS_HEAD.
IF SY-SUBRC EQ 0.
*--- Set the parameter IDs for BELNR and BUKRS and fill values
SET PARAMETER ID C_BLN FIELD LS_HEAD-BELNR.
SET PARAMETER ID C_BUK FIELD LS_HEAD-BUKRS.
SET PARAMETER ID C_GJR FIELD LS_HEAD-GJAHR.
*--- Call transaction for the corresponding value selected
CALL TRANSACTION C_FB03 AND SKIP FIRST SCREEN.
ENDIF.

*--- Check whether selection is from ITEM data
WHEN C_IT_ITEM.
*--- Get the Values from the Header table matching the selected values
READ TABLE IT_ITEM INDEX IS_SELFIELD-TABINDEX INTO LS_ITEM.
IF SY-SUBRC EQ 0.
*--- Set the parameter IDs for BELNR and BUKRS and fill values
SET PARAMETER ID C_BLN FIELD LS_ITEM-DOCNR.
SET PARAMETER ID C_BUK FIELD LS_ITEM-RBUKRS.
SET PARAMETER ID C_GJR FIELD LS_ITEM-RYEAR.
*--- Call transaction for the corresponding value selected
CALL TRANSACTION C_FB03 AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDCASE.

ENDFORM. " USER_COMMAND

*&---------------------------------------------------------------------*
*& Form VALIDATE_BUKRS
*&---------------------------------------------------------------------*
* To validate Company code against the check table T001
*----------------------------------------------------------------------*
FORM VALIDATE_BUKRS.

DATA: L_BUKRS LIKE BKPF-BUKRS.

IF NOT S_BUKRS[] IS INITIAL.
*--- Select Construct to check S_BUKRS against BUKRS from T001
SELECT SINGLE BUKRS
INTO L_BUKRS
FROM T001
WHERE BUKRS IN S_BUKRS.

IF SY-SUBRC <> 0.
*--- Display message if an invalid Billing Document is entered
MESSAGE E002(Z_MSGCLASS)
WITH 'Enter a valid Company code'.
ENDIF.

ENDIF.

ENDFORM. " VALIDATE_BUKRS
*&---------------------------------------------------------------------*
*& Form VALIDATE_BELNR
*&---------------------------------------------------------------------*
* Validating the Document No. against the check table BKPF
*----------------------------------------------------------------------*
FORM VALIDATE_BELNR .

DATA: L_BELNR LIKE BKPF-BELNR.

IF NOT S_BELNR[] IS INITIAL.
*--- Select Construct to check S_BELNR against BELNR from BKPF
SELECT SINGLE BELNR
INTO L_BELNR
FROM BKPF
WHERE BELNR IN S_BELNR.

IF SY-SUBRC <> 0.
*--- Display message if an invalid Document Number is entered
MESSAGE E002(Z_MSGCLASS)
WITH 'Enter a valid Document Number'.
ENDIF.

ENDIF.

ENDFORM. " VALIDATE_BELNR
*&---------------------------------------------------------------------*
*& Form VALIDATE_GJAHR
*&---------------------------------------------------------------------*
* Validating the Fiscal Year against the check table BKPF
*----------------------------------------------------------------------*
FORM VALIDATE_GJAHR.

DATA: L_GJAHR LIKE BKPF-GJAHR.

IF NOT S_GJAHR[] IS INITIAL.
*--- Select Construct to check S_GJAHR against GJAHR from BKPF
SELECT SINGLE GJAHR
INTO L_GJAHR
FROM BKPF
WHERE GJAHR IN S_GJAHR.

IF SY-SUBRC <> 0.
*--- Display message if an invalid Fiscal Year is entered
MESSAGE E002(Z_MSGCLASS)
WITH 'Enter a valid Fiscal Year'.
ENDIF.
ENDIF.

ENDFORM. " VALIDATE_GJAHR
*&---------------------------------------------------------------------*
*& Form VALIDATE_BLART
*&---------------------------------------------------------------------*
* Validating the Document Type against T003
*----------------------------------------------------------------------*
FORM VALIDATE_BLART .

DATA: L_BLART LIKE T003-BLART.

IF NOT S_BLART[] IS INITIAL.
*--- Select Construct to check S_BELNR against BELNR from BKPF
SELECT SINGLE BLART
INTO L_BLART
FROM T003
WHERE BLART IN S_BLART.

IF SY-SUBRC <> 0.
*--- Display message if an invalid Document Type is entered
MESSAGE E002(Z_MSGCLASS)
WITH 'Enter a valid Document Type'.
ENDIF.
ENDIF.

ENDFORM. " VALIDATE_BLART
*&---------------------------------------------------------------------*
*& Form VALIDATE_USNAM
*&---------------------------------------------------------------------*
* Validating the Username against the check table BKPF
*----------------------------------------------------------------------*
FORM VALIDATE_USNAM .

DATA: L_USNAM LIKE BKPF-USNAM.

IF NOT S_USNAM[] IS INITIAL.
*--- Select Construct to check S_USNAM against USNAM from BKPF
SELECT SINGLE USNAM
INTO L_USNAM
FROM BKPF
WHERE USNAM IN S_USNAM.

IF SY-SUBRC <> 0.
*--- Display message if an invalid User Name is entered
MESSAGE E002(Z_MSGCLASS)
WITH 'Enter a valid User Name'.
ENDIF.

ENDIF.

ENDFORM. " VALIDATE_USNAM
*&---------------------------------------------------------------------*
*& Form VALIDATE_PRCTR
*&---------------------------------------------------------------------*
* Validating the Profit against the check table CEPC
*----------------------------------------------------------------------*
FORM VALIDATE_PRCTR .

DATA: L_PRCTR LIKE CEPC-PRCTR.

IF NOT S_PRCTR[] IS INITIAL.
*--- Select Construct to check S_PRCTR against PRCTR from CEPC
SELECT SINGLE PRCTR
INTO L_PRCTR
FROM CEPC
WHERE PRCTR IN S_PRCTR.

IF SY-SUBRC <> 0.
*--- Display message if an invalid Profit Center is entered
MESSAGE E002(Z_MSGCLASS)
WITH 'Enter a valid Profit Center'.
ENDIF.

ENDIF.

ENDFORM. " VALIDATE_PRCTR

*---------------------------------------------------------------------*
* FORM TOP_OF_PAGE *
*---------------------------------------------------------------------*
* TOP OF PAGE *
*---------------------------------------------------------------------*
FORM TOP_OF_PAGE.

DATA: V_COUNT(05) TYPE n.
data: l_count(05) type c.
DATA: V_HEADER(100) TYPE C.

*--- Get the number of Documents to be displayed
DESCRIBE TABLE IT_HEAD LINES V_COUNT.
v_count = v_count.
l_count = v_count.
CONCATENATE ' Profit center wise documents'
'Number of Documents'
V_COUNT
INTO V_HEADER SEPARATED BY ':'.

REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = V_HEADER.
APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]
* I_LOGO =
* I_END_OF_LIST_GRID =
.

ENDFORM.

Classical Report Using Condition Types

noreply@blogger.com (Harini Somaysula) — Tue, 06 Nov 2007 06:58:00 +0000

REPORT Z_SD_RP_BILLING_PERIOD NO STANDARD PAGE HEADING
MESSAGE-ID Z_MSGCLASS " Message class
LINE-SIZE 80 " Width of Report display
LINE-COUNT 65. " No.of lines in page

************************************************************************
* Program Name : Z_SD_RP_BILLING_PERIOD *
* Description : This Report displays Billing Invoice *
* based on the selection criterion Billing *
* Document No. *
* The Output Is: *
* 1) Billing Document No. *
* 2) Date *
* 3) Billing Period *
* 4) Meter Reading Date *
* 5) Billed Units in KWhrs *
* 6) Monthly Settlement Periods *
* 7) Due date of payment *
* 8) 2.5% Rebate if payment made by date *
* 9) 1% Rebate if payment made by date *
* 10) Late Charges interest if payment made after *
* date *
* 11) Capacity Charges – FDSC *
* 12) Capacity Charges – OFC *
* 13) Energy Charges *
* 14) Adjustment for FDSC of Bill No.66 *
* 15) Total *
* 16) Total in words *
* Functional : *
* Developer : *
* Development class : *
* *
************************************************************************
*----------------------------------------------------------------------*
* Request No. Created Date Developer name *
*----------------------------------------------------------------------*
* LD1K900601 21/03/2006 Harini
*----------------------------------------------------------------------*

*---------------------------------------------------------------------*
* TABLES *
*---------------------------------------------------------------------*
TABLES VBRK.

*---------------------------------------------------------------------*
* DATA DECLARATIONS *
*---------------------------------------------------------------------*
DATA: V_TOT_FDSC LIKE KONV-KWERT, " Total Capacity Charges FDSC
V_TOT_OFC LIKE KONV-KWERT, " Total Capacity Charges OFC
V_ADJ_FDSC LIKE KONV-KWERT, " Total Adj for FDSC of Bill No
V_TOTAL LIKE PC207-BETRG, " HR Payroll: Amount
V_FKDAT LIKE VBRK-FKDAT, " Billing date for billing index and printout
V_STL_PRD TYPE I, " Billed Settlement Period
V_DAYS LIKE VTBBEWE-ATAGE, " No. of days
V_DATE TYPE D, " Date
V_BP_FROM LIKE VTBBEWE-DBERVON, " Billing Period from
V_BP_TO LIKE VTBBEWE-DBERBIS, " Billing Period to
V_MESG TYPE STRING, " Message
V_TOTAL_WORDS(210), " String for Total No Of Words
VAR1(72) TYPE C, " String 1 for Total No Of Words
VAR2(72) TYPE C, " String 2 for Total No Of Words
V_MONTHNAME(12), " Month Name
PAY_DATE(12), " Rebate if payment made
BILL_YEAR(4), " Year of Billing
BILL_MONTH(2), " Month of Billing
BILL_DATE(12), " Date of Billing
V_VBELN LIKE VBRK-VBELN, " Previous Billing Doc No
V_ENRG_CHG LIKE VBRK-NETWR, " Auxiliary Consumption
V_TOT_ICP TYPE P DECIMALS 2, " Total Units at ICP
V_UNITS_IMP LIKE KONV-KBETR, " Units Imported
V_NET_UNITS LIKE KONV-KBETR, " Net Units Billed
V_MON_TRAN_CHG LIKE KONV-KWERT, " Monthly Transmission
V_ADJ_ENRG_CHG LIKE VBRK-NETWR, " Adj. of Energy Charges
V_ADD_ENRG_CHG LIKE KONV-KWERT, " Adj. Additional Energy Charges
V_COMP_CHG LIKE KONV-KWERT, " Compression Charges
V_MISC1_CHG LIKE KONV-KBETR, " Misc.1 Adjustments
V_MISC2_CHG LIKE KONV-KBETR, " Misc.2 Adjustments
V_MISC3_CHG LIKE KONV-KBETR, " Misc.3 Adjustments
V_MISC4_CHG LIKE KONV-KBETR, " Misc.4 Adjustments
V_PLF_CHG LIKE KONV-KBETR, " PLF Bonus
V_BAK_CHG LIKE KONV-KBETR, " Backdown
V_TOT_ENRG_CHG LIKE KONV-KWERT. " Total Energy Charges

DATA : LV_SERIAL TYPE I,
LV_CHAR TYPE C.
*---------------------------------------------------------------------*
* CONSTANTS *
*---------------------------------------------------------------------*
CONSTANTS: C_ZDEL LIKE KONV-KSCHL VALUE 'ZDEL', " Total Delivery
C_ZIMP LIKE KONV-KSCHL VALUE 'ZIMP', " Total Imported Units
C_ZFDP LIKE KONV-KSCHL VALUE 'ZFDP', " FDSC Payments
C_ZOFC LIKE KONV-KSCHL VALUE 'ZOFC', " OFC Payments
C_ZR00 LIKE KONV-KSCHL VALUE 'ZR00', " EnergyCharges(Price)
C_ZMTQ LIKE KONV-KSCHL VALUE 'ZMTQ', " Monthly Transmission
C_ZAEC LIKE KONV-KSCHL VALUE 'ZAEC', " Adj. Energy Charges
C_ZAAT LIKE KONV-KSCHL VALUE 'ZAAT', " Adj. Additional Transmission Charges
C_ZCOC LIKE KONV-KSCHL VALUE 'ZCOC', " Compression Charges
C_ZAD1 LIKE KONV-KSCHL VALUE 'ZAD1', " Misc. Adjustments 1
C_ZAD2 LIKE KONV-KSCHL VALUE 'ZAD2', " Misc. Adjustments 2
C_ZAD3 LIKE KONV-KSCHL VALUE 'ZAD3', " Misc. Adjustments 3
C_ZAD4 LIKE KONV-KSCHL VALUE 'ZAD4', " Misc. Adjustments 4
C_ZPLF LIKE KONV-KSCHL VALUE 'ZPLF', " PLF Bonus
C_ZBAK LIKE KONV-KSCHL VALUE 'ZBAK', " Backdown
C_ZCUR LIKE KONV-KSCHL VALUE 'ZCUR'. " Currency Adjustment

*---------------------------------------------------------------------*
* FLAGS *
*---------------------------------------------------------------------*
DATA: F_STOP. " Indicator Flag

*---------------------------------------------------------------------*
* INTERNAL TABLE DECLARATIONS *
*---------------------------------------------------------------------*
*--- Internal table to hold Month name and short text
DATA: IT_MONTHS LIKE T247 OCCURS 0 WITH HEADER LINE.

**--- Work Area to hold Billing Document: Header Data
DATA: WA_VBRK LIKE VBRK.

**--- Internal table to hold Billing Document: Header Data
DATA: BEGIN OF IT_VBRK OCCURS 0,
VBELN LIKE VBRK-VBELN, " Billing Document
ERDAT LIKE VBRK-ERDAT, " Date on which the record was created
END OF IT_VBRK.

*--- Internal table to hold Billing: Item Data
DATA: BEGIN OF IT_VBRP OCCURS 0,
VBELN LIKE VBRP-VBELN, " Billing Document
POSNR LIKE VBRP-POSNR, " Billing item
END OF IT_VBRP.

*--- Internal table to hold Conditions (Transaction Data)
DATA: BEGIN OF IT_KONV OCCURS 0,
KNUMV LIKE KONV-KNUMV, " No. of the doc. condition
KPOSN LIKE KONV-KPOSN, " Condition item number
STUNR LIKE KONV-STUNR, " Step number
ZAEHK LIKE KONV-ZAEHK, " Condition counter
KAPPL LIKE KONV-KAPPL, " Application
KSCHL LIKE KONV-KSCHL, " Condition type
KAWRT LIKE KONV-KAWRT, " Condition Base Value
KBETR LIKE KONV-KBETR, " Rate (cond. amount or %)
KWERT LIKE KONV-KWERT, " Condition value
END OF IT_KONV.

**--- Internal table to hold Billing document dates
DATA: BEGIN OF IT_ZBILLDATES OCCURS 0,
VBELN LIKE ZBILLDATES-VBELN, " Billing Document
FKART LIKE ZBILLDATES-FKART, " Billing Type
FRDAT LIKE ZBILLDATES-FRDAT, " From Date
TODAT LIKE ZBILLDATES-TODAT, " To Date
END OF IT_ZBILLDATES.
*---------------------------------------------------------------------*
* SELECTION-SCREEN *
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK SCLSCR WITH FRAME TITLE TEXT-001.
PARAMETERS: P_VBELN LIKE VBRK-VBELN MATCHCODE OBJECT VMCF OBLIGATORY. " Billing Document
SELECTION-SCREEN END OF BLOCK SCLSCR.
*---------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*---------------------------------------------------------------------*

AT SELECTION-SCREEN ON P_VBELN.
*--- Perform to validate Billing document
PERFORM VALIDATE_BILL_DOC.
*---------------------------------------------------------------------*
* TOP-OF-PAGE *
*---------------------------------------------------------------------*
TOP-OF-PAGE.
*--- Perform to display the report header
PERFORM BUILD_HEADER.
*---------------------------------------------------------------------*
* START-OF-SELECTION *
*---------------------------------------------------------------------*
START-OF-SELECTION.

*--- Perform to populate Billing Document: Header Data
PERFORM GET_VBRK_DATA.
*--- Perform to populate Billing Document: Item Data
PERFORM GET_VBRP_DATA.
IF F_STOP = SPACE.
*--- Perform to populate Conditions
PERFORM GET_KONV_DATA.
*--- Perform to populate Billing document dates
PERFORM GET_ZBILLDATES_DATA.
*--- Perform to get values of Bill Settlement Periods
PERFORM GET_VALUES .
*--- Perform to get the Values of Conditions & corresponding Condition Values
PERFORM GET_CON_VALUE.
*--- Perform to get the Previous Billing Document No
PERFORM GET_PREVIOUS_BILL_DOC.
ENDIF.
*---------------------------------------------------------------------*
* END-OF-SELECTION *
*---------------------------------------------------------------------*
END-OF-SELECTION.

IF F_STOP = SPACE.
*--- Perform to display the report
PERFORM DISPLAY_REPORT.
*----- Perform to display the Footer Data
PERFORM FOOTER.
ENDIF.
*---------------------------------------------------------------------*
* Form VALIDATE_BILL_DOC *
*---------------------------------------------------------------------*
* Validates Billing document *
*---------------------------------------------------------------------*
FORM VALIDATE_BILL_DOC.

DATA: LV_VBELN LIKE VBRK-VBELN.

IF NOT P_VBELN IS INITIAL.
*--- Select Construct to check P_VBELN against VBELN from VBRK
SELECT SINGLE VBELN
INTO LV_VBELN
FROM VBUK
WHERE VBELN = P_VBELN.
IF SY-SUBRC <> 0.
*--- Display message and stop processing in case of invalid field entry
MESSAGE E002(Z_MSGCLASS)
WITH 'Enter a valid Billing Document'(002).
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_BILL_DOC
*&---------------------------------------------------------------------*
*& Form GET_VBRK_DATA
*&---------------------------------------------------------------------*
* To populate Billing Document: Header Data
*----------------------------------------------------------------------*
FORM GET_VBRK_DATA .
*--- Select Construct to retrieve Billing Document and No. of the doc.
*--- condition from VBRK
SELECT SINGLE * "VBELN KNUMV FKDAT
INTO WA_VBRK
FROM VBRK
WHERE VBELN = P_VBELN.
IF SY-SUBRC = 0.
*--Do Nothing
ELSE.
*--- Display message and stop processing in case of absence of data
V_MESG = 'No data exists with the selection criteria'(067).
MESSAGE S002(Z_MSGCLASS) WITH V_MESG.
F_STOP = 'X'.
STOP.
ENDIF.

ENDFORM. " GET_VBRK_DATA
*&---------------------------------------------------------------------*
*& Form GET_VBRP_DATA
*&---------------------------------------------------------------------*
* To populate Billing: Item Data
*----------------------------------------------------------------------*
FORM GET_VBRP_DATA .
*--- Checking whether Billing Document is populated
IF NOT WA_VBRK IS INITIAL.
*--- Select Construct to retrieve Billing Document, Billing item
*--- Actual billed quantity from VBRP
SELECT VBELN POSNR
INTO TABLE IT_VBRP
FROM VBRP
WHERE VBELN = P_VBELN.
IF SY-SUBRC = 0.
*--- Sort Billing: Item Data
SORT IT_VBRP BY VBELN POSNR.
ENDIF.
ENDIF.
ENDFORM. " GET_VBRP_DATA
*&---------------------------------------------------------------------*
*& Form GET_KONV_DATA
*&---------------------------------------------------------------------*
* To populate Conditions (Transaction Data)
*----------------------------------------------------------------------*
FORM GET_KONV_DATA .
*--- Checking whether Billing Document is populated
IF NOT WA_VBRK IS INITIAL.
*--- Select construct to get No. of the doc. condition
*--- Condition value and Condition type from KONV
SELECT KNUMV KPOSN STUNR ZAEHK KAPPL KSCHL KAWRT KBETR KWERT
INTO TABLE IT_KONV
FROM KONV
WHERE KNUMV = WA_VBRK-KNUMV.
IF SY-SUBRC = 0.
*--- Sort Conditions
SORT IT_KONV BY KSCHL. " KNUMV.
ENDIF.
ENDIF.
ENDFORM. " GET_KONV_DATA
*&---------------------------------------------------------------------*
*
*& Form GET_ZBILLDATES_DATA
*&---------------------------------------------------------------------*
*
* To populate Billing document dates
*----------------------------------------------------------------------*
FORM GET_ZBILLDATES_DATA .
*--- Checking whether Billing Document is populated
IF NOT WA_VBRK IS INITIAL.
*--- Select Construct to retrieve Billing Document, Billing Type
*--- From Date and To Date from ZBILLDATES
SELECT VBELN FKART FRDAT TODAT
INTO TABLE IT_ZBILLDATES
FROM ZBILLDATES
WHERE VBELN = WA_VBRK-VBELN.
IF SY-SUBRC = 0.
*--- Sort Billing document dates
SORT IT_ZBILLDATES BY VBELN.
ENDIF.
ENDIF.
ENDFORM. " GET_ZBILLDATES_DATA
*&---------------------------------------------------------------------*
*& Form GET_VALUES
*&---------------------------------------------------------------------*
* To get the bill settlement dates.
*----------------------------------------------------------------------*
FORM GET_VALUES .

V_FKDAT = WA_VBRK-FKDAT.
V_DATE = SY-DATUM.
BILL_YEAR = V_FKDAT+0(4).
BILL_MONTH = V_FKDAT+4(2).

*--- Perform to get the bill settlement dates.
PERFORM BILL_SETTLE_DATE.

ENDFORM. " GET_VALUES
*&---------------------------------------------------------------------*
*& Form GET_OUTPUT
*&---------------------------------------------------------------------*
* To get the Values of Conditions and corresponding Condition Values
*----------------------------------------------------------------------*
FORM GET_CON_VALUE .

DATA: LV_CNT TYPE SY-INDEX.
CLEAR: V_TOT_ICP,V_NET_UNITS,V_TOT_FDSC, V_TOT_OFC,V_ENRG_CHG,V_MON_TRAN_CHG,V_ADJ_ENRG_CHG,
V_ADD_ENRG_CHG,V_COMP_CHG,V_MISC1_CHG,V_MISC2_CHG,V_MISC3_CHG,V_MISC4_CHG,
V_PLF_CHG,V_BAK_CHG,V_ADJ_FDSC,V_TOTAL.

*--- Loop to get the Values of Conditions and corresponding Condition Values
LOOP AT IT_VBRP.

LOOP AT IT_KONV WHERE KNUMV = WA_VBRK-KNUMV
AND KPOSN = IT_VBRP-POSNR.

CASE IT_KONV-KSCHL.

WHEN C_ZDEL.
*--- Billed Uints in Kwhrs.
V_TOT_ICP = V_TOT_ICP + IT_KONV-KWERT.
WHEN C_ZIMP.
*--- Total Imported Units
V_UNITS_IMP = IT_KONV-KBETR.
WHEN C_ZFDP.
*--- For Capacity Charges FDSC
V_TOT_FDSC = V_TOT_FDSC + IT_KONV-KWERT.
WHEN C_ZOFC.
*--- For Capacity Charges OFC
V_TOT_OFC = V_TOT_OFC + IT_KONV-KWERT.
WHEN C_ZR00.
*--- For Energy Charges(Price)
V_ENRG_CHG = V_ENRG_CHG + IT_KONV-KWERT.
WHEN C_ZMTQ.
*--- For Monthly Transmission
V_MON_TRAN_CHG = V_MON_TRAN_CHG + IT_KONV-KWERT.
WHEN C_ZAEC.
*--- For Adj. Energy Charges
V_ADJ_ENRG_CHG = V_ADJ_ENRG_CHG + IT_KONV-KWERT.
* V_ADJ_ENRG_CHG = IT_KONV-KBETR.
WHEN C_ZAAT.
*--- For Adj. Additional Transmission Charges
V_ADD_ENRG_CHG = V_ADD_ENRG_CHG + IT_KONV-KWERT.
*--- For Compression Charges
WHEN C_ZCOC.
V_COMP_CHG = V_COMP_CHG + IT_KONV-KWERT.
WHEN C_ZAD1.
*--- For Misc. Adjustments 1
V_MISC1_CHG = V_MISC1_CHG + IT_KONV-KWERT.
WHEN C_ZAD2.
*--- For Misc. Adjustments 2
V_MISC2_CHG = V_MISC2_CHG + IT_KONV-KWERT.
WHEN C_ZAD3.
*--- For Misc. Adjustments 3
V_MISC3_CHG = V_MISC3_CHG + IT_KONV-KWERT.
WHEN C_ZAD4.
*--- For Misc. Adjustments 4
V_MISC4_CHG = V_MISC4_CHG + IT_KONV-KWERT.
WHEN C_ZPLF.
*--- For PLF Bonus
V_PLF_CHG = V_PLF_CHG + IT_KONV-KWERT.
WHEN C_ZBAK.
*--- For Backdown
V_BAK_CHG = V_BAK_CHG + IT_KONV-KWERT.
WHEN C_ZCUR.
*--- For Adjustment for FDSC
V_ADJ_FDSC = V_ADJ_FDSC + IT_KONV-KWERT.

ENDCASE.
ENDLOOP.
ENDLOOP.

*--- Calculate the Value of Total Energy Charges
V_TOT_ENRG_CHG = V_ENRG_CHG + V_MON_TRAN_CHG +
V_ADJ_ENRG_CHG + V_ADD_ENRG_CHG +
V_COMP_CHG + V_MISC1_CHG +
V_MISC2_CHG + V_MISC3_CHG +
V_MISC4_CHG + V_PLF_CHG +
V_BAK_CHG.

*--- For Total
V_TOTAL = V_TOT_FDSC + V_TOT_OFC + V_TOT_ENRG_CHG + V_ADJ_FDSC.
*--- Perform to get Changes of INR amount to words
PERFORM CONVERT_TOTAL USING V_TOTAL CHANGING V_TOTAL_WORDS.

*--- For Period from, Period to and Metering date
READ TABLE IT_ZBILLDATES WITH KEY VBELN = WA_VBRK-VBELN.
IF SY-SUBRC = 0.
V_BP_FROM = IT_ZBILLDATES-FRDAT.
V_BP_TO = IT_ZBILLDATES-TODAT.
ENDIF.

*--- To get No. of days between From & To Dates
PERFORM GET_DAYS_DIFF USING V_BP_FROM V_BP_TO.
* V_DAYS = V_DAYS + 1.
V_STL_PRD = V_DAYS * 24.

*--- Net Units Billed
V_NET_UNITS = V_TOT_ICP - V_UNITS_IMP.

ENDFORM. " GET_OUTPUT
*&---------------------------------------------------------------------*
*& Form GET_PREVIOUS_BILL_DOC
*&---------------------------------------------------------------------*
* To get the Previous Billing Document No
*----------------------------------------------------------------------*
FORM GET_PREVIOUS_BILL_DOC .

DATA: LV_TABIX LIKE SY-TABIX.

SELECT VBELN ERDAT
INTO TABLE IT_VBRK
FROM VBRK
WHERE FKSTO = SPACE.

IF SY-SUBRC = 0.
*--Sort Billing Document No
SORT IT_VBRK DESCENDING BY VBELN ERDAT DESCENDING.
*--- Read for Billing Document No
READ TABLE IT_VBRK WITH KEY VBELN = P_VBELN.
IF SY-SUBRC = 0.
LV_TABIX = SY-TABIX + 1.
*--- Read for Billing Document No to get index no
READ TABLE IT_VBRK INDEX LV_TABIX.
IF SY-SUBRC = 0.
V_VBELN = IT_VBRK-VBELN.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " GET_PREVIOUS_BILL_DOC
*&---------------------------------------------------------------------*
*& Form BUILD_HEADER
*&---------------------------------------------------------------------*
* To build the Header Data for the Report
*----------------------------------------------------------------------*
FORM BUILD_HEADER.

*--- Lanco Kondapalli Power Private Limited Heading
WRITE : /5(80) SY-ULINE,
/5(01) SY-VLINE,
22(40) ' LANCO KONDAPALLI POWER PRIVATE LIMITED'(008) CENTERED COLOR 4,
80(01) SY-VLINE,
/5(01) SY-VLINE,
20(47) 'Regd. Office: "LANCO HOUSE", 141, Avenue # 8,'(009),
80(01) SY-VLINE,
/5(01) SY-VLINE,
20(50) 'Banjara Hills,Hyderabad-500034,AP,India'(010),
80(01) SY-VLINE,
/5(01) SY-VLINE,
18(56) ' Tel # +91-40-23540697, 23540703,Fax # +91-40-23540698'(011),
80(01) SY-VLINE,
/5(01) SY-VLINE,
18(55) ' APGST # TIN No.28150199007;CST # PJT/10/1/1981/99-00'(012),
80(01) SY-VLINE,
/5(80) SY-ULINE.

ENDFORM. "BUILD_HEADER.
*&---------------------------------------------------------------------*
*& Form DISPLAY_REPORT
*&---------------------------------------------------------------------*
*--- To display the Output Data
*----------------------------------------------------------------------*
FORM DISPLAY_REPORT.
DATA: LV_CHAR(80) TYPE C,
LV_VAL(20),
LV_MONTH(2), " Local variables to hold Report Display
LV_MONTH1(2),
LV_MONTH2(2),
LV_PERIOD_FROM(20),
LV_PERIOD_TO(20).

*--- Bill Date Heading.
CLEAR LV_MONTH.
LV_MONTH = SY-DATUM+4(2).

*--- Perform to get Names of the month
PERFORM GET_MONTH_NAME USING LV_MONTH.
CLEAR: LV_CHAR, LV_VAL.
CONCATENATE 'Date:'(066) V_MONTHNAME SY-DATUM+6(2) SY-DATUM+0(4)
INTO LV_CHAR
SEPARATED BY SPACE.
CONDENSE LV_CHAR.

*--- To Display Billing Document No
WRITE:/05(01) SY-VLINE,
08(09) ' BILL #'(015),
15(15) P_VBELN,
40(01) SY-VLINE,
42(30) LV_CHAR,
80(01) SY-VLINE,
/05(80) SY-ULINE.

*--- To Andhra Pradesh.
WRITE: /5(01) SY-VLINE,
08(3) 'To:'(003),
15(51) 'Andhra Pradesh Power Coordination Commitee (APPCC)'(013),
80(01) SY-VLINE,
/5(01) SY-VLINE,
23(34) 'Vidyut Soudha, Hyderabad - 500 082'(014),
80(01) SY-VLINE,
/5(80) SY-ULINE.

*---Billing Period
* To obtain Period: From
CLEAR: LV_MONTH, LV_CHAR, LV_PERIOD_FROM, LV_PERIOD_TO.
LV_MONTH1 = V_BP_FROM+4(2).
V_BP_FROM+6(2) = V_BP_FROM+6(2) + 1.
*--- Perform to get the month name
PERFORM GET_MONTH_NAME USING LV_MONTH1.

*--- Concatenation to generate period-from
CONCATENATE V_MONTHNAME V_BP_FROM+6(2)
INTO LV_PERIOD_FROM SEPARATED BY SPACE.
CONCATENATE LV_PERIOD_FROM V_BP_FROM+0(4) INTO LV_PERIOD_FROM SEPARATED BY SPACE.
*--- To obtain Period: To
LV_MONTH2 = V_BP_TO+4(2).

*--- Perform to get the month name
PERFORM GET_MONTH_NAME USING LV_MONTH2.

*--- Concatenation to generate period-from
CONCATENATE V_MONTHNAME V_BP_TO+6(2)
INTO LV_PERIOD_TO SEPARATED BY SPACE.
CONCATENATE LV_PERIOD_TO V_BP_TO+0(4) INTO LV_PERIOD_TO SEPARATED BY SPACE.

* Period: From & To
CONCATENATE 'Billing Period:'(016) LV_PERIOD_FROM 'To' LV_PERIOD_TO
INTO LV_CHAR SEPARATED BY SPACE.
CONDENSE LV_CHAR.

*--- To Display Billing Period
WRITE: 05(80) SY-ULINE,
/05(01) SY-VLINE,
20(50) LV_CHAR CENTERED,
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- Contract: Power Purchase.
/05(01) SY-VLINE,
08(09) 'Contract:'(017),
23(58) 'Power Purchase Agreement (PPA) dated March 31, 1997'(018),
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- Particulars.
/05(01) SY-VLINE,
36(13) 'Particulars'(019) COLOR 4,
80(01) SY-VLINE,
/05(80) SY-ULINE.

*--- To Display Metering Date
WRITE: /05(01) SY-VLINE,
08(01) '1.'(020),
13(01) SY-VLINE,
15(18) 'Meter Reading Date'(021),
63(01) SY-VLINE,
64 LV_PERIOD_TO,
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- 2 a Present Meter Reading Units MWhrs
/05(01) SY-VLINE,
08(05) '2. a)'(022),
13(01) SY-VLINE,
15(40) 'Present Meter Reading Units MWhrs'(023),
05(01) SY-VLINE,
63(01) SY-VLINE,
05(01) SY-VLINE,
80(01) SY-VLINE,
65(16) 'As per Annexure'(024),
80(01) SY-VLINE,
/05(01) SY-VLINE,
65(16) '# B',
13(01) SY-VLINE,
63(01) SY-VLINE,
80(01) SY-VLINE,
/05(58) SY-ULINE,
63(01) SY-VLINE,
80(01) SY-VLINE,

*--- 2 b Previous Meter Reading Units MWhrs
/05(01) SY-VLINE,
08(05) ' b)'(025),
13(01) SY-VLINE,
15(40) 'Previous Meter Reading Units MWhrs'(023),
63(01) SY-VLINE,
80(01) SY-VLINE,
/5(80) SY-ULINE,

*--- 2 c Billed Units in KWhrs
/05(01) SY-VLINE,
08(05) ' c)'(026),
13(01) SY-VLINE,
15(40) 'Billed Units in KWhrs'(027),
63(01) SY-VLINE,
65(16) V_NET_UNITS CURRENCY 'CUR' LEFT-JUSTIFIED,
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- 3 a Monthly Settlement Periods
/05(01) SY-VLINE,
08(05) '3. a)'(033),
13(01) SY-VLINE,
15(40) 'Monthly Settlement Periods'(028),
63(01) SY-VLINE,
65(04) V_STL_PRD,'hrs'(029),
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- 3 b Force Majeure Settlement Periods
/05(01) SY-VLINE,
08(05) ' b)'(025),
13(01) SY-VLINE,
15(40) 'Force Majeure Settlement Periods'(030),
63(01) SY-VLINE,
65(04) 'Nil'(031),
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- 3 c Billed Settlement Periods
/05(01) SY-VLINE,
08(05) ' c)'(026),
13(01) SY-VLINE,
15(40) 'Billed Settlement Periods'(032),
63(01) SY-VLINE,
65(04) V_STL_PRD,'hrs'(029),
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- 4 a Due Date of payment
/05(01) SY-VLINE,
08(05) '4. a)'(034),
13(01) SY-VLINE,
15(30) 'Due Date of payment'(035),
63(01) SY-VLINE,
65(10) BILL_DATE,
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- 4 b 2.5% Rebate if payment made by date
/05(01) SY-VLINE,
08(05) ' b)'(025),
13(01) SY-VLINE,
15(40) '2.5% Rebate if payment made by date'(036),
63(01) SY-VLINE,
65(10) PAY_DATE,
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- 4 c 1% Rebate if payment made by date
/05(01) SY-VLINE,
08(05) ' c)'(026),
13(01) SY-VLINE,
15(40) '1% Rebate if payment made by date'(037),
63(01) SY-VLINE,
65(10) BILL_DATE,
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- 4 d Late Charges interest if payment made after date
/05(01) SY-VLINE,
08(05) ' d)'(038),
13(01) SY-VLINE,
15(48) 'Late Charges interest if payment made after date'(039),
63(01) SY-VLINE,
65(10) BILL_DATE,
80(01) SY-VLINE,
/05(80) SY-ULINE,

*--- Abstract Of Charges
/05(80) SY-ULINE,
/05(01) SY-VLINE,
36(22) 'ABSTRACT OF CHARGES'(040) COLOR 4,
80(01) SY-VLINE,
/05(80) SY-ULINE.
LV_SERIAL = 1.

IF V_TOT_FDSC <> 0.
LV_CHAR = LV_SERIAL.
*-- Condense Capacity Charges # FDSC
CONDENSE LV_CHAR.
*--- 1 Capacity Charges # FDSC
WRITE: /05(01) SY-VLINE,
08(03) LV_CHAR ,
13(01) SY-VLINE,
15(40) 'Capacity Charges # FDSC'(041),
63(01) SY-VLINE,
65(16) V_TOT_FDSC CURRENCY 'CUR' LEFT-JUSTIFIED,
80(01) SY-VLINE,
/05(80) SY-ULINE.
LV_SERIAL = LV_SERIAL + 1.
ENDIF.

IF V_TOT_OFC <> 0.
LV_CHAR = LV_SERIAL.
*-- Condense Capacity Charges # OFC
CONDENSE LV_CHAR.
*--- 2 Capacity Charges # OFC
WRITE: /05(01) SY-VLINE,
08(03) LV_CHAR,
13(01) SY-VLINE,
15(40) 'Capacity Charges # OFC'(042),
63(01) SY-VLINE,
65(16) V_TOT_OFC CURRENCY 'CUR' LEFT-JUSTIFIED,
80(01) SY-VLINE,
/05(80) SY-ULINE.
LV_SERIAL = LV_SERIAL + 1.
ENDIF.

IF V_TOT_ENRG_CHG <> 0.
LV_CHAR = LV_SERIAL.
*-- Condense Energy Charges
CONDENSE LV_CHAR.
*--- 3. Energy Charges
WRITE: /05(01) SY-VLINE,
08(03) LV_CHAR,
13(01) SY-VLINE,
15(40) 'Energy Charges'(043),
63(01) SY-VLINE,
65(16) V_TOT_ENRG_CHG CURRENCY 'CUR' RIGHT-JUSTIFIED,
80(01) SY-VLINE,
/05(80) SY-ULINE.
LV_SERIAL = LV_SERIAL + 1.
ENDIF.

IF V_ADJ_FDSC <> 0.
LV_CHAR = LV_SERIAL.
*-- Condense Adjustment for FDSC
CONDENSE LV_CHAR.
*--- 4 Adjustment for FDSC of Bill No. 66
WRITE: /05(01) SY-VLINE,
08(03) LV_CHAR,
13(01) SY-VLINE,
15(31) 'Adjustment for FDSC of Bill No.'(045),
46(10) V_VBELN LEFT-JUSTIFIED,
63(01) SY-VLINE,
65(16) V_ADJ_FDSC CURRENCY 'CUR' LEFT-JUSTIFIED,
80(01) SY-VLINE,
/05(80) SY-ULINE.
ENDIF.
*--- Total
WRITE: /05(01) SY-VLINE,
13(01) SY-VLINE,
15(07) 'Total'(046) COLOR 4,
63(01) SY-VLINE,
65(16) V_TOTAL CURRENCY 'CUR' LEFT-JUSTIFIED COLOR 4 ,
80(01) SY-VLINE,
/05(80) SY-ULINE.

*--- Total in words.
DATA: V_LEN(2) TYPE N VALUE 72.
IF V_TOTAL_WORDS+72(1) = SPACE.
VAR1 = V_TOTAL_WORDS+0(72).
VAR2 = V_TOTAL_WORDS+72(72).
ELSE.
DO.
V_LEN = V_LEN - 1.
IF V_TOTAL_WORDS+V_LEN(1) = SPACE.
VAR1 = V_TOTAL_WORDS+0(V_LEN).
VAR2 = V_TOTAL_WORDS+V_LEN(72).
EXIT.
ENDIF.
ENDDO.
ENDIF.
*--- Display Total in words.
WRITE: /05(01) SY-VLINE,
07 VAR1,
80(01) SY-VLINE,
/05(01) SY-VLINE,
07 VAR2,
80(01) SY-VLINE,
/05(01) SY-VLINE,
80(01) SY-VLINE,
/05(80) SY-ULINE.

ENDFORM. " DISPLAY_REPORT

*&---------------------------------------------------------------------*
*& Form BILL_SETTLE_DATE
*&---------------------------------------------------------------------*
* To Obtain The Bill Settlement Dates
*----------------------------------------------------------------------*
FORM BILL_SETTLE_DATE.

*--- Concatenation to generate Bill Settlement Dates
CONCATENATE '15'(061) BILL_MONTH BILL_YEAR INTO PAY_DATE SEPARATED BY '-'(062).
IF BILL_MONTH = '12'(063).
BILL_MONTH = '01'(064).
BILL_YEAR = BILL_YEAR + 1.
CONCATENATE '10'(065) BILL_MONTH BILL_YEAR INTO BILL_DATE SEPARATED BY '-'(062).
ELSE.
BILL_MONTH = BILL_MONTH + 1.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = BILL_MONTH
IMPORTING
OUTPUT = BILL_MONTH.

CONCATENATE '10'(065) BILL_MONTH BILL_YEAR INTO BILL_DATE SEPARATED BY '-'(062).

ENDIF.
ENDFORM. " BILL_SETTLE_DATE

*&---------------------------------------------------------------------*
*& Form CONVERT_TOTAL
*&---------------------------------------------------------------------*
* To get Changes of INR amount to words
*----------------------------------------------------------------------*
FORM CONVERT_TOTAL USING F_TOTAL
CHANGING F_TOTAL_WORDS.

CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
AMT_IN_NUM = F_TOTAL
IMPORTING
AMT_IN_WORDS = F_TOTAL_WORDS.
* EXCEPTIONS
* DATA_TYPE_MISMATCH = 1
* OTHERS = 2

ENDFORM. " CONVERT_TOTAL

*&---------------------------------------------------------------------*
*& Form GET_MONTH_NAME
*&---------------------------------------------------------------------*
* To get Names of the month
*----------------------------------------------------------------------*
FORM GET_MONTH_NAME USING F_MONTH.

DATA: RET_CODE LIKE SY-SUBRC.

CLEAR V_MONTHNAME.
CALL FUNCTION 'MONTH_NAMES_GET'
EXPORTING
LANGUAGE = SY-LANGU
IMPORTING
RETURN_CODE = RET_CODE
TABLES
MONTH_NAMES = IT_MONTHS.
IF SY-SUBRC <> 0. "#EC *
*--- Do Nothing
ENDIF.

IF RET_CODE = 0.
*--- Read table IT_MONTHS to get the Language and the month
READ TABLE IT_MONTHS WITH KEY SPRAS = SY-LANGU
MNR = F_MONTH.
IF SY-SUBRC = 0.
V_MONTHNAME = IT_MONTHS-LTX.
ENDIF.
ENDIF.

ENDFORM. " GET_MONTH_NAME
*&---------------------------------------------------------------------*
*& Form GET_DAYS_DIFF
*&---------------------------------------------------------------------*
* To get No. of days between From & To Dates
*----------------------------------------------------------------------*

FORM GET_DAYS_DIFF USING F_BP_FROM
F_BP_TO.

CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
EXPORTING
I_DATE_FROM = F_BP_FROM
I_DATE_TO = F_BP_TO
* I_FLG_SEPARATE = ' '
IMPORTING
E_DAYS = V_DAYS.

ENDFORM. " GET_DAYS_DIFF
*&---------------------------------------------------------------------*
*& Form Footer
*&---------------------------------------------------------------------*
* To get the Footer Message
*----------------------------------------------------------------------*
FORM FOOTER .
DATA: LV_FLAG.
**--- Display the Footer Text
NEW-PAGE.
SKIP.
WRITE:/05 ' Note:'(047).

WRITE:/05 ' 1) Taxes, Cess, Duties, Levies, etc, if any, applicable on the above bill'(048),
' will be claimed separately by the way of Supplementary Bill.'(049).

WRITE:/05 ' 2) Energy Charges are computed based on "Provisional Price" of Gas'(050),
' charged by GAIL.Any subsequent revision in Gas Price with'(051),
' retrospective effect will be claimed separately.'(052).

WRITE:/05 ' 3) In view of APTRANSCO’s letter N O.CE/IPC/ADE-2/F.Ravvasate/D.No. 52/03'(053),
' dated 07-04-2003, the gas supplies from Ravva Satellite Field'(054),
' to our plant are at the revised prices w.e.f. 15.04.02003.'(055),
' Energy Charges are computed accordingly.'(068).

WRITE:/05 ' 4) Government of India vide its letter L-12015/5/04-gp(I)dt. 20-06-2005'(056),
' has revised the APM price of natural gas w.e.f. 01-07-2005 to'(057),
' Rs.3200/1000 scm against the earlier price ofRs.2850/1000 scm.'(058),
' Energy Charges are computed accordingly.'(069).
SKIP.
WRITE:/05 'For Lanco Kondapalli Power Private Limited'(059) COLOR 4.

SKIP 4.
WRITE:/05 'AUTHORISED SIGNATORY'(060) COLOR 4.

ENDFORM. " Footer

Interactive Report with OLE

noreply@blogger.com (Harini Somaysula) — Tue, 06 Nov 2007 06:53:00 +0000

REPORT Z_PM_ELE_PERMIT_TO_WRK NO STANDARD PAGE HEADING
MESSAGE-ID Z_MSGCLASS " Message class
LINE-SIZE 132. " Width of Report display
************************************************************************
* Report Name : Z_PM_RP_ELE_PERMIT_TO_WORK *
* Description : Plant Maintanence: Electrical Permit To Work *
* This report displays the following: *
* 1)Description of plant *
* 2)Work to be carried out *
* 3)Details of plant isolation and safety precaution*
* 4)Safety & Fire Manager *
* 5)General Manager *
* 6)Earths Applied *
* 7)Special Precautions to be taken *
* 8)Authorisation *
* 9)Reciept *
* 10)Detail of Work Completed *
* 11)Clearance *
* 12)Cancellation *
* based on Order No.Planning Plant & Requsted Date *
* *
* *
* Functional : *
* Developer : *
* Development class : *
************************************************************************
*----------------------------------------------------------------------*
* Request No. Created Date Developer name *
*----------------------------------------------------------------------*
* LD1K900757 21/03/2006 Harini.S
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* INCLUDES *
*----------------------------------------------------------------------*
INCLUDE .
*----------------------------------------------------------------------*
* DATABASE TABLES *
*----------------------------------------------------------------------*
TABLES: AUFK, " Order master data
T357G, " Permits
ZPMPERMITS. " PM Permits Log
*---------------------------------------------------------------------*
* INTERNAL TABLE DECLARATION *
*---------------------------------------------------------------------*
*---- Internal table to hold PM Permits Log 'ZPMPERMITS'
DATA: IT_PERMITS LIKE ZPMPERMITS OCCURS 0 WITH HEADER LINE,
*---- Internal table to hold Permit conditions from ZMNTTEXT
IT_MNTTEXT LIKE ZMNTTEXT OCCURS 0 WITH HEADER LINE.

*---- Internal table to hold Maintenance Order Header Data 'AFIH'
DATA: BEGIN OF IT_AFIH OCCURS 10,
AUFNR LIKE AFIH-AUFNR, " Order Number(WO NO)
EQUNR LIKE AFIH-EQUNR, " Equipment number
ILOAN LIKE AFIH-ILOAN, " Location and acct assignment for tech obj
QMNUM LIKE AFIH-QMNUM, " Notification Number(WR No)
END OF IT_AFIH.

*---- Internal table to hold Equipment Short Texts
DATA: BEGIN OF IT_EQKT OCCURS 0,
EQUNR LIKE EQKT-EQUNR, " Equipment number
EQKTX LIKE EQKT-EQKTX, " Description of technical object
END OF IT_EQKT.

*---- Internal table to hold Text for Table 357GT
DATA : BEGIN OF IT_T357G_T OCCURS 0,
PMSOG LIKE T357G_T-PMSOG, " Permit Key
GNTXT LIKE T357G_T-GNTXT, " Short Text for Permit
END OF IT_T357G_T.

*--- Internal table to hold texts
DATA: IT_TLINE LIKE TLINE OCCURS 0 WITH HEADER LINE.

*------Internal table to hold Functional Location
DATA : BEGIN OF IT_ILOA OCCURS 0,
ILOAN LIKE ILOA-ILOAN, " Location and acc assignment for tec obj
TPLNR LIKE ILOA-TPLNR, " Functional Location
END OF IT_ILOA.

*------ Internal table to hold Functional Location: Short Texts
DATA : BEGIN OF IT_IFLOTX OCCURS 0,
TPLNR LIKE IFLOTX-TPLNR, " Functional Location
PLTXT LIKE IFLOTX-PLTXT, " Desc of functional location
END OF IT_IFLOTX.

*--- Internal table to hold texts for splitting
DATA: BEGIN OF IT_TEXT OCCURS 0,
TEXT(132), " Text
END OF IT_TEXT.

*--- Internal table to hold split texts
DATA: BEGIN OF IT_RTEXT OCCURS 0,
TEXT(132), " Text
END OF IT_RTEXT.
*---------------------------------------------------------------------*
* GLOBAL VARIABLE DECLARATION *
*---------------------------------------------------------------------*
DATA: V_MESG TYPE STRING, " Message
V_NAME LIKE THEAD-TDNAME, " Field Name
V_ID LIKE THEAD-TDID, " Text ID
V_FIELD(30), " Field
V_AUFNR LIKE ZPMPERMITS-AUFNR, " Object No
V_PMSOG LIKE ZPMPERMITS-PMSOG. " Permit Key

*---- Variables used to display the Report footer
DATA: V_FOOT1(125) TYPE C, " Footer String1
V_FOOT2(125) TYPE C. " Footer String2

*---- Variables used for Excel file download
DATA: V_SOURCE_FILE TYPE RLGRAP-FILENAME VALUE 'C:\SAMPLE1.XLS',
V_DESTINATION_FILE TYPE RLGRAP-FILENAME, " File Name
V_TITLE LIKE SPOP-TITEL, " File Path
V_DESC(132) TYPE C. " Description of Plant

*--- Variables used for Long Text Splitting
DATA: V_LEN TYPE I, " Variable Length
V_LEN1 TYPE I, " Var Length
V_LN TYPE I,
V_TEXT(132), " Text
V_TXT(132), " Text
V_OFFSET1 TYPE I, " Offset
V_OFFSET TYPE I. " Offset
*---------------------------------------------------------------------*
* FLAGS *
*---------------------------------------------------------------------*
DATA : F_STOP.

*---------------------------------------------------------------------*
* CONSTANTS *
*---------------------------------------------------------------------*
CONSTANTS: C_OBJECT LIKE THEAD-TDOBJECT VALUE 'IHSG', " Object Id
C_ELEC LIKE T357G_T-PMSOG VALUE 'ELEC'. " Permit Key
*---------------------------------------------------------------------*
* SELECTION SCREEN *
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-111.
SELECT-OPTIONS: S_AUFNR FOR AUFK-AUFNR OBLIGATORY, " Order Number
S_REQDT FOR ZPMPERMITS-REQDT. " Requested Date
PARAMETERS : P_IWERK LIKE ZPMPERMITS-IWERK OBLIGATORY. " Planning Plant
SELECTION-SCREEN END OF BLOCK B1.
*---------------------------------------------------------------------*
* START-OF-SELECTION *
*---------------------------------------------------------------------*
START-OF-SELECTION.
*--- Perform to get the Permit log details from the table 'ZPMPERMITS'
PERFORM GET_PERMIT_LOG_DETAILS.
*--- Perform to get the conditions for the Permit Keys
PERFORM GET_PERMIT_CONDITIONS.
*--- Perform to get Maintenance Order Header Data
PERFORM GET_AFIH_DATA.
*--- Perform to get Functional Location
PERFORM GET_FUNC_LOC_DATA.
*--- Perform to get Functional Location: Short Texts
PERFORM GET_FUNC_LOC_TEXT_DATA.
*--- Perform to get Text for Table 357GT
PERFORM GET_T357G_T_DATA.
*--- Perform to get Equipment Short Texts
PERFORM GET_EQUI_TEXTS.
*---------------------------------------------------------------------*
* END-OF-SELECTION *
*---------------------------------------------------------------------*
END-OF-SELECTION.
IF F_STOP = SPACE.
*--- Perform display the permits report
PERFORM DISPLAY_PERMITS.
ENDIF.
*---------------------------------------------------------------------*
* AT LINE-SELECTION
*---------------------------------------------------------------------*
AT LINE-SELECTION.

GET CURSOR FIELD V_FIELD VALUE V_AUFNR.
*--- Restricting the generation of Secondary list to dbl click on AUFNR
IF V_FIELD = 'IT_PERMITS-AUFNR' OR V_FIELD = 'IT_PERMITS-PMSOG'.
V_PMSOG = IT_PERMITS-PMSOG.
*--- Perform to build the Header for the Report
PERFORM BUILD_HEADER.
*--- Set the PF-STATUS for creating a push button on app tool bar.
SET PF-STATUS 'ZGUIREPORT'.
*--- Perform to display the Report Output
PERFORM DISPLAY_REPORT.
*--- Perform to build the Footer for the Report
PERFORM BUILD_FOOTER.
ENDIF.

*---- At user command
AT USER-COMMAND.

CASE SY-UCOMM.
WHEN 'DOWNLOAD'.
*--- Perform to choose destination for downloading report to Excel
PERFORM CHOOSE_FILE CHANGING V_DESTINATION_FILE.
IF SY-SUBRC = 0 .
*--- Perform to call EXCEL download function
PERFORM CALL_EXCEL_DOWNLOAD.
*--- Success Message after Excel file download
V_MESG = 'File downloaded to'(001).
V_TITLE = 'File Path'(002).
CALL FUNCTION 'JVA_POPUP_TO_DISPLAY_TEXT'
EXPORTING
TITEL = V_TITLE
TEXTLINE1 = V_MESG
TEXTLINE2 = V_DESTINATION_FILE
START_COLUMN = 10
START_ROW = 20.
*--- Success Message on a popup after Excel file download
V_MESG = 'Successfully Downloaded Data'(003).
MESSAGE S002(ZLKPL_MSGCLASS) WITH V_MESG.
ENDIF.
*--- Navigation - to go back to Selection Screen
WHEN 'BACK' OR '%EX' OR 'RW'.
LEAVE PROGRAM.
ENDCASE.
*---------------------------------------------------------------------*
* END-OF-PAGE *
*---------------------------------------------------------------------*
END-OF-PAGE.
*---- Include for OLE controls
INCLUDE ZINCLUDE_OLE_EXCEL.
*&---------------------------------------------------------------------*
*& Form GET_PERMIT_LOG_DETAILS
*&---------------------------------------------------------------------*
*--- To get the Permit log details from the table 'ZPMPERMITS' based
* on the selection criteria.
*----------------------------------------------------------------------*
FORM GET_PERMIT_LOG_DETAILS.

*--- Select Construct to get the Permit log details
SELECT * FROM ZPMPERMITS
INTO TABLE IT_PERMITS
WHERE AUFNR IN S_AUFNR
AND IWERK = P_IWERK
AND PMSOG = C_ELEC
AND REQDT IN S_REQDT.
*--- Sorting by Order No
IF SY-SUBRC = 0.
SORT IT_PERMITS BY AUFNR.
ELSE.
MESSAGE S002(ZLKPL_MSGCLASS) WITH 'No Data Exists For The Selection Criteria'(072).
F_STOP = 'X'.
STOP.
ENDIF.

ENDFORM. " GET_PERMIT_LOG_DETAILS
*&---------------------------------------------------------------------*
*& Form GET_PERMIT_CONDITIONS
*&---------------------------------------------------------------------*
* To get the Permit conditions from the table ZMNTTEXT
*----------------------------------------------------------------------*
FORM GET_PERMIT_CONDITIONS.

IF NOT IT_PERMITS[] IS INITIAL.
*--- Select construct to get the permit conditions
SELECT * FROM ZMNTTEXT
INTO TABLE IT_MNTTEXT
FOR ALL ENTRIES IN IT_PERMITS
WHERE AUFNR = IT_PERMITS-AUFNR
AND COUNTER = IT_PERMITS-COUNTER.
IF SY-SUBRC = 0.
*--- Do nothing
ENDIF.
ENDIF.

ENDFORM. " GET_PERMIT_CONDITIONS
*&---------------------------------------------------------------------
*& Form GET_AFIH_DATA
*&---------------------------------------------------------------------
* To get the Maintenance Order Header Data
*----------------------------------------------------------------------
FORM GET_AFIH_DATA.

IF NOT IT_PERMITS[] IS INITIAL.
*--- Select construct to get the Maintenance Order Header Data
SELECT AUFNR EQUNR ILOAN QMNUM
FROM AFIH
INTO TABLE IT_AFIH
FOR ALL ENTRIES IN IT_PERMITS
WHERE AUFNR = IT_PERMITS-AUFNR.
IF SY-SUBRC = 0.
*--- Do Nothing
ENDIF.
ENDIF.

ENDFORM. " GET_AFIH_DATA
*&---------------------------------------------------------------------*
*& Form GET_T357G_T_DATA
*&---------------------------------------------------------------------*
* To get the Text for Table 357GT
*----------------------------------------------------------------------*
FORM GET_T357G_T_DATA.

*--- Internal table to hold Duplicate Permits
DATA: BEGIN OF LT_PERMIT OCCURS 0,
PMSOG LIKE T357G_T-PMSOG,
END OF LT_PERMIT.

IF NOT IT_PERMITS[] IS INITIAL.
*--- Looping at IT_PERMITS to get Text
LOOP AT IT_PERMITS.
LT_PERMIT-PMSOG = IT_PERMITS-PMSOG.
APPEND LT_PERMIT.
CLEAR LT_PERMIT.
ENDLOOP.
*--- Sorting
SORT LT_PERMIT.
DELETE ADJACENT DUPLICATES FROM LT_PERMIT COMPARING PMSOG.
*-- Select construct to get the Text for Table T357G
SELECT PMSOG GNTXT
FROM T357G_T
INTO TABLE IT_T357G_T
FOR ALL ENTRIES IN LT_PERMIT
WHERE PMSOG = LT_PERMIT-PMSOG
AND SPRAS = SY-LANGU.

IF SY-SUBRC <> 0.
*--- Do Nothing
ENDIF.
ENDIF.

ENDFORM. " GET_T357G_T_DATA
*&---------------------------------------------------------------------*
*& Form GET_EQUI_TEXTS
*&---------------------------------------------------------------------*
* To get the Equipment Texts
*----------------------------------------------------------------------*
FORM GET_EQUI_TEXTS .

IF NOT IT_AFIH[] IS INITIAL.
*--- Select construct to get the Equipment Details
SELECT EQUNR EQKTX
FROM EQKT
INTO TABLE IT_EQKT
FOR ALL ENTRIES IN IT_AFIH
WHERE EQUNR = IT_AFIH-EQUNR
AND SPRAS = SY-LANGU.
IF SY-SUBRC = 0.
*--- Do Nothing
ENDIF.
ENDIF.

ENDFORM. " GET_EQUI_TEXTS
*&---------------------------------------------------------------------*
*& Form GET_FUNC_LOC_DATA
*&---------------------------------------------------------------------*
* To get the Functional Location
*----------------------------------------------------------------------*
FORM GET_FUNC_LOC_DATA.

IF NOT IT_AFIH[] IS INITIAL.
*--- Select construct to get the Functional Location
SELECT ILOAN TPLNR
FROM ILOA
INTO TABLE IT_ILOA
FOR ALL ENTRIES IN IT_AFIH
WHERE ILOAN = IT_AFIH-ILOAN.
IF SY-SUBRC = 0.
*---Do Nothing
ENDIF.
ENDIF.

ENDFORM. " GET_FUNC_LOC_DATA
*&---------------------------------------------------------------------*
*& Form GET_FUNC_LOC_TEXT_DATA.
*&---------------------------------------------------------------------*
* To get Functional Location: Short Texts
*----------------------------------------------------------------------*
FORM GET_FUNC_LOC_TEXT_DATA..

IF NOT IT_ILOA[] IS INITIAL.
*-- Select construct Functional Location: Short Texts
SELECT TPLNR PLTXT
FROM IFLOTX
INTO TABLE IT_IFLOTX
FOR ALL ENTRIES IN IT_ILOA
WHERE TPLNR = IT_ILOA-TPLNR
AND SPRAS = SY-LANGU.
IF SY-SUBRC = 0.
*---Do nothing
ENDIF.
ENDIF.

ENDFORM. " GET_FUNC_LOC_TEXT_DATA.
*&---------------------------------------------------------------------*
*& Form DISPLAY_PERMITS
*&---------------------------------------------------------------------*
*--- To display the Permits report
*----------------------------------------------------------------------*
FORM DISPLAY_PERMITS.

DATA: LV_COLR_FLG.
WRITE: /05(127) SY-ULINE,
/05(01) SY-VLINE.
FORMAT COLOR 1 INTENSIFIED ON.

*--- Column Headings
WRITE: 06(12) 'Order'(006),
18(01) SY-VLINE,
19(30) 'Permit Description'(067),
49(01) SY-VLINE,
50(12) 'Requested on'(009),
62(01) SY-VLINE,
63(13) 'Required from'(010),
76(01) SY-VLINE,
77(11) 'Required to'(011),
88(01) SY-VLINE,
89(10) 'Valid from'(012),
99(01) SY-VLINE,
100(10) 'Valid to'(013),
110(01) SY-VLINE,
111(20) 'Requested By'(068),
131(01) SY-VLINE.
FORMAT RESET.
WRITE: /05(127) SY-ULINE.
*--- Looping at IT_PERMITS for data
LOOP AT IT_PERMITS.
WRITE: /05(01) SY-VLINE.
IF LV_COLR_FLG = SPACE.
FORMAT COLOR 2 INTENSIFIED OFF.
LV_COLR_FLG = 'X'.
ELSE.
FORMAT COLOR 4 INTENSIFIED OFF.
CLEAR LV_COLR_FLG.
ENDIF.
*--- Report Contents
*--- Checking if no data exists & displaying message
IF IT_PERMITS[] IS INITIAL.
WRITE: 06(120) 'No Data Exists For The Given Selection Criterion'(014),
131(01) SY-VLINE.
ELSE.
*--- If data exists, display report
WRITE: 06(12) IT_PERMITS-AUFNR HOTSPOT ON,
18(01) SY-VLINE.
READ TABLE IT_T357G_T WITH KEY PMSOG = IT_PERMITS-PMSOG.
IF SY-SUBRC = 0.
WRITE: 19(30) IT_T357G_T-GNTXT,
49(01) SY-VLINE.
ENDIF.
WRITE: 50(12) IT_PERMITS-REQDT,
62(01) SY-VLINE,
63(13) IT_PERMITS-FRDAT,
76(01) SY-VLINE,
77(11) IT_PERMITS-TODAT,
88(01) SY-VLINE,
89(10) IT_PERMITS-VALFROM,
99(01) SY-VLINE,
100(10) IT_PERMITS-VALTO,
110(01) SY-VLINE,
111(20) IT_PERMITS-NAME1,
131(01) SY-VLINE.
FORMAT RESET.
HIDE IT_PERMITS-AUFNR.
HIDE IT_PERMITS-PMSOG.
ENDIF.
ENDLOOP.

WRITE: /05(127) SY-ULINE.

ENDFORM. " DISPLAY_PERMITS
*&---------------------------------------------------------------------*
*& Form BUILD_HEADER
*&---------------------------------------------------------------------*
* To build the Header for the report
*----------------------------------------------------------------------*
FORM BUILD_HEADER.

*--- Displaying the Header Text
WRITE: /05(128) SY-ULINE.
WRITE: /05(01) SY-VLINE,
35(01) SY-VLINE,
05(01) SY-VLINE,
65(39) 'Genting Lanco Power (India) Private Ltd'(015) CENTERED,
132(01) SY-VLINE,

*--- Displaying the Header Text
/05(01) SY-VLINE,
35(01) SY-VLINE,
35(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
67(34) 'Lanco Kondapalli Power Plant'(016) CENTERED,
35(01) SY-VLINE,
132(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
35(97) SY-ULINE,
132(01) SY-VLINE.

*--- Displaying the Header Text
READ TABLE IT_PERMITS WITH KEY AUFNR = IT_PERMITS-AUFNR.
IF SY-SUBRC = 0.
*---- Read table IT_T357G_T
READ TABLE IT_T357G_T WITH KEY PMSOG = IT_PERMITS-PMSOG.
IF SY-SUBRC = 0.
WRITE: /05(01) SY-VLINE,
35(01) SY-VLINE,
70(30) IT_T357G_T-GNTXT CENTERED,
132(01) SY-VLINE,
35(01) SY-VLINE.
ENDIF.
ENDIF.
WRITE: 05(01) SY-VLINE,
35(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
35(01) SY-VLINE,
05(01) SY-VLINE,
132(01) SY-VLINE,
*--- To Display Notification No
/40(06) 'WR No:'(019).
*---- Read table IT_AFIH to get corresponding Notification No
READ TABLE IT_AFIH WITH KEY AUFNR = IT_PERMITS-AUFNR.
IF SY-SUBRC = 0.
WRITE: 48(18) IT_AFIH-QMNUM.
ENDIF.
*--- To Display Order No
WRITE: 112(06) 'WO No:'(020).
*---- Read table IT_PERMITS to get Order No
READ TABLE IT_PERMITS WITH KEY AUFNR = IT_PERMITS-AUFNR.
IF SY-SUBRC = 0.
WRITE: 120(10) IT_PERMITS-AUFNR.
ENDIF.

WRITE: 05(01) SY-VLINE,
35(01) SY-VLINE,
132(01) SY-VLINE.
WRITE: /05(128) SY-ULINE.

*--- Displaying the Header Text
WRITE: /05(01) SY-VLINE,
10(20) 'Responsible Person'(023),
37(01) SY-VLINE,
45(20) 'Revision No'(024),
65(01) SY-VLINE,
75(25) 'Revision Date'(025),
100(01) SY-VLINE,
113(05) 'Page'(027),
132(01) SY-VLINE,
/05(01) SY-VLINE,
37(01) SY-VLINE,
65(01) SY-VLINE,
100(01) SY-VLINE,
132(01) SY-VLINE.

*--- Displaying the Header Text
WRITE: /05(01) SY-VLINE,
10(20) 'Plant Shift Manager'(049),
37(01) SY-VLINE,
50(20) '0'(050),
65(01) SY-VLINE,
77(25) '14/10/00'(069),
100(01) SY-VLINE,
107(10) SY-PAGNO,
132(01) SY-VLINE.
WRITE : /05(128) SY-ULINE.
SKIP.

ENDFORM. " BUILD_HEADER
*&---------------------------------------------------------------------*
*& Form DISPLAY_REPORT
*&---------------------------------------------------------------------*
* To write the details report
*----------------------------------------------------------------------*
FORM DISPLAY_REPORT .

CLEAR: IT_TLINE,
IT_TLINE[].

DATA: LV_TEXT(132).
CLEAR IT_PERMITS.

*--- Conversion exit ALPHA, external->internal
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = V_AUFNR
IMPORTING
OUTPUT = V_AUFNR.

*---- Read to get the long text corresponding to the Order No
READ TABLE IT_PERMITS WITH KEY AUFNR = V_AUFNR
PMSOG = V_PMSOG.
IF SY-SUBRC = 0.
*--- Description Of Plant
CLEAR LV_TEXT.
LV_TEXT = 'Description Of Plant:'(028).
CONDENSE LV_TEXT.

*--- Displaying Description Of Plant
WRITE: /05(128) SY-ULINE.
WRITE: /05(01) SY-VLINE,
06(73) LV_TEXT,
132(01) SY-VLINE,
/5(01) SY-VLINE,
132(01) SY-VLINE.
CLEAR LV_TEXT.

*--- Read Table IT_AFIH to get Order No
READ TABLE IT_AFIH WITH KEY AUFNR = IT_PERMITS-AUFNR.
IF SY-SUBRC = 0.
*--- Read Table IT_ILOA to get Location and acc assignment for tec objfor Description Of Plant
READ TABLE IT_ILOA WITH KEY ILOAN = IT_AFIH-ILOAN.
IF SY-SUBRC = 0.
CLEAR V_DESC.

*--- Read Table IT_IFLOTX to get Functional Location for Description Of Plant
READ TABLE IT_IFLOTX WITH KEY TPLNR = IT_ILOA-TPLNR.
IF SY-SUBRC = 0.
*--- Read Table IT_EQKT to get
READ TABLE IT_EQKT WITH KEY EQUNR = IT_AFIH-EQUNR.
IF SY-SUBRC = 0.
CONCATENATE IT_IFLOTX-PLTXT ';' IT_EQKT-EQKTX INTO V_DESC separated by space.
ELSE.
V_DESC = IT_IFLOTX-PLTXT.
ENDIF.
ELSE .
V_DESC = IT_EQKT-EQKTX.
ENDIF.
ENDIF.
ENDIF.
WRITE: 06 V_DESC.
WRITE: 132 SY-VLINE,
/05 SY-VLINE,
132 SY-VLINE.
*--- Displaying Work to be Carried out
LV_TEXT = 'Work to be Carried out:'(029).
CONDENSE LV_TEXT.

WRITE: /05(01) SY-VLINE,
06(73) LV_TEXT,
132(01) SY-VLINE.

CLEAR LV_TEXT.
CLEAR V_ID.
V_NAME = IT_PERMITS-OBJNR.
V_NAME+22(10) = IT_PERMITS-COUNTER.

*--- Getting Long Text using Read_Text for Work to be carried out
V_ID = 'ZWCO'.
*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get for Work to be carried out
LOOP AT IT_TEXT.
WRITE: /05(01) SY-VLINE,
06(125) IT_TEXT-TEXT,
132(01) SY-VLINE.
ENDLOOP.
WRITE: /5(01) SY-VLINE,
132(01) SY-VLINE.
*--- Displaying Details Of Plant Isolation And Safety Precautions Taken
CLEAR LV_TEXT.
LV_TEXT = 'Details Of Plant Isolation And Safety Precautions Taken:'(030).
CONDENSE LV_TEXT.

WRITE: /06(73) LV_TEXT ,
05(01) SY-VLINE,
132(01) SY-VLINE.
CLEAR LV_TEXT.
*--- Getting Long Text using Read_Text for Details Of Plant Isolation And Safety Precautions Taken
CLEAR V_ID.
V_ID = 'ZDOI'.
*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get Details Of Plant Isolation And Safety Precautions Taken
LOOP AT IT_TEXT.
WRITE: /05(01) SY-VLINE,
06(125) IT_TEXT-TEXT,
132(01) SY-VLINE.
ENDLOOP.
WRITE: /5(01) SY-VLINE,
132(01) SY-VLINE.

*--- Displaying Safety and Fire Manager
CLEAR LV_TEXT.
LV_TEXT = 'Safety and Fire Manager:'(031).
CONDENSE LV_TEXT.

WRITE: /05(01) SY-VLINE,
06(30) LV_TEXT,
132(01) SY-VLINE.
CLEAR LV_TEXT.
*--- Getting Long Text using Read_Text for Safety and Fire Manager
V_ID = 'ZSFM'.
*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get Safety and Fire Manager
LOOP AT IT_TEXT.
WRITE: /05(01) SY-VLINE,
06(125) IT_TEXT-TEXT,
132(01) SY-VLINE.
ENDLOOP.
WRITE: /5(01) SY-VLINE,
132(01) SY-VLINE.
*--- Displaying General Manager
CLEAR LV_TEXT.
LV_TEXT = 'General Manager:'(032).
CONDENSE LV_TEXT.

WRITE: /05(01) SY-VLINE,
06(30) LV_TEXT,
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE.
*--- Displaying Earths applied
CLEAR LV_TEXT.
LV_TEXT = 'Earths applied:'(033).
CONDENSE LV_TEXT.

WRITE: /05(01) SY-VLINE,
06(30) LV_TEXT,
132(01) SY-VLINE.
CLEAR LV_TEXT.

*--- Displaying Earths applied text
WRITE: /05(01) SY-VLINE,
06(10) ' '(034),
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE.
*--- Displaying Special Precautions to be taken
LV_TEXT = 'Special Precautions to be taken:'(035).
CONDENSE LV_TEXT.

WRITE: /05(01) SY-VLINE,
06(73) LV_TEXT,
132(01) SY-VLINE.
CLEAR LV_TEXT.
*--- Getting Long Text using Read_Text for Special Precautions to be taken
CLEAR V_ID.
V_ID = 'ZOPR'.
*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get Special Precautions to be taken
LOOP AT IT_TEXT.
WRITE: /05(01) SY-VLINE,
06(125) IT_TEXT-TEXT,
132(01) SY-VLINE.
ENDLOOP.

WRITE: /05(01) SY-VLINE,
132(01) SY-VLINE.
WRITE: /05(128) SY-ULINE.

*--- Displaying Authorization
LV_TEXT = 'AUTHORIZATION:'(036).
CONDENSE LV_TEXT.

WRITE: /05(01) SY-VLINE,
06(73) LV_TEXT,
132(01) SY-VLINE,
05(01) SY-VLINE,
40(20) 'Lock Out Bolt1 No:'(037),
62(15) IT_PERMITS-LOCKBN1,
85(21) 'Lock Out Key1 No:'(038),
106(15) IT_PERMITS-LOCKKN1,
132(01) SY-VLINE,
/05(01) SY-VLINE,
40(20) 'Lock Out Bolt2 No:'(070),
62(20) IT_PERMITS-LOCKBN2,
85(21) 'Lock Out Key2 No:'(071),
106(20) IT_PERMITS-LOCKKN2,
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
10(10) 'Signature:'(039),
21 SY-ULINE(17),
40(05) 'Name'(040),
46 SY-ULINE(20),
80(05) 'Time'(041),
87 SY-ULINE(15),
110(05) 'Date'(042),
116 SY-ULINE(15),
132(01) SY-VLINE,
132(01) SY-VLINE,
*--- Authorised Person
/05(01) SY-VLINE,
20(30) '(Authorised Person)'(043),
132(01) SY-VLINE,
/05(128) SY-ULINE.
*--- Displaying Receipt
CLEAR LV_TEXT.
LV_TEXT = 'RECEIPT:'(066).
CONDENSE LV_TEXT.

WRITE: /05(01) SY-VLINE,
06(73) LV_TEXT,
132(01) SY-VLINE.
WRITE: 15(106) 'I have read this form and understand the special precautions to be taken during the job execution'(062),
/05(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
10(10) 'Signature:'(039),
21 SY-ULINE(17),
40(05) 'Name:'(040),
46 SY-ULINE(18),
65(08) 'Company:'(045),
74 SY-ULINE(20),
96(05) 'Time:'(041),
102 SY-ULINE(10),
114(05) 'Date:'(042),
121(10) SY-ULINE(10),
132(10) SY-VLINE,
*--- Competent Person in Charge of Work
/05(01) SY-VLINE,
20(80) '(Competent Person in Charge of Work)'(064),
132(01) SY-VLINE,
/05(128) SY-ULINE.

*--- Displaying Detail of Work Completed
CLEAR LV_TEXT.
LV_TEXT = 'Detail of Work Completed:'(047).
CONDENSE LV_TEXT.

WRITE: /05(01) SY-VLINE,
06(28) LV_TEXT,
132(01) SY-VLINE.
CLEAR LV_TEXT.
*--- Getting Long Text using Read_Text for Detail of Work Completed
CLEAR V_ID.
V_ID = 'ZMNT'.
*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get Detail of Work Completed
LOOP AT IT_TEXT.

WRITE: /05(01) SY-VLINE,
06(125) IT_TEXT-TEXT,
132(01) SY-VLINE.
ENDLOOP.

WRITE : 132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE,
06 SY-ULINE(126).
*--- Displaying Clearance (Competent Person in Charge of Work)
WRITE: /05(01) SY-VLINE,
06(115) 'CLEARANCE: Work as above completed / stopped,all tools material removed, area cleaned and men in charge withdrawn'(048),
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
10(10) 'Signature:'(039),
21 SY-ULINE(17),
40(05) 'Name:'(040),
46 SY-ULINE(18),
65(08) 'Company:'(045),
74 SY-ULINE(20),
96(05) 'Time:'(041),
102 SY-ULINE(10),
114(05) 'Date:'(042),
121(10) SY-ULINE(10),
132(10) SY-VLINE,
/05(01) SY-VLINE,
20(80) '(Competent Person in Charge of Work)'(064),
132(01) SY-VLINE,
05(01) SY-VLINE,
/05(128) SY-ULINE(128),
132(01) SY-VLINE.

*--- Displaying CANCELLATION: All copies of this PERMIT TO WORK
*--- are hereby cancelled
LV_TEXT = 'CANCELLATION: All copies of this PERMIT TO WORK are hereby cancelled'(052).
CONDENSE LV_TEXT.
WRITE: /05(01) SY-VLINE,
06(73) LV_TEXT,
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE,
/05(01) SY-VLINE,
10(10) 'Signature:'(039),
21 SY-ULINE(17),
40(05) 'Name'(040),
46 SY-ULINE(20),
80(05) 'Time'(041),
87 SY-ULINE(15),
110(05) 'Date'(042),
116 SY-ULINE(15),
132(01) SY-VLINE,
/05 SY-VLINE,
20(100) '(Authorised Person)'(043),
132 SY-VLINE.
WRITE: /05(128) SY-ULINE.
CLEAR LV_TEXT.
CLEAR IT_PERMITS.
ENDIF.
ENDFORM. " DISPLAY_OUTPUT
*&---------------------------------------------------------------------
*
*& Form BUILD_FOOTER
*&---------------------------------------------------------------------
*
*--- Footer for the report
*----------------------------------------------------------------------
*
FORM BUILD_FOOTER.

*--- Assigining footer text to Variables
V_FOOT1 ='We reserve all rights of this document and the information therein. Reproduction, use or disclosure to third parties'(053).
V_FOOT2 ='without authority is strictly forbidden.Genting Lanco Power(India)Private Limited 1999'(054).

WRITE : /05(128) SY-ULINE.
WRITE: /05(01) SY-VLINE,
06(125) V_FOOT1 ,
132(01) SY-VLINE,
/05(01) SY-VLINE,
06(125) V_FOOT2 ,
132(01) SY-VLINE,
/05(01) SY-VLINE,
132(01) SY-VLINE.
WRITE : /05(128) SY-ULINE.

ENDFORM. " BUILD_FOOTER
*&---------------------------------------------------------------------*
*& Form GET_LONGTEXT
*&---------------------------------------------------------------------*
* To get the Long Text for the Permits
*----------------------------------------------------------------------*
FORM GET_LONGTEXT.

*---- Refreshing the Header and Contents of the table ITAB
CLEAR: IT_TLINE,
IT_TLINE[].

CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = V_ID
LANGUAGE = SY-LANGU
NAME = V_NAME
OBJECT = C_OBJECT
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
LINES = IT_TLINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8 .

ENDFORM. " GET_LONGTEXT

*&---------------------------------------------------------------------*
*& Form CALL_EXCEL_DOWNLOAD
*&---------------------------------------------------------------------*
* To Call EXCEL download function
*----------------------------------------------------------------------*
FORM CALL_EXCEL_DOWNLOAD.

DATA: LV_LINES TYPE I, "Number of lines
LV_MESG(50) TYPE C, "Message
LV_ROW TYPE I, "Current Row
LV_LINE1 TYPE I.

*------ Show progress of the download operation
LV_MESG = ' Initialising Excel...'(055).
PERFORM SHOW_PROGRESS USING LV_MESG.

*----- Perform to create an OLE Excel Object
PERFORM CREATE_OLE_OBJECTS.

*----- Perform to Open an Existing OLE Excel Template
PERFORM OPEN_OLE_TEMPLATE USING V_SOURCE_FILE.

*----- Perform to draw a border for the Header Data of Report
PERFORM BUILD_BORDER USING 5 2 12 1.
PERFORM BUILD_BORDER USING 1 2 12 2.

*------ Show progress of the download operation
LV_MESG = ' Downloading Data to Excel...'(056).
PERFORM SHOW_PROGRESS USING LV_MESG.

*----- Fill Header Information to active Excel sheet
PERFORM FILL_CELL USING 1 5 1 'Genting Lanco Power (India) Private Ltd'(015).
PERFORM FILL_CELL USING 2 5 1 ' Lanco Kondapalli Power Plant'(016).
PERFORM FILL_CELL USING 4 6 1 IT_T357G_T-GNTXT.

*--- Reading table IT_AFIH for WO No
READ TABLE IT_AFIH WITH KEY AUFNR = IT_PERMITS-AUFNR.
*----- To Display Notification Number
PERFORM FILL_CELL USING 5 3 1 'WR No'(019).
PERFORM FILL_CELL USING 5 4 1 IT_AFIH-QMNUM.
*----- To Display Order Number
PERFORM FILL_CELL USING 5 10 1 'WO No'(020).
PERFORM FILL_CELL USING 5 11 1 IT_AFIH-AUFNR.

*---To Display Additional Header Information on Excel sheet
PERFORM FILL_CELL USING 7 1 1 'Responsible Person'(023).
PERFORM FILL_CELL USING 9 1 0 'Plant Shift Manager'(049).
*----- Border for Responsible Person
PERFORM BUILD_BORDER USING 6 3 1 10.

*--- To Display Revision No
PERFORM FILL_CELL USING 7 5 1 'Revision No'(024).
PERFORM FILL_CELL USING 9 5 0 '0'(050) .
*----- Border for Revision No
PERFORM BUILD_BORDER USING 6 6 1 10.

*--- To Display Revision Date
PERFORM FILL_CELL USING 7 8 1 'Revision Date'(025).
PERFORM FILL_CELL USING 9 8 0 '14/10/00'(069).
*--- Border for Revision Date
PERFORM BUILD_BORDER USING 6 9 1 10.

*--- To Display Page no.
PERFORM FILL_CELL USING 7 11 1 'Page'(027).
PERFORM FILL_CELL USING 9 11 0 '1'(057).
*----- Border for Page
PERFORM BUILD_BORDER USING 6 12 1 10.
*---
LV_LINES = 12.

*------- Fill Columns & headings to active Excel sheet
*----- For Full content border
LV_LINE1 = LV_LINES.

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.
*----- To Display Description Of Plant
PERFORM FILL_CELL USING LV_LINES 1 4 'Description Of Plant'(028).
*--- Incrementing Line count
LV_LINES = LV_LINES + 2.
PERFORM FILL_CELL USING LV_LINES 1 0 V_DESC.
*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- Getting Long Text using Read_Text for Work to be carried out
PERFORM FILL_CELL USING LV_LINES 1 4 'Work to be carried out:'(029).
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

*---- Read to get the long text corresponding to the Order No
READ TABLE IT_PERMITS WITH KEY AUFNR = V_AUFNR
PMSOG = V_PMSOG.
CLEAR V_ID.
V_ID = 'ZWCO'.
V_NAME = IT_PERMITS-OBJNR.
V_NAME+22(10) = IT_PERMITS-COUNTER.

*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get Work to be carried out
LOOP AT IT_TEXT.
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 1 0 IT_TEXT-TEXT.
ENDLOOP.

*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- Getting Long Text using Read_Text for Details Of Plant Isolation
*--- And Safety Precautions Taken
PERFORM FILL_CELL USING LV_LINES 1 4 'Details Of Plant Isolation And Safety Precautions Taken'(030).

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

CLEAR V_ID.
V_ID = 'ZDOI'.
V_NAME = IT_PERMITS-OBJNR.
V_NAME+22(10) = IT_PERMITS-COUNTER.

*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.

*--- Looping at IT_TEXT to get Details Of Plant Isolation And Safety Precautions Taken
LOOP AT IT_TEXT.
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 1 0 IT_TEXT-TEXT.
ENDLOOP.

*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- Getting Long Text using Read_Text for Safety and Fire Manager:
PERFORM FILL_CELL USING LV_LINES 1 4 'Safety and Fire Manager:'(031).

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

CLEAR V_ID.
V_ID = 'ZSFM'.
V_NAME = IT_PERMITS-OBJNR.
V_NAME+22(10) = IT_PERMITS-COUNTER.

*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get Safety and Fire Manager
LOOP AT IT_TEXT.
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 1 0 IT_TEXT-TEXT.
ENDLOOP.
*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- To Display General Manager
PERFORM FILL_CELL USING LV_LINES 1 4 'General Manager:'(032).
*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- To Display Earths applied
PERFORM FILL_CELL USING LV_LINES 1 4 'Earths applied:'(033).
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 1 0 ' '(034).
*--- Incrementing Line count
LV_LINES = LV_LINES + 3.

*--- Getting Long Text using Read_Text for Special Precautions to be taken
PERFORM FILL_CELL USING LV_LINES 1 4 'Special Precautions to be taken:'(035).
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

CLEAR V_ID.
V_ID = 'ZOPR'.
V_NAME = IT_PERMITS-OBJNR.
V_NAME+22(10) = IT_PERMITS-COUNTER.

*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get Special Precautions to be taken
LOOP AT IT_TEXT.
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 1 0 IT_TEXT-TEXT.
ENDLOOP.
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

*----- Border for the details box
PERFORM BUILD_BORDER USING LV_LINE1 1 12 LV_LINES.
LV_LINE1 = LV_LINES + 1.

*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- To Display Authorization box
PERFORM FILL_CELL USING LV_LINES 1 4 'AUTHORIZATION:'(036).
PERFORM FILL_CELL USING LV_LINES 5 4 'Lock Out Bolt1 No:'(037).
PERFORM FILL_CELL USING LV_LINES 7 4 IT_PERMITS-LOCKBN1.
PERFORM FILL_CELL USING LV_LINES 9 4 'Lock Out Key1 No:'(038).
PERFORM FILL_CELL USING LV_LINES 11 4 IT_PERMITS-LOCKKN1.

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

PERFORM FILL_CELL USING LV_LINES 5 4 'Lock Out Bolt2 No:'(070).
PERFORM FILL_CELL USING LV_LINES 7 4 IT_PERMITS-LOCKBN2.
PERFORM FILL_CELL USING LV_LINES 9 4 'Lock Out Key2 No:'(071).
PERFORM FILL_CELL USING LV_LINES 11 4 IT_PERMITS-LOCKKN2.

*--- Incrementing Line count
LV_LINES = LV_LINES + 3.

PERFORM FILL_CELL USING LV_LINES 1 4 'Signature: _________________ Name: ______________________'(058).
PERFORM FILL_CELL USING LV_LINES 9 4 'Time: __________ Date: _________'(059).

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 2 4 '(Authorised Person)'(043).
LV_LINES = LV_LINES + 1.

*----- Border for the Authorisations box
PERFORM BUILD_BORDER USING LV_LINE1 1 12 LV_LINES.
*----- For Full content border
LV_LINE1 = LV_LINES + 1.

*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- To Display Receipt box
PERFORM FILL_CELL USING LV_LINES 1 4 'RECEIPT:'(066).
PERFORM FILL_CELL USING LV_LINES 2 4 'I have read this form and understand the special precautions to be taken during the job execution'(062).

*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

PERFORM FILL_CELL USING LV_LINES 1 4 'Signature: _________________ Name: ______________________'(058).
PERFORM FILL_CELL USING LV_LINES 6 4 'Company: _________________ Time: __________ Date: _________'(060).

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

PERFORM FILL_CELL USING LV_LINES 2 4 '(Competent Person in Charge of Work)'(064).
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

*----- Border for the RECEIPT box
PERFORM BUILD_BORDER USING LV_LINE1 1 12 LV_LINES.
*----- For Full content border
LV_LINE1 = LV_LINES + 1.
*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- To Display Detail of Work Completed box
PERFORM FILL_CELL USING LV_LINES 1 4 'Detail of Work Completed:'(047).
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

CLEAR V_ID.
V_ID = 'ZMNT'.
V_NAME = IT_PERMITS-OBJNR.
V_NAME+22(10) = IT_PERMITS-COUNTER.

*--- Perform to get the longtext and split it
PERFORM SPLIT_TEXT.
*--- Looping at IT_TEXT to get Detail of Work Completed
LOOP AT IT_TEXT.
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 1 0 IT_TEXT-TEXT.
ENDLOOP.
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

*----- Border for the Detail of work completed
PERFORM BUILD_BORDER USING LV_LINE1 1 12 LV_LINES.
*----- For Full content border
LV_LINE1 = LV_LINES + 1.

*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- To Display Clearance box
PERFORM FILL_CELL USING LV_LINES 1 4 'CLEARANCE: Work as above completed / stopped,all tools material removed, area cleaned and men in charge withdrawn'(048).
*--- Incrementing Line count
LV_LINES = LV_LINES + 3.

PERFORM FILL_CELL USING LV_LINES 1 4 'Signature: _________________ Name: ______________________'(058).
PERFORM FILL_CELL USING LV_LINES 6 4 'Company: ________________ Time: __________ Date: _________'(060).

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

*--- To Display Competent Person in Charge of Work
PERFORM FILL_CELL USING LV_LINES 2 4 '(Competent Person in Charge of Work)'(064).

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.
*----- Border for the Detail of Clearance
PERFORM BUILD_BORDER USING LV_LINE1 1 12 LV_LINES.

*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*--- To Display Cancellation box
PERFORM FILL_CELL USING LV_LINES 1 4 'CANCELLATION: All copies of this PERMIT TO WORK are hereby cancelled'(052).

*--- Incrementing Line count
LV_LINES = LV_LINES + 3.

PERFORM FILL_CELL USING LV_LINES 1 4 'Signature: _________________ Name: ______________________'(058).
PERFORM FILL_CELL USING LV_LINES 9 4 'Time: __________ Date: _________'(059).
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 2 6 '(Authorised Person)'(043).
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

*----- Border for the Detail of Cancellation
PERFORM BUILD_BORDER USING LV_LINE1 1 12 LV_LINES.
*--- Incrementing Line count
LV_LINES = LV_LINES + 2.

*----- For Full content border
LV_LINE1 = LV_LINES + 1.

*------ Fill the Footer Data into the Active Excel Object
LV_ROW = LV_LINES + 2.

*--- Filling the footer texts
V_FOOT1 = 'We reserve all rights of this document and the information therein. Reproduction, use or disclosure to third parties'(053).
V_FOOT2 = 'without authority is strictly forbidden.Genting Lanco Power(India)Private Limited 1999'(054).

*--- Incrementing Line count
LV_LINES = LV_LINES + 1.

*--- Row Incremanting
LV_ROW = LV_LINES + 2.
*----- Border for the Detail of Disclaimer
PERFORM BUILD_BORDER USING LV_LINES 12 1 LV_ROW.
PERFORM FILL_CELL USING LV_LINES 1 1 V_FOOT1.
*--- Incrementing Line count
LV_LINES = LV_LINES + 1.
PERFORM FILL_CELL USING LV_LINES 1 1 V_FOOT2.

*------ Show progress of the download operation
LV_MESG = 'Saving Excel File...'(061).
PERFORM SHOW_PROGRESS USING LV_MESG.

*----- Perform to Save the OLE Object to a destination File
PERFORM SAVE_OLE_OBJECT USING V_DESTINATION_FILE.

*----- Perform to free all the OLE Objects
PERFORM FREE_OLE_OBJECTS.

ENDFORM. " CALL_EXCEL_DOWNLOAD

*&---------------------------------------------------------------------*
*& Form CHOOSE_FILE *
*&---------------------------------------------------------------------*
* form to choose destination for downloading report to Excel *
*----------------------------------------------------------------------*

FORM CHOOSE_FILE CHANGING F_FILE TYPE RLGRAP-FILENAME.

DATA: IFILE TYPE FILETABLE.
DATA: XFILE LIKE LINE OF IFILE.
DATA: RC TYPE I.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
* WINDOW_TITLE =
DEFAULT_EXTENSION = 'XLS'
DEFAULT_FILENAME = 'Electrical_Permit_To_Work'
FILE_FILTER = '*.XLS'
* WITH_ENCODING =
INITIAL_DIRECTORY = 'C:\'
* MULTISELECTION =
CHANGING
FILE_TABLE = IFILE
RC = RC
* USER_ACTION =
* FILE_ENCODING =
* exceptions
* file_open_dialog_failed = 1
* cntl_error = 2
* error_no_gui = 3
* not_supported_by_gui = 4
* others = 5
.

READ TABLE IFILE INTO XFILE INDEX 1.
IF SY-SUBRC = 0 .
F_FILE = XFILE-FILENAME.
ENDIF.

ENDFORM. " CHOOSE_FILE

*&---------------------------------------------------------------------*
*& Form SHOW_PROGRESS
*&---------------------------------------------------------------------*
* Indicate the progress of download process
*----------------------------------------------------------------------*
FORM SHOW_PROGRESS USING P_TEXT . "LV_COUNT.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
* PERCENTAGE = LV_COUNT
TEXT = P_TEXT
EXCEPTIONS
OTHERS = 1.

ENDFORM. " SHOW_PROGRESS

*&---------------------------------------------------------------------*
*& Form SPLIT_TEXT
*&---------------------------------------------------------------------*
* To Split Long text into lines
*----------------------------------------------------------------------*
FORM SPLIT_TEXT .

DATA: LV_TEXT(350),
LV_STRLEN TYPE I,
LV_TXT(255),
LV_RTEXT(350),
LV_LEN TYPE I,
LV_FLAG.

V_NAME = IT_PERMITS-OBJNR.
V_NAME+22(10) = IT_PERMITS-COUNTER.

CLEAR: IT_TLINE, IT_TLINE[], IT_TEXT, IT_TEXT[], IT_RTEXT, IT_RTEXT[].
*--- Perform to get Long Text
PERFORM GET_LONGTEXT." USING V_ID.

LV_LEN = 125.

LOOP AT IT_TLINE.

IF lv_flag = space.
LV_TEXT = IT_TLINE-TDLINE.
lv_flag = 'X'.
CONTINUE.
ENDIF.

LV_TXT = IT_TLINE-TDLINE.
*---To calculate string length
LV_STRLEN = STRLEN( LV_TEXT ).

IF IT_TLINE-TDFORMAT = SPACE.
*--- to concatenate lv_text with LV_TXT
CONCATENATE LV_TEXT LV_TXT INTO LV_TEXT SEPARATED BY SPACE.
LV_STRLEN = STRLEN( LV_TEXT ).
ELSEIF LV_TEXT IS NOT INITIAL AND LV_STRLEN < 125.
IT_TEXT-TEXT = LV_TEXT.
APPEND IT_TEXT.
CLEAR: IT_TEXT , LV_TEXT.
LV_STRLEN = 0.
LV_TEXT = LV_TXT.
CONTINUE.
ENDIF.

* ---Check whether the length is greater than the length of a single line
IF LV_STRLEN > 125 .
DO.
LV_LEN = LV_LEN - 1.
IF LV_TEXT+LV_LEN(1) = SPACE.
LV_LEN = LV_LEN + 1.
LV_STRLEN = LV_STRLEN - LV_LEN.
LV_RTEXT = LV_TEXT+LV_LEN(LV_STRLEN) .
IT_TEXT-TEXT = LV_TEXT+0(LV_LEN).
APPEND IT_TEXT.
CLEAR: IT_TEXT, LV_TEXT.
EXIT.
ENDIF.
ENDDO.
*----to calculate the string length
LV_STRLEN = STRLEN( LV_RTEXT ).

WHILE LV_STRLEN > 125.
IT_TEXT-TEXT = LV_RTEXT+0(125).
APPEND IT_TEXT.
CLEAR: IT_TEXT , LV_TEXT.
LV_STRLEN = LV_STRLEN - 125.
LV_RTEXT = LV_RTEXT+125(LV_STRLEN).
LV_STRLEN = STRLEN( LV_RTEXT ).
ENDWHILE.
LV_TEXT = LV_RTEXT.

ELSEIF IT_TLINE-TDFORMAT NE SPACE..

IT_TEXT-TEXT = LV_TEXT.
APPEND IT_TEXT.
CLEAR: IT_TEXT , LV_TEXT.
LV_TEXT = LV_TXT.
ENDIF.
*--- to initialise LV_LEN to 125
LV_LEN = 125.

ENDLOOP.

IT_TEXT-TEXT = LV_TEXT.
APPEND IT_TEXT.
CLEAR: IT_TEXT , LV_TEXT.

ENDFORM. " SPLIT_TEXT