Classical report on programs list.

I've to create report to display abap/4 program names list.
when i am giving full program name in parameter,it is generating the report but when i am giving initial few characters followed by *(star) and pressing f8 key, it is not working.
please provide me the solution for this report generation with key f8.
regards,
Nilesh Gaikwad.

Hi nilesh,
1. if we use LIKE
   then we have to give % (and not *)
2. to work with *,
   we can REPLACE it with %
3. Just copy paste to get a taste of it.
   (it will list out the program names
eg. z*
4.
REPORT ABC.
DATA : PRG TYPE REPOSRC-PROGNAME OCCURS 0 WITH HEADER LINE.
DATA : MYPROG TYPE REPOSRC-PROGNAME.
parameters : PROGNAME TYPE REPOSRC-PROGNAME.
MYPROG = PROGNAME.
REPLACE ALL OCCURRENCES OF '*' IN MYPROG WITH '%'.
SELECT PROGNAME FROM
REPOSRC
INTO TABLE PRG
WHERE PROGNAME LIKE MYPROG.
LOOP AT PRG.
WRITE :/ PRG.
ENDLOOP.
regards,
amit m.

Similar Messages

Refresh Classical report/basic list

Hi,
I have created a classical report/basic list where user can select check boxes and adjacent rows should be deleted. But after the action, I wish to refresh the report and remove the selected lines from displaying.
Please let me know how to achieve this.
Thanks in advance.
Nitin

Hi Nitin,
Check the following program.
Here on pressing the delete push button(FCODE: DELETE) it will delete all
rows which has adjacent checkboxes checked.
REPORT ztest_list_processing NO STANDARD PAGE HEADING .
TYPES: BEGIN OF ty_tab,
       delete,
       f1(3) TYPE c,
       f2(3) TYPE c,
       f3(3) TYPE c,
       END OF ty_tab.
DATA: it_tab TYPE TABLE OF ty_tab,
      wa_tab TYPE ty_tab.
DATA: w_delete TYPE c,
      w_lines TYPE i,
      w_ind TYPE i.
wa_tab-f1 = '111'.
wa_tab-f2 = 'ABC'.
wa_tab-f3 = '123'.
APPEND wa_tab TO it_tab.
wa_tab-f1 = '222'.
wa_tab-f2 = 'DEF'.
wa_tab-f3 = '456'.
APPEND wa_tab TO it_tab.
wa_tab-f1 = '333'.
wa_tab-f2 = 'GHI'.
wa_tab-f3 = '789'.
APPEND wa_tab TO it_tab.
wa_tab-f1 = '444'.
wa_tab-f2 = 'JKL'.
wa_tab-f3 = '987'.
APPEND wa_tab TO it_tab.
wa_tab-f1 = '555'.
wa_tab-f2 = 'MNO'.
wa_tab-f3 = '654'.
APPEND wa_tab TO it_tab.
SET PF-STATUS '100'. "Contains Delete button
PERFORM print_output.
"Logic which you can implement
AT USER-COMMAND.
CASE sy-ucomm.
    WHEN 'DELETE'.
      DESCRIBE TABLE it_tab LINES w_lines.
      DO w_lines TIMES. "To read all rows
        CLEAR: wa_tab.
        READ LINE w_ind FIELD VALUE wa_tab-delete
                                       wa_tab-f1. "Getting the values
        IF wa_tab-delete EQ 'X'. "Delete when check box is 'X'
          DELETE it_tab WHERE f1 = wa_tab-f1.
        ENDIF.
        ADD 1 TO w_ind."Index for next line
      ENDDO.
      IF it_tab IS INITIAL.
        WRITE: / 'There are no data in the table'.
      ELSE.
        PERFORM print_output. "Reprint the updated data(like refreshing)
      ENDIF.
      "Modified the existing Back button in standard Toolbar so that on
      "pressin the back button it will come to program and not to
      "previous displayed list
    WHEN '&BACK'.
      LEAVE SCREEN.
ENDCASE.
*&      Form print_output
*       text
* --> p1        text
* <-- p2        text
FORM print_output.
LOOP AT it_tab INTO wa_tab.
    WRITE:/ wa_tab-delete AS CHECKBOX INPUT ON, "Display as checkbox
          wa_tab-f1,
          wa_tab-f2,
          wa_tab-f3.
    IF sy-tabix EQ 1.
      w_ind = sy-linno. "Get the line position of first row
    ENDIF.
ENDLOOP.
Hope this helps you.
Regards,
Manoj Kumar P

In classical report list output checkbox is value is not changed

Hi Abapers,
I am developing one classical report program, out put list hast one check box.
I need to read wheather checkbox is checked or not dynamically .
but the check box value is not changed if I check or uncheck How can I
solve this problem.
Regards.
Shashikumar.G

Hi Abapers,
I codded as.
DATA: CHKBOX TYPE C.
WRITE: CHKBOX AS CHECKBOX INPUT ON.
it will be displayd on output list if click on it It will be ticked or unticked it is fine.
but the value of chkbox is not changed.
but I need to change the value of chkbox regarding to clicking on it(check, uncheck).
Regards,
Shashikumar.G

Classical report display from an alv list

Hi,
I have an alv report displayed, and for this alv report have a user defined menu. Now when the Save button is clicked on the application bar then in the background we have a set of invoices which are generated for all the values selected from the alv list.
Now after this a list is to be displayed listing all the items which were selected from the alv(ie the check boxes for the alv selected and not a particular field for selection) for which the invoices were created. how do we display the list in a classical report format considering that the write statement will not work....???

Hi
Try thsi......
You write the code in some Zreport of your own and from your ALV program pass the values to this ZReport program. You can pass via 2 ways
a) Pass via Export to Memory and Import from Memory ID
b) Call Submit via Selection Screen and return
Hope thsi Helps
Anirban

Help with Select Lists in Classic Report

Hello,
I working with APEX 4.1. Oracle 11.
I have a simple classic report with 4 columns (Username, Role, Read, Update). The Read and Update columns are Select Lists with values of "Yes", "No".
Report looks like this:
Username Role Read Update
JSmith Admin Yes Yes
LJones Dev Yes No
My requirement, is that when a user selects Yes from the Update select list, the value of the associated Read column needs to change to Yes as well for that particular Username. The change has to occur upon selection of Yes from the Update select list.
Im not very strong with javascript, but for testing purposes I applied: onchange="alert('hi');" on the Update column. When I make a change to the Update select list, the alert does pop up.
Can anyone suggest how I can implement the change to the associated Read value of Yes if the Update value chosen is Yes, for that particular row.
Thank you,
Laura

LauraK wrote:
I working with APEX 4.1. Oracle 11.
I have a simple classic report with 4 columns (Username, Role, Read, Update). The Read and Update columns are Select Lists with values of "Yes", "No".
Report looks like this:
Username Role Read Update
JSmith Admin Yes Yes
LJones Dev Yes No
My requirement, is that when a user selects Yes from the Update select list, the value of the associated Read column needs to change to Yes as well for that particular Username. The change has to occur upon selection of Yes from the Update select list.
Im not very strong with javascript, but for testing purposes I applied: onchange="alert('hi');" on the Update column. When I make a change to the Update select list, the alert does pop up.
Can anyone suggest how I can implement the change to the associated Read value of Yes if the Update value chosen is Yes, for that particular row.Should be possible to do this using a Dynamic Action without writing any (or much) JavaScript. The complexity in this case is that you're using items in a report rather than standard page items.

How to update the table when change list item in classic report

hi ,
i worked with apex 4.2 and i create normal classic report with one select list(named loved)Column ,now i want to update table when user change the list with new value ,i can't create dynamic action to do this,i create check box with primary key and loop for check item to update the table but i can't get the value of list item. and for more speed the user want to do this when change the list value.
my question
1- how to do this by javascript and get the value from list item and update the table with new value
2- is i must use API to create list item so i can get the value of item in report or what.
Thanks
Ahmed

I coded the following to give you direction:
1. In the "Element Attributes" section of the DEPTNO column, I call a javascript function as:
onchange = "javascript:updateTable(this);"2. I wrote a simple javascript function that shows an alert when the user changes the select list as:
<script language="JavaScript" type="text/javascript">
function updateTable(pThis)
var vRow = pThis.id.substr(pThis.id.indexOf('_')+1);
alert('Row# - '+ vRow + ' has the value - ' + pThis.value);
</script>Now, you can call a AJAX on-demand process inside the javascript function to update the database value.

How to Get checkbox value when List value changed in classic report

hi ,
i worked with apex 4.2 and i create normal classic report with one checkbox column and one column change it to select list(named loved) now i want when user change list
take value of checkbox item and show it in message .
SQL for report
SELECT
'<INPUT TYPE="checkbox" NAME="f01" VALUE="'
||SEQ
||'">' SEQ,
ID,
DEPT_NO,
EMP_NAME} i change the column attributes of Dept_NO to Display as Select list of department name (named lov).
now i want when user change name of department the value of SEQ SHOW IN ALERT MESSAGE
i create JavaScript on the page
function test(pThis) {
var f01_value = $('select[name="f01"]').value;
alert('#SEQ : '+ f01_value);
</script>
I call this javascript function when list change but the value undefined..
My Question :
How can get this value Or any value of item in reports
regards
Ahmed

Hi Ahmed,
>
i worked with apex 4.2 and i create normal classic report with one checkbox column and one column change it to select list(named loved) now i want when user change list
take value of checkbox item and show it in message .
SQL for report
SELECT
'<INPUT TYPE="checkbox" NAME="f01" VALUE="'
||SEQ
||'">' SEQ,
ID,
DEPT_NO,
EMP_NAME} i change the column attributes of Dept_NO to Display as Select list of department name (named lov).
>
You should not create checkboxes like this. Either use the APEX_ITEM.CHECKBOX2 API or change the Column Type to Simple Checkbox.
>
now i want when user change name of department the value of SEQ SHOW IN ALERT MESSAGE
i create JavaScript on the page
function test(pThis) {
var f01_value = $('select[name="f01"]').value;
alert('#SEQ : '+ f01_value);
</script>
>
name="f01" returns an array, what you need is single element value.
Try
<script type="text/javascript>
function test(pThis) {
var f01_value = $v(pThis);
alert('#SEQ : '+ f01_value);
</script>
{code}
{quote}
I call this javascript function when list change but the value undefined..
My Question :
How can get this value Or any value of item in reports
{quote}
Depends in how you are invoking/triggering the change event. Are you using DA or have you written an "onchange" event on the element?
Cheers,

Refresh classic report based on select list value selected

hello,
can anyone please help me out with this issue. I have a parameterized classic report based on a select list and I want to refresh this report whenever the select list value is changed. I am using oracle apex version 3.2. i just want to have a javascript function onchange event for the select list which refreshes my report whenever a value is selected.
My select list item is p1_datastore
select distinct datastore d,datastore r from my_table1 order by 1;
My classic report query is
select * from my_table2 where datastore = :p1_datastore order by last_updated_dt desc;
****************************************************thanks,
orton

can anyone please help me out with this issue.
thanks,
orton

Classical report with hotspot or interactive screen list help

Hi Friends,
I've a classical report (write list format) which have multiple internal tables and showing output as line item format. There, I have to give a interactive list or hotspot command which shows the needed field.
For Example: if my 1st screen shows
Decription Amount
Sundry Creditors 150,00.
If i click the description/text, it should call and show the GL account numbers respective to the line text which I have it in another internal table.
Pls post some examples and good solutions.
thanks & regards
sankar.

Hi Shankar,
refer tihs link.
http://software.feedfury.com/content/22514963-sap_abap_3_levels_interactive_report.html
Regards,
Charumathi.B

Display image in classical report

Experts,
Please share how to display image stored in SO10 in to a classical report??

Hi
check this
In the transaction OAOR, you should be able to insert your company Logo.
GOTO - OAOR (Business Document Navigator)
Give Class Name - PICTURES Class Type - OT..... then Execute
It will show you the list, then select ENJOYSAP_LOGO.
On that list, you will find one control with a "create" tab.
Click std. doc types.
Select SCREEN and double-click.
It will push FILE selection screen.
Select your company logo (.gif) and press OK.
It will ask for a description- for instance: "company logo".
It will let you know your doc has been stored successfully.
You can find your logo under ENJOYSAP_LOGO->Screen->company logo.
Just run your ALV program, you should find your company logo in place of the EnjoySAP logo.
FORM TOP-OF-PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEADING[]
I_LOGO = 'ENJOYSAP_LOGO'
I_END_OF_LIST_GRID ='GT_LIST_TOP_OF_PAGE'.
ENDFORM. "TOP-OF-PAGE
Here 'ENJOYSAP_LOGO' will replace by ur created logo.
Refer this link
http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_enhanced.htm
http://www.sap-img.com/abap/alv-logo.htm
http://www.sap-img.com/fu002.htm
Re: Logo on Login screen
Re: To change image into main menu of sap
Regards
Anji

How to insert a Grpahics logo in Classical report?

Hi Experts,
I need to insert a graphics logo in a classical report without using split screen or graphics control. The size of the logo is normal Company logo we use in Smartform. The difference here is : I need to print the logo in a classical report.
Regards,
Anid
Reward Points Guaranteed.

Hi..
It is possbile only when u create ALV report. In normal report we cannot insert Logos.
In case of ALV:
Inserting Logo:
In the transaction OAOR, you should be able to insert your company Logo.
GOTO - OAOR (Business Document Navigator)
Give Class Name - PICTURES Class Type - OT..... then Execute
It will show you the list, then select ENJOYSAP_LOGO.
On that list, you will find one control with a "create" tab.
Click std. doc types.
Select SCREEN and double-click.
It will push FILE selection screen.
Select your company logo (.gif) and press OK.
It will ask for a description- for instance: "company logo".
It will let you know your doc has been stored successfully.
You can find your logo under ENJOYSAP_LOGO->Screen->company logo.
Just run your ALV program, you should find your company logo in place of the EnjoySAP logo.
<b>Reward if Helpful.</b>

Need help on classical report

hi friends i need help on classical reports,
sold-party,
material
sales and distrubitutation channel ,division,
incoming orders,order number,invoice ,credit,
i need sub totals and final total of invoice and each customer should display in new page .

Hi
Use the Tables KNA1,VBAk,VBAP,VBRK and VBRP and design the report
see the sample report using KNA1,VBAK and VBAP.
REPORT ZTEJ_INTAB1 LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE
HEADING.
*TABLES DECLARATION
TABLES : KNA1, VBAK, VBAP.
*SELECT OPTIONS
SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.
*INITIALIZATION
INITIALIZATION.
CUST_NO-LOW = '01'.
CUST_NO-HIGH = '5000'.
CUST_NO-SIGN = 'I'.
CUST_NO-OPTION = 'BT'.
APPEND CUST_NO.
*SELECTION SCREEN VALIDATION
AT SELECTION-SCREEN ON CUST_NO.
LOOP AT SCREEN.
IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.
MESSAGE E001(ZTJ1).
ENDIF.
ENDLOOP.
*BASIC LIST SELECTION
START-OF-SELECTION.
SELECT KUNNR NAME1 ORT01 LAND1 INTO
(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)
FROM KNA1
WHERE KUNNR IN CUST_NO.
WRITE:/1 SY-VLINE,
KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,
16 SY-VLINE,
KNA1-NAME1 UNDER 'NAME',
61 SY-VLINE,
KNA1-ORT01 UNDER 'CITY',
86 SY-VLINE,
KNA1-LAND1 UNDER 'COUNTRY',
103 SY-VLINE.
HIDE: KNA1-KUNNR.
ENDSELECT.
ULINE.
*SECONDARY LIST ACCESS
AT user-command.
IF SY-UCOMM = 'IONE'.
PERFORM SALES_ORD.
ENDIF.
IF SY-UCOMM = 'ITWO'.
PERFORM ITEM_DET.
ENDIF.
*TOP OF PAGE
TOP-OF-PAGE.
FORMAT COLOR 1.
WRITE : 'CUSTOMER DETAILS'.
FORMAT COLOR 1 OFF.
ULINE.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'CUSTOMER NO.',
16 SY-VLINE,
18 'NAME',
61 SY-VLINE,
63 'CITY',
86 SY-VLINE,
88 'COUNTRY',
103 SY-VLINE.
ULINE.
FORMAT COLOR 3 OFF.
*TOP OF PAGE FOR SECONDARY LISTS
TOP-OF-PAGE DURING LINE-SELECTION.
*TOP OF PAGE FOR 1ST SECONDARY LIST
IF SY-UCOMM = 'IONE'.
ULINE.
FORMAT COLOR 1.
WRITE : 'SALES ORDER DETAILS'.
ULINE.
FORMAT COLOR 1 OFF.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'CUSTOMER NO.',
16 SY-VLINE,
18 'SALES ORDER NO.',
40 SY-VLINE,
42 'DATE',
60 SY-VLINE,
62 'CREATOR',
85 SY-VLINE,
87 'DOC DATE',
103 SY-VLINE.
ULINE.
ENDIF.
FORMAT COLOR 3 OFF.
*TOP OF PAGE FOR 2ND SECONDARY LIST
IF SY-UCOMM = 'ITWO'.
ULINE.
FORMAT COLOR 1.
WRITE : 'ITEM DETAILS'.
ULINE.
FORMAT COLOR 1 OFF.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'SALES ORDER NO.',
40 SY-VLINE,
42 'SALES ITEM NO.',
60 SY-VLINE,
62 'ORDER QUANTITY',
103 SY-VLINE.
ULINE.
ENDIF.
FORMAT COLOR 3 OFF.
*END OF PAGE
END-OF-PAGE.
ULINE.
WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',
SY-PAGNO.
SKIP.
*& Form SALES_ORD
*& FIRST SECONDARY LIST FORM
FORM SALES_ORD .
SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO
(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)
FROM VBAK
WHERE KUNNR = KNA1-KUNNR.
WRITE:/1 SY-VLINE,
VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,
16 SY-VLINE,
VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,
40 SY-VLINE,
VBAK-ERDAT UNDER 'DATE',
60 SY-VLINE,
VBAK-ERNAM UNDER 'CREATOR',
85 SY-VLINE,
VBAK-AUDAT UNDER 'DOC DATE',
103 SY-VLINE.
HIDE : VBAK-VBELN.
ENDSELECT.
ULINE.
ENDFORM. " SALES_ORD
*& Form ITEM_DET
*& SECOND SECONDARY LIST FORM
FORM ITEM_DET .
SELECT VBELN POSNR KWMENG INTO
(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)
FROM VBAP
WHERE VBELN = VBAK-VBELN.
WRITE : /1 SY-VLINE,
VBAP-VBELN UNDER 'SALES ORDER NO.',
40 SY-VLINE,
VBAP-POSNR UNDER 'SALES ITEM NO.',
60 SY-VLINE,
VBAP-KWMENG UNDER 'ORDER QUANTITY',
103 SY-VLINE.
ENDSELECT.
ULINE.
ENDFORM. " ITEM_DET
REPORT demo_list_at_pf.
START-OF-SELECTION.
WRITE 'Basic List, Press PF5, PF6, PF7, or PF8'.
AT pf5.
PERFORM out.
AT pf6.
PERFORM out.
AT pf7.
PERFORM out.
AT pf8.
PERFORM out.
FORM out.
WRITE: 'Secondary List by PF-Key Selection',
/ 'SY-LSIND =', sy-lsind,
/ 'SY-UCOMM =', sy-ucomm.
ENDFORM.
After executing the program, the system displays the basic list. The user can press the function keys F5 , F6 , F7 , and F8 to create secondary lists. If, for example, the 14th key the user presses is F6 , the output on the displayed secondary list looks as follows:
Secondary List by PF-Key Selection
SY-LSIND = 14
SY-UCOMM = PF06
Example for AT USER-COMMAND.
REPORT demo_list_at_user_command NO STANDARD PAGE HEADING.
START-OF-SELECTION.
WRITE: 'Basic List',
/ 'SY-LSIND:', sy-lsind.
TOP-OF-PAGE.
WRITE 'Top-of-Page'.
ULINE.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE sy-pfkey.
WHEN 'TEST'.
WRITE 'Self-defined GUI for Function Codes'.
ULINE.
ENDCASE.
AT LINE-SELECTION.
SET PF-STATUS 'TEST' EXCLUDING 'PICK'.
PERFORM out.
sy-lsind = sy-lsind - 1.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'FC1'.
PERFORM out.
WRITE / 'Button FUN 1 was pressed'.
WHEN 'FC2'.
PERFORM out.
WRITE / 'Button FUN 2 was pressed'.
WHEN 'FC3'.
PERFORM out.
WRITE / 'Button FUN 3 was pressed'.
WHEN 'FC4'.
PERFORM out.
WRITE / 'Button FUN 4 was pressed'.
WHEN 'FC5'.
PERFORM out.
WRITE / 'Button FUN 5 was pressed'.
ENDCASE.
sy-lsind = sy-lsind - 1.
FORM out.
WRITE: 'Secondary List',
/ 'SY-LSIND:', sy-lsind,
/ 'SY-PFKEY:', sy-pfkey.
ENDFORM.
When you run the program, the system displays the following basic list with a the page header defined in the program:
You can trigger the AT LINE-SELECTION event by double-clicking a line. The system sets the status TEST and deactivates the function code PICK. The status TEST contains function codes FC1 to FC5. These are assigned to pushbuttons in the application toolbar. The page header of the detail list depends on the status.
Here, double-clicking a line no longer triggers an event. However, there is now an application toolbar containing five user-defined pushbuttons. You can use these to trigger the AT USER-COMMAND event. The CASE statement contains a different reaction for each pushbutton.
For each interactive event, the system decreases the SY-LSIND system field by one, thus canceling out the automatic increase. All detail lists now have the same level as the basic list and thus overwrite it. While the detail list is being created, SY-LSIND still has the value 1.
Reward points for useful Answers
Regards
Anji

Change of font in classical report

Hi experts,
please any one let me know how i can change the font options in out put display of a classical report.
advanced
thanks
vijay

Hi Vijay,
We cant change the font size of display But we can change the print size while printiing.
Please follow the process.. After displaying the report goto LIST->Print->Properties--->General Properties -
> Format
Please create new font size as per ur requirement and assign it here.. U can send it these thing thorugh program also.
Regards,
Srinivas

Drop down box for the selection screen field of the classical report

Hi all.
i want to have the drop down list to choose from, for the region(table:zbwcntry-field:zregion1) on the selection screen.
what is to be added to the code for this requirement.Also,please note that this is the classical report.
thanks for this answered.

hi,
data : gv_name TYPE vrm_id,        " used for vrm id
           gv_repid TYPE sy-repid,      " used to hold program name
work area to provide drop down list
DATA : gs_value TYPE vrm_value,
Internal table to provide drop down list
DATA : gt_values TYPE vrm_values,
PARAMETER : p_run(12) TYPE c AS LISTBOX VISIBLE LENGTH 12
                                 DEFAULT 'DEFAULT' OBLIGATORY,
CONSTANTS : gc_run(5) TYPE c VALUE 'P_RUN',    "constant for run mode
gv_name = gc_run.
gs_value-key = gc_v1.
gs_value-text = text-010.
APPEND gs_value TO gt_values.
gs_value-key = gc_v2.
gs_value-text = text-011.
APPEND gs_value TO gt_values.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = gv_name
      values          = gt_values
    EXCEPTIONS
      id_illegal_name = 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.
Hope this is helpful.
Rgds.,
subash

Regarding Classical Reporting

Hi all,
I want to know how to write the code in calssical reporting to get field headngs.
In ALV means we use Field catalog merge FM, But in classical it is differnt.
I want one example program to get field catalog in classical Reporting out put,
My out put looks like XL sheet. I want to know how to get that grids in Classical reporting.
Regards,
sarath

Hi
Using Sy-Vline, and Sy-Uline we can design the Field catalog like Excel like output in the Classical reporting
see the sample code and the output
REPORT zfi_customer_ageing
        NO STANDARD PAGE HEADING
        LINE-COUNT 58
       line-size 168
        MESSAGE-ID zh_msg.
       D A T A B A S E T A B L E S   D E C L A R A T I O N
TABLES: kna1,           " Customer Master (General)
        t001,           " Company Codes
        rfpdo.
     I N T E R N A L T A B L E S D E C L A R A T I O N S           *
Internal Table for Customer Open Items Data
DATA: BEGIN OF int_bsid OCCURS 0,
        kunnr   LIKE bsid-kunnr,         " Customer Number
        name1   LIKE kna1-name1,         " Customer Name
        shkzg   LIKE bsid-shkzg,         " Dr/Cr Indicator
        belnr   LIKE bsid-belnr,         " Document Number
        xblnr   LIKE bsid-xblnr,         " Ref Doc No
        blart   LIKE bsid-blart,         " Document Type
        zfbdt   LIKE bsid-zfbdt,         " Base Line Date
        zbd1t   LIKE bsid-zbd1t,         " Due date1
        zbd2t   LIKE bsid-zbd2t,         " Due Date2
        zbd3t   LIKE bsid-zbd3t,         " Due Date3
        waers   LIKE bsid-waers,         " Currency
        dmbtr   LIKE bsid-dmbtr,         " Amount in Local Curr
      END OF int_bsid.
Internal Table for Amounts Sum Up Data
DATA: BEGIN OF int_final OCCURS 0,
        kunnr   LIKE bsid-kunnr,         " Customer Number
        name1   LIKE kna1-name1,         " Customer Name
        total1 LIKE bsid-dmbtr,         " Amount in Local Curr
        total2 LIKE bsid-dmbtr,         " Amount in Local Curr
        total3 LIKE bsid-dmbtr,         " Amount in Local Curr
        total4 LIKE bsid-dmbtr,         " Amount in Local Curr
        total5 LIKE bsid-dmbtr,         " Amount in Local Curr
        total6 LIKE bsid-dmbtr,         " Amount in Local Curr
        total   LIKE bsid-dmbtr,         " Amount in Local Curr
      END OF int_final.
           D A T A D E C L A R A T I O N S
DATA : v_flag,                          " Flag
       v_gtotal1     LIKE bsid-dmbtr,   " Amount Totals
       v_gtotal2     LIKE bsid-dmbtr,   " Amount Totals
       v_gtotal3     LIKE bsid-dmbtr,   " Amount Totals
       v_gtotal4     LIKE bsid-dmbtr,   " Amount Totals
       v_gtotal5     LIKE bsid-dmbtr,   " Amount Totals
       v_gtotal6     LIKE bsid-dmbtr,   " Amount Totals
       v_gtotal      LIKE bsid-dmbtr,   " Amount Totals
       v_subtotal1   LIKE bsid-dmbtr,   " Amount Totals
       v_subtotal2   LIKE bsid-dmbtr,   " Amount Totals
       v_subtotal3   LIKE bsid-dmbtr,   " Amount Totals
       v_subtotal4   LIKE bsid-dmbtr,   " Amount Totals
       v_subtotal5   LIKE bsid-dmbtr,   " Amount Totals
       v_subtotal6   LIKE bsid-dmbtr,   " Amount Totals
       v_subtotal    LIKE bsid-dmbtr,   " Amount Totals
       v_date        LIKE bsid-zfbdt,   " Due Date
       v_tage1(4),                      " Age 30 days
       v_tage2(4),                      " Age 60 days
       v_tage3(4),                      " Age 90 days
       v_fir(15),                       " Column Text1
       v_sec(15),                       " Column Text2
       v_thir(15),                      " Column Text3
       v_four(17),                      " Column Text4
       v_fidd(4),                       " Days field1
       v_sedd(4),                       " Days field2
       v_thdd(4),                       " Days field3
       v_fodd(4),                       " Days field4
       v_str TYPE SY-LISEL,           " String
       v_str1(11),                      " String
       v_tage(3),                       " String
       v_date1(10).                     " Date field
     R A N G E   D E C L A R A T I O N S
RANGES: r_date1 FOR bsid-zfbdt,      " Date Range 1
        r_date2 FOR bsid-zfbdt,      " Date Range 2
        r_date3 FOR bsid-zfbdt,      " Date Range 3
        r_date4 FOR bsid-zfbdt.      " Date Range 4
         S E L E C T I O N S C R E E N                      *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_kunnr FOR kna1-kunnr. "Customer account
PARAMETERS:     p_bukrs LIKE t001-bukrs. "Co. Code
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS:   p_allgst LIKE rfpdo-allgstid OBLIGATORY DEFAULT sy-datum.
"Open items at key date
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_tage1 LIKE rfpdo1-allgfael DEFAULT '30',
            p_tage2 LIKE rfpdo1-allgfael DEFAULT '60',
            p_tage3 LIKE rfpdo1-allgfael DEFAULT '90',
            p_tage4 LIKE rfpdo1-allgfael DEFAULT '120'.
SELECTION-SCREEN END OF BLOCK b3.
              A T S E L E C T I O N S C R E E N                   *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_flds.
               S T A R T O F S E L E C T I O N                    *
START-OF-SELECTION.
Fetch main data
PERFORM fetch_data.
                       T O P O F P A G E
Header
TOP-OF-PAGE.
PERFORM header.
                       E N D O F P A G E
Footer
END-OF-PAGE.
ULINE.
   T O P O F P A G E D U R I N G L I N E S E L E C T I O N     *
Top of Page in Secondary List
TOP-OF-PAGE DURING LINE-SELECTION.
PERFORM header1.
              A T L I N E S E L E C T I O N                    *
AT LINE-SELECTION.
Perform Line Selections
PERFORM line_selection.
                 E N D O F S E L E C T I O N
END-OF-SELECTION.
List generation
PERFORM basic_list.
*&      Form validate_flds
Validation of Selection Screen fields
FORM validate_flds .
Validate Customer Code
CLEAR kna1-kunnr.
SELECT kunnr UP TO 1 ROWS
      INTO kna1-kunnr
      FROM kna1
      WHERE kunnr IN s_kunnr AND
            spras = sy-langu.
ENDSELECT.
IF sy-subrc <> 0.
    MESSAGE e000 WITH 'Invalid Customer Code range'(023).
ENDIF.
Validate Company Code
CLEAR t001-bukrs.
SELECT bukrs UP TO 1 ROWS
      INTO t001-bukrs
      FROM t001
      WHERE bukrs = p_bukrs AND
            spras = sy-langu.
ENDSELECT.
IF sy-subrc <> 0.
    MESSAGE e021.      " Invalid Company Code range
ENDIF.
IF ( p_tage1 > p_tage2 ) OR ( p_tage1 > p_tage3 ) OR
      ( p_tage1 > p_tage4 ).
    MESSAGE e999 WITH 'Column 1 greater'(004)
                'than Column# 2 or 3 or 4'(005).
ENDIF.
*column 2
IF ( p_tage2 > p_tage3 ) OR ( p_tage1 > p_tage4 ).
    MESSAGE e999 WITH 'Column 2 greater'(006)
                'than Column# 3 or 4'(007).
ENDIF.
*column3
IF ( p_tage3 > p_tage4 ).
    MESSAGE e999 WITH 'Column 3 greater'(008)
                'than Column#4'(009).
ENDIF.
ENDFORM.                    " validate_flds
*&      Form fetch_data
Fetching Data from Database Tables
FORM fetch_data .
Date Range Population
r_date1-sign   = 'I'.
r_date1-option = 'BT'.
r_date1-low    = p_allgst.
r_date1-high    = r_date1-low + p_tage1.
APPEND r_date1.
r_date2-sign   = 'I'.
r_date2-option = 'BT'.
r_date2-low    = r_date1-high + 1.
r_date2-high    = r_date1-low + p_tage2.
APPEND r_date2.
r_date3-sign   = 'I'.
r_date3-option = 'BT'.
r_date3-low    = r_date2-high + 1.
r_date3-high    = r_date1-low + p_tage3.
APPEND r_date3.
r_date4-sign   = 'I'.
r_date4-option = 'BT'.
r_date4-low    = r_date3-high + 1.
r_date4-high    = r_date1-low + p_tage4.
APPEND r_date4.
Select the Customer Open Items data from bsid
SELECT l~kunnr
         l1~name1
         b~waers
         b~dmbtr
         b~zfbdt
         b~zbd1t
         b~zbd2t
         b~zbd3t
         b~belnr
         b~xblnr
         b~shkzg
         b~blart
   INTO CORRESPONDING FIELDS OF TABLE int_bsid
   FROM knb1 AS l INNER JOIN kna1 AS l1
                ON lkunnr = l1kunnr
       INNER JOIN   bsid AS b
         ON lkunnr = bkunnr AND
            lbukrs = bbukrs
         WHERE l~kunnr IN s_kunnr AND
               l~bukrs = p_bukrs and
               b~zfbdt le p_allgst.
IF SY-SUBRC <> 0.
    MESSAGE i000 WITH 'No Data found'(027).
ENDIF.
Removing the date limit to get the due items in the past
DELETE int_bsid WHERE
              ( blart NE 'RE' AND blart NE 'KR' ) OR
                shkzg NE 'H'.
SORT int_bsid BY kunnr.
ENDFORM.                    " fetch_data
*&      Form header
Display the Report Columns
FORM header .
v_tage1 = p_tage1 + 1.
v_tage2 = p_tage2 + 1.
v_tage3 = p_tage3 + 1.
v_fidd = p_tage1.
v_sedd = p_tage2.
v_thdd = p_tage3.
v_fodd = p_tage4.
MOVE v_fodd0(4) TO v_fodd1(3).
v_fodd+0(1) = space.
CONCATENATE '1 to'(010) v_fidd INTO v_fir.
CONCATENATE v_tage1 ' to '(011) v_sedd INTO v_sec.
CONCATENATE v_tage2 ' to '(011) v_thdd INTO v_thir.
CONCATENATE v_tage3 ' to '(011) space v_fodd INTO v_four.
Standard header
clear: v_date1, v_str, v_str1, v_tage.
write p_allgst to v_date1.
Move p_tage4 to v_tage.
concatenate '>' v_tage text-025 into v_str1.
concatenate
'Summary of Ageing Analysis for Customer Open Invoices as on'(013)
   v_date1 into v_str separated by space.
CALL FUNCTION 'Z_STANDARD_HEADER'
    EXPORTING
     title1 = 'Saudi International Petrochemical Company'(012)
     title2 = v_str.
FORMAT COLOR OFF.
WRITE : /1(168) sy-uline.
FORMAT COLOR 1 INTENSIFIED.
WRITE :/1 sy-vline, 13 sy-vline, 49 sy-vline,
        50(101) 'Invoices Due For(In Days)'(014) CENTERED,
       151 sy-vline, 168 sy-vline .
WRITE :/1 sy-vline, 2(11) 'Customer#'(015) CENTERED,
         13 sy-vline ,14(35) 'Customer Name'(016) CENTERED,
         49 sy-vline,
         50(101) sy-uline,151 sy-vline,
        152(16) 'Total'(017) CENTERED,
        168 sy-vline.
WRITE : /1 sy-vline,13 sy-vline,      49 sy-vline,
          50(16) v_fir CENTERED,        66 sy-vline,
          67(16) v_sec CENTERED,        83 sy-vline,
          84(16) v_thir CENTERED,      100 sy-vline,
         101(16) v_four CENTERED,      117 sy-vline,
         118(16) v_str1 centered,      134 sy-vline,
         135(16) 'Already Overdue'(018) CENTERED,151 sy-vline,
         168 sy-vline.
FORMAT COLOR OFF.
WRITE : /1(168) sy-uline.
ENDFORM.                    " header
*&      Form basic_list
Display the Basic List
FORM basic_list .
NEW-PAGE LINE-SIZE 168.
LOOP AT int_bsid.
    CLEAR v_date.
    IF int_bsid-zbd3t <> ' '.
      v_date = int_bsid-zfbdt + int_bsid-zbd3t.
    ELSE.
      IF int_bsid-zbd2t <> ' '.
        v_date = int_bsid-zfbdt + int_bsid-zbd2t.
      ELSE.
        v_date = int_bsid-zfbdt + int_bsid-zbd1t.
      ENDIF.
    ENDIF.
    IF int_bsid-zbd1t = ' '.
      v_date = int_bsid-zfbdt.
    ENDIF.
    IF v_date IN r_date1.
      int_final-total1 =   int_final-total1 + int_bsid-dmbtr.
    ELSEIF v_date IN r_date2.
      int_final-total2 =   int_final-total2 + int_bsid-dmbtr.
    ELSEIF v_date IN r_date3.
      int_final-total3 =   int_final-total3 + int_bsid-dmbtr.
    ELSEIF v_date IN r_date4.
      int_final-total4 =   int_final-total4 + int_bsid-dmbtr.
    ELSEif v_date > r_date4-high.
      int_final-total5 =   int_final-total5 + int_bsid-dmbtr.
    ELSEif v_date < p_allgst.
      int_final-total6 =   int_final-total6 + int_bsid-dmbtr.
    ENDIF.
    AT END OF kunnr.
      v_flag = 1.
    ENDAT.
    IF v_flag = 1.
      int_final-kunnr = int_bsid-kunnr.
      int_final-name1 = int_bsid-name1.
      int_final-total =   int_final-total1 + int_final-total2 +
       int_final-total3 + int_final-total4 + int_final-total5 +
       int_final-total6.
      APPEND int_final.
      v_gtotal1 = v_gtotal1 + int_final-total1.
      v_gtotal2 = v_gtotal2 + int_final-total2.
      v_gtotal3 = v_gtotal3 + int_final-total3.
      v_gtotal4 = v_gtotal4 + int_final-total4.
      v_gtotal5 = v_gtotal5 + int_final-total5.
      v_gtotal6 = v_gtotal6 + int_final-total6.
      v_gtotal = v_gtotal + int_final-total.
      WRITE: /1 sy-vline,
              2 int_final-kunnr COLOR 4 INTENSIFIED ON,
             13 sy-vline,
             14 int_final-name1 COLOR 4 INTENSIFIED ON,
             49 sy-vline.
      DATA : v_rem.
      v_rem = sy-tabix MOD 2.
      IF v_rem NE 0.
        FORMAT COLOR 2 INTENSIFIED.
        WRITE :    50 int_final-total1 CURRENCY int_bsid-waers,
                   66 sy-vline,
                   67 int_final-total2 CURRENCY int_bsid-waers,
                   83 sy-vline,
                   84 int_final-total3 CURRENCY int_bsid-waers,
                  100 sy-vline,
                  101 int_final-total4 CURRENCY int_bsid-waers,
                  117 sy-vline,
                  118 int_final-total5 CURRENCY int_bsid-waers,
                  134 sy-vline,
                  135 int_final-total6 CURRENCY int_bsid-waers,
                  151 sy-vline,
                  152 int_final-total CURRENCY int_bsid-waers,
                  168 sy-vline.
      ELSE.
        WRITE :    50 int_final-total1 CURRENCY int_bsid-waers,
                   66 sy-vline,
                   67 int_final-total2 CURRENCY int_bsid-waers,
                   83 sy-vline,
                   84 int_final-total3 CURRENCY int_bsid-waers,
                  100 sy-vline,
                  101 int_final-total4 CURRENCY int_bsid-waers,
                  117 sy-vline,
                  118 int_final-total5 CURRENCY int_bsid-waers,
                  134 sy-vline,
                  135 int_final-total6 CURRENCY int_bsid-waers,
                  151 sy-vline,
                  152 int_final-total CURRENCY int_bsid-waers,
                  168 sy-vline.
      ENDIF.
      FORMAT COLOR OFF.
      HIDE int_final.
      CLEAR int_final.
      v_flag = 0.
    ENDIF.
    AT LAST.
      WRITE : /1(168) sy-uline.
      FORMAT COLOR 3 INTENSIFIED.
      WRITE : /1 sy-vline, 2(47) 'GRAND TOTAL'(022) CENTERED,
              49 sy-vline, 50 v_gtotal1 CURRENCY int_bsid-waers,
              66 sy-vline, 67 v_gtotal2 CURRENCY int_bsid-waers,
              83 sy-vline, 84 v_gtotal3 CURRENCY int_bsid-waers,
             100 sy-vline,101 v_gtotal4 CURRENCY int_bsid-waers,
             117 sy-vline,118 v_gtotal5 CURRENCY int_bsid-waers,
             134 sy-vline,135 v_gtotal6 CURRENCY int_bsid-waers,
             151 sy-vline,152 v_gtotal CURRENCY int_bsid-waers,
             168 sy-vline.
      HIDE : v_gtotal1,
              v_gtotal2,
              v_gtotal3,
              v_gtotal4,
              v_gtotal5,
              v_gtotal6,
              v_gtotal.
    ENDAT.
    FORMAT COLOR OFF.
ENDLOOP.
WRITE : /1(168) sy-uline.
ENDFORM.                    " basic_list
*&      Form line_selection
When double clicked on the line display the seconday list
FORM line_selection .
NEW-PAGE LINE-SIZE 206.
Sy-lsind = 1.
DATA : v_rem,v_cnt LIKE sy-tabix.
v_cnt = 0.
SORT int_bsid BY belnr zfbdt.
LOOP AT int_bsid WHERE kunnr EQ int_final-kunnr.
    v_rem = v_cnt MOD 2.
    CLEAR v_date.
    IF int_bsid-zbd3t <> ' '.
      v_date = int_bsid-zfbdt + int_bsid-zbd3t.
    ELSE.
      IF int_bsid-zbd2t <> ' '.
        v_date = int_bsid-zfbdt + int_bsid-zbd2t.
      ELSE.
        v_date = int_bsid-zfbdt + int_bsid-zbd1t.
      ENDIF.
    ENDIF.
    IF int_bsid-zbd1t = ' '.
      v_date = int_bsid-zfbdt.
    ENDIF.
    IF v_rem NE 0.
      format color 2 intensified.
      WRITE :/1 sy-vline, 2 int_bsid-belnr,
             12 sy-vline,13 int_bsid-kunnr,
             23 sy-vline,24 int_bsid-name1,
             59 sy-vline,60 int_bsid-xblnr,
             76 sy-vline,77 int_bsid-zfbdt,
             87 sy-vline.
      WRITE : 104 sy-vline,121 sy-vline,
              138 sy-vline,155 sy-vline,
              172 sy-vline, 189 sy-vline,
              190 int_bsid-dmbtr CURRENCY int_bsid-waers,
              206 sy-vline.
      IF v_date IN r_date1.
        v_subtotal1 =   v_subtotal1 + int_bsid-dmbtr.
        WRITE : 88 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEIF v_date IN r_date2.
        v_subtotal2 =   v_subtotal2 + int_bsid-dmbtr.
        WRITE : 105 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEIF v_date IN r_date3.
        v_subtotal3 =   v_subtotal3 + int_bsid-dmbtr.
        WRITE : 122 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEIF v_date IN r_date4.
        v_subtotal4 =   v_subtotal4 + int_bsid-dmbtr.
        WRITE : 139 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEif v_date > r_date4-high.
        v_subtotal5 =   v_subtotal5 + int_bsid-dmbtr.
        WRITE : 156 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEif v_date < p_allgst.
        v_subtotal6 =   v_subtotal6 + int_bsid-dmbtr.
        WRITE : 173 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ENDIF.
      format color off.
    ELSE.
      WRITE :/1 sy-vline, 2 int_bsid-belnr,
             12 sy-vline,13 int_bsid-kunnr,
             23 sy-vline,24 int_bsid-name1,
             59 sy-vline,60 int_bsid-xblnr,
             76 sy-vline,77 int_bsid-zfbdt,
             87 sy-vline.
      WRITE : 104 sy-vline,121 sy-vline,
              138 sy-vline,155 sy-vline,
              172 sy-vline,189 sy-vline,
              190 int_bsid-dmbtr CURRENCY int_bsid-waers,
              206 sy-vline.
      IF v_date IN r_date1.
        v_subtotal1 =   v_subtotal1 + int_bsid-dmbtr.
        WRITE : 88 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEIF v_date IN r_date2.
        v_subtotal2 =   v_subtotal2 + int_bsid-dmbtr.
        WRITE : 105 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEIF v_date IN r_date3.
        v_subtotal3 =   v_subtotal3 + int_bsid-dmbtr.
        WRITE : 122 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEIF v_date IN r_date4.
        v_subtotal4 =   v_subtotal4 + int_bsid-dmbtr.
        WRITE : 139 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEif v_date > r_date4-high.
        v_subtotal5 =   v_subtotal5 + int_bsid-dmbtr.
        WRITE : 156 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ELSEif v_date < p_allgst.
        v_subtotal6 =   v_subtotal6 + int_bsid-dmbtr.
        WRITE : 173 int_bsid-dmbtr CURRENCY int_bsid-waers.
      ENDIF.
    ENDIF.
    FORMAT COLOR OFF.
    v_cnt = v_cnt + 1.
ENDLOOP.
WRITE : /1(206) sy-uline.
v_subtotal = v_subtotal1 + v_subtotal2 + v_subtotal3
              + v_subtotal4 + v_subtotal5 + v_subtotal6.
FORMAT COLOR 3 INTENSIFIED.
WRITE : /1 sy-vline,
             2(85) 'Total'(017) CENTERED CURRENCY int_bsid-waers ,
             87 sy-vline,
             88 v_subtotal1 CURRENCY int_bsid-waers,
            104 sy-vline,
            105 v_subtotal2 CURRENCY int_bsid-waers,
            121 sy-vline,
            122 v_subtotal3 CURRENCY int_bsid-waers,
            138 sy-vline,
            139 v_subtotal4 CURRENCY int_bsid-waers,
            155 sy-vline,
            156 v_subtotal5 CURRENCY int_bsid-waers,
            172 sy-vline,
            173 v_subtotal6 CURRENCY int_bsid-waers,
            189 sy-vline,
            190 v_subtotal CURRENCY int_bsid-waers,
            206 sy-vline.
FORMAT COLOR OFF.
WRITE : /1(206) sy-uline.
CLEAR : v_subtotal,v_subtotal1,v_subtotal2,v_subtotal3,
          v_subtotal4,v_subtotal5,v_gtotal1,v_gtotal2,v_gtotal3,
          v_gtotal4, v_gtotal5,v_gtotal,v_subtotal6,v_gtotal6.
ENDFORM.                    " line_selection
*&      Form header1
Secondary List Header
FORM header1 .
Standard header
clear: v_date1, v_str, v_str1, v_tage.
write p_allgst to v_date1.
Move p_tage4 to v_tage.
concatenate '>' v_tage text-025 into v_str1.
concatenate
   'Details of Ageing Analysis for Customer Open Invoices as on'(024)
    v_date1 into v_str separated by space.
CALL FUNCTION 'Z_STANDARD_HEADER'
    EXPORTING
     title1 = 'Saudi International Petrochemical Company'(012)
     title2 = v_str.
FORMAT COLOR 1 intensified.
WRITE :/1(206) sy-uline.
WRITE :/1 sy-vline,12 sy-vline ,
          23 sy-vline,59 sy-vline,76 sy-vline,87 sy-vline,
          88(101) 'Invoices Due For(In Days)'(014) CENTERED,
         189 sy-vline,206 sy-vline.
WRITE : /1 sy-vline, 2(10) 'Doc Number'(021) CENTERED,
           12 sy-vline, 13(10) 'Customer#'(015) CENTERED,
           23 sy-vline, 24(35) 'Customer Name'(016) CENTERED,
           59 sy-vline, 60(16) 'Ref invoice#'(019) CENTERED,
           76 sy-vline, 77(10) 'Inv dt'(020) CENTERED,
           87 sy-vline, 88(101) sy-uline,
          189 sy-vline,190(16) 'Total'(017) CENTERED,
          206 sy-vline.
WRITE : /1 sy-vline, 12 sy-vline,
           23 sy-vline,59 sy-vline,
           76 sy-vline,87 sy-vline,
           88(16) v_fir CENTERED, 104 sy-vline,
          105(16) v_sec CENTERED, 121 sy-vline,
          122(16) v_thir CENTERED, 138 sy-vline,
          139(16) v_four CENTERED, 155 sy-vline,
          156(16) v_str1 CENTERED,
          172    sy-vline,
          173(16) 'Already Overdue'(018) CENTERED,
          189 sy-vline,
          206 sy-vline.
          format color off.
WRITE : /1(206) sy-uline.
ENDFORM.                                                    " header1
<b>Reward points for useful Answers</b>
Regards
Anji

Classical report on programs list.

Similar Messages

Maybe you are looking for