Constants reading in abap report

Hello All,
i have developed a custom report which is having the feilds like pernr,workdate,time these all fields it is fetching from catsdb table adn displaying it in alv grid display,now my requirement is i need to display a consta called break time with the data 9 to10, how can i
get that break time field along with the data in the same report in alv grid display fromat,this is very importnat to me,
by Moderator:PL avoid using forbidden words
& abide by forum rules.
Edited by: Suresh Datti on Aug 31, 2009 12:53 PM

types : begin of ity_type,
    COUNTER type CATSCOUNTE,
    PERNR     type PERNR_D,
   WORKDATE     type CATSDATE,
     GV_FIELD type i,
    end of ity_type.
data : itab type standard table of ity_type,
          is type ity_type.
fetch the values from table.
and in a loop you can pass the value you want to the GV_FIELD as 9 or 10.

Similar Messages

Reading PDF in ABAP report

Hi all,
Is Adobe Document Services (ADS) necessary for reading PDF files directly in ABAP report? Maybe there is other way?
Best regards
Marcin Cholewczuk

I guess there is no such solution. I think it's time for new project on Code Exchange platform
Best regards
Marcin Cholewczuk

How to read RRI sent parameters in ABAP Report??(Urgent)

I have my own ABAP report. How can I read parameter that RRI sent to me from BEX Query? I know it's possibly needed to setup table name in RSBBS for each element.

hi,
i am failing to see relevance of this post in WebDynpro for ABAP forum. Requesting moderator to move to ABAP general forum.

Reading and printing the pdf file in abap reports.

Hello friends .
how to read pdf file and print the contents of the pdf file in abap reports.?
Edited by: Shivanand Kalagi on Jan 11, 2008 12:47 PM

HI Brad Bohn,
Issue is not only with the file damaged.
My requirement is to place the PDF file in FTP folder using FTP_COMMAND, FTP_R3_TO_SERVER Function Modules.
I'm placing the PDF sucessfully in FTP Folder. When i try to open it's showing the "File cannot be opened because it's damaged....".
I'm not sure whether i'm placing the PDF file in correct way.
Regards,
Saran

ABAP report to read request details in data-target and delete

Hi,
Is there any abap report which I can run in background to read all request details (Request ID, Date) in a data target?
And any ABAP report which can delete a particular request?
Regards
Vikrant

Hi Vikrant,
You can check Table RSREQDONE and RSREQICODS for all details about requests.
About deletion you can try with standard function in InfoPackage when uploading.
Ciao.
Riccardo.

Read BDS documents in an ABAP report

I have entered comments in BPS using standard functionnality. I would like to create an ABAP report to display content of my comments to avoid having to click on each icon. Do you know what are the function modules or abap report to call. Any piece of codes for this purpose would be highly appreciated.
Thanks

Hi,
You can use NEW-LINE NO-SCROLLING before writing the row using WRITE statement.
This may not be useful for you now, but it will help for someone who are looking for help on this.
Thanks,
MK.

Is it possible to read a mySQL database from an ABAP report?

We have some information stored in a mySQL database which is now required on ABAP reports.
Is it possible to read the mySQL database from an ABAP report? I'm still a bit confused on that.
So far I have setup DBCO with information about the mySQL server using MMS as the DBS because mySQL was not an option. I have made sure we have the latest dbmssslib.dll installed.
When I try to run the following code
EXEC SQL.
    CONNECT TO :con
ENDEXEC.
I get error: SQL Server does not exist or access denied.
Then I have tried to connect using the function CHECK_CONNECTION_SDB.
I get the following messages in the return table:
1     OS-AppServ:Windows NT
2     dbmcli_neg: no_client_software
3     dbmrfc_c_neg: no_client_software
4     dbmrfc_s_neg: no_client_software
5     sql_neg
6     work_proc: 1
Does anyone know what I need to do to connect to the mySQL database.
Thank you
Karen

Thank you for your reply. I've gone through all the documentation you sent and much more and I'm still not sure what the problem is.
One thing that concerns me is that this all relates to MS SQL server and I'm trying to link to a mySQL database. Is this even possible?
Some posts talk about changing Oracle settings and having J2EE installed. Is this necessary to connect to a mySQL database via ABAP?
Which user should I enter into DBCO? Is it the mySQL server user or a SAP user? Does the person in charge of the mySQL database need to add any permissions for SAP to access the database or is that done by the user in DBCO?
Does anyone have any more advice?
Thank you
Karen
Also, does anyone know what the messages from the CHECK_CONNECTION_SDB function mean
1 OS-AppServ:Windows NT
2 dbmcli_neg: no_client_software
3 dbmrfc_c_neg: no_client_software
4 dbmrfc_s_neg: no_client_software
5 sql_neg
6 work_proc: 1
Edited by: Karen Dean on Oct 6, 2009 4:44 AM

How to download a ABAP report to text file

Hi Experts,
I want to save a ABAP report to a local file in my PC (*txt format). Since it uses a lot of includes, I have to download those ones too.. Is there is quickway to save the main program and all it's subprograms to a text file ?
Regards
Shibu

Hi,
Try this report, it will solve u r problem,
TABLES:TRDIR.
SELECT-OPTIONS: PGMNAME FOR TRDIR-NAME.
CONSTANTS: LINESIZE value 2048.
PARAMETERS:
 HEADING AS CHECKBOX DEFAULT 'X',
 FGROUP AS CHECKBOX,
 USER LIKE TRDIR-CNAM DEFAULT '*',
 DOWNLOAD AS CHECKBOX default 'X',
 pa_TEXTP AS CHECKBOX,
 DOWNDIR(80) DEFAULT 'C:\temp\',
 chg_date(8) default '19000101',
 chg_time(6) default '000000'.
 PGMNAME like TRDIR-NAME.
DATA:
 W_TEXT(128),
 W_FILENAME(128),
 W_PROGRAM_LOW(8),
 W_PROGRAM_HIGH(8).
DATA:
 _texttab type textpool,
 texttab type standard table of textpool initial size 0
 with header line,
 BEGIN OF TEXTTAB OCCURS 0,
 ID(1),
 KEY(8),
 ENTRY(70),
 END OF TEXTTAB,
 BEGIN OF ABAPTAB OCCURS 500,
 LINE(72),
 line(LINESIZE),
 END OF ABAPTAB,
 BEGIN OF TRTAB OCCURS 0,
 NAME LIKE TRDIR-NAME,
 ENTRY LIKE TEXTTAB-ENTRY,
 CDAT LIKE TRDIR-CDAT,
 UDAT LIKE TRDIR-UDAT,
 END OF TRTAB,
 BEGIN OF TRFTAB OCCURS 0,
 NAME LIKE TRDIR-NAME,
 ENTRY LIKE TEXTTAB-ENTRY,
 CDAT LIKE TRDIR-CDAT,
 UDAT LIKE TRDIR-UDAT,
 END OF TRFTAB.
START-OF-SELECTION.
 IF FGROUP = ' '.
 PERFORM LOAD_TRDIR_PROGRAM.
 PERFORM PROCESS_PROGRAM.
 ELSE.
 PERFORM LOAD_TRDIR_FGROUP.
 PERFORM PROCESS_FGROUP.
 ENDIF.
*& form load_trdir_program.
FORM LOAD_TRDIR_PROGRAM.
 SELECT * FROM TRDIR
 WHERE NAME IN PGMNAME
 and sdate >= chg_date
 and stime >= chg_time.
 IF USER <> '*'.
 CHECK TRDIR-UNAM = USER OR
 TRDIR-CNAM = USER.
 ENDIF.
 CLEAR: TEXTTAB.
 REFRESH: TEXTTAB.
 CLEAR: TRTAB.
 READ TEXTPOOL TRDIR-NAME INTO TEXTTAB LANGUAGE 'E'.
 IF SY-SUBRC = 0.
 READ TABLE TEXTTAB WITH KEY 'R'.
 MOVE TEXTTAB-ENTRY TO TRTAB-ENTRY.
 ENDIF.
 MOVE TRDIR-NAME TO TRTAB-NAME.
 MOVE TRDIR-CDAT TO TRTAB-CDAT.
 MOVE TRDIR-UDAT TO TRTAB-UDAT.
 APPEND TRTAB.
 CLEAR: TEXTTAB.
 ENDSELECT.
ENDFORM. " load_trdir_program
*& Form load_trdir_fgroup
FORM LOAD_TRDIR_FGROUP.
 SELECT * FROM TRDIR
 WHERE NAME BETWEEN 'SAPLYYYY' AND 'SAPLZZZZ'.
 CHECK TRDIR-UNAM = USER OR TRDIR-CNAM = USER.
 CLEAR: TEXTTAB.
 CLEAR: TRTAB.
 REFRESH: TEXTTAB.
 READ TEXTPOOL TRDIR-NAME INTO TEXTTAB LANGUAGE 'E'.
 IF SY-SUBRC = 0.
 READ TABLE TEXTTAB WITH KEY 'R'.
 MOVE TEXTTAB-ENTRY TO TRTAB-ENTRY.
 ENDIF.
 MOVE TRDIR-NAME TO TRTAB-NAME.
 MOVE TRDIR-CDAT TO TRTAB-CDAT.
 MOVE TRDIR-UDAT TO TRTAB-UDAT.
 APPEND TRTAB.
 CLEAR: TEXTTAB.
 ENDSELECT.
 LOOP AT TRTAB.
 MOVE-CORRESPONDING TRTAB TO TRFTAB.
 APPEND TRFTAB.
 MOVE TRTAB-NAME+3(5) TO W_PROGRAM_LOW.
 MOVE '%' TO W_PROGRAM_LOW+5(1).
 MOVE TRTAB-NAME+3(5) TO W_PROGRAM_HIGH.
 MOVE 'MMMMMMMM' TO W_PROGRAM_HIGH.
 SELECT * FROM TRDIR
 WHERE NAME LIKE W_PROGRAM_LOW.
*where name between w_program_low and w_program_high.
 CHECK TRDIR-NAME+5(1) <> '$'.
 CHECK TRDIR-NAME(5) =
 TRTAB-NAME+3(5).
 READ TEXTPOOL TRDIR-NAME INTO
 TEXTTAB LANGUAGE 'E'.
 READ TABLE TEXTTAB WITH KEY 'R'.
 MOVE TEXTTAB-ENTRY TO TRFTAB-ENTRY.
 MOVE TRDIR-NAME TO TRFTAB-NAME.
 MOVE TRDIR-CDAT TO TRFTAB-CDAT.
 MOVE TRDIR-UDAT TO TRFTAB-UDAT.
 APPEND TRFTAB.
 ENDSELECT.
 ENDLOOP.
ENDFORM. " load_trdir_fgroup.
 FORM PROCESS_PROGRAM
FORM PROCESS_PROGRAM.
 LOOP AT TRTAB.
 READ REPORT TRTAB-NAME INTO ABAPTAB.
 IF DOWNLOAD = 'X'.
 PERFORM DOWNLOAD_PROGRAMS USING TRTAB-NAME.
 ELSE.
 PERFORM LIST_PROGRAMS USING TRTAB-NAME.
 ENDIF.
 IF pa_TEXTP = 'X'.
 READ TEXTPOOL TRTAB-NAME INTO TEXTTAB LANGUAGE
 'E'.
 IF SY-SUBRC = 0 AND DOWNLOAD = 'X'.
 PERFORM DOWNLOAD_TEXTPOOL USING
 TRTAB-NAME.
 ENDIF.
 LOOP AT TEXTTAB.
 WRITE:/
 TEXTTAB-ID,
 TEXTTAB-KEY,
 TEXTTAB-ENTRY.
 ENDLOOP.
 ENDIF.
 ENDLOOP.
ENDFORM.
 FORM PROCESS_fgroup
FORM PROCESS_FGROUP.
 LOOP AT TRFTAB.
 READ REPORT TRFTAB-NAME INTO ABAPTAB.
 IF DOWNLOAD = 'X'.
 PERFORM DOWNLOAD_PROGRAMS USING TRFTAB-NAME.
 ELSE.
 PERFORM LIST_PROGRAMS USING TRFTAB-NAME
 ENDIF.
 IF pa_TEXTP = 'X'.
 READ TEXTPOOL TRFTAB-NAME INTO TEXTTAB LANGUAGE
 'E'.
 IF SY-SUBRC = 0 AND DOWNLOAD = 'X'.
 PERFORM DOWNLOAD_TEXTPOOL USING
 TRFTAB-NAME.
 LOOP AT TEXTTAB.
 WRITE:/
 TEXTTAB-ID,
 TEXTTAB-KEY,
 TEXTTAB-ENTRY.
 ENDLOOP.
 ENDIF.
 ENDIF.
 ENDLOOP.
ENDFORM.
*& Form DOWNLOAD_PROGRAMS
FORM DOWNLOAD_PROGRAMS USING NAME.
 W_TEXT = 'Downloading'.
 W_TEXT+15(8) = NAME.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 TEXT = W_TEXT
 EXCEPTIONS
 OTHERS = 1.
 clear w_filename.
 MOVE DOWNDIR TO W_FILENAME(80).
 MOVE NAME TO W_FILENAME+20(8).
 MOVE '.txt' TO W_FILENAME+28(4).
 CONDENSE W_FILENAME NO-GAPS.
 concatenate w_filename name '.doc' into w_filename.
 condense w_filename no-gaps.
 CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = W_FILENAME
 FILETYPE = 'ASC'
 TABLES
 DATA_TAB = ABAPTAB
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TABLE_WIDTH = 4
 INVALID_TYPE = 5
 NO_BATCH = 6
 UNKNOWN_ERROR = 7
 OTHERS = 8.
ENDFORM. " DOWNLOAD_PROGRAMS
*& Form LIST_PROGRAMS
FORM LIST_PROGRAMS USING NAME.
 LOOP AT ABAPTAB.
 WRITE:/ NAME, ABAPTAB-LINE.
 ENDLOOP.
ENDFORM. " LIST_PROGRAMS
*& Form DOWNLOAD_TEXTPOOL
FORM DOWNLOAD_TEXTPOOL USING NAME.
 W_TEXT = 'Textpool...'.
 W_TEXT+15(8) = NAME.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 TEXT = W_TEXT
 EXCEPTIONS
 OTHERS = 1.
 MOVE DOWNDIR TO W_FILENAME(80).
 MOVE TRTAB-NAME TO W_FILENAME+20(8).
 MOVE '.tpl' TO W_FILENAME+28(4).
 CONDENSE W_FILENAME NO-GAPS.
 CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = W_FILENAME
 FILETYPE = 'ASC'
 TABLES
 DATA_TAB = TEXTTAB
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TABLE_WIDTH = 4
 INVALID_TYPE = 5
 NO_BATCH = 6
 UNKNOWN_ERROR = 7
 OTHERS = 8.
ENDFORM. " DOWNLOAD_TEXTPOOL
TOP-OF-PAGE.
 IF HEADING = 'X'.
 Place your heading here:
 call function 'Z_WRITE_HEADER_FOOTER'
 exporting
 type = 'H'
 exceptions
 others = 1.
 skip 1.
 ENDIF.
Regards
Nilesh

Serious Performance Problems in ABAP Reports

Hi All,
We are developing ABAP reports for SAP IS-U/CCS Modules and facing Performance issues.Whole scenario is given below.Please suggest some solution.
1. Total No. Of Business Partners = 1500000
2. Reports Selection Criteria are of two types:
 a) GSBER(Business Area) - Selection for atleast 200000 Business Partners
 b) Cokey(Division) - Selection for around 1000 to 50000 Business Partners
3. For implementing our reports logic we have to access several tables all of which are very large.They are :
 Table Name No. of records (Appx)
 DBERCHV 20000000
 DBERCHZ1 20000000
 DBERDLB 20000000
 DFKKKO 20000000
 DFKKOP 20000000
 EANLH 4000000
 ERCH 10000000
 ERCHC 10000000
 ETTIFN 30000000
 EVER 1500000
 FKKVKP 1500000
 TECOKT 500
 TGSBT 12
4. Due to large no. of records we are facing problems at two levels:
 a) OpenSQL Statement is taking too much time for data selection
 b) Since large no. of records are selected Corresponding loops and data processing also takes much time
5. We have tried almost all ABAP Performance optimization techniques such as using Index, SQL optimization techniques,Read Table Optimization, Loop Statement Optimization etc. but there is not much improvement.
6. For example one of our Reports "R15" takes around 1500 seconds for 1000 Business Partners.
Its Code is attached below:
a) ZISU_SCHL_LTR15_BAPI - Program which schedules actual R15 report in background
*& Report ZISU_SCHL_LTR15_BAPI *
*& Developed By : Piyusha Kirwai *
*& Date : 02/12/2005 *
*& Purpose : To Schedule the LT R 15 prog in background and store
*& the File for Manual R-15 into server.
REPORT ZISU_SCHL_LTR15_BAPI NO STANDARD PAGE HEADING.
TABLES ZEVERFKKVKP.
DATA: DYFIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.
DATA: IT_TAB TYPE FILETABLE,
 GD_SUBRC TYPE I.
DATA: LV_GSBER TYPE TGSBT-GSBER.
RANGES R_COKEY FOR ZEVERFKKVKP-COKEY.
DATA: BEGIN OF GT_TECOKT OCCURS 100,
 COKEY TYPE TECOKT-COKEY,
 LTEXT TYPE TECOKT-LTEXT,
 END OF GT_TECOKT,
 BEGIN OF GT_TE422 OCCURS 100,
 TERMSCHL TYPE TE422-TERMSCHL,
 TERMTEXT TYPE TE422-TERMTEXT,
 END OF GT_TE422.
DATA: BEGIN OF GWA_MANUAL_DATA,
 COL_1(5) TYPE C,
 COL_2(10) TYPE C,
 COL_3(40) TYPE C,
 COL_4(40) TYPE C,
 COL_5(10) TYPE C,
 COL_6(19) TYPE C,
 COL_7(19) TYPE C,
 COL_8(19) TYPE C,
 COL_9(19) TYPE C,
 COL_10(19) TYPE C,
 COL_11(19) TYPE C,
 COL_12(10) TYPE C,
 COL_13(19) TYPE C,
 COL_14(19) TYPE C,
 COL_15(19) TYPE C,
 COL_16(19) TYPE C,
 COL_17(19) TYPE C,
 COL_18(19) TYPE C,
 END OF GWA_MANUAL_DATA,
 GT_MANUAL_DATA LIKE GWA_MANUAL_DATA OCCURS 0,
 GT_INTERN_DATA TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
*&-----FOR UPLOADING FILE TO SERVER------------------------------------*
DATA: LV_SERVER_FILE_PREFIX(60) TYPE C.
DATA: LV_SERVER_DATAFILE_NAME(60) TYPE C.
DATA: LV_SERVER_ERRFILE_NAME(60) TYPE C.
DATA: ENDT LIKE SY-UZEIT,
 ENDD LIKE SY-DATUM,
 JOBCOUNT TYPE TBTCJOB-JOBCOUNT.
SELECTION-SCREEN BEGIN OF BLOCK 001 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: SO_GSBER FOR ZEVERFKKVKP-GSBER OBLIGATORY,
 SO_COKEY FOR ZEVERFKKVKP-COKEY OBLIGATORY,
 SO_MRU FOR ZEVERFKKVKP-ABLEINH.
PARAMETERS: P_BMNTH(7) TYPE C OBLIGATORY.
SELECT-OPTIONS: SO_GPART FOR ZEVERFKKVKP-GPART.
SELECTION-SCREEN END OF BLOCK 001.
SELECTION-SCREEN BEGIN OF BLOCK 002 WITH FRAME TITLE TEXT-003.
PARAMETERS: P_COMPUT RADIOBUTTON GROUP R15,
 P_INCLUD RADIOBUTTON GROUP R15,
 P_FILE TYPE RLGRAP-FILENAME MODIF ID ACT.
SELECTION-SCREEN END OF BLOCK 002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(83) TEXT-004.
SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN BEGIN OF LINE.
* SELECTION-SCREEN COMMENT 8(40) TEXT-005.
*SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK 003 WITH FRAME TITLE TEXT-002.
PARAMETERS P_SCHL TYPE C AS CHECKBOX.
PARAMETERS : P_IMMED RADIOBUTTON GROUP SCH ,
 P_DT_TM RADIOBUTTON GROUP SCH,
 P_DATE TYPE SY-DATUM MODIF ID SHL,
 P_TIME TYPE SY-UZEIT MODIF ID SHL.
SELECTION-SCREEN END OF BLOCK 003.
AT SELECTION-SCREEN.
AT SELECTION-SCREEN ON SO_GSBER.
IF NOT SO_GSBER-LOW IS INITIAL.
 SELECT SINGLE GSBER FROM TGSBT INTO LV_GSBER
 WHERE GSBER = SO_GSBER-LOW.
 IF SY-SUBRC <> 0.
 MESSAGE E007(ZISU).
 ENDIF.
ENDIF.
IF NOT SO_GSBER-HIGH IS INITIAL .
 SELECT SINGLE GSBER FROM TGSBT INTO LV_GSBER
 WHERE GSBER = SO_GSBER-HIGH.
 IF SY-SUBRC <> 0.
 MESSAGE E007(ZISU).
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON P_BMNTH.
**check the validity of Billing month format and for valid billing month
IF P_BMNTH CO '0123456789/'.
 IF P_BMNTH CP '++++/++'.
 IF P_BMNTH+5(2) > 12.
 MESSAGE E002(ZISU) WITH 'from'.
 ENDIF.
** current year is less than year entered
 IF SY-DATUM(4) < P_BMNTH(4).
 MESSAGE E003(ZISU) WITH 'from'.
 ELSEIF SY-DATUM(4) = P_BMNTH(4).
** month in future
 IF SY-DATUM+4(2) < P_BMNTH+5(2).
 MESSAGE E004(ZISU) WITH 'from'.
 ENDIF.
 ENDIF.
 ELSE.
 MESSAGE E001(ZISU) WITH 'from'.
 ENDIF.
ELSE.
** entry have some invalid char
 MESSAGE E010(ZISU).
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_COKEY-LOW.
**for geting the CO account assigment key of the entered Business area
CLEAR: DYFIELDS[], DYFIELDS.
PERFORM DIVISON_DATA_GET CHANGING SO_COKEY-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_COKEY-HIGH.
**for geting the CO account assigment key of the entered Business area
CLEAR: DYFIELDS[], DYFIELDS.
PERFORM DIVISON_DATA_GET CHANGING SO_COKEY-HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_MRU-LOW.
CLEAR: DYFIELDS[], DYFIELDS.
PERFORM MRU_DATA_GET CHANGING SO_MRU-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_MRU-HIGH.
CLEAR: DYFIELDS[], DYFIELDS.
PERFORM MRU_DATA_GET CHANGING SO_MRU-HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
REFRESH: IT_TAB.
**Opens File Open Dialog Box for selecting input file.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
 EXPORTING
 WINDOW_TITLE = 'Select File'
 DEFAULT_FILENAME = '*.xls'
 MULTISELECTION = ' '
 CHANGING
 FILE_TABLE = IT_TAB
 RC = GD_SUBRC.
LOOP AT IT_TAB INTO P_FILE.
* so_fpath-sign = 'I'.
* so_fpath-option = 'EQ'.
* append so_fpath.
ENDLOOP.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
 IF SCREEN-GROUP1 = 'ACT'.
 IF P_INCLUD = ' '.
 SCREEN-INPUT = '0'.
 ELSE.
 SCREEN-INPUT = '1'.
 ENDIF.
 ENDIF.
 IF SCREEN-GROUP1 = 'SHL'.
 IF P_DT_TM = 'X'.
 SCREEN-INPUT = '1'.
 ELSE.
 SCREEN-INPUT = '0'.
 ENDIF.
 ENDIF.
 MODIFY SCREEN.
ENDLOOP.
INITIALIZATION.
P_DATE = SY-DATUM.
P_TIME = SY-UZEIT + 180.
START-OF-SELECTION.
IF P_INCLUD = 'X' AND P_FILE IS INITIAL.
 MESSAGE 'Enter the Manual R-15 File' TYPE 'E'.
ENDIF.
* IF P_INCLUD = 'X'.
* PERFORM UPLOAD_EXCEL_FILE.
* CONCATENATE 'R15' SY-DATUM '-' SY-UZEIT INTO LV_SERVER_FILE_PREFIX.
* CONCATENATE LV_SERVER_FILE_PREFIX '-' 'LT.TMP' INTO
* LV_SERVER_DATAFILE_NAME.
* OPEN DATASET LV_SERVER_DATAFILE_NAME
* FOR OUTPUT
* IN TEXT MODE
* ENCODING DEFAULT.
* LOOP AT GT_MANUAL_DATA INTO GWA_MANUAL_DATA.
* IF ( GWA_MANUAL_DATA-COL_6 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_7 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_8 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_9 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_10 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_11 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_13 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_14 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_15 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_16 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_17 CN '0123456789 '
* AND GWA_MANUAL_DATA-COL_18 CN '0123456789 ' ).
* MESSAGE 'Character Data in Numerical Field' TYPE 'E'.
* ENDIF.
* TRANSFER GWA_MANUAL_DATA TO LV_SERVER_DATAFILE_NAME.
* ENDLOOP.
* CLOSE DATASET LV_SERVER_DATAFILE_NAME.
* ENDIF. " P_INCLUD = 'X'.
IF P_SCHL = 'X'.
 IF P_IMMED = 'X'.
 CALL FUNCTION 'C14B_ADD_TIME'
 EXPORTING
 I_STARTTIME = SY-UZEIT
 I_STARTDATE = SY-DATUM
 I_ADDTIME = '000010'
 IMPORTING
 E_ENDTIME = ENDT
 E_ENDDATE = ENDD.
 ELSEIF P_DT_TM = 'X'.
 ENDD = P_DATE.
 ENDT = P_TIME.
 ENDIF.
 CALL FUNCTION 'JOB_OPEN'
 EXPORTING
* DELANFREP = ' '
* JOBGROUP = ' '
 JOBNAME = 'R15JOB'
* SDLSTRTDT = ENDD
* SDLSTRTTM = ENDT
* JOBCLASS =
 IMPORTING
 JOBCOUNT = JOBCOUNT
* CHANGING
* RET =
* EXCEPTIONS
* CANT_CREATE_JOB = 1
* INVALID_JOB_DATA = 2
* JOBNAME_MISSING = 3
* OTHERS = 4
 IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 IF P_INCLUD = 'X'.
 PERFORM UPLOAD_EXCEL_FILE.
 CONCATENATE 'R15' SY-DATUM '-' SY-UZEIT INTO LV_SERVER_FILE_PREFIX.
 CONCATENATE LV_SERVER_FILE_PREFIX '-' JOBCOUNT 'LT.TMP' INTO
 LV_SERVER_DATAFILE_NAME.
 CONDENSE LV_SERVER_DATAFILE_NAME.
 OPEN DATASET LV_SERVER_DATAFILE_NAME
 FOR OUTPUT
 IN TEXT MODE
 ENCODING DEFAULT.
 IF SY-SUBRC NE 0.
 MESSAGE 'Error in Creating File on Server' TYPE 'E'.
 ENDIF.
 LOOP AT GT_MANUAL_DATA INTO GWA_MANUAL_DATA.
 IF ( GWA_MANUAL_DATA-COL_6 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_7 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_8 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_9 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_10 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_11 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_13 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_14 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_15 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_16 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_17 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_18 CN '0123456789 ' ).
 MESSAGE 'Character Data in Numerical Field' TYPE 'E'.
 ENDIF.
 TRANSFER GWA_MANUAL_DATA TO LV_SERVER_DATAFILE_NAME.
 ENDLOOP.
 CLOSE DATASET LV_SERVER_DATAFILE_NAME.
 IF SY-SUBRC NE 0.
 MESSAGE 'Error in Creating File on Server' TYPE 'E'.
 ENDIF.
 ENDIF. " P_INCLUD = 'X'.
 SUBMIT ZISU_LTR15_TUNE
 WITH SO_GSBER IN SO_GSBER
 WITH SO_COKEY IN SO_COKEY
 WITH SO_MRU IN SO_MRU
 WITH SO_GPART IN SO_GPART
 WITH P_BMNTH = P_BMNTH
 WITH P_COMPUT = P_COMPUT
 WITH P_INCLUD = P_INCLUD
 WITH P_FILE = LV_SERVER_DATAFILE_NAME
 USER SY-UNAME VIA JOB 'R15JOB' NUMBER JOBCOUNT AND RETURN.
 CALL FUNCTION 'JOB_CLOSE'
 EXPORTING
* AT_OPMODE = ' '
* AT_OPMODE_PERIODIC = ' '
* CALENDAR_ID = ' '
* EVENT_ID = ' '
* EVENT_PARAM = ' '
* EVENT_PERIODIC = ' '
 JOBCOUNT = JOBCOUNT
 JOBNAME = 'R15JOB'
* LASTSTRTDT = NO_DATE
* LASTSTRTTM = NO_TIME
* PRDDAYS = 0
* PRDHOURS = 0
* PRDMINS = 0
* PRDMONTHS = 0
* PRDWEEKS = 0
* PREDJOB_CHECKSTAT = ' '
* PRED_JOBCOUNT = ' '
* PRED_JOBNAME = ' '
 SDLSTRTDT = ENDD
 SDLSTRTTM = ENDT
* STARTDATE_RESTRICTION = BTC_PROCESS_ALWAYS
 STRTIMMED = P_IMMED
* TARGETSYSTEM = ' '
* START_ON_WORKDAY_NOT_BEFORE = SY-DATUM
* START_ON_WORKDAY_NR = 0
* WORKDAY_COUNT_DIRECTION = 0
* RECIPIENT_OBJ =
* TARGETSERVER = ' '
* DONT_RELEASE = ' '
* TARGETGROUP = ' '
* DIRECT_START =
* IMPORTING
* JOB_WAS_RELEASED =
* CHANGING
* RET =
* EXCEPTIONS
* CANT_START_IMMEDIATE = 1
* INVALID_STARTDATE = 2
* JOBNAME_MISSING = 3
* JOB_CLOSE_FAILED = 4
* JOB_NOSTEPS = 5
* JOB_NOTEX = 6
* LOCK_FAILED = 7
* INVALID_TARGET = 8
* OTHERS = 9
 IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ELSE. " IF NOT TO RUN IN BACKGROUND
 IF P_INCLUD = 'X'.
 PERFORM UPLOAD_EXCEL_FILE.
 CONCATENATE 'R15' SY-DATUM '-' SY-UZEIT INTO LV_SERVER_FILE_PREFIX.
 CONCATENATE LV_SERVER_FILE_PREFIX '-' 'LT.TMP' INTO
 LV_SERVER_DATAFILE_NAME.
 CONDENSE LV_SERVER_DATAFILE_NAME.
 OPEN DATASET LV_SERVER_DATAFILE_NAME
 FOR OUTPUT
 IN TEXT MODE
 ENCODING DEFAULT.
 IF SY-SUBRC NE 0.
 MESSAGE 'Error in Creating File on Server' TYPE 'E'.
 ENDIF.
 LOOP AT GT_MANUAL_DATA INTO GWA_MANUAL_DATA.
 IF ( GWA_MANUAL_DATA-COL_6 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_7 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_8 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_9 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_10 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_11 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_13 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_14 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_15 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_16 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_17 CN '0123456789 '
 AND GWA_MANUAL_DATA-COL_18 CN '0123456789 ' ).
 MESSAGE 'Character Data in Numerical Field' TYPE 'E'.
 ENDIF.
 TRANSFER GWA_MANUAL_DATA TO LV_SERVER_DATAFILE_NAME.
 ENDLOOP.
 CLOSE DATASET LV_SERVER_DATAFILE_NAME.
 IF SY-SUBRC NE 0.
 MESSAGE 'Error in Creating File on Server' TYPE 'E'.
 ENDIF.
 ENDIF. " P_INCLUD = 'X'.
 IF NOT SY-BATCH IS INITIAL.
 SUBMIT ZISU_LTR15_TUNE
 WITH SO_GSBER IN SO_GSBER
 WITH SO_COKEY IN SO_COKEY
 WITH SO_MRU IN SO_MRU
 WITH SO_GPART IN SO_GPART
 WITH P_BMNTH = P_BMNTH
 WITH P_COMPUT = P_COMPUT
 WITH P_INCLUD = P_INCLUD
 WITH P_FILE = LV_SERVER_DATAFILE_NAME
 TO SAP-SPOOL WITHOUT SPOOL DYNPRO.
 ELSE.
 SUBMIT ZISU_LTR15_TUNE
 WITH SO_GSBER IN SO_GSBER
 WITH SO_COKEY IN SO_COKEY
 WITH SO_MRU IN SO_MRU
 WITH SO_GPART IN SO_GPART
 WITH P_BMNTH = P_BMNTH
 WITH P_COMPUT = P_COMPUT
 WITH P_INCLUD = P_INCLUD
 WITH P_FILE = LV_SERVER_DATAFILE_NAME.
 ENDIF.
ENDIF.
*& Form divison_data_get
* text
* <--P_SO_COKEY_LOW text
FORM DIVISON_DATA_GET CHANGING P_SO_COKEY_LOW.
**to get the search help for division
DATA : LV_LINES TYPE SY-TFILL,
 LT_RETURN_TAB LIKE DDSHRETVAL OCCURS 0, " with header line.
 LWA_RETURN_TAB LIKE DDSHRETVAL.
DATA: LV_COKEY TYPE ZEVERFKKVKP-COKEY.
**according to the Business area entered]
* break csebdev1.
REFRESH R_COKEY[].
DESCRIBE TABLE SO_GSBER LINES LV_LINES.
** when user has neither pressed the enter key nor selected the values
**using search help
IF LV_LINES = 0.
* loop at so_gsber.
 CLEAR R_COKEY.
* if so_gsber-high is initial.
* break csebdev1.
 DYFIELDS-FIELDNAME = 'SO_GSBER-LOW'.
 APPEND DYFIELDS.
 CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 DYNAME = SY-CPROG
 DYNUMB = SY-DYNNR
 TABLES
 DYNPFIELDS = DYFIELDS.
* r_cokey-sign = 'I'.
* r_cokey-option = 'CP'.
*r_cokey-low = so_gsber-low+0(2).
 CONCATENATE DYFIELDS-FIELDVALUE+0(2) '*' INTO R_COKEY-LOW.
* elseif not so_gsber-high is initial.
 DYFIELDS-FIELDNAME = 'SO_GSBER-HIGH'.
 APPEND DYFIELDS.
 CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 DYNAME = SY-CPROG
 DYNUMB = SY-DYNNR
 TABLES
 DYNPFIELDS = DYFIELDS.
 IF NOT DYFIELDS-FIELDVALUE IS INITIAL.
 CONCATENATE DYFIELDS-FIELDVALUE+0(2) '99999999' INTO R_COKEY-HIGH.
 ENDIF.
* endif.
 IF NOT R_COKEY-HIGH IS INITIAL.
 R_COKEY-SIGN = 'I'.
 R_COKEY-OPTION = 'BT'.
 ELSEIF R_COKEY-HIGH IS INITIAL.
 R_COKEY-SIGN = 'I'.
 R_COKEY-OPTION = 'CP'.
 ENDIF.
 APPEND R_COKEY.
ENDIF.
* endloop.
* APPEND DYFIELDS.
IF LV_LINES > 0.
* break-point.
 IF NOT SO_GSBER[] IS INITIAL.
 LOOP AT SO_GSBER.
* r_cokey-sign = 'I'.
* r_cokey-option = 'CP'.
*r_cokey-low = so_gsber-low+0(2).
 CONCATENATE SO_GSBER-LOW+0(2) '*' INTO R_COKEY-LOW.
 IF NOT SO_GSBER-HIGH IS INITIAL.
 CONCATENATE SO_GSBER-HIGH+0(2) '99999999' INTO R_COKEY-HIGH.
 ENDIF.
 IF NOT R_COKEY-HIGH IS INITIAL.
 R_COKEY-SIGN = 'I'.
 R_COKEY-OPTION = 'BT'.
 ELSEIF R_COKEY-HIGH IS INITIAL.
 R_COKEY-SIGN = 'I'.
 R_COKEY-OPTION = 'CP'.
 ENDIF.
 APPEND R_COKEY TO R_COKEY.
 ENDLOOP.
 ENDIF.
ENDIF.
IF NOT R_COKEY[] IS INITIAL.
* break csebdev1.
 REFRESH GT_TECOKT[].
 SELECT COKEY LTEXT
 FROM TECOKT
 INTO TABLE GT_TECOKT
 WHERE COKEY IN R_COKEY AND SPRAS = 'EN'.
* %_HINTS ORACLE '("TECOKT","TECOKT~1")'.
ENDIF.
**now call the search help
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
* DDIC_STRUCTURE = ' '
 RETFIELD = 'COKEY'
* PVALKEY = ' '
* DYNPPROG = ' '
* DYNPNR = ' '
* DYNPROFIELD = ' '
* STEPL = 0
 WINDOW_TITLE = 'Division'
 VALUE = DYFIELDS-FIELDVALUE
 VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* MARK_TAB =
* IMPORTING
* USER_RESET =
 TABLES
 VALUE_TAB = GT_TECOKT
* FIELD_TAB =
 RETURN_TAB = LT_RETURN_TAB
* DYNPFLD_MAPPING =
* EXCEPTIONS
* PARAMETER_ERROR = 1
* NO_VALUES_FOUND = 2
* OTHERS = 3
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE LT_RETURN_TAB INTO LWA_RETURN_TAB INDEX 1.
LV_COKEY = LWA_RETURN_TAB-FIELDVAL.
*break csebdev1.
ENDFORM. " divison_data_get
*& Form upload_excel_file
* text
* --> p1 text
* <-- p2 text
FORM UPLOAD_EXCEL_FILE .
DATA: LV_INDEX TYPE I.
FIELD-SYMBOLS <VAL> TYPE ANY.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = P_FILE
 I_BEGIN_COL = 1
 I_BEGIN_ROW = 8
 I_END_COL = 18
 I_END_ROW = 94
 TABLES
 INTERN = GT_INTERN_DATA
 EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF NOT GT_INTERN_DATA[] IS INITIAL.
 SORT GT_INTERN_DATA BY ROW COL.
 LOOP AT GT_INTERN_DATA.
 MOVE GT_INTERN_DATA-COL TO LV_INDEX.
 ASSIGN COMPONENT LV_INDEX OF STRUCTURE GWA_MANUAL_DATA TO <VAL>.
 MOVE GT_INTERN_DATA-VALUE TO <VAL>.
 AT END OF ROW.
 APPEND GWA_MANUAL_DATA TO GT_MANUAL_DATA.
 CLEAR GWA_MANUAL_DATA.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. " upload_excel_file
*& Form MRU_DATA_GET
* text
* <--P_SO_MRU_LOW text
FORM MRU_DATA_GET CHANGING LV_MRU.
**to get the search help for Group
DATA : LV_LINES TYPE SY-TFILL,
 LT_RETURN_TAB LIKE DDSHRETVAL OCCURS 0,
 LWA_RETURN_TAB LIKE DDSHRETVAL.
* lv_mru_p(3) type c.
RANGES R_MRU FOR EANLH-ABLEINH.
**according to the Business area entered
** break csebdev1.
REFRESH R_MRU[].
DESCRIBE TABLE SO_GSBER LINES LV_LINES.
** when user has neither pressed the enter key nor selected the values
**using search help
IF LV_LINES = 0.
 CLEAR R_MRU[].
 DYFIELDS-FIELDNAME = 'SO_GSBER-LOW'.
 APPEND DYFIELDS.
 CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 DYNAME = SY-CPROG
 DYNUMB = SY-DYNNR
 TABLES
 DYNPFIELDS = DYFIELDS.
 CONCATENATE DYFIELDS-FIELDVALUE+0(2) '*' INTO R_MRU-LOW.
 DYFIELDS-FIELDNAME = 'SO_GSBER-HIGH'.
 APPEND DYFIELDS.
 CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 DYNAME = SY-CPROG
 DYNUMB = SY-DYNNR
 TABLES
 DYNPFIELDS = DYFIELDS.
 IF NOT DYFIELDS-FIELDVALUE IS INITIAL.
 CONCATENATE DYFIELDS-FIELDVALUE+0(2) '99999999' INTO R_MRU-HIGH.
 ENDIF.
 IF NOT R_MRU-HIGH IS INITIAL.
 R_MRU-SIGN = 'I'.
 R_MRU-OPTION = 'BT'.
 ELSEIF R_MRU-HIGH IS INITIAL.
 R_MRU-SIGN = 'I'.
 R_MRU-OPTION = 'CP'.
 ENDIF.
 APPEND R_MRU.
ENDIF. " end lv_lines =0
IF LV_LINES > 0.
 IF NOT SO_GSBER[] IS INITIAL.
 LOOP AT SO_GSBER.
 CONCATENATE SO_GSBER-LOW+0(2) '*' INTO R_MRU-LOW.
 IF NOT SO_GSBER-HIGH IS INITIAL.
 CONCATENATE SO_GSBER-HIGH+0(2) '99999999' INTO R_MRU-HIGH.
 ENDIF.
 IF R_MRU-HIGH IS INITIAL.
 R_MRU-SIGN = 'I'.
 R_MRU-OPTION = 'CP'.
 ELSEIF NOT R_MRU-HIGH IS INITIAL.
 R_MRU-SIGN = 'I'.
 R_MRU-OPTION = 'BT'.
 ENDIF.
 APPEND R_MRU.
 ENDLOOP.
 ENDIF. " end so_GSBER[]
ENDIF. " end lv_lines > 0
IF NOT R_MRU[] IS INITIAL.
* break csebdev1.
 REFRESH GT_TE422[].
 SELECT TERMSCHL TERMTEXT FROM TE422 INTO CORRESPONDING FIELDS OF
TABLE GT_TE422 WHERE TERMSCHL IN R_MRU .
ENDIF.
**now call the search help
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
* DDIC_STRUCTURE = ' '
 RETFIELD = 'TERMSCHL'
* PVALKEY = ' '
* DYNPPROG = ' '
* DYNPNR = ' '
* DYNPROFIELD = ' '
* STEPL = 0
 WINDOW_TITLE = 'Group'
 VALUE = DYFIELDS-FIELDVALUE
 VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* MARK_TAB =
* IMPORTING
* USER_RESET =
 TABLES
 VALUE_TAB = GT_TE422
* FIELD_TAB =
 RETURN_TAB = LT_RETURN_TAB
* DYNPFLD_MAPPING =
* EXCEPTIONS
* PARAMETER_ERROR = 1
* NO_VALUES_FOUND = 2
* OTHERS = 3
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE LT_RETURN_TAB INTO LWA_RETURN_TAB INDEX 1.
LV_MRU = LWA_RETURN_TAB-FIELDVAL.
ENDFORM. " MRU_DATA_GET
b) ZISU_LTR15_TUNE - Actual R15 report
*& Report ZISU_LTR15_TUNE *
REPORT ZISU_LTR15_TUNE NO STANDARD PAGE HEADING MESSAGE-ID ZISU
LINE-SIZE 250 LINE-COUNT 65.
**Tables
TABLES : EVER,
 FKKVKP,
 EANLH.
SELECTION-SCREEN BEGIN OF BLOCK SELECTION
 WITH FRAME TITLE TEXT-001 . "no intervals.
SELECT-OPTIONS: SO_GSBER FOR EVER-GSBER OBLIGATORY,
 SO_COKEY FOR EVER-COKEY,
 SO_MRU FOR EANLH-ABLEINH.
PARAMETERS: P_BMNTH(7) TYPE C OBLIGATORY.
PARAMETERS: P_CONT TYPE EVER-VERTRAG.
SELECT-OPTIONS: SO_GPART FOR FKKVKP-GPART.
SELECTION-SCREEN END OF BLOCK SELECTION.
SELECTION-SCREEN BEGIN OF BLOCK PROCESS WITH FRAME.
PARAMETERS: P_COMPUT RADIOBUTTON GROUP R15.
PARAMETERS: P_INCLUD RADIOBUTTON GROUP R15,
 P_FILE(60) TYPE C.
SELECTION-SCREEN END OF BLOCK PROCESS.
* Start of Type declaration
TYPES: BEGIN OF ST_TB024 ,
 IND_SECTOR TYPE TB024-IND_SECTOR,
 TEXTLONG TYPE TB024-TEXTLONG,
 END OF ST_TB024,
 BEGIN OF ST_TECOKT,
 COKEY TYPE TECOKT-COKEY,
 LTEXT TYPE TECOKT-LTEXT,
 END OF ST_TECOKT,
 BEGIN OF ST_TGSBT,
 GSBER TYPE TGSBT-GSBER,
 GTEXT TYPE TGSBT-GTEXT,
 END OF ST_TGSBT,
 BEGIN OF ST_TE422,
 TERMSCHL TYPE TE422-TERMSCHL,
 TERMTEXT TYPE TE422-TERMTEXT,
 END OF ST_TE422.
* Start of data declaration
DATA: IT_TAB TYPE FILETABLE,
 GD_SUBRC TYPE I.
DATA : GT_TB024 TYPE STANDARD TABLE OF ST_TB024 WITH HEADER LINE
 INITIAL SIZE 0,
 GT_TECOKT TYPE STANDARD TABLE OF ST_TECOKT
 WITH HEADER LINE,
 GT_TGSBT TYPE SORTED TABLE OF ST_TGSBT
 WITH UNIQUE KEY GSBER WITH HEADER LINE,
 GT_TE422 TYPE TABLE OF ST_TE422 WITH HEADER LINE INITIAL SIZE 0,
 BEGIN OF GWA_EVER,
 VKONT TYPE EVER-VKONTO,
 ANLAGE TYPE EVER-ANLAGE,
 ABRSPERR TYPE EVER-ABRSPERR,
 END OF GWA_EVER,
 GT_EVER LIKE TABLE OF GWA_EVER INITIAL SIZE 0,
 BEGIN OF GWA_EANLH,
 ANLAGE TYPE EANLH-ANLAGE,
 BRANCHE TYPE EANLH-BRANCHE,
 END OF GWA_EANLH,
 GT_EANLH LIKE TABLE OF GWA_EANLH INITIAL SIZE 0,
 BEGIN OF GWA_FKKVKP,
 VKONT TYPE FKKVKP-VKONT,
 KTOKL TYPE FKKVKP-KTOKL,
 END OF GWA_FKKVKP,
 GT_FKKVKP LIKE TABLE OF GWA_FKKVKP INITIAL SIZE 0,
 BEGIN OF GWA_EVER_EANLH_FKKVKP,
 VKONT TYPE FKKVKP-VKONT,
 ANLAGE TYPE EVER-ANLAGE,
 ABRSPERR TYPE EVER-ABRSPERR,
 BRANCHE TYPE EANLH-BRANCHE,
 KTOKL TYPE FKKVKP-KTOKL,
 END OF GWA_EVER_EANLH_FKKVKP,
 GT_EVER_EANLH_FKKVKP LIKE TABLE OF GWA_EVER_EANLH_FKKVKP
 INITIAL SIZE 0,
 GT_EVER_EANLH_FKKVKP_INACT LIKE STANDARD TABLE OF
 GWA_EVER_EANLH_FKKVKP INITIAL SIZE 0,
 BEGIN OF GWA_ERCH,
 BELNR TYPE ERCH-BELNR,
 VKONT TYPE ERCH-VKONT,
 END OF GWA_ERCH,
 GT_ERCH LIKE TABLE OF GWA_ERCH INITIAL SIZE 0,
 BEGIN OF GWA_PRINTDOC,
 OPBEL TYPE ERDK-OPBEL,
 GPART TYPE ERDK-PARTNER,
 VKONT TYPE ERDK-VKONT,
 BUDAT TYPE ERDK-BUDAT,
 FAEDN TYPE ERDK-FAEDN,
 END OF GWA_PRINTDOC,
 GT_PRINTDOC LIKE TABLE OF GWA_PRINTDOC INITIAL SIZE 0,
 BEGIN OF GWA_DBERCHZ1,
 BELNR TYPE DBERCHZ1-BELNR,
 EIN01 TYPE DBERCHZ1-EIN01,
 V_ABRMENGE TYPE DBERCHZ1-V_ABRMENGE,
 END OF GWA_DBERCHZ1,
 GT_DBERCHZ1 LIKE TABLE OF GWA_DBERCHZ1 INITIAL SIZE 0,
 BEGIN OF GWA_ERCHC,
 BELNR TYPE ERCHC-BELNR,
 OPBEL TYPE ERCHC-OPBEL,
 BUDAT TYPE ERCHC-BUDAT,
 END OF GWA_ERCHC,
 GT_ERCHC LIKE TABLE OF GWA_ERCHC INITIAL SIZE 0,
* arrears for inactive consumers.
 BEGIN OF GWA_DFKKOP_INACTIVE_ARR,
 OPBEL TYPE DFKKOP-OPBEL,
 VKONT TYPE DFKKOP-VKONT,
 BETRH TYPE DFKKOP-BETRH,
 END OF GWA_DFKKOP_INACTIVE_ARR,
 GT_DFKKOP_INACTIVE_ARR LIKE TABLE OF GWA_DFKKOP_INACTIVE_ARR
 INITIAL SIZE 0,
 BEGIN OF GWA_ETTIFN,
 ANLAGE TYPE ETTIFN-ANLAGE,
 OPERAND TYPE ETTIFN-OPERAND,
 WERT1 TYPE ETTIFN-WERT1,
 END OF GWA_ETTIFN,
 GT_ETTIFN LIKE SORTED TABLE OF GWA_ETTIFN
 WITH NON-UNIQUE KEY ANLAGE OPERAND INITIAL SIZE 0,
 BEGIN OF GWA_DBERDLB,
 PRINTDOC TYPE DBERDLB-PRINTDOC,
 BILLDOC TYPE DBERDLB-BILLDOC,
 BILLDOCLINE TYPE DBERDLB-BILLDOCLINE,
 NETTOBTR TYPE DBERDLB-NETTOBTR,
 END OF GWA_DBERDLB,
 GT_DBERDLB LIKE TABLE OF GWA_DBERDLB INITIAL SIZE 0,
 BEGIN OF GWA_DBERCHZ1_BILL,
 BELNR TYPE DBERCHZ1-BELNR,
 BELZEILE TYPE DBERCHZ1-BELZEILE,
 TVORG TYPE DBERCHZ1-TVORG,
 END OF GWA_DBERCHZ1_BILL,
 GT_DBERCHZ1_BILL LIKE TABLE OF GWA_DBERCHZ1_BILL INITIAL SIZE 0,
 BEGIN OF GWA_BILLDOC,
 PRINTDOC TYPE ERDK-OPBEL,
 BILLDOC TYPE DBERDLB-BILLDOC,
 END OF GWA_BILLDOC,
 GT_BILLDOC LIKE TABLE OF GWA_BILLDOC INITIAL SIZE 0,
 BEGIN OF GWA_DBERCHV,
 BELNR TYPE DBERCHV-BELNR,
 OPERAND TYPE DBERCHV-OPERAND,
 EZ_ABRMENGE TYPE DBERCHV-EZ_ABRMENGE,
 ABLESGR TYPE DBERCHV-ABLESGR,
 ABLESGRV TYPE DBERCHV-ABLESGRV,
 END OF GWA_DBERCHV,
 GT_DBERCHV LIKE TABLE OF GWA_DBERCHV INITIAL SIZE 0,
 BEGIN OF GWA_DFKKOP_ARREAR,
 OPBEL TYPE DFKKOP-OPBEL,
 VKONT TYPE DFKKOP-VKONT,
 HVORG TYPE DFKKOP-HVORG,
 TVORG TYPE DFKKOP-TVORG,
 BUDAT TYPE DFKKOP-BUDAT,
 BETRH TYPE DFKKOP-BETRH,
 AUGDT TYPE DFKKOP-AUGDT,
 XBLNR TYPE DFKKOP-XBLNR,
 END OF GWA_DFKKOP_ARREAR,
 GT_DFKKOP_ARREAR LIKE TABLE OF GWA_DFKKOP_ARREAR INITIAL SIZE 0,
 BEGIN OF GWA_MASTER_DATA,
 SLNO(4) TYPE C,
 IND_SECTOR TYPE TB024-IND_SECTOR,
 TEXTLONG TYPE TB024-TEXTLONG,
 AC_CODE TYPE TFK033D-FUN01,
 END OF GWA_MASTER_DATA,
 GT_MASTER_DATA LIKE TABLE OF GWA_MASTER_DATA INITIAL SIZE 0,
** internal table for final prepared data
 BEGIN OF GWA_FINAL_DATA,
 SLNO(4) TYPE C,
 IND_SECTOR TYPE TB024-IND_SECTOR, " for testing
 INDUSTRY TYPE TB024-TEXTLONG,
 AC_CODE TYPE TFK033D-FUN01,
* *for urban partners
 UPARTNER TYPE I , "(6) type n,
 UBAD_METER TYPE I, "(4) type n,
 UINACTIVE TYPE I,
 ULOAD(8) TYPE P DECIMALS 2,
 UUNITS(8) TYPE P DECIMALS 2,
 UDEMANDS(8) TYPE P DECIMALS 2,
 UARREARS(8) TYPE P DECIMALS 2, "FKKMAKO-Msalm,
 UINACT_ARR(8) TYPE P DECIMALS 2,
 BLANK(10) TYPE C,
* *for rural partners
 RPARTNER TYPE I , "(6) type n,
 RBAD_METER TYPE I , "(4) type n,
 RINACTIVE TYPE I,
 RLOAD(8) TYPE P DECIMALS 2,
 RUNITS(8) TYPE P DECIMALS 2,
 RDEMANDS(8) TYPE P DECIMALS 2,
 RARREARS(8) TYPE P DECIMALS 2,
 RINACT_ARR(8) TYPE P DECIMALS 2,
 END OF GWA_FINAL_DATA,
 GT_FINAL_DATA LIKE TABLE OF GWA_FINAL_DATA INITIAL SIZE 0,
 BEGIN OF GWA_MANUAL_DATA,
 COL_1(5) TYPE C,
 COL_2(10) TYPE C,
 COL_3(40) TYPE C,
 COL_4(40) TYPE C,
 COL_5(10) TYPE C,
 COL_6(19) TYPE C,
 COL_7(19) TYPE C,
 COL_8(19) TYPE C,
 COL_9(19) TYPE C,
 COL_10(19) TYPE C,
 COL_11(19) TYPE C,
 COL_12(10) TYPE C,
 COL_13(19) TYPE C,
 COL_14(19) TYPE C,
 COL_15(19) TYPE C,
 COL_16(19) TYPE C,
 COL_17(19) TYPE C,
 COL_18(19) TYPE C,
 END OF GWA_MANUAL_DATA,
 GT_MANUAL_DATA LIKE TABLE OF GWA_MANUAL_DATA INITIAL SIZE 0.
** Variables for grand total of all heads.
DATA : GV_T_UPART TYPE I,
 GV_T_RPART TYPE I,
 GV_T_RINACTIVE TYPE I,
 GV_T_UINACTIVE TYPE I,
 GV_UDEF_MTR TYPE I,
 GV_RDEF_MTR TYPE I,
 GV_UCON_LOAD(16) TYPE P DECIMALS 2,
 GV_RCON_LOAD(16) TYPE P DECIMALS 2,
 GV_UUNITS(16) TYPE P DECIMALS 2,
 GV_RUNITS(16) TYPE P DECIMALS 2,
 GV_UDEMAND(16) TYPE P DECIMALS 2,
 GV_RDEMAND(16) TYPE P DECIMALS 2,
 GV_UARREAR(16) TYPE P DECIMALS 2,
 GV_RARREAR(16) TYPE P DECIMALS 2,
 GV_UINACT_ARR(16) TYPE P DECIMALS 2,
 GV_RINACT_ARR(16) TYPE P DECIMALS 2,
 GV_U_SD_DMD(16) TYPE P DECIMALS 2,
 GV_R_SD_DMD(16) TYPE P DECIMALS 2,
 GV_U_SD_ARR(16) TYPE P DECIMALS 2,
 GV_R_SD_ARR(16) TYPE P DECIMALS 2,
 GV_UR_PART TYPE I,
 GV_UR_DEF_MTR TYPE I,
 GV_UR_CON_LOAD(16) TYPE P DECIMALS 2,
 GV_UR_UNITS(16) TYPE P DECIMALS 2,
 GV_UR_DEMAND(16) TYPE P DECIMALS 2,
 GV_UR_ARREARS(16) TYPE P DECIMALS 2,
 GV_LOWDATE TYPE SY-DATUM,
 GV_HIGHDATE TYPE SY-DATUM,
 GV_YEAR LIKE DBERCHV-EZ_ABRMENGE,
 GV_MONTH LIKE DBERCHZ1-V_ABRMENGE,
 GV_MNTH_NAME TYPE T247-KTX.
DATA:
**total meter rent
 GV_UTOTMETERRENT TYPE P LENGTH 16 DECIMALS 2,
 GV_RTOTMETERRENT TYPE P LENGTH 16 DECIMALS 2,
**for total surcharge
 GV_UTOTSURCHRG TYPE P LENGTH 16 DECIMALS 2, "dberdlb-nettobtr,
 GV_RTOTSURCHRG TYPE P LENGTH 16 DECIMALS 2, "dberdlb-nettobtr,
**for total ED
 GV_UTOTED TYPE P LENGTH 16 DECIMALS 2, "dberdlb-nettobtr,
 GV_RTOTED TYPE P LENGTH 16 DECIMALS 2, "dberdlb-nettobtr,
**for total ED Cess
 GV_UTOTEDCESS TYPE P LENGTH 16 DECIMALS 2, "dberdlb-nettobtr,
 GV_RTOTEDCESS TYPE P LENGTH 16 DECIMALS 2, "dberdlb-nettobtr,
**for total other misc rev
 GV_UTOTMISCREV TYPE P LENGTH 16 DECIMALS 2,
 GV_RTOTMISCREV TYPE P LENGTH 16 DECIMALS 2,
**for total ED of Free agricultural pump
 GV_RTOTEDAGRI TYPE P LENGTH 16 DECIMALS 2,
 GV_UTOTEDAGRI TYPE P LENGTH 16 DECIMALS 2,
**for ED cess of Free agriculture pump
 GV_RTOTCESSAGRI TYPE P LENGTH 16 DECIMALS 2,
 GV_UTOTCESSAGRI TYPE P LENGTH 16 DECIMALS 2,
***data for selection screen data validation
 GV_GSBER TYPE EVER-GSBER,
 GV_COKEY TYPE EVER-COKEY,
 DYFIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
 GT_INTERN_DATA TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
RANGES: R_COKEY FOR TECOKT-COKEY.
AT SELECTION-SCREEN.
AT SELECTION-SCREEN ON SO_GSBER.
IF NOT SO_GSBER-LOW IS INITIAL.
 SELECT SINGLE GSBER FROM TGSBT INTO GT_TGSBT-GSBER WHERE
 GSBER = SO_GSBER-LOW.
 IF SY-SUBRC <> 0.
 MESSAGE E007.
 ENDIF.
ENDIF.
IF NOT SO_GSBER-HIGH IS INITIAL .
 SELECT SINGLE GSBER FROM TGSBT INTO GT_TGSBT-GSBER WHERE
 GSBER = SO_GSBER-HIGH.
 IF SY-SUBRC <> 0.
 MESSAGE E007.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON P_BMNTH.
**check the validity of Billing month format and for valid billing month
IF P_BMNTH CO '0123456789/'.
 IF P_BMNTH CP '++++/++'.
 IF P_BMNTH+5(2) > 12.
 MESSAGE E002 WITH 'from'.
 ENDIF.
** current year is less than year entered
 IF SY-DATUM(4) < P_BMNTH(4).
 MESSAGE E003 WITH 'from'.
 ELSEIF SY-DATUM(4) = P_BMNTH(4).
** month in future
 IF SY-DATUM+4(2) < P_BMNTH+5(2).
 MESSAGE E004 WITH 'from'.
 ENDIF.
 ENDIF.
 ELSE.
 MESSAGE E001 WITH 'from'.
 ENDIF.
ELSE.
** entry have some invalid char
 MESSAGE E010.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_COKEY-LOW.
**for geting the CO account assigment key of the entered Business area
CLEAR: DYFIELDS[], DYFIELDS.
PERFORM DIVISON_DATA_GET CHANGING SO_COKEY-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_COKEY-HIGH.
CLEAR: DYFIELDS[], DYFIELDS.
PERFORM DIVISON_DATA_GET CHANGING SO_COKEY-HIGH.
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
* REFRESH: IT_TAB.
***Opens File Open Dialog Box for selecting input file.
* CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
* EXPORTING
* WINDOW_TITLE = 'Select File'
* DEFAULT_FILENAME = '*.xls'
* MULTISELECTION = ' '
* CHANGING
* FILE_TABLE = IT_TAB
* RC = GD_SUBRC.
* LOOP AT IT_TAB INTO P_FILE.
** so_fpath-sign = 'I'.
** so_fpath-option = 'EQ'.
** append so_fpath.
* ENDLOOP.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
 IF SCREEN-GROUP1 = 'ACT'.
 IF P_INCLUD = ' '.
 SCREEN-INPUT = '0'.
 ELSE.
 SCREEN-INPUT = '1'.
 ENDIF.
 ENDIF.
 MODIFY SCREEN.
ENDLOOP.
* End of Selection screen processing
TOP-OF-PAGE.
DATA : LV_TEXT(70) TYPE C.
FORMAT INTENSIFIED OFF.
WRITE:/50 'CHHATTISGARH STATE ELECTRICITY BOARD',
 /42 'R-15 REPORT FOR LT CONSUMERS FOR THE MONTH OF',
 GV_MNTH_NAME NO-GAP,'-' NO-GAP, P_BMNTH(4) NO-GAP,
 180 'PAGE-NO. -', SY-PAGNO LEFT-JUSTIFIED.
SKIP.
WRITE:/2 'RAO', 15 ':'.
LOOP AT GT_TGSBT WHERE GSBER IN SO_GSBER.
 IF STRLEN( LV_TEXT ) > 60.
 WRITE: 16 LV_TEXT, / ''.
 CLEAR LV_TEXT.
 ENDIF.
 CONCATENATE LV_TEXT GT_TGSBT-GSBER '-' GT_TGSBT-GTEXT
 INTO LV_TEXT SEPARATED BY SPACE.
ENDLOOP.
WRITE: 16 LV_TEXT.
CLEAR LV_TEXT.
WRITE: /2 'Division',15 ':'.
LOOP AT GT_TECOKT.
 IF STRLEN( LV_TEXT ) > 60.
 WRITE: 16 LV_TEXT, /.
 CLEAR LV_TEXT.
 ENDIF.
 CONCATENATE LV_TEXT GT_TECOKT-COKEY '-' GT_TECOKT-LTEXT
 INTO LV_TEXT SEPARATED BY SPACE.
ENDLOOP.
WRITE: 16 LV_TEXT.
CLEAR LV_TEXT.
WRITE: /2 'Group',15 ':'.
LOOP AT GT_TE422 .
 IF STRLEN( LV_TEXT ) > 60.
 WRITE: 16 LV_TEXT, /.
 CLEAR LV_TEXT.
 ENDIF.
 CONCATENATE LV_TEXT GT_TE422-TERMSCHL '-' GT_TE422-TERMTEXT
 INTO LV_TEXT SEPARATED BY SPACE.
ENDLOOP.
WRITE: 16 LV_TEXT.
CLEAR LV_TEXT.
**legends
* write :/ text-028, 15 ':',16 text-029.
**now write the headings on every page
SET LEFT SCROLL-BOUNDARY COLUMN 50.
FORMAT COLOR 1 ON.
WRITE :/1(244) SY-ULINE.
WRITE :/1 SY-VLINE,6 SY-VLINE,50 SY-VLINE, 58 SY-VLINE, 59
 '<----------------------------------',
 'U R B A N A R E A',
 '----------------------------------->'.
WRITE : 151 SY-VLINE, 152
 '<----------------------------------',
 'R U R A L A R E A',
 '----------------------------------->',
 244 SY-VLINE.
WRITE :/1 SY-VLINE,
 2 'Slno',
 6 SY-VLINE,
 7 'Revenue Category',
 50 SY-VLINE,
 51 'A/C',
 58 SY-VLINE,
 59 'Cons-',
 67 SY-VLINE,
 68 'Deff',
 75 SY-VLINE,
 76 'Conn',
 89 SY-VLINE,
 90 'Sold',
 108 SY-VLINE,
 109 'Demand',
 129 SY-VLINE,
 130 'Previous',
 151 SY-VLINE,
 152 'Cons-',
 160 SY-VLINE,
 161 'Deff',
 168 SY-VLINE,
 169 'Conn',
 182 SY-VLINE,
 183 'Sold',
 201 SY-VLINE,
 202 'Demand',
 222 SY-VLINE,
 223 'Previous',
 244 SY-VLINE.
WRITE :/1 SY-VLINE,
 6 SY-VLINE,
 50 SY-VLINE,
 51 'Code',
 58 SY-VLINE,
 59 'umers',
 67 SY-VLINE,
 68 'mtrs',
 75 SY-VLINE,
 76 'Load-KW',
 89 SY-VLINE,
 90 'Units',
 108 SY-VLINE,
 129 SY-VLINE,
 130 'Arrear',
 151 SY-VLINE,
 152 'umers',
 160 SY-VLINE,
 161 'mtrs',
 168 SY-VLINE,
 169 'Load-KW',
 182 SY-VLINE,
 183 'Units',
 201 SY-VLINE,
 222 SY-VLINE,
 223 'Arrear',
 244 SY-VLINE.
WRITE :/1(244) SY-ULINE.
SET LEFT SCROLL-BOUNDARY COLUMN 59.
* Start of Data Selection
START-OF-SELECTION.
SELECT GSBER GTEXT INTO TABLE GT_TGSBT FROM TGSBT
 WHERE SPRAS = SY-LANGU.
SELECT IND_SECTOR TEXTLONG INTO TABLE GT_TB024
 FROM TB024 WHERE SPRAS = SY-LANGU
 AND ( ( IND_SECTOR >= '01' AND IND_SECTOR <= '55' )
 OR ( IND_SECTOR = '57' OR IND_SECTOR = '58'
 OR IND_SECTOR = '94' ) ).
SELECT SINGLE KTX INTO GV_MNTH_NAME FROM T247
 WHERE MNR = P_BMNTH+5(2) AND SPRAS = SY-LANGU.
***master data selection
PERFORM CONSUMER_DATA_SELECTION.
*&--Get Meter Status Connected Load & MF for each installation
PERFORM OPERAND_DATA_SELECTION.
*&--Get the Demand corresponding to each Print documents selected
PERFORM BILLING_DATA_SELECTION.
*&--Get the arrears corresponding to each Print document selected
PERFORM ARREAR_DATA_SELECTION.
*&--To include Mannual R-15 into computerized R-15.
IF P_INCLUD = 'X'.
 OPEN DATASET P_FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT.
 DO.
 READ DATASET P_FILE INTO GWA_MANUAL_DATA.
 IF SY-SUBRC <> 0.
 EXIT.
 ELSE.
 APPEND GWA_MANUAL_DATA TO GT_MANUAL_DATA.
 ENDIF.
 ENDDO.
 CLOSE DATASET P_FILE.
 DELETE DATASET P_FILE.
ENDIF.
END-OF-SELECTION.
* End of data Selection
* Start of Data Processing
PERFORM FINAL_TABLE_PREPARE.
PERFORM FINAL_OUTPUT_PREPARE.
PERFORM FINAL_OUTPUT_DISPLAY.
* End of Data Processing
PERFORM FREE_MEMORY.
*& Form master_data_selection
* text
* --> p1 text
* <-- p2 text
FORM CONSUMER_DATA_SELECTION .
DATA: LV_MAX_DAYS TYPE I,
 LV_LAST_DAY(2) TYPE C,
 LV_IMONTH TYPE I,
 LV_IYEAR TYPE I,
 LV_BMNTH TYPE ZERDK_ERCHC-V_ABRMENGE,
 LV_BYEAR TYPE ZERDK_ERCHC-EZ_ABRMENGE,
*&----Temporary tables for global internal tables.
 LT_DBERCHZ1_TEMP LIKE TABLE OF GWA_DBERCHZ1,
 LWA_DBERCHZ1_TEMP LIKE GWA_DBERCHZ1,
 LT_ERCH LIKE TABLE OF GWA_ERCH,
 LWA_ERCH LIKE GWA_ERCH,
 LT_EVER LIKE TABLE OF GWA_EVER.
*DATA: lt_ever_fkkvkp like gwa_ever_eanlh_fkkvkp occurs 0.
LV_IMONTH = P_BMNTH+5(2).
LV_IYEAR = P_BMNTH(4).
LV_BMNTH = P_BMNTH+5(2).
LV_BYEAR = P_BMNTH(4).
CALL FUNCTION 'RTP_US_API_MAX_DAYS_IN_MONTH'
 EXPORTING
 I_DATE_MONTH = LV_IMONTH
 I_DATE_YEAR = LV_IYEAR
 IMPORTING
 E_MAX_DAYS = LV_MAX_DAYS.
LV_LAST_DAY = LV_MAX_DAYS.
CONCATENATE P_BMNTH(4) P_BMNTH+5(2) LV_LAST_DAY INTO GV_HIGHDATE.
IF SO_GPART[] IS INITIAL.
 SELECT VKONTO ANLAGE ABRSPERR
 INTO TABLE GT_EVER
 FROM EVER
 WHERE GSBER IN SO_GSBER
 AND COKEY IN SO_COKEY
 AND BUKRS = 'CSEB'
 AND SPARTE = '01'
 AND KOFIZ = '02'.
**get installation no from contract data and check biling class in eanlh
 IF GT_EVER[] IS INITIAL.
MESSAGE 'No Business Partner exist for entered selection data' TYPE 'A'.
 ENDIF.
 IF NOT GT_EVER[] IS INITIAL.
 SELECT VKONT KTOKL INTO TABLE GT_FKKVKP
 FROM FKKVKP
 FOR ALL ENTRIES IN GT_EVER
 WHERE VKONT = GT_EVER-VKONT
 AND GPART IN SO_GPART.
 IF GT_FKKVKP[] IS INITIAL.
 MESSAGE 'No Business Partner exist for entered Selection' TYPE 'A'.
 ENDIF.
 ENDIF.
ELSE.
 SELECT VKONT KTOKL INTO TABLE GT_FKKVKP
 FROM FKKVKP
 WHERE GPART IN SO_GPART.
 IF NOT GT_FKKVKP[] IS INITIAL.
 SELECT VKONTO ANLAGE INTO TABLE GT_EVER
 FROM EVER
 FOR ALL ENTRIES IN GT_FKKVKP
 WHERE VKONTO EQ GT_FKKVKP-VKONT
 AND GSBER IN SO_GSBER
 AND COKEY IN SO_COKEY
 AND BUKRS EQ 'CSEB'
 AND SPARTE EQ '01'
 AND KOFIZ EQ '02'.
 ENDIF.
ENDIF.
IF GT_EVER[] IS INITIAL AND GT_FKKVKP[] IS INITIAL.
 MESSAGE 'No Business Partner exist for entered Selection' TYPE 'A'.
ENDIF.
SELECT ANLAGE BRANCHE INTO TABLE GT_EANLH
 FROM EANLH
 FOR ALL ENTRIES IN GT_EVER
 WHERE ANLAGE EQ GT_EVER-ANLAGE
 AND ABLEINH IN SO_MRU
 AND AKLASSE EQ'0002'
 AND AB <= GV_HIGHDATE
 AND BIS => GV_HIGHDATE.
IF GT_EANLH[] IS INITIAL.
 MESSAGE 'No Business Partner exist for entered Selection' TYPE 'A'.
ENDIF.
SORT : GT_EVER BY VKONT ANLAGE,
 GT_FKKVKP BY VKONT,
 GT_EANLH BY ANLAGE.
LOOP AT GT_EANLH INTO GWA_EANLH.
 READ TABLE GT_EVER INTO GWA_EVER WITH KEY ANLAGE = GWA_EANLH-ANLAGE.
 IF SY-SUBRC = 0.
 READ TABLE GT_FKKVKP INTO GWA_FKKVKP
 WITH KEY VKONT = GWA_EVER-VKONT.
 IF SY-SUBRC = 0.
 GWA_EVER_EANLH_FKKVKP-VKONT = GWA_EVER-VKONT.
 GWA_EVER_EANLH_FKKVKP-ANLAGE = GWA_EVER-ANLAGE.
 GWA_EVER_EANLH_FKKVKP-ABRSPERR = GWA_EVER-ABRSPERR.
 GWA_EVER_EANLH_FKKVKP-BRANCHE = GWA_EANLH-BRANCHE.
 GWA_EVER_EANLH_FKKVKP-KTOKL = GWA_FKKVKP-KTOKL.
 APPEND GWA_EVER_EANLH_FKKVKP TO GT_EVER_EANLH_FKKVKP.
 CLEAR GWA_EVER_EANLH_FKKVKP.
 ENDIF.
 ENDIF.
ENDLOOP.
IF GT_EVER_EANLH_FKKVKP[] IS INITIAL.
 MESSAGE 'No Business Partner exist for Selection Data' TYPE 'A'.
ENDIF.
*&----get all the billdocuments for the busines partner's contract
*&----account
SELECT BELNR VKONT INTO TABLE GT_ERCH
 FROM ERCH
 FOR ALL ENTRIES IN GT_EVER_EANLH_FKKVKP
 WHERE VKONT EQ GT_EVER_EANLH_FKKVKP-VKONT.
*&----get the BILL MONTH & BILL YEAR FOR THE BILLDOCUMENTS.
IF NOT GT_ERCH[] IS INITIAL.
 SELECT BELNR EIN01 V_ABRMENGE INTO TABLE GT_DBERCHZ1
 FROM DBERCHZ1
 FOR ALL ENTRIES IN GT_ERCH
 WHERE BELNR EQ GT_ERCH-BELNR
 AND AKLASSE = '0002'
 AND ( ( EIN01 = 'BILL_MNTH1'
 AND V_ABRMENGE = P_BMNTH+5(2) )
 OR ( EIN01 = 'BILL_YEAR1'
 AND V_ABRMENGE = P_BMNTH(4) ) ).
*&---- GET THOSE BILL DOCUMENTS WHICH ARE FOR THE ENTERED BILL MONTH
 IF NOT GT_DBERCHZ1[] IS INITIAL.
 LOOP AT GT_DBERCHZ1 INTO GWA_DBERCHZ1 WHERE EIN01 = 'BILL_MNTH1'
 AND V_ABRMENGE = P_BMNTH+5(2).
 READ TABLE GT_DBERCHZ1 INTO LWA_DBERCHZ1_TEMP
 WITH KEY BELNR = GWA_DBERCHZ1-BELNR EIN01 = 'BILL_YEAR1'
 V_ABRMENGE = P_BMNTH(4).
 IF SY-SUBRC = 0.
 APPEND LWA_DBERCHZ1_TEMP TO LT_DBERCHZ1_TEMP.
 CLEAR: LWA_DBERCHZ1_TEMP.
 ENDIF.
 ENDLOOP.
 GT_DBERCHZ1[] = LT_DBERCHZ1_TEMP[].
 ENDIF.
ENDIF.
*&---NOW FIND THE PRINT DOCUMENTS FOR THE SELECTED BILLDOCUMENTS.
IF NOT GT_DBERCHZ1[] IS INITIAL.
 SELECT BELNR OPBEL BUDAT FROM ERCHC
 INTO TABLE GT_ERCHC
 FOR ALL ENTRIES IN GT_DBERCHZ1
 WHERE BELNR = GT_DBERCHZ1-BELNR
 AND INTOPBEL EQ SPACE
 AND SIMULATED EQ SPACE
 AND INVOICED EQ 'X'.
ENDIF.
IF NOT GT_ERCHC[] IS INITIAL.
 LOOP AT GT_ERCHC INTO GWA_ERCHC.
 READ TABLE GT_ERCH INTO GWA_ERCH WITH KEY BELNR = GWA_ERCHC-BELNR.
 IF SY-SUBRC = 0.
 APPEND GWA_ERCH TO LT_ERCH.
 CLEAR GWA_ERCH.
 ENDIF.
 CLEAR GWA_ERCHC.
 ENDLOOP.
ENDIF.
GT_ERCH[] = LT_ERCH[].
FREE: LT_ERCH, LT_DBERCHZ1_TEMP,LWA_DBERCHZ1_TEMP.
LOOP AT GT_EVER_EANLH_FKKVKP INTO GWA_EVER_EANLH_FKKVKP.
* READ TABLE gt_erdk_erchc INTO gwa_erdk_erchc
* WITH KEY vkont = gwa_ever_eanlh_fkkvkp-vkont.
 READ TABLE GT_ERCH INTO GWA_ERCH
 WITH KEY VKONT = GWA_EVER_EANLH_FKKVKP-VKONT.
 IF SY-SUBRC <> 0.
 IF GWA_EVER_EANLH_FKKVKP-ABRSPERR = SPACE.
 GWA_EVER_EANLH_FKKVKP-ABRSPERR = '01'.
 MODIFY GT_EVER_EANLH_FKKVKP FROM GWA_EVER_EANLH_FKKVKP
 TRANSPORTING ABRSPERR.
 APPEND GWA_EVER_EANLH_FKKVKP TO GT_EVER_EANLH_FKKVKP_INACT.
 ENDIF.
 ELSE.
 IF GWA_EVER_EANLH_FKKVKP-ABRSPERR <> SPACE.
 GWA_EVER_EANLH_FKKVKP-ABRSPERR = SPACE.
 MODIFY GT_EVER_EANLH_FKKVKP FROM GWA_EVER_EANLH_FKKVKP
 TRANSPORTING ABRSPERR.
 ENDIF.
 ENDIF.
 CLEAR GWA_ERCH.
ENDLOOP.
REFRESH GT_TECOKT[].
IF NOT SO_COKEY[] IS INITIAL.
 SELECT COKEY LTEXT INTO TABLE GT_TECOKT
 FROM TECOKT
 WHERE COKEY IN SO_COKEY
 AND SPRAS = SY-LANGU .
* %_HINTS ORACLE '("TECOKT","TECOKT~1")'.
ENDIF.
IF NOT SO_MRU[] IS INITIAL.
 SELECT TERMSCHL TERMTEXT INTO TABLE GT_TE422
 FROM TE422
 WHERE TERMSCHL IN SO_MRU.
ENDIF.
*FREE lt_ever_fkkvkp[].
ENDFORM. " consumer_data_selection
*& Form Operand_data_selection
* text
* --> p1 text
* <-- p2 text
FORM OPERAND_DATA_SELECTION .
DATA: LT_EVER_EANLH_FKKVKP_ACT LIKE TABLE OF GWA_EVER_EANLH_FKKVKP.
* SORT gt_ever_eanlh_fkkvkp BY vkont.
CHECK NOT GT_EVER_EANLH_FKKVKP[] IS INITIAL.
**now depending upon the billing month check the time slice date
**the last date of the billing month or the range of billing month
*should fall in between the time slice of the installation
** billing month to is space
**now select operands for processed installation
LT_EVER_EANLH_FKKVKP_ACT[] = GT_EVER_EANLH_FKKVKP[].
DELETE LT_EVER_EANLH_FKKVKP_ACT WHERE ABRSPERR NE SPACE.
IF NOT LT_EVER_EANLH_FKKVKP_ACT[] IS INITIAL.
 SELECT ANLAGE OPERAND WERT1
 FROM ETTIFN
 INTO TABLE GT_ETTIFN
 FOR ALL ENTRIES IN LT_EVER_EANLH_FKKVKP_ACT
 WHERE ANLAGE = LT_EVER_EANLH_FKKVKP_ACT-ANLAGE
 AND OPERAND IN ('MTR_STS','CONN_LOAD','LOAD_CODE','KWH_MF')
 AND ( AB <= GV_HIGHDATE AND BIS >= GV_HIGHDATE ).
* %_HINTS ORACLE '("ETTIFN","ETTIFN~003")'.
ENDIF.
ENDFORM. " Operand_data_selection
*& Form billing_data_selection
*&------------------------------

Hi,
Please do run time analysis as Rob correctly mentioned or do SQL trace(ST05) to find where the program is consuming more time.
Lanka

SUBMIT an ABAP report after creating the WI but before completion of WI.

Dear All,
I am having an activity which sends the approval work item.
Now my requirement is to SUBMIT an ABAP report after creating the WI but before completion of WI.
I can not call this report before approval activity because i need to pass this WI ID to this report.
Please suggest some way to solve this.
Regards,
Amar

Hello,
You could create a 2-from-2 fork and put the workitem in one branch and the report in the other. Have the report branch wait 1 minute and then read the workitem id from the other branch.
What is the purpose of this report? Why does it need the workitem id?
regards
Rick Bakker
hanabi technology

Status change of Single correction using Abap report

Hi Experts,
I have a requirement to change the status of Single correction CR's to "completed" and also set the preceding document to appropriate status . I am using the function module CRM_ORDER_MAINTAIN followed by ORDER_SAVE to do so.
But this does not change the status.
Please let me know if there is anything that has to be done while changing the status of CR through an ABAP Report.
Thanks in advance for ur help.
Rithesh

Use function CRM_STATUS_CHANGE_EXTERN and also CRM_ORDER_SAVE and commit at the end.

ABAP Report to HTML in BSP

Hi,
I have read the very interesting posts about calling ABAP reports from BSP applications.
Nevertheless, I noticed 2 constraints in order for a Report to be called :
- the sap/bc/report must be active in Transaction SICF
- the report must have an Authorization Group defined
Am i right, so far ?
Besides, I tried to implement the solution given in the forum as follows :
DATA: html TYPE TABLE OF w3html. " occurs 10 with header line.
DATA: html_wa TYPE w3html.
DATA: listobject TYPE TABLE OF abaplist. " occurs 10.
DATA: report_name TYPE syrepid.
DATA: result TYPE string.
report_name = 'SHOWCOLO'.
SUBMIT (report_name) EXPORTING LIST TO MEMORY AND RETURN .
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
 listobject = listobject.
CALL FUNCTION 'WWW_HTML_FROM_LISTOBJECT'
EXPORTING
 report_name = 'WEBREPORTING_REPORT'
TABLES
 html = html
 listobject = listobject.
LOOP AT html INTO html_wa.
CONCATENATE result html_wa INTO result SEPARATED BY space.
ENDLOOP.
The problem is that the 'WWW_HTML_FROM_LISTOBJECT' is fauly. There is a call to the FM 'RECORDER_PLAY_BACK' which itself calls 'ABAPLIST_VERSION %_RFC' and the code stops !
Any idea why this is happening ?
Am I missing a service in SICF ?
Of course, when I do the same code in a classic ABAP Program everything works fine...
Thanks in advance.
Cheers,
Guillaume
Message was edited by: Guillaume Garcia

 the sap/bc/report must be active in Transaction SICF
- the report must have an Authorization Group defined
both the points above are correct, more than that, using sap/bc/report you cannot pass selection screen values or variants.
regarding
'WWW_HTML_FROM_LISTOBJECT'
i have been using this and no problem at all. where is your BSP you wrote the logic using 'WWW_HTML_FROM_LISTOBJECT'.
also dose it generate a dump? if so can you give us the gist of the dump analysis.
REgards
Raja

How to show Headers in ABAP report

hii folks,
plz try to solve my quesions:
hw to show two Headers in ABAP report output, like
eg:
for first two fields(vendor A/C no. vendor name ) i have to shw header name like VENDOR PR. DETAILS & for the nxt following fields(vendor city, state, country)i have to shw VENDOR ADDRESS.(plz gv a exaple)
2Q) A INISILIZATION event in report hw many times it triggers.
3Q) In a ALV report once i double click on a selected record it has to shw its corresponing details.for(DOUBLE CLICK what we use & where i have to defind it)
thanking u
sweta.

1. Please let me know whether it is for Classic list report or ALV.
2. Initilization is triggered only once when the report is loaded to memmory.
3.
3.1.) Declare user_command in events:
DATA: ls_event type slis_alv_event.
move 'USER_COMMAND' to ls_event-form.
append ls_event to gt_events.
3.2.) Getting cell value ." within the form USER_COMMAND:
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
Check function code
CASE R_UCOMM.
WHEN '&IC1'. "--> check your own sy-ucomm once you double click the line item
Check field clicked on within ALVgrid report
IF RS_SELFIELD-FIELDNAME = 'EBELN'.
Read data table, using index of row user clicked on
READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
ENDIF.
ENDCASE.
ENDFORM.
For More details, please refer to following threads.
Re: Drill down report
double click on cell in alv report
Regards,
Lijo Joseph
*reward if useful

How to open a Promotion from an ABAP report/program?

Hello SDN,
I have a normal ABAP report and would like to open a specific promotion (markteing project) after a PAI event.
I know it is the OBJTYPE=BUS2010030 (the businesspartner is objtype BUS1006), but how can I open it?
Regards from Germany,
Friederike

The solution:
DATA: lt_time   TYPE crmt_mktpl_cldr_time_ranges,
      lo_tpm    TYPE REF TO cl_crm_mktpl_cldr_data,
     prom_guid TYPE cgpl_guid16.
CREATE OBJECT lo_tpm
EXPORTING
    im_add_periods = lt_time.
Jump to the Marketing Planner
CALL METHOD lo_tpm->navigate_to_object
    EXPORTING
      im_data_object = promotion_guid.

Download Simple ABAP report as PDF

Hi freinds,
There is a requirement that a simple classical abap report has to download as PDF on user PC. how it can be acheived without using smartforms and sapscript.
regards
Rajesh

hi,
This might resolve your problem.
[https://forums.sdn.sap.com/click.jspa?searchID=18642809&messageID=4655514]

Constants reading in abap report

Similar Messages

Maybe you are looking for