How to download ANSI coding text file using function GUI_DOWNLOAD?

Hi All,
Is the coding page of the file created by funtion GUI_DOWNLOAD or WS_DOWNLOAD is ANSI or UTF-8? How to download a text file which's coding page is ANSI please?
Is this correct?
CALL function 'GUI_DOWNLOAD'
exporting
codepage = '4110'
importing

This Function Lodule will give the CODE PAGE VALUE
SCP_CODEPAGE_BY_EXTERNAL_NAME ... You have to give type of tht ENcoding like ANSI ..etc
    call function 'GUI_DOWNLOAD'
      exporting
       filename                        = 'd:\customer_details.txt'
       filetype                        = 'ASC'
   CODEPAGE                        = code
      tables
        data_tab                        = t_customer_details
FIELDNAMES                      =
     exceptions
       file_write_error                = 1
       no_batch                        = 2
       gui_refuse_filetransfer         = 3
       invalid_type                    = 4
       no_authority                    = 5
       unknown_error                   = 6
       header_not_allowed              = 7
       separator_not_allowed           = 8
       filesize_not_allowed            = 9
       header_too_long                 = 10
       dp_error_create                 = 11
       dp_error_send                   = 12
       dp_error_write                  = 13
       unknown_dp_error                = 14
       access_denied                   = 15
       dp_out_of_memory                = 16
       disk_full                       = 17
       dp_timeout                      = 18
       file_not_found                  = 19
       dataprovider_exception          = 20
       control_flush_error             = 21
       others                          = 22
    if sy-subrc <> 0.
      write : / 'Upload Failed' , sy-subrc.
    else.
      write : / 'Upload Completed'.
    endif.
endif.
Reward if helpful...

Similar Messages

How to write data to text file using external tables

can anybody tell how to write data to text file using external tables concept?

Hi,
Using external table u can load the data in your local table in database,
then using your local db table and UTL_FILE pacakge u can wrrite data to text file
external table
~~~~~~~~~~~
http://download-east.oracle.com/docs/cd/B19306_01/server.102/b14200/statements_7002.htm#i2153251
UTL_FILE
~~~~~~~~~
http://download-east.oracle.com/docs/cd/B19306_01/appdev.102/b14258/u_file.htm#sthref14093
Message was edited by:
Nicloei W
Message was edited by:
Nicloei W

How to create and read text file using LabVIEW 7.1 PDA module?

How to create and read text file using LabVIEW 7.1 PDA module? I can not create a text file and read it.
I attach my code here.
Attachments:
File_IO.vi ‏82 KB

Well my acquisition code runs perfect. The problem is reading it. I can't seem to read my data no matter what I do. My data gets saved as a string using the array to string vi but I've read that the string to array vi (which I need to convert back to array to read my data) does not work on the pda. I'm using version 8.0. So I was trying to modify the program posted in this discussion so that it would save data from my DAQ. I did that but I still can't read the data after its saved. I really don't know what else to do. All I need to do is read the data on the pda itself. I can't understand why I'm having such a hard time doing that. I found a possible solution on another discussion that talks about parsing the strings because of the bug in the "string to array" vi. However, that lead me to another problem because for some reason, the array indicators or graphs don't function on the pda. When i build the program to the pda or emulator, the array indicators are faded out on the front panel as if the function is not valid. Does this kind of help give a better picture of what I'm trying to do. Simply read data back. Thanks.

Downloading two different text files using gui_download

Hi Folks,
I have two internal tables.itab1 and itab2.Generally in most cases I have to download only the data in itab1 as a text file using Gui_download.In some cases if a particular condition is satisfied I need to download both itab1 and itab2 data as two different text files using gui_download.To achieve this I had called the gui_download twice as I have to pass two different internal tables.
But I am getting only itab1 textfile and not itab2 textfile.
In the selection screen I am giving the path as c:\..
Kindly let me know where I am going wrong.
K.Kiran.

Hi
You keep the both files in a ITAB and in the loop of that Itab use GUI_DOWNLOAD to download the two files
data: begin of itab,
file like rlgrap-filename,
end of itab.
In initialization event
put the two files into this ITAB.
loop at itab
call function gui_download.
endloop.
check like this
Regards
Anji

Download the korean text file using ANSI as encoding

Hi Experts,
i am using gui_download to create a txt file using ANSI as its encoding, the data that i need to download contains korean characters (double-byte characters), when the txt file is created, the korean characters were changed into ### symbols.
Can someone help me on how to correctly download the data with korean characters without making the korean characters into sharp # symbol.
Please note that the encoding should be in ANSI.

I don't think if your are using ANSI , you will get korean characters correctly.
otherwise
first call fm SCP_CODEPAGE_FOR_LANGUAGE giving language as import parameter . then you will get the corresponding codepage from this fm.
then
use this codepage in the import parameter CODEPAGE of fm GUI_DOWNLOAD
a®

Problem while downloading data to text file using GUI_DOWNLOAD FM

Hi,
When we download the data using the GUI_DOWNLOAD FM into the text file tab delimeted(table is built dynamically),
Its coming in this format as shown below
Field1 Fileld2 Field3
1 2 3
However I want it in this way
Field1 Fileld2 Field3
1 2 3
Could someone please let me know how to achieve this?

Do something like this:
concatenate field1 field2 field3 into lv_outx "(data of sufficient length, type c)
separated by gc_tab. "Horizontal tab constant created as note above
condense lv_outx no-gaps. "squeeze out extraneous spaces but beware if you have text with spaces...drop the no-gaps.
append lv_outx to my_internal_table. "table with a single field type char, sufficient length
open dataset datasetname...
loop at my_internal_table into ls_internaltabstructure.
transfer internaltabstructure-outx to datasetName [length if needed].
endloop.

How to decrypt an encrypted text file using Algorithm SHA1withRSA .

I have one encrypted file instance_demo_Encryp.xml and encrypted format is
MIMVwmYGCSqGSIb3DQEHAqCDFcJWMIMVwlECAQExCzAJBgUrDgMCGgUAMIMVvzoG
CSqGSIb3DQEHAaCDFb8qBIMVvyU8P3htbCB2ZXJzaW9uPScxLjAnIGVuY29kaW5n
PSdVVEYtOCcgPz4NCjx4YnJsaTp4YnJsIHhtbG5zOnhicmxpPSdodHRwOi8vd3d3
Lnhicmwub3JnLzIwMDMvaW5zdGFuY2UnIHhtbG5zOmxpbms9J2h0dHA6Ly93d3cu
eGJybC5vcmcvMjAwMy9saW5rYmFzZScgeG1sbnM6eGxpbms9J2h0dHA6Ly93d3cu
dzMub3JnLzE5OTkveGxpbmsnIHhtbG5zOnJlZj0naHR0cDovL3d3dy54YnJsLm9y
Zy8yMDA0L3JlZicgeG1sbnM6eGJybGR0PSdodHRwOi8veGJybC5vcmcvMjAwNS94
I want to decrypt and convert into original xml file.I am using below code but some error occurred javax.crypto.BadPaddingException: Data must start with zero.Please help
import java.io.*;
import java.math.BigInteger;
import java.net.URLEncoder;
import java.util.*;
import java.security.AlgorithmParameters;
import java.security.Key;
import java.security.KeyFactory;
import java.security.KeyPairGenerator;
import java.security.KeyStore;
import java.security.GeneralSecurityException;
import java.security.MessageDigest;
import java.security.PrivateKey;
import java.security.PublicKey;
import java.security.Signature;
import java.security.cert.Certificate;
import java.security.cert.CertificateFactory;
import java.security.cert.X509Certificate;
import java.security.spec.RSAPublicKeySpec;
import java.security.spec.X509EncodedKeySpec;
import javax.crypto.Cipher;
import javax.crypto.CipherInputStream;
import oracle.security.xmlsec.util.Base64;
import sun.misc.*;
//import org.bouncycastle.jce.provider.BouncyCastleProvider;
//import org.bouncycastle.jce.*;
public class EsignWithBC {
     public static final String KEY_STORE_PASSWORD = "password";
     public static void main(String[] args) {
           BASE64Encoder base64Encoder = new BASE64Encoder();
           BASE64Decoder base64Decoder = new BASE64Decoder();
          String record = null;
          char[] passwd = KEY_STORE_PASSWORD.toCharArray();
          String inputFileName = "webroot/cerFiles/instance_demo_Encryp.xml";
          try {
               KeyStore keyStore = KeyStore.getInstance("PKCS12");
               FileInputStream fis = new FileInputStream(
                         "D:\\eclipse_program\\xRnd\\WebRoot\\cerFiles\\AlicePFX.pfx");
               keyStore.load(fis, passwd);
               fis.close();
               Enumeration aliases = keyStore.aliases();
               while (aliases.hasMoreElements()) {
                    System.out.println(aliases.nextElement());
               /*FileInputStream fin = new FileInputStream("D:\\eclipse_program\\xRnd\\WebRoot\\cerFiles\\Alice.cer");
                CertificateFactory cf = CertificateFactory.getInstance("X.509");
                Collection c = cf.generateCertificates(fin);
                Iterator i = c.iterator();
                while (i.hasNext()) {
                   Certificate cert = (Certificate)i.next();
                   System.out.println("***************************************************");
                   System.out.println(cert.getPublicKey());
                   System.out.println("***************************************************");
                String filename= "D:\\eclipse_program\\xRnd\\WebRoot\\cerFiles\\Alice.cer";
                FileInputStream fis1 = new FileInputStream(filename);
                DataInputStream dis = new DataInputStream(fis1);
                CertificateFactory cf1 = CertificateFactory.getInstance("X.509");
                byte[] bytes = new byte[dis.available()];
                dis.readFully(bytes);
                ByteArrayInputStream bais = new ByteArrayInputStream(bytes);
                Key key = null;
                while (bais.available() > 0) {
                   Certificate cert = cf1.generateCertificate(bais);
                   key = cert.getPublicKey();
                   System.out.println(cert.toString());
               // EsignWithBC obj = new EsignWithBC();
                //System.out.println(obj.createUrlFragment("alice's key","password","D:\\eclipse_program\\xRnd\\webroot\\cerFiles\\instance_demo_Encryp.xml"));
                FileReader fr = new FileReader(inputFileName);
                    BufferedReader br = new BufferedReader(fr);
                    byte text[] = null;
                     //System.out.println(text.toString());
               // Cipher cipher = Cipher.getInstance("SHA1withRSA");
                    KeyPairGenerator keyGen = KeyPairGenerator.getInstance("RSA");
                    Signature sig = Signature.getInstance("SHA1withRSA");
                    Cipher rsaCipher = Cipher.getInstance("RSA");
                    String str = null;
                     byte[] cleartext1 = null;
                    rsaCipher.init(Cipher.DECRYPT_MODE, key);
                    System.out.println("********************************");
                    while ( (record=br.readLine()) != null ) {
                          text = base64Decoder.decodeBuffer(record);
                          cleartext1 = rsaCipher.doFinal(text);
                          //str = new String(cleartext1);
                          System.out.println(rsaCipher.doFinal(text));
                    System.out.println("********************************");
          } catch (Exception e) {
               e.printStackTrace();
}

SHA1withRSA is a signature algorithm and not an encryption. If all you have is the signature then you can never get back the original document. The best you can do is to check that the signature is valid but for that you will need the original document and the public key of the person who signed the document.
The code you post is not coherent and though I think can see what you are trying to do I am not willing to make guesses at this stage since it sounds like you are trying to do the impossible.

How to open a stored text file using java???

Respected Sir / Madam
I have a JList containing absolute path of files stored in my operating system in String format....I have added a ListSelectionListener...Now when i select an absolute path in the JList, the file should open ....I don't know how to do that....Hope you got my problem....Can any one pls help me out???
Thank you[

thats ok buddy! best of luck
U need to import
import javax.swing.*;
import javax.swing.event.*;
import java.awt.*;
import java.awt.event.*;
public void valueChanged(ListSelectionEvent e)
if (!e.getValueIsAdjusting()) {
        String fileName=
          optionList.getSelectedValue().toString();
final JFrame dialog = new JFrame(fileName);
          JEditorPane viewer = new JEditorPane();
          viewer.setEditable(false);
          JScrollPane jsp = new JScrollPane(viewer);
          try {
               viewer.setPage("file:/" + fileName);
          } catch (Exception e) {
               viewer.setText("Error opening " + fileName + ": " + e);
          dialog.getContentPane().add(jsp, BorderLayout.CENTER);
        JButton closeButton = new JButton("Close");
        closeButton.addActionListener(new ActionListener() {
            public void actionPerformed(ActionEvent e) {
                dialog.setVisible(false);
                dialog.dispose();
          dialog.getContentPane().add(closeButton, BorderLayout.SOUTH);
          dialog.setDefaultCloseOperation(DISPOSE_ON_CLOSE);
          //dialog.pack();
          dialog.setSize(600, 600);
          dialog.show();
}

How to read the whole text file lines using FTP adapter

Hi all,
How to read the whole text file lines when error occured middle of the text file reading.
after it is not reading the remaining lines . how to read the whole text file using FTP adapter
pls can you help me

Yes there is you need to use the uniqueMessageSeparator property. Have a look at the following link for its implementation.
http://download-west.oracle.com/docs/cd/B31017_01/integrate.1013/b28994/adptr_file.htm#CIACDAAC
cheers
James

How to print a text file using Java

How can I print a text file using Java without converting the output to an image format. Is there anyway I can send the characters in the text file as it is for a print job? I did get a listing doing this ... but that converted the text to an image format before printing....
THanks,.

Hi I had to write a print api from scratch, and I did not convert the output to image. Go and read up on the following code. I know there is a Tutorial on Sun about the differant sections of the snippet.
private void printReport()
     Frame tempFrame = new Frame(getName());
     PrintJob printerJob = Toolkit.getDefaultToolkit().getPrintJob(tempFrame, "Liesltext", null);
     Graphics g = printerJob.getGraphics();
                //I wrote the method below for calculations
     printBasics(g);
     g.dispose();
     printerJob.end();
}This alone wont print it you have to do all the calculations in the printBasics method. And as I said I wrote this from scratch and all I did was research first the tutorial and the white papers
Ciao

How to Run a text files using UNIX

Hi,
I have 10 text files in my project my task is to load all the text files data into Relational Database so i can use sql*loader to load all the text files data into a Database.
but the thing is another project i have 200 text files so i need to run these text files using UNIX script could anyone tell me how to load all the text files using UNIX
Thank's
Edited by: Lavanya on Sep 5, 2012 3:09 PM

Lavanya,
This question relates to shell scripting and in IMO it is not an oracle question.
I have made some initial assumptions before my proposed solution.
PLEASE note that this is untested, but can just guide you as a template for solving your problem.
Assuming that you have properly set up the control file and mapped each and every table in it as per the file information which you have..
Assuming the text file to be in the format of : ------ (as suggested by other posters earlier, this file holds instructions about the file and table mapping which shall be used by your sqlldr process.)
tmp.txt:
text_file_1-------------should goes to----customer_info_table
text_file_2------------should goes to------customer_address_table
text_file_3-----------should goes to-------customer_order_table
while read line
do
SQLLDR CONTROL=`echo $line | sed 's/should goes to/ /g' | sed 's/-//g' | awk -F " " '{print $1}'`.ctl,
LOG=`echo $line | sed 's/should goes to/ /g' | sed 's/-//g' | awk -F " " '{print $1}'`.log,
BAD=`echo $line | sed 's/should goes to/ /g' | sed 's/-//g' | awk -F " " '{print $1}'`.bad,
DATA=`echo $line | sed 's/should goes to/ /g' | sed 's/-//g' | awk -F " " '{print $1}'`.txt
USERID=scott/tiger
done <tmp.txtAll I am trying to run from the above shell script is : -- PLEASE TEST it if it matches your requirement.
SQLLDR CONTROL=text_file_1.ctl, LOG=text_file_1.log, BAD=text_file_1.bad, DATA=text_file_1.txt USERID=scott/tiger
SQLLDR CONTROL=text_file_2.ctl, LOG=text_file_2.log, BAD=text_file_2.bad, DATA=text_file_2.txt USERID=scott/tiger
SQLLDR CONTROL=text_file_3.ctl, LOG=text_file_3.log, BAD=text_file_3.bad, DATA=text_file_3.txt USERID=scott/tigerRepeating my assumptions, I assume you have all those files required for SQLLDR process to run (ctl file, data file...)
Cheers,
Manik

Downloading pipe delimited text file on to desktop with data in internal

hi all,
how to download pipe delimited text file on to desktop with data in internal
table with an example plz.

hi,
u can use the FM GUI_DOWNLOAD.
here is the sample code.
*Internal table to hold the employee details
DATA: it_details TYPE STANDARD TABLE OF x_details,
      wa_details TYPE x_details.
*Internal table for file
DATA: BEGIN OF it_details_txt OCCURS 0,
        line(700),
      END OF it_details_txt.
*Employee details for the file
CLEAR wa_details.
LOOP AT it_details INTO wa_details.
    CLEAR it_details_txt.
    CONCATENATE
        wa_details-var1
        wa_details-var2
        wa_details-var3
        wa_details-var4
      INTO it_details_txt-line SEPARATED BY '|'.
    APPEND it_details_txt.
    CLEAR wa_details.
ENDLOOP.
*Download file in .TXT format to local desktop
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                = 'data.txt'
      filetype                = 'ASC'
    TABLES
      data_tab                = it_details_txt
    EXCEPTIONS
      file_open_error         = 1
      file_write_error        = 2
      invalid_filesize        = 3
      invalid_type            = 4
      no_batch                = 5
      unknown_error           = 6
      invalid_table_width     = 7
      gui_refuse_filetransfer = 8
      customer_error          = 9
      no_authority            = 10
      OTHERS                  = 11.
IF sy-subrc = 0.
    MESSAGE 'Data downloaded successfully' TYPE 'S'.
ENDIF.

Creating a text file using pl/sql

how can one create a text file using pl/sql?
Say for example abcd.txt in the d: drive
(d:\abcd.txt)
on a windows nt server

<BLOCKQUOTE><font size="1" face="Verdana, Arial">quote:</font><HR>Originally posted by bhrigu nagal ([email protected]):
thanks for your replies
I had already set the utl_file_dir parameter
I tried the utl package and wrote the following code but got some errors
declare
filehandler UTL_FILE.FILE_TYPE;
begin
filehandler:=UTL_FILE.fopen('d:/intel/','myfile.txt','w');
utl_file.put_line(filehandler,'look masjdfgsd\n');
utl_file.fclose(filehandler);
exception when utl_file.invalid_path then
raise_application_error(-20023,'bhrigu ,chk the path');
end;
the errors
ERROR at line 1:
ORA-06510: PL/SQL: unhandled user-defined exception
ORA-06512: at "SYS.UTL_FILE", line 101
ORA-06512: at "SYS.UTL_FILE", line 157
ORA-06512: at line 4
if u know what this is please tell me
thanks bhrigu
<HR></BLOCKQUOTE>
U need :
1) To have UTL_FILE_DIR param in the init file of the instance with the same directory (don't forget to stop and restart the base)
2) Handled the exceptions listed in the utl_file package (Oracle_home\rdbms\admin\utlfile.sql) in your source.
3) Turn set serveroutput on in SQL*Plus.
Run your procedure and see the error message to debug.
Good luck
null

Attaching text file using SO_NEW_DOCUMENT_ATT_SEND_API1

hello guys, i'm a newbie here.
I'm having trouble attaching an existing text file using function 'SO_NEW_DOCUMENT_ATT_SEND_API1'. It seems i can't find the right combination of parameters that are being passed to this function.
first, i'm using WS_UPLOAD to upload the text file to an internal table then i'm creating all the neccessary internal tables that will be use by this function..
By the way, i'm trying to send mail w/ attachments to external mail and SAPids. Below is my code.
REPORT ZHR_TESTEMAIL .
TABLES: USR02, PA0105, SOSU, SOUC, RLGRAP, IBIPPARMS, DYNPREAD, RSCSEL.
DATA: FOLD_YR(2) TYPE C,
      FOLD_TYPE(3) TYPE C,
      G_HEADER LIKE SOOD2,
      G_FOLMAM LIKE SOFM2,
      METHOD1 LIKE SY-UCOMM,
      G_DOCUMENT LIKE SOOD4,
      G_USER LIKE SOUDNAMEI1,
      FOLD_NUMBER(12) TYPE C,
      G_NEW_PARENT LIKE SOODK,
      G_OWNER LIKE SOUD-USRNAM,
      G_REF_DOCUMENT LIKE SOOD4,
      G_USER_DATA LIKE SOUDATAI1,
      G_AUTHORITY LIKE SOFA-USRACC,
      G_OBJCNT LIKE SOLI OCCURS 0 WITH HEADER LINE,
      G_OBJHEAD LIKE SOLI OCCURS 0 WITH HEADER LINE,
      G_OBJPARA LIKE SELC OCCURS 0 WITH HEADER LINE,
      G_OBJPARB LIKE SOOP1 OCCURS 0 WITH HEADER LINE,
      G_RECIPIENTS LIKE SOOS1 OCCURS 0 WITH HEADER LINE,
      G_REFERENCES LIKE SOXRL OCCURS 0 WITH HEADER LINE,
      G_ATTACHMENTS LIKE SOOD5 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF G_FILES OCCURS 10 ,
      TEXT(4096) TYPE C,
      END OF G_FILES.
DATA: BEGIN OF IT_WS_FILE OCCURS 0,
      WS_FILE LIKE RLGRAP-FILENAME,
      END OF IT_WS_FILE.
DATA: BEGIN OF IT_SAPID OCCURS 0,
      SAPID LIKE USR02-BNAME,
      END OF IT_SAPID.
DATA: BEGIN OF IT_EMAIL OCCURS 0,
      EMAILADD LIKE PA0105-USRID_LONG,
      END OF IT_EMAIL.
DATA: BEGIN OF IT_TSP01 OCCURS 0.
        INCLUDE STRUCTURE TSP01.
DATA: END OF IT_TSP01.
DATA: BEGIN OF TAB2 OCCURS 50,
      TEXT(200) TYPE C,
      END OF TAB2.
DATA: V_DOCDATA TYPE SODOCCHGI1,
      V_OBJPACK LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
      V_OBJHEAD LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      V_OBJTXT LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      V_OBJBIN LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      V_OBJHEX LIKE SOLIX      OCCURS 0 WITH HEADER LINE,
      IT_RECVRS TYPE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
      IT_CONTNT TYPE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      IT_BODY   LIKE SOLISTI1   OCCURS 10 WITH HEADER LINE,
      V_TLIN    TYPE I,
      V_LINE    TYPE I.
DATA: BEGIN OF IT_TEXTLINE OCCURS 500,
      TEXTLINE(5000),
      END OF IT_TEXTLINE.
DATA: FYL LIKE RLGRAP-FILENAME,
      GV_SUBNO LIKE SOSU-SUBNO,
      GV_EMAIL LIKE PA0105-USRID_LONG,
      GV_NEXTDAY LIKE SY-DATUM,
      YEAR(4) TYPE C,
      RECFLAG TYPE C.
SELECTION-SCREEN BEGIN OF BLOCK PARAM WITH FRAME TITLE TEXT-001.
PARAMETERS: SUBJ(254) TYPE C OBLIGATORY,            "Subject
            DESC(254) TYPE C.                       "Message
SELECT-OPTIONS: SAPID FOR USR02-BNAME NO INTERVALS. "Recipient's SAP ID
SELECT-OPTIONS: EMAILADD FOR PA0105-USRID_LONG NO INTERVALS.
SELECTION-SCREEN END OF BLOCK PARAM.
SELECTION-SCREEN BEGIN OF BLOCK PARAM2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: WS_FILE FOR DYNPREAD-FIELDNAME NO INTERVALS.
SELECTION-SCREEN END OF BLOCK PARAM2.
SELECTION-SCREEN BEGIN OF BLOCK PARAM3 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: RBUT1 RADIOBUTTON GROUP A USER-COMMAND BUT. "Local PC
SELECTION-SCREEN COMMENT 5(20) FOR FIELD RBUT1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: RBUT2 RADIOBUTTON GROUP A.                  "Server
SELECTION-SCREEN COMMENT 5(20) FOR FIELD RBUT2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: RBUT3 RADIOBUTTON GROUP A.                  "Spool
SELECTION-SCREEN COMMENT 5(20) FOR FIELD RBUT3.
PARAMETERS: SPOOLNUM LIKE RSPOTYPE-RQNUMBER.            "Spool Number
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK PARAM3.
SELECTION-SCREEN BEGIN OF BLOCK PROC WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETER: BPROC AS CHECKBOX USER-COMMAND BCK. "Background Processing
SELECTION-SCREEN COMMENT 5(50) FOR FIELD BPROC.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK PROC.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR WS_FILE-LOW.
DATA: WS_FILE_TEMP TYPE IBIPPARMS-PATH.
CLEAR: WS_FILE_TEMP.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            PROGRAM_NAME = SY-REPID
            DYNPRO_NUMBER = SY-DYNNR
            FIELD_NAME    = 'WS_FILE'
       IMPORTING
            FILE_NAME     = WS_FILE_TEMP.
WS_FILE-LOW = WS_FILE_TEMP.
AT SELECTION-SCREEN.
SELECT SAPNAM FROM SOUC
      INTO TABLE IT_SAPID
      WHERE SAPNAM IN SAPID
        AND DELETED = ''.
GV_NEXTDAY = SY-DATUM + 1.
LOOP AT EMAILADD.
    IT_EMAIL-EMAILADD = EMAILADD-LOW.
    APPEND IT_EMAIL.
    CLEAR: IT_EMAIL.
ENDLOOP.
IF NOT BPROC IS INITIAL.
    CLEAR: RBUT1, RBUT3.
    RBUT2 = 'X'.
ELSE.
    CLEAR: RBUT2.
ENDIF.
IF NOT RBUT3 IS INITIAL.
    REFRESH: WS_FILE.
ENDIF.
IF SAPID IS INITIAL AND EMAILADD IS INITIAL.
    MESSAGE E000(ZZ) WITH TEXT-201.
ELSEIF NOT SAPID IS INITIAL AND EMAILADD IS INITIAL.
    CLEAR IT_SAPID.
    READ TABLE IT_SAPID.
    SELECT SINGLE SUBNO FROM SOSU
      INTO GV_SUBNO
      WHERE USRNO IN ( SELECT USRNO FROM SOUC
                         WHERE SAPNAM = IT_SAPID-SAPID ).
    IF SY-SUBRC NE 0.
      MESSAGE E000(ZZ) WITH TEXT-202.
    ENDIF.
    CLEAR: IT_SAPID.
ELSEIF NOT SAPID IS INITIAL AND NOT EMAILADD IS INITIAL.
    CLEAR: IT_SAPID, IT_EMAIL.
    READ TABLE IT_SAPID.
    READ TABLE IT_EMAIL.
    SELECT SINGLE SUBNO FROM SOSU
      INTO GV_SUBNO
      WHERE USRNO IN ( SELECT USRNO FROM SOUC
                         WHERE SAPNAM = IT_SAPID-SAPID ).
    IF SY-SUBRC NE 0.
      SUBMIT RSSOADM0 WITH USRNAM EQ IT_SAPID-SAPID
                      WITH NEW_SUBS EQ IT_EMAIL-EMAILADD
                      WITH SUB_ESC EQ 'U'
                      WITH EDAT EQ SY-DATUM
                      WITH BDAT EQ SY-DATUM
                     WITH BDAT EQ GV_NEXTDAY
                     WITH EDAT EQ '99991231'
                      WITH BTIM EQ SY-UZEIT
                      WITH ETIM EQ '240000'
                      WITH FORW_ALL EQ 'X'
                      WITH PSTHR2 EQ ''
                      AND RETURN.
    ENDIF.
    CLEAR: IT_SAPID.
ELSEIF NOT EMAILADD IS INITIAL AND SAPID IS INITIAL.
    RECFLAG = 'X'.
ENDIF.
START-OF-SELECTION.
    PERFORM B_SENDMAIL.
FORM B_SENDMAIL.
YEAR = SY-DATUM+0(4).
LOOP AT WS_FILE.
    CLEAR: FYL.
    FYL = WS_FILE-LOW.
    REFRESH: TAB2.
    CALL FUNCTION 'WS_UPLOAD'
         EXPORTING
              FILENAME = FYL
              FILETYPE = 'BIN'
         TABLES
              DATA_TAB = TAB2.
    IT_TEXTLINE[] = TAB2[].
DOCUMENT_DATA (SUBJECT OF MAIL)
    V_DOCDATA-OBJ_NAME   = DESC.
    V_DOCDATA-OBJ_DESCR = SUBJ.
    V_DOCDATA-OBJ_LANGU = SY-LANGU.
    V_DOCDATA-SENSITIVTY = 'C'.
    V_DOCDATA-OBJ_PRIO   = '1'.
BODY OF MAIL
    IT_BODY-LINE = 'Collection Report'.
    APPEND IT_BODY.
CONTENTS_TXT (Attachments)
    IT_CONTNT[] = IT_TEXTLINE[].
    DESCRIBE TABLE IT_CONTNT LINES V_LINE.
    READ TABLE IT_CONTNT INDEX V_LINE.
PACKING_LIST
    V_OBJPACK-DOC_SIZE = ( V_LINE - 1 ) * 255 + STRLEN( IT_CONTNT ).
    V_OBJPACK-TRANSF_BIN = 'X'.
    V_OBJPACK-HEAD_START = 1.
    V_OBJPACK-HEAD_NUM   = 0.
    V_OBJPACK-BODY_START = 1.
    V_OBJPACK-BODY_NUM   = V_LINE.
    V_OBJPACK-DOC_TYPE   = 'TXT'.
    V_OBJPACK-OBJ_NAME   = 'ATTACHMENT'.
    V_OBJPACK-OBJ_DESCR = 'Attached Document'.
    APPEND V_OBJPACK.
    CLEAR V_OBJPACK.
RECEIVERS of mail
    IF RECFLAG IS INITIAL.
      LOOP AT IT_SAPID.
        IT_RECVRS-RECEIVER   = IT_SAPID-SAPID.
        IT_RECVRS-REC_TYPE   = 'B'.
        IT_RECVRS-COM_TYPE   = ''.
        IT_RECVRS-EXPRESS    = 'X'.
        IT_RECVRS-NO_FORWARD = ''.
        IT_RECVRS-NO_PRINT   = ''.
        APPEND IT_RECVRS.
        CLEAR IT_RECVRS.
      ENDLOOP.
    ELSE.
      LOOP AT EMAILADD.
        IT_RECVRS-RECEIVER   = EMAILADD-LOW.
        IT_RECVRS-REC_TYPE   = 'U'.
        IT_RECVRS-COM_TYPE   = 'INT'.
        IT_RECVRS-EXPRESS    = 'X'.
        APPEND IT_RECVRS.
        CLEAR IT_RECVRS.
      ENDLOOP.
    ENDIF.
OBJECT_HEADER (Filename)
    CONCATENATE 'Collection Report' '_'
                 SY-DATUM+4(4) YEAR '.TXT'
                 INTO V_OBJHEAD-LINE.
   V_OBJHEAD-LINE = FYL+16(25).
    APPEND V_OBJHEAD.
    CLEAR V_OBJHEAD.
Function Module For Sending Mail with Attachment
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
         EXPORTING
              DOCUMENT_DATA              = V_DOCDATA
         TABLES
              PACKING_LIST               = V_OBJPACK
              OBJECT_HEADER              = V_OBJHEAD
              CONTENTS_HEX               = IT_CONTNT
              CONTENTS_TXT               = IT_BODY
              RECEIVERS                  = IT_RECVRS
         EXCEPTIONS
              TOO_MANY_RECEIVERS         = 1
              DOCUMENT_NOT_SENT          = 2
              DOCUMENT_TYPE_NOT_EXIST    = 3
              OPERATION_NO_AUTHORIZATION = 4
              PARAMETER_ERROR            = 5
              X_ERROR                    = 6
              ENQUEUE_ERROR              = 7
              OTHERS                     = 8.
    IF SY-SUBRC = 0.
      MESSAGE S000(ZZ) WITH TEXT-005.
    ELSE.
      MESSAGE S000(ZZ) WITH TEXT-006.
    ENDIF.
ENDLOOP.
end of my code *
please help me guys... when i run this program,    DOCUMENT_NOT_SENT is what i always get..
waiting for ur reply... thank you vey much and godbless.

Hi,
Try this sample code.
FORM SEND_TO_EMAIL USING zFName.
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
DATA: OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
DATA: DOC_CHNG LIKE SODOCCHGI1.
DATA: TAB_LINES LIKE SY-TABIX.
DATA: ctmp(50) TYPE C.
Creation of the document to be sent
DOC_CHNG-OBJ_NAME = 'JOURNAL'.
CONCATENATE 'SAP Payroll Journal file Period' pybegda INTO ctmp
              SEPARATED BY SPACE.
DOC_CHNG-OBJ_DESCR = cTmp.
OBJTXT = 'SAP Payroll Journal'.
APPEND OBJTXT.
CONCATENATE 'For Period' pybegda INTO ctmp
              SEPARATED BY SPACE.
OBJTXT = ctmp.
APPEND OBJTXT.
CONCATENATE 'Attached File :' zFname INTO ctmp
              SEPARATED BY SPACE.
OBJTXT = ctmp.
APPEND OBJTXT.
OBJTXT = 'Please find the attachment.'.
APPEND OBJTXT.
DESCRIBE TABLE OBJTXT LINES TAB_LINES.
READ TABLE OBJTXT INDEX TAB_LINES.
DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
Creation of the entry for the compressed document
CLEAR OBJPACK-TRANSF_BIN.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = 'RAW'.
APPEND OBJPACK.
Creation of the document attachment
<b>LOOP AT xMail.
    CONDENSE xMail-aline.
    OBJBIN = xMail-aline.
    APPEND OBJBIN.
    CLEAR OBJBIN.
ENDLOOP.</b>
DESCRIBE TABLE OBJBIN LINES TAB_LINES.
OBJHEAD = zFname. APPEND OBJHEAD.
Creation of the entry for the compressed attachment
OBJPACK-TRANSF_BIN = 'X'.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 1.
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = 'RAW'.
OBJPACK-OBJ_NAME = 'DATA'.
OBJPACK-OBJ_DESCR = 'SAP Payroll File'.
OBJPACK-DOC_SIZE = TAB_LINES * 255.
APPEND OBJPACK.
Completing the recipient list
LOOP AT PENERIMA.
    CONDENSE PENERIMA-PNRM.
    RECLIST-RECEIVER = PENERIMA-PNRM.
    RECLIST-REC_TYPE = 'U'.
    APPEND RECLIST.
ENDLOOP.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            DOCUMENT_DATA              = DOC_CHNG
            PUT_IN_OUTBOX              = ' '
       TABLES
            PACKING_LIST               = OBJPACK
            OBJECT_HEADER              = OBJHEAD
            CONTENTS_BIN               = OBJBIN
            CONTENTS_TXT               = OBJTXT
            RECEIVERS                  = RECLIST
       EXCEPTIONS
            TOO_MANY_RECEIVERS         = 1
            DOCUMENT_NOT_SENT          = 2
            OPERATION_NO_AUTHORIZATION = 4
            OTHERS                     = 99.
CASE SY-SUBRC.
    WHEN 0.
      WRITE: / 'Result of the send process:'.
      LOOP AT RECLIST.
        WRITE: / RECLIST-RECEIVER(48), ':'.
        IF RECLIST-RETRN_CODE = 0.
          WRITE / 'The document was sent'.
        ELSE.
          WRITE / 'The document could not be sent'.
        ENDIF.
      ENDLOOP.
    WHEN 1.
      WRITE: / 'Too many receiver'.
    WHEN 2.
      WRITE: / 'Document could not be sent to any recipient'.
    WHEN 4.
      WRITE: / 'No send authorization'.
    WHEN OTHERS.
      WRITE: / 'Error occurred while sending'.
ENDCASE.
ENDFORM.

How to download a text file using classes

Hi Guys
I want to download a text file using classes.
Any idea how to do it ?
Thanks
Sameer

HI sameer,
   It is no different from using a Function module.
example:
CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
      filename                  = w_fpath
    append                    = SPACE
      write_field_separator     = 'X'
    CHANGING
      data_tab                  = it_download
    EXCEPTIONS
      file_write_error          = 1
      no_batch                  = 2
      gui_refuse_filetransfer   = 3
      invalid_type              = 4
      no_authority              = 5
      unknown_error             = 6
      header_not_allowed        = 7
      separator_not_allowed     = 8
      filesize_not_allowed      = 9
      header_too_long           = 10
      dp_error_create           = 11
      dp_error_send             = 12
      dp_error_write            = 13
      unknown_dp_error          = 14
      access_denied             = 15
      dp_out_of_memory          = 16
      disk_full                 = 17
      dp_timeout                = 18
      file_not_found            = 19
      dataprovider_exception    = 20
      control_flush_error       = 21
      not_supported_by_gui      = 22
      error_no_gui              = 23
      OTHERS                    = 24
Regards,
ravi

How to download ANSI coding text file using function GUI_DOWNLOAD?

Similar Messages

Maybe you are looking for