Zero Decimal values in AL11 file download

Hi Experts,
We have a program to download data into XLS file in AL11 application server. We have a currency column to be passed on to the file. The issue here is I have a decimal value like 201.30 and 200.00 but these values are downloading in AL11 as 201.3 and 200, But I want the values as how it is passing in the string. I am using Open data set statement and inside that concatenating all fields and transferring it into file. I tried searching in the forum and find couple of links none of them helped. Could anyone advice how to overcome this?
Thanks
Siva

We have a program to download data into XLS file in AL11 application server.
You are having problem when you are trying to upload the quantity from excel ( presentation server ) to AL11 ( application server ) or vice versa ?

Similar Messages

How to load decimal values into a file using bcp in SQL Server 2000?

Hi everyone,
I'm trying to load data from a database table to a text file using bcp on SQL Server 2000. When I'm loading the decimal values, the values before the decimal are not being loaded into the file. How could I load the values before decimals?
Here are the DDLs and DMLs of what I'm trying to run:
CREATE TABLE [dbo].[Product_Sales](
[Year_of_Sale] [smallint] NOT NULL,
[Product_Type] [varchar](25) NOT NULL,
[Product_Group] [varchar](25) NOT NULL,
[Category_Type] [varchar](25) NOT NULL,
[Category_Group] [varchar](10) NOT NULL,
[Product_Count] [bigint] NOT NULL,
[Product_Amount] [decimal](19, 2) NOT NULL,
[Category_Count] [bigint] NOT NULL,
[Category_Amount] [decimal](19, 2) NOT NULL,
CONSTRAINT [PK_Product_Sales] PRIMARY KEY CLUSTERED
[Year_of_Sale] ASC,
[Product_Type] ASC,
[Product_Group] ASC,
[Category_Type] ASC,
[Category_Group] ASC
) ON [PRIMARY]
) ON [PRIMARY]
INSERT INTO [Yearly_Sales].[dbo].[Product_Sales]
VALUES(2010, 'Online', 'Web', 'Cameras', 'Electronics', 547, 0.00, 0, 0.00)
EXEC [master].[dbo].[xp_cmdshell] 'bcp "SELECT * FROM [Yearly_Sales].[dbo].[Product_Sales]" queryout D:\Yearly_Sales\Product_Sales.dat -c -T -S'
And the output I see in the file is:
2010 Online Web Cameras Electronics 547 .00 0 .00
The values before decimals are being truncated.
Thanks,
Bangaaram
Known is a DROP, Unknown is an OCEAN.

You can modify the decimal column(s) in the table to varchar type before export. But it does not look good.
alter table [dbo].[Product_Sales]
Alter column [Product_Amount] varchar(20)
alter table [dbo].[Product_Sales]
Alter column [Category_Amount] varchar(20)
Does that make any sense?
Known is a DROP, Unknown is an OCEAN.
Basically you modify the decimal column to a varchar type before you run the bcp command for export. You can modify your source table or you can modify them on the fly. It is just a workaround.
Modifying the source wouldn't be a good idea. Never do that if you can't get your desired output.
Known is a DROP, Unknown is an OCEAN.

Writing decimal value to application file

hi All,
I am having an internal table with fields itab-A, itab-b and itab-C.
i want to write the record to itab in such a way that
itab-ASPACEitab-bitab-c.
Now i tried to concatenate the record in one string and write it out but the problem is itab-b is decimal value so it cant be concatenated. and also i m not getting value if i write
concatenate itab-A SPACE into val.
Can you suggest me something?
thanks and regards,
Reena

Hi Reena,
Convert decimal value to character and write to application server.
The sample code here.
data:
        lv_ format           TYPE hslxx9,
        lv_char_hsl         TYPE char23,
      CALL FUNCTION 'CEVA_CONVERT_FLOAT_TO_CHAR'
        EXPORTING
          float_imp = wa_finbal-hsl
          format_imp = lv_format
        IMPORTING
          char_exp   = lv_char_hsl.
Regards
Bhupal reddy

AL11 File Download Issue

Hi,
I had a report which is executed in Background and its output is stored in a .txt file on Application Server.
I had used field seperator as '#' . I am downloading that file into an 'excel' file directly from AL11 (not from any ABAP coding) .
File contains more than 70000 records, but when i look into the downloaded file , many rows are not getting downloaded correctly even everything is correct in AL11. Some rows has many fields missing , many rows get merge into one cell and some are coming correctly.
So, can anyone help me that what is the issue. Is the field seperator is incorrect?
Thanks in Advance

Hi Mayank,
I think you have some special chars in the downloded content. For that reason it is not coming in proper format.
In my opinion you need to use '|' as seperator. Then d/l it in presenatation server in .txt format. Then open excel application then open the .txt file as '|' as separator.
Regards,
Amitava

Decimal value in CSV file

Hello everyone,
it is my first post here.
I'm trying to import a CSV file into Numbers, but the result is not quite what I was looking for. First of all, to get Numbers to open the file I had to drag and drop it into Numbers, I didn't find any other way to do it. I was looking for an "import" button that would let me give some kind of instructions on how to open the file, but did not find this button.
In the CSV file, every numbers is separated by a comma, wich is normal, but the decimal portion of a value is also indicated by a comma and when imported it ends up in it's own column. So 4,5 might be 2 columns, the first one with the value 4 and the second one with the value 5, but 4,5 could also be the value 4,5. How do we tell Numbers how it should interpret the different values in a CSV file. Is it possible to say that column 4 is in fact the decimal part of value in column 3?
Hopefully this is clear enough for you to understand.
Thank you for your help.

Hello
The support of CSV files was described here many times.
If the decimal separator in use on the system is the period, Numbers requires the original CSV format : Comma Separated Values.
If the decimal separator in use on the system is the comma, Numbers requires the alternate CSV format : Semi-colon Separated Values.
Given what you wrote, you are trying to import datas from a file using the original CSV format and the decimal comma.
I know that some experts wrote Python filters to treat such case but I have no reference available at this time.
If you send a sample file to my mailbox, I will try to write an AppleScript deciphering it.
But as I often wrote, CSV is really the worst format ever invented. Why aren't you asking the document's author to use Tab Separated Values format ?
Click my blue name to get my address.
Yvan KOENIG (VALLAURIS, France) vendredi 22 avril 2011 11:04:21

Any std funtion(s) for Zero-padded, 2 decimal value, without the deci point

Hi,
We want Zero-padded, two decimal value, without the decimal point. For example if it is 14.31, we need 001431.
I have done "multiply" with 100 and "formatNumber" as '000000'
SFIeld --> multiply * 100 --> formatNumber (000000) --> TField
It works good for values with decimal like above 14.31, does it work for everything else too? I mean for 12 it is populating as 001200. Is this best approach? Is there any other std funtions or UDF sample available?
Regards,
N@v!n

>
N@v!n Kumar wrote:
> Hi,
>
> We want Zero-padded, two decimal value, without the decimal point. For example if it is 14.31, we need 001431.
> I have done "multiply" with 100 and "formatNumber" as '000000'
>
> SFIeld --> multiply * 100 --> formatNumber (000000) --> TField
>
> It works good for values with decimal like above 14.31, does it work for everything else too? I mean for 12 it is populating as 001200. Is this best approach? Is there any other std funtions or UDF sample available?
>
> Regards,
> N@v!n
public void convert_number(String[] FieldValue,ResultList result,Container container){
FieldValue = FieldValue * 100;
result.addValue(FieldValue);

Leading Zeros for Decimal values

Hi,
In my requirement i need to add leading zeros for Decimal values.
For Example.
If the value is = 0.00 then my Target value should be = 000000000000.00
Regards,
Anil.

Hi Anil,
You have to use conversion exit ,
Kindly go through this link below:
Re: Conversion exit: numbers in database, two decimals on screen
Hope it helps
Regards
Mansi

How to delete decimal values zeros

Hi experts,
i am using mseg-menge field ( lenth13 and decimals 3) in my alv grid report.
eg: 2.3456.000
user wants only 2.3456 no decimals.
how we can aviod decimals 0 s in report.
thanks in advance.
mahahe

I search this ways in the forums:
Shift
SHIFT varb1 RIGHT DELETING TRAILING '0'.
write: gv_variable decimals 0.
SHIFT VALUE LEFT DELETING LEADING '0'.
Shift2
DATA: T(14) VALUE ' abcdefghij',
STRING LIKE T,
STR(6) VALUE 'ghijkl'.
STRING = T.
WRITE STRING.
SHIFT STRING LEFT DELETING LEADING SPACE (or use 0 to detete 0).
WRITE / STRING.
STRING = T.
SHIFT STRING RIGHT DELETING TRAILING STR or 0.
WRITE / STRING.
Shift3
data amt(6) type p decimals 3 value '123.450'.
data amt1(6) type p decimals 2.
data amt_c(6) type c.
unpack amt to amt_c.
shift amt_c right deleting trailing '0'.
pack amt_c to amt1.
write amt1.
use FM
FTR_CORR_SWIFT_DELETE_ENDZERO
this FM will remove all the zeros from decimal values like
value - 234.8000000
output - 234.8
IF
data: var1 type p decimals 3,
      var2 type p decimals 2,
      var3 type p decimals 1.
move '12345.100' to var1.
move var1 to var2.
move var1 to var3.
if var2 = var1.
if var3 = var1.
    write var3.
else.
    write var2.
endif.
else.
write var1.
endif.
I hope that this solve your problem.
Cordial greetings.

How to get the leading zeros for decimal values?

Hi,
How i wil get the leading zeros for decimal values.For CONVERSION_EXIT_ALPHA_INPUT it is not working.Now iam using overlay condition for getting leading zeros.But iam getting the value like 00013.500.But as per my requirement i want to display this value 0000013.5.
my code is
                overlay w_MetLife_detail-rdempsalary with '000000000'
                data :rdempsalary     type char9
Please help me on this.
Regards,
Sujan

Hi
For more info,
The function of the statement UNPACK is based on the fact, that the BCD display of a decimal place corresponds to the second half-byte of code of a digit in the most character representations. This conversion is commonly called "unpacking".
The statement PACK to pack is obsolete and can be replaced by MOVE.
If destination is specified as untyped field symbol or as untyped formal parameter and is not flat and not character-type during execution of the statement, then an untreatable exception occurs in Unicode programs. In non-Unicode programs, an exception occurs only with deep types, whereas flat types are treated as character-type types.
Example
After the assignments,char1 and char2 contain the values "123.456" and "0000123456".
DATA: pack TYPE p LENGTH 8 DECIMALS 3 VALUE '123.456',
      char1 TYPE c LENGTH 10,
      char2 TYPE c LENGTH 10.
MOVE   pack TO char1.
UNPACK pack TO char2.
Regards

TAx Reporter Temse Files Download Automation

Hi,
I have a reuiqrement to download the Temse files generated in Tax Reporter. I have completed the code and it works fine if we run the program in foreground. But when I run the same program in background some Temse files downloaded have junk characters. If I download the same Temse file in foreground it works fine.
There seems to be some issue with the FM when I run my progam in background.
I have searched SDN and SAP Notes for any clues but did not get any.
REPORT ZPHOP_TEMSE NO STANDARD PAGE HEADING
                  LINE-SIZE 1023
                  LINE-COUNT 65
                  MESSAGE-ID zz.
DATA: BEGIN OF tape OCCURS 1,
         DATA(2000),
      END OF tape.
DATA: force_ascii type c VALUE 'T'.
DATA: BEGIN OF int_msgs2 OCCURS 10,
         errnum(2) TYPE c,
         text1(8) TYPE c,
         text2(60) TYPE c,
       END OF int_msgs2.
DATA: BEGIN OF g_int_temse OCCURS 0,
         dname    LIKE TST01-dname,
         dpart    LIKE TST01-dpart,
         dcretime LIKE TST01-DCRETIME,
         dcreater LIKE TST01-DCREATER,
      END OF g_int_temse.
DATA: record_length TYPE i VALUE 275,
       data_length    TYPE i,
       convert_to_ebcdic,
       filesize TYPE i,
       number_of_records TYPE i VALUE 1,
       filetype(3) VALUE 'BIN',
       conv TYPE REF TO cl_abap_conv_out_ce,
       dline TYPE REF TO data,
       dtab TYPE REF TO data,
       p_compid(4),
       p_pswd(8),
       g_str(2000),
       uc_filename TYPE string.
DATA: l_nm_fixed_record.
CONSTANTS: c_lpath TYPE pathintern VALUE 'ZOUT'.
TABLES: TST01, ZPHOPFLS, ZTEMSE_LOG, V_5UXY_A.
FIELD-SYMBOLS: <dtab> TYPE STANDARD TABLE,
               <dline> TYPE ANY.
INCLUDE: dbpnpcom.           " No logical database        Do not modify!
INCLUDE: zphoptop,           " Top Include                Do not modify!
         zphopfil.           " File inlcude               Do not modify!
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-T01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) text-001.
SELECT-OPTIONS s_temse FOR TST01-dname NO INTERVALS.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE text-T02.
SELECT-OPTIONS s_cai   FOR TST01-DCREATER NO INTERVALS.
SELECT-OPTIONS s_date FOR sy-datum.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE text-T03.
PARAMETERS: p_ifid   LIKE t9aoa-if_id MODIF ID DIS ,
            p_fileid LIKE t9aoa-file_id MODIF ID DIS,
            p_unixf(60) LOWER CASE MODIF ID DIS,
            p_uxdir TYPE pathextern LOWER CASE MODIF ID DIS,
            p_dstfil(45) LOWER CASE MODIF ID DIS.
SELECTION-SCREEN END OF BLOCK B3.
PARAMETERS: p_skip AS CHECKBOX.
DATA: ws_unixr LIKE p_unixf,
      ws_trans LIKE p_unixf.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF screen-group1 = 'DIS'.
      screen-output = '1'.
      screen-input = '0'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
INITIALIZATION.
p_ifid = 'PAYFLS'.
p_compid = 'HR00'.
p_fileid = '01'.
p_unixf = 'AFS'.
p_pswd = 'chevr123'.
p_skip = 'X'.
-End of Initialization--
PERFORM get_physical_path.
FORMAT COLOR COL_HEADING.
WRITE: /01 text-t04,
          10 sy-pagno,
          41 text-t05,
         110 text-t06,
         123 sy-datum.
WRITE: /01 text-t08,
          14 sy-repid,
         110 text-t07,
         125 sy-uzeit.
FORMAT COLOR OFF.
SKIP.
WRITE: /(20) text-T21       CENTERED COLOR COL_HEADING,
          (15) text-T22       CENTERED COLOR COL_HEADING,
          (20) text-T23       CENTERED COLOR COL_HEADING,
          (15) text-T24       CENTERED COLOR COL_HEADING,
          (40) text-T25       CENTERED COLOR COL_HEADING.
START-OF-SELECTION.
*Do not allow background processing
*Check if the Temse file and CAI both are entered
IF NOT S_TEMSE IS INITIAL AND NOT S_CAI IS INITIAL.
   MESSAGE W999 WITH TEXT-E01.
ELSEIF S_TEMSE IS INITIAL AND S_CAI IS INITIAL.
   MESSAGE W999 WITH TEXT-E02.
ENDIF.
Collect all temse filenames from TST01 into an internal table.
IF NOT s_temse IS INITIAL.
   SELECT dname dpart dcretime dcreater FROM TST01 INTO TABLE g_int_temse
          WHERE dname in s_temse
          AND   dpart EQ '1'.
ELSE.
   SELECT * FROM TST01
          WHERE DCREATER in s_cai
          AND   DPART EQ '1'.
     IF TST01-DCRETIME(8) GE s_date-low
         AND TST01-DCRETIME(8) LE s_date-high.
        MOVE-CORRESPONDING TST01 TO g_int_temse.
        APPEND g_int_temse.
     ENDIF.
   ENDSELECT.
ENDIF.
SORT g_int_temse BY DNAME DPART DCRETIME.
LOOP AT g_int_temse.
Check if the temse file is already processed in ZTEMSE_LOG table.
SELECT SINGLE * FROM ZTEMSE_LOG
         WHERE DNAME = g_int_temse-dname.
IF sy-subrc EQ 0.
error. Temse already processed
     CONTINUE.
ENDIF.
Check if the temse file bieng processed is the eligible temse file
SELECT SINGLE * FROM V_5UXY_A
         WHERE TSOBJ = g_int_temse-dname.
IF sy-subrc EQ 0.
     SELECT SINGLE * FROM ZPHOPFLS
         WHERE TAXAU = V_5UXY_A-TAXAU
         AND   TXFRM = V_5UXY_A-TXFRM.
     IF sy-subrc EQ 0.
Generate the filename for the target destination
        CONCATENATE ZPHOPFLS-FILENAME '.' sy-datum '.' sy-uzeit INTO p_dstfil.
     ELSE.
error. Script not maintained in ZPHOPFLS table
        CONTINUE.
     ENDIF.
ELSE.
error. Temse file is not the latest processed file.
     CONTINUE.
ENDIF.
CALL FUNCTION 'RP_TS_OPEN'
    EXPORTING
      tsobj = g_int_temse-dname
     versn = g_int_temse-dpart
      empfg = 'RPUTSVUM'.
COMMIT WORK.
REFRESH tape.
CLEAR   tape.
Einlesen von der TemSe
CALL FUNCTION 'RSTS_READ'
    EXPORTING
       PARTS1BY1 = 'X'
    TABLES
      datatab = tape.
CALL FUNCTION 'RSTS_CLOSE'.
Read the 1st line which is supposed to contains info important for
the downloading procedure. The syntax of the line is :
SAPxxxnnnyyyy - the 1st 3 char 'SAP' indicates this line contains
download related info. xxx can either be 'ASC' (for ASCII) or 'EBC'
(for EBCDIC). nnn is the length of each record, e.g. 128 for SSA disk
format, 275 for SSA tape format etc. yyyy can either be 'CRLF' (each
record is delimited by CRLF) or blank (no CRLF).
After processing the 1st line, the line is deleted from the internal
table. Downloading begins on the 2nd line.
READ TABLE tape INDEX 1.
IF tape-data(3) EQ 'SAP'.
    IF tape-data+3(3) EQ 'EBC'.
      convert_to_ebcdic = 'x'.
    ELSEIF tape-data+3(3) EQ 'ASC'
          AND force_ascii EQ 'T'.
      filetype = 'ASC'.
    ENDIF.
    IF tape-data+6(3) NA '*'.
      record_length = tape-data+6(3).
    ELSE.
      record_length = tape-data+13(4).
    ENDIF.
    IF tape-data+9(4) EQ 'CRLF'.
      data_length = record_length + 2.
    ELSE.
      data_length = record_length.
    ENDIF.
    DELETE tape INDEX 1.
ELSE.
    data_length = record_length.
ENDIF.
Transfer the Temse file data to Unix file.
      PERFORM transfer_file.
Update the Log table with the temse details.
      ZTEMSE_LOG-dname = g_int_temse-dname.
      ZTEMSE_LOG-txcmp = V_5UXY_A-taxau.
      ZTEMSE_LOG-txfrm = V_5UXY_A-txfrm.
      ZTEMSE_LOG-filename = ws_unixr.
      ZTEMSE_LOG-DCREATER = g_int_temse-dcreater.
      INSERT ZTEMSE_LOG.
    WRITE: /(20) ZTEMSE_LOG-dname,
            (15) ZTEMSE_LOG-txcmp,
            (20) ZTEMSE_LOG-txfrm,
            (15) ZTEMSE_LOG-dcreater,
            (40) ZTEMSE_LOG-filename.
ENDLOOP.
*&      Form get_physical_path
      Get Physical directory name for the given logical path name
FORM get_physical_path .
CALL FUNCTION 'ZFILE_GET_PATH_NAME'
    EXPORTING
      LOGICAL_PATH               = c_lpath
    IMPORTING
      FILE_NAME_PATH             = p_uxdir
    EXCEPTIONS
      PATH_NOT_FOUND             = 1
      MISSING_PARAMETER          = 2
      OPERATING_SYSTEM_NOT_FOUND = 3
      FILE_SYSTEM_NOT_FOUND      = 4
      OTHERS                     = 5.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " get_physical_path
*&      Form TRANSFER_FILE
FORM transfer_file.
p_unixf = 'AFS'.
Concatenate Date with Unix File name
CONCATENATE p_unixf '.' p_compid '.' p_ifid '.' sy-datum '.' sy-uzeit INTO ws_unixr.
Concatenate Unix Directory with Unix File for Outbound
CONCATENATE p_uxdir ws_unixr INTO p_unixf.
PERFORM open_files USING p_unixf.
LOOP AT tape.
     g_str = tape-data(record_length).
    TRANSFER g_str TO p_unixf LENGTH record_length.
    IF sy-subrc <> 0.
      MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH 'sy-subrc:' sy-subrc
       ' Error Transferring to: ' p_unixf.
    ENDIF.
ENDLOOP.
PERFORM close_files USING p_unixf.
ENDFORM.                    " TRANSFER_FILE
Can anyone please check and tell me what I need to overcome this problem.

Hi Bhaskar,
I also have the same requirement to upload TemSe files in to application server.
In FDTA tcode after we enter company code and click on enter.
In the second screen checking and line item and go to edit and click on download button.
Here we see a popup with default file name, and when we say ok the file will get downloaded into C:\.....
Here our req is to upload the file automatically pick up via batch job and place it in the in to the application server and from there it should be placed in the Netwrok server (UNIX).
Pls provide me with suitable code so that i can finish it off.I tried a lot but did not work.
Thanks.

Issue with File Download(messageDownload) on Search Page.

Hi,
I created a custom OAF search page which fetches values from one table. The document in getting stored in my custom table in a BLOB colums and NOT in FND_LOBS.
The table has 3 collumns along with others:
1st is primary key (Record_Seq) ==> number data type
2nd to store actual file name (File1Name) ==> varcahar2 data type
3rd to store the actual uploaded data (File1Data) ==> BLOB data type
The reason for having the “File1Name” is so that I can display the original file name of the document that was uploaded, instead of just the “view” in the search page results .
On the File1Data BLOB and created a messageDownload for that under query results table with following details:
ID : File1Data
ItemStyle : messageDownload
FileMIME Type : pdf
Datatype : BLOB
View Instance : LacEmpExposureVO1
view Attribute : File1Name
File View Attribute : File1Data
When I click on the "File1Name" data hyperlink, it is opening only the first document corresponding to the first record in the search page results.
For example, If my search page returns 10 rows then when I click on the file1name on any row, It is open the first row file name only.
I have a primary key column(RECORD_SEQ) in the Table / EO / VO which is displayed in the search page results.
Also one weird thing is happening:
If I try to do this more than 2 times then it is opening the update page with the first record from the search page results…
I tried to print the context and it is nul the first time, But the second time then context is changing to "update". Dont know how this is happening????
Any advice is greatly appreciated as it is very crucial for me to get this resolved ASAP. I have looked at several forums and did a lot of things as advised in the forums . But nothing seems to work for me.
Thanks,
Mir
CO code for the search page
===========================
if (pageContext.getParameter("Create")!= null)
System.out.println("Into LacEmpExposureCO in PROCESS FORM REQUEST with Context of CREATE");
pageContext.setForwardURL
("OA.jsp?page=/lac/oracle/apps/lac/lacempexposure/webui/LacEmpExposureCreatePG",
null,
OAWebBeanConstants.KEEP_MENU_CONTEXT,
null,
null,
true, //Retain AM
OAWebBeanConstants.ADD_BREAD_CRUMB_YES,
OAWebBeanConstants.IGNORE_MESSAGES);
else if ("update".equals(pageContext.getParameter(EVENT_PARAM)))
System.out.println("Into LacEmpExposureCO in PROCESS FORM REQUEST with Context of UPDATE");
System.out.println("LacEmpExposureCO ==> RecordSeq in PROCESS FORM REQUEST is: " + RecordSeq);
HashMap params = new HashMap(1);
params.put("RecordSeq", RecordSeq);
pageContext.setForwardURL
("OA.jsp?page=/lac/oracle/apps/lac/lacempexposure/webui/LacEmpExposureUpdatePG",
null,
OAWebBeanConstants.KEEP_MENU_CONTEXT,
null,
params,
true, //Retain AM
OAWebBeanConstants.ADD_BREAD_CRUMB_NO, // Do not display breadcrumbs
OAWebBeanConstants.IGNORE_MESSAGES);
else {
String strEvent = pageContext.getParameter(OAWebBeanConstants.EVENT_PARAM);
System.out.println(strEvent);
System.out.println("Into the last ELSE part in LacEmpExposureCO.java");

Duplicate post -- Issue with File Download(messageDownload) on Search Page.

Creating a file download link on jsp

I have the following on my jsp. The code worked fine until I tried to use it in a new html design page.
<code>
//page name is index.jsp
try //DISPLAY THE CONTENTS OF THE DATA DIRECTORY
File dirname = new File(PATH); // create an instance of the File class
if (dirname.exists()&&dirname.isDirectory())//check to see if File class dirname exists and is valid
String [] allfiles = dirname.list();//create an array of files in the dirname File class
          for (int i=0; i< allfiles.length; i+=2)//loop through allfiles[] and print out file links
out.println("<br><table border='1' cellspacing='1' width='99%'>");
               out.println("<tr><td width='50%' class='pageFont'><input type='checkbox' name='cb' value='"+allfiles[i]+"'>"+allfiles[i]+"      ");
%>
<a class="a" href="index.jsp?downfile=C:\\data\\<%=allfiles[i+1]%>">DOWNLOAD</a></td>
<% if(i+1 < allfiles.length)//PRINTS OUT THE SECOND TD SO THAT WE HAVE 2 COLUMNS OF LINKS
out.println("<td width='50%' class='pageFont'><input type='checkbox' name='cb' value='"+allfiles[i+1]+"'>"+allfiles[i+1]+"      ");
%>
<a class="a" href="index.jsp?downfile=C:\\data\\<%=allfiles[i+1]%>">DOWNLOAD</a></td></tr>
<%
out.println("</form></font></table>");
catch (IOException excep)
     out.println("An IO exception has occured.");
</code>
Then when clicked this code is run:
<code>
try{
//CHECK TO SEE IF THE FILE HAS BEEN CLICKED TO DOWNLOAD SINGLE FILE
if (request.getParameter("downfile") != null)
String filePath = request.getParameter("downfile");
File f = new File(filePath);//CREATE AN INSTANCE OF THE FILE CLASS AND POINT IT TO THE LOCATION OF THE DIRECTORY CONTAINING THE FILES
if (f.exists() && f.canRead())
response.setContentType ("application/octet-stream");
response.setHeader ("Content-Disposition", "attachment;filename=\""+f.getName()+"\"");
response.setContentLength((int) f.length());
BufferedInputStream fileInputStream = new BufferedInputStream(new FileInputStream(f));
int i;
out.clearBuffer();
while ((i = fileInputStream.read()) != -1) out.write(i);
fileInputStream.close();
out.flush();
</code>
When I click on this link I get the download dialog box. If I open it I get the following open up in notepad(the files I am trying to give download links are .txt files)
Below is what is displayed in notepad ALL on 1 line:
<html>
<head>
<LINK rel="stylesheet" ty
That is displayed in all of the links that I click on. It is the first few lines of html code for index.jsp.
I know this code is probably not a good way of doing what I need but I got it to work fine until the change.
I am sure there is an easier way to code the download link without resubmitting the page.
Thanks in advance!!

Well all was fine with this jsp until I moved it to ApacheJServ. Now the problem has resurfaced(although it is a little different now)
I had moved the following code to the top of my page:
//CHECK TO SEE IF EITHER DOWNFILE OR ZIPFILE VARIABLE EXIST, AND IF THEY DO SET CONTENT TYPE BEFORE SENDING ANY HTML CODE TO THE BROWSER
try{
//CHECK TO SEE IF THE FILE HAS BEEN CLICKED TO DOWNLOAD SINGLE FILE
    if (request.getParameter("downfile") != null)
            String filePath = request.getParameter("downfile");
            File f = new File(filePath);//CREATE AN INSTANCE OF THE FILE CLASS AND POINT IT TO THE LOCATION OF THE DIRECTORY CONTAINING THE FILES
                if (f.exists() && f.canRead())
                    response.setContentType ("application/octet-stream");
                    response.setHeader ("Content-Disposition", "attachment;filename=\""+f.getName()+"\"");
                    response.setContentLength((int) f.length());
                    BufferedInputStream fileInputStream = new BufferedInputStream(new FileInputStream(f));
                    int i;
                    out.clearBuffer();
                    while ((i = fileInputStream.read()) != -1) out.write(i);
                        fileInputStream.close();
                        out.flush();
                        response.flushBuffer();
catch (Exception e){}
//This is where the java code ends and the javascript/html code begins.Then further into the page I create the file download links like so:
                        <a class="a" href="main.jsp?downfile=C:\\data\\<%=allfiles[i+1]%>">DOWNLOAD</a>I know this isnt a secure way of doing this but I am on a intranet.
The problem I am having now is that when I click on one of the links and download the file and then open it, I get the contents of the file plus concatenated to the end of it is the first few HTML lines of the actual jsp that I downloaded the file from. Before I was just getting the first few lines of html from the jsp, not the actual contents of the downloaded file.
This is an example of what I am getting:
This is the contents of the file that I downloaded.//This is where the file contents ends.
<html>
<head>
<LINK rel="stylesheet" type="text/css" href="default.css">
<script language="JavaScript1.2">
//function that allows user to select all checkboxes
function doIt(v)
for(var i=0;i<document.form1.cb.length;i++)
   document.form1.cb.checked=eval(v);
function swap(imageName,image)
imageName.src = "templateImages/"+image;
function imageOver(imageSrc, imageName)
     changeImage = new Image();
     changeImage.src = imageSrc;
     document.images[imageName].src = changeImage.src;
var hide = true;
function hideShow( ) /
Any morre ideas?
TIA!
BTW, I went to ApacheJServ because they wont let me use tomcat :(

How to get file download dialog box in IE 6.0 for .CSV files?

In our Java application, when we download .csv file (by clicking a tool bar button or menu item) in IE 5.5, it brings up the download dialog box and when we click the open button it opens the file in a seperate browser window but after migrating to IE 6.0 it doesn't bring the download dialog box and we are not able to open the excle sheet in a new browser window.
We tried downloading .csv file in IE 6.0 by changing its extension(such as .cs1 and .xls) even then it did not work.We also tried associating CSV type of extension with "Microsoft Excel Comma Separated Values File" in the Windows folder options (Windows Explorer->tools->folder options->file types(tab)), which did not work.
Please respond if you have come across this kind of issue and solution for the same.
Thanks in Advance

This has nothing to do with Java. It's Microsoft
setting for known file type. IE is responding to the
setting which will automatically download known file
type (MIME type).
To show the "Save As" file dialog, you have to do the
following (for each file type)
1. open Window Explorer
2. click on Tool-->"Folder Option"
3. click on the "File Type" tab
4. select the extension and then click on the
"Advance" button
5. Check the "Confirm open after download" checkbox
6. Click OK
IE should now display the "Save As" file dialog for
that extension. Remeber, you have to to this for all
extension you want to see a "file dialog" pop up.Unfortunately this is not the only cause. Even with this box checked, downloading java source files from the pages of The Java Tutorial causes them to open in the most recent IE - I (and others also) don't get the save/open dialog box. Java source files downloaded from (some) other websites result in the save/open dialog box. I believe that one of the security changes that MS made in IE's handling of files is the cause. The setting of content-disposition by the server appears to be the key, according to MSDN information.

Rounding off to a variable value to 4 decimal values in sap script ouput

Hi All,
I have a value getting displayed in sap script output as 235.6789 i want to Round off this variable value to 4 decimal values!
What is the formatting option need to be used & how!
Thanks in advance.
Thanks,
Deep.

Hi,
1.In layout just call that variable, where you need like:
&variable(.4)&.
Just see these:
&symbol(Z)& Omit Leading Zeros
&symbol(S)& Omit Leading Sign
&symbol(<)& Display Leading Sign to the Left
&symbol(>)& Display Leading Sign to the Right
&symbol(C)& Compress Spaces
&symbol(.N)& Display upto N decimal places
&symbol(T)& Omit thousands separator
&symbol(R)& Right justified
&symbol(I)& Suppress output of the initial value
Regards,
If helpful reward with points(Don't forget).

File download from application server to presentation server

Hi,
We have requirment to upload a file to application server in .dbf format and then download it to presentation server. while downloading the file to presentation server some of the fields getting junk values. we are downloading file to excel sheet. some of the fields values are Russian texts. Those fields only getting junk values, all other fields are getting correct values.
Please advice.
Regards,
chandra.

hi
sample code below should help you......
<u>Download to presentation server</u>
This program can be used to download files from Application server to presentaion server.
1)Maximum length of each field is considered to be 40 characters.
2)Maximum length of the field can be changed by specifying the length in selection screen parameter
3)First line of the Application server file should contain the description of each field.
4)Each field should be delimited by #.
*& Report ZDOWNLOADFILE *
REPORT ZDOWNLOADFILE
MESSAGE-ID B1 .
INCLUDES *
INCLUDE ZDOWNLOADFILE_TOP.
INCLUDE ZDOWNLOADFILE_FORM.
EVENT-AT SELECTION-SCREEN *
AT SELECTION-SCREEN ON pa_appl.
PERFORM check_file_exists USING pa_appl.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_appl.
PERFORM f4_dxfilename USING pa_appl.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_pres.
PERFORM f4_filename USING pa_pres.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_del.
PERFORM f4_dxfilename USING pa_del.
EVENT INITIALIZATION *
INITIALIZATION.
PERFORM initialization.
EVENT START-OF-SELECTION *
START-OF-SELECTION.
PERFORM determine_fields. "Determine number of columns
PERFORM build_itab. "Create internal table based on number
"of columns
PERFORM build_header. "To prepare header for the file
PERFORM download_data. "Download data to presentation server
PERFORM delete_files. "Delete files from application server
*& Include ZDOWNLOADFILE_TOP *
TYPES: BEGIN OF ty_header,
text(100) TYPE c,
END OF ty_header.
DATA: c_fnh_mask type dxfields-filemask value '.',
search_dir type dxfields-longpath value '/sapglobal/users'.
CLASS cl_abap_char_utilities DEFINITION LOAD.
Internal tables *
DATA: gt_header TYPE STANDARD TABLE OF ty_header,
gt_fieldcat TYPE lvc_t_fcat.
Work areas *
DATA: gs_header TYPE ty_header,
gs_fieldcat TYPE lvc_s_fcat.
DATA: wa_filename TYPE string.
DATA: wa_count(2) TYPE N,
wa_start(3) TYPE N,
wa_end(3) TYPE N,
wa_len(3) TYPE N.
DATA: wa_data(12000) TYPE c,
wa_off TYPE I,
itab_appl TYPE REF TO DATA,
itab_line TYPE REF TO DATA,
col(2) TYPE c.
DATA: wa_field(30) TYPE c.
DATA: lv_index TYPE sy-tabix.
DATA: gs_adrp type adrp,
gs_usr02 type usr02,
gs_usr21 type usr21,
gs_char50(50).
CONSTANTS: co_slash(1) value '/'.
FIELD-SYMBOLS: <itab> TYPE STANDARD TABLE,
<wa>,
<fs_line>,
<wa_line>.
SELECTION SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-f01.
PARAMETERS: pa_appl LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE text-f02.
PARAMETERS: pa_pres LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE text-f03.
PARAMETERS: pa_del LIKE rlgrap-filename .
PARAMETERS: pa_deld AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE text-f04.
PARAMETERS: pa_len(3) TYPE c.
SELECTION-SCREEN END OF BLOCK B4.
*& Include ZDOWNLOADFILE_FORM *
*& Form f4_dxfilename
text
-->P_pa_appl text
form f4_dxfilename using p_file.
DATA: wa_file LIKE dxfields-longpath.
CLEAR: wa_file.
call function 'F4_DXFILENAME_TOPRECURSION'
exporting
i_location_flag = 'A'
i_server = ' '
i_path = search_dir
filemask = c_fnh_mask
fileoperation = 'R'
importing
o_path = wa_file
exceptions
rfc_error = 1
error_with_gui = 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.
else.
p_file = wa_file.
endif.
endform. " f4_dxfilename
*& Form f4_filename
text
-->P_pa_pres text
form f4_filename using p_data.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
IMPORTING
FILE_NAME = p_data
endform. " f4_filename
*& Form check_file_exists
text
-->P_pa_appl text
form check_file_exists using p_file.
DATA: wa_file LIKE rlgrap-filename.
wa_file = p_file.
OPEN DATASET wa_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 8.
MESSAGE E714
WITH text-m01 p_file text-m02.
ELSE.
CLOSE DATASET p_file.
ENDIF.
endform. " check_file_exists
*& Form build_header
text
--> p1 text
<-- p2 text
form build_header .
*Select user details
clear gs_usr21-persnumber.
select single persnumber
into (gs_usr21-persnumber)
from usr21
where bname = sy-uname.
concatenate sy-uname
co_slash
gs_adrp-name_text(36)
co_slash
into gs_char50.
condense gs_char50.
clear gs_usr02-class.
select single class
into (gs_usr02-class)
from usr02
where bname = sy-uname.
concatenate gs_char50
gs_usr02-class
into gs_char50.
condense gs_char50.
Write report technical name
write 'Name: ' TO gs_header+0(10).
gs_header+11(*) = sy-repid.
APPEND gs_header TO gt_header.
CLEAR: gs_header.
Write user data
write 'User: ' TO gs_header+0(10).
gs_header+11(*) = gs_char50.
CONCATENATE gs_header gs_char50 INTO
gs_header SEPARATED BY SPACE.
APPEND gs_header TO gt_header.
CLEAR: gs_header.
Write System data
write 'System: ' TO gs_header+0(10).
write: sy-sysid to gs_header+11(3).
write: co_slash to gs_header+14(1).
write: sy-mandt to gs_header+15(3).
APPEND gs_header TO gt_header.
CLEAR: gs_header.
Write System date and time
write 'System: ' TO gs_header+0(10).
write sy-datum to gs_header+11(10).
write sy-uzeit to gs_header+22(8).
APPEND gs_header TO gt_header.
CLEAR: gs_header.
Write Local date and time
write 'Local: ' TO gs_header+0(10).
write sy-datlo to gs_header+11(10).
write sy-timlo to gs_header+22(8).
APPEND gs_header TO gt_header.
CLEAR: gs_header.
APPEND gs_header TO gt_header.
endform. " build_header
*& Form determine_fields
text
--> p1 text
<-- p2 text
form determine_fields .
DATA: wa_data(600) TYPE c.
CLEAR: wa_count,wa_start,wa_end,wa_data.
wa_start = 0.
wa_end = 1.
OPEN DATASET pa_appl FOR INPUT IN TEXT MODE ENCODING DEFAULT.
READ DATASET pa_appl INTO wa_data.
wa_len = STRLEN( wa_data ).
DO wa_len TIMES.
IF wa_data+wa_start(wa_end) EQ
cl_abap_char_utilities=>horizontal_tab.
wa_count = wa_count + 1.
ENDIF.
wa_start = wa_start + 1.
ENDDO.
CLOSE DATASET pa_appl.
wa_count = wa_count + 1.
endform. " determine_fields
*& Form build_itab
text
--> p1 text
<-- p2 text
form build_itab .
DATA: wa_len(4) TYPE c.
CLEAR: wa_len.
IF pa_len IS INITIAL.
wa_len = 40.
ELSE.
wa_len = pa_len.
ENDIF.
col = 1.
DO wa_count TIMES.
CONCATENATE 'FIELD' col INTO wa_field.
gs_fieldcat-fieldname = wa_field.
gs_fieldcat-outputlen = wa_len.
gs_fieldcat-datatype = 'CHAR'.
gs_fieldcat-col_pos = col.
col = col + 1.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR: wa_field.
ENDDO.
*Create the internal table dynamically based on the file structure,
*this table will be used to download data through GUI_DOWNLOAD fm
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = gt_fieldcat
IMPORTING
EP_TABLE = itab_appl
*Assign the pointer to the field symbol
ASSIGN itab_appl->* TO <itab>.
CREATE DATA itab_line LIKE LINE OF <itab>.
*Create a work area for the dynamic internal table
ASSIGN itab_line->* TO <wa_line>.
col = 1.
OPEN DATASET pa_appl FOR INPUT IN TEXT MODE ENCODING DEFAULT.
DO.
READ DATASET pa_appl INTO wa_data.
IF sy-subrc <> 0.
CLOSE DATASET pa_appl.
RETURN.
ELSE.
wa_start = 0.
lv_index = 1.
DO wa_count TIMES.
ASSIGN COMPONENT lv_index OF STRUCTURE <wa_line> TO <fs_line>.
FIND cl_abap_char_utilities=>horizontal_tab
IN wa_data+wa_start(*) MATCH OFFSET wa_off.
IF sy-subrc = 0.
IF wa_off NE 0.
<fs_line> = wa_data+wa_start(wa_off).
ENDIF.
wa_start = wa_start + wa_off + 1.
lv_index = lv_index + 1.
ELSE.
<fs_line> = wa_data+wa_start(*).
ENDIF.
ENDDO.
APPEND <wa_line> TO <itab>.
CLEAR: <wa_line>,<fs_line>.
ENDIF.
ENDDO.
endform. " build_itab
*& Form download_data
text
--> p1 text
<-- p2 text
form download_data .
clear: wa_filename.
wa_filename = pa_pres.
call function 'GUI_DOWNLOAD'
exporting
filename = wa_filename
filetype = 'DAT'
tables
data_tab = gt_header
exceptions
access_denied = 15
call function 'GUI_DOWNLOAD'
exporting
filename = wa_filename
filetype = 'DAT'
append = 'X'
tables
data_tab = <itab>
exceptions
access_denied = 15
endform. " download_data
*& Form initialization
text
--> p1 text
<-- p2 text
form initialization .
REFRESH: gt_header,gt_fieldcat,gt_header.
endform. " initialization
*& Form delete_files
text
--> p1 text
<-- p2 text
form delete_files .
IF pa_deld EQ 'X'.
DELETE DATASET pa_appl.
ENDIF.
IF pa_del IS NOT INITIAL.
DELETE DATASET pa_del.
ENDIF.
endform. " delete_files
<b>reward points if helpful.</b>
thanks
vijay

Zero Decimal values in AL11 file download

Similar Messages

Maybe you are looking for