Compress Text File Using PL/Sql

Hi All,
My Environment is -------> Oracle 11g Database Release 1 On Windows 2003 Server SP2
Requirement is ------------> Compress a text file using Oracle pl/sql
I am tryring to compress a text file using below pl/sql code,
DECLARE
src_file BFILE;
v_content BLOB;
v_blob_len INTEGER;
v_file UTL_FILE.file_type;
v_buffer RAW(32767);
v_amount BINARY_INTEGER := 32767;
v_pos INTEGER := 1;
v_blob BLOB;
BEGIN
src_file := BFILENAME('MY_FILES','expLive.log');
DBMS_LOB.fileopen(src_file, dbms_lob.file_readonly);
v_content := utl_compress.lz_compress(src_file);
v_blob_len := DBMS_LOB.getlength(v_content);
v_file := UTL_FILE.fopen('MY_FILES','test.log.zip','wb');
WHILE v_pos < v_blob_len
LOOP
DBMS_LOB.READ(v_content, v_amount, v_pos, v_buffer);
UTL_FILE.put_raw(v_file, v_buffer, TRUE);
v_pos := v_pos + v_amount;
END LOOP;
UTL_FILE.fclose(v_file);
EXCEPTION
WHEN OTHERS THEN
IF UTL_FILE.is_open(v_file) THEN
UTL_FILE.fclose(v_file);
END IF;
RAISE;
END;
i am able to get the zip file without any problem.But the Problem here is size of the zip file, Acutal Text File Size is 520 KB and zip file size is 241KB. is there any possible way to compress little bit further to 100KB?
Please Advice ....in case if you are have an example please share it.
Thanks for your helps
Shan

is there any possible way to compress little bit furtherYou can compress better (but slower) with
v_content := utl_compress.lz_compress(src_file, 9);
..

Similar Messages

Generating text file using PL/SQL

can any body send sample program how to generate text file using PL/SQL program.I want to store table data into that text file.

Hi,
try this.
Thanks
CREATE OR REPLACE procedure write_index (TABLE_NAME_ACCEPT VARCHAR2) IS
id UTL_FILE.FILE_TYPE;
name VARCHAR2(20) := 'e:\db_coca\input';
err VARCHAR2(100);
ColNameLength Integer;
NumberoFColumns Integer;
num NUMBER;
i integer;
loc_query VARCHAR2(2000);
cursor_name INTEGER;
ret INTEGER;
l_const_name VARCHAR2(30);
CURSOR c_columns(i_Constraint_name VARCHAR2) IS
     SELECT *
     FROM     all_cons_columns
     WHERE     CONSTRAINT_NAME = i_Constraint_name
     order by table_name;
BEGIN
DBMS_OUTPUT.PUT_LINE('BEFORe OPEN');
--id := UTL_FILE.FOPEN('e:\db_coca\input',name,'w');
     --IF UTL_FILE.IS_OPEN(id) THEN
     --     DBMS_OUTPUT.PUT_LINE('Opened');
     --ELSE
     --     DBMS_OUTPUT.PUT_LINE('Still Closed');
     --END IF;
DBMS_OUTPUT.PUT_LINE('AFTER OPEN');
--The table generation script
     loc_query := 'Select CONSTRAINT_NAME from user_constraints ';
     loc_query := loc_query || ' where owner = ' || '''CPS''';
     loc_query := loc_query || ' AND CONSTRAINT_TYPE = ' || '''P''';
     dbms_output.put_line('TABLE_NAME_ACCEPT = ' || TABLE_NAME_ACCEPT);
     IF NOT (TABLE_NAME_ACCEPT IS NULL ) THEN
          loc_query := loc_query || ' AND TABLE_NAME like ''';
          loc_query := loc_query || TABLE_NAME_ACCEPT ;
          loc_query := loc_query || '''';
     END IF;
     cursor_name := DBMS_SQL.OPEN_CURSOR;
dbms_output.put_line('Query = ' || loc_query);
     DBMS_SQL.PARSE(cursor_name, loc_query, DBMS_SQL.v7);
dbms_output.put_line('After parse');
     dbms_sql.DEFINE_COLUMN(cursor_name, 1,l_const_name, 30);
     ret := DBMS_SQL.EXECUTE(cursor_name);
--     IF ret > 0 THEN
     LOOP
     dbms_output.put_line('return = ' || ret);
          IF DBMS_SQL.FETCH_ROWS(cursor_name) > 0 THEN
               dbms_sql.COLUMN_VALUE(cursor_name, 1,l_const_name);
          --     dbms_sql.BIND_VARIABLE(cursor_name,
l_const_name,CONSTRAINT_NAME);
          --     FOR C10 in Table_Loop Loop          --The cursor
for the table name
               Select COunt(*) INTO NumberoFColumns from
               all_cons_columns
               Where CONSTRAINT_NAME = l_const_name;
     --          FOR C11 IN c_columns(l_const_name) LOOP
     --          End loop;
     --          UTL_FILE.PUT(id, ');');
          ELSE EXIT;
          END if;     --THe 1 st cursor if is closed
     End Loop;     --The table loop ends here
          DBMS_SQL.CLOSE_CURSOR(cursor_name);
--     END IF;
--     UTL_FILE.PUT_LINE(id,name);
--     UTL_FILE.PUT(id,'It worked and wrote to this file');
     UTL_FILE.FCLOSE(id);
     DBMS_OUTPUT.PUT_LINE('Successful write to file');
EXCEPTION
WHEN OTHERS THEN
     err := SQLERRM;
     num := SQLCODE;
     DBMS_OUTPUT.PUT_LINE(err);
     DBMS_OUTPUT.PUT_LINE(num);
     DBMS_OUTPUT.PUT_LINE('Error in writing to file');
END write_index;

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

Spool SQl data into text file using dynamic sql

Hi,
I am spooling output data into text file using command
select 'select t.mxname,bo.lxtype,t.mxrev'||chr(10)||'from mx_1234567'||chr(10)||
'where <condition>';
here mxname varchar(128),lxtype(128),mxrev(128) all are of varchar type.I want the output in format
e.g Part|1211121313|A
but due to column width the output,I am getting is with spaces.
"Part then blank spaces |1211121313 then blank spaces |A"
how can I remove these spaces between columns.I used set space 0 but not working.
Thanks in advance.
Your help will be appreciated.

Hi Frank,
I have seen your reply for SET LINE SIZE function. But, I could not be able to understand it.
I am facing similar kind of issue in my present project.
I am trying spool more than 50 columns from a table into flat file. Because of more column lengths in few columns, i am getting space. There are so many columns with the same issue. I want to remove that space.so that, data can fit perfectly in one line in .txt file without any wrap text.
Below is my sample query.sql. Please let me know the syntax. My mail id : [email protected]
--Created : Sep 22,2008, Created By : Srinivasa Bojja
--Export all Fulfillments
--Scheduled daily after 1:00am and should complete before 3:30am
WHENEVER SQLERROR EXIT SQL.SQLCODE
SET LINESIZE 800
SET WRAP OFF
SET PAGESIZE 800
SET FEEDBACK OFF
SET HEADING ON
SET ECHO OFF
SET CONCAT OFF
SET COLSEP '|'
SET UNDERLINE OFF
SPOOL C:\Fulfillment.txt;
SELECT SRV.COMM_METHOD_CD AS Method,
SRV.SR_NUM AS "Fulfillment Row_Id",
CON.LAST_NAME AS "Filled By"
SRV.SR_TITLE AS Notes,
SRVXM.ATTRIB_04 AS "Form Description"
FROM SIEBEL.S_SRV_REQ SRV,
SIEBEL.S_SRV_REQ_XM SRVXM,
SIEBEL.S_USER USR,
SIEBEL.S_CONTACT CON
WHERE SRV.ROW_ID = SRVXM.PAR_ROW_ID AND
SRV.OWNER_EMP_ID = USR.ROW_ID AND
CON.ROW_ID= SRV.CST_CON_ID;
SPOOL OFF;
EXIT;

Comma delimited text file using pl/sql ???

Hi friends
I want to create a comma delimited text file from emp table like using pl/sql program. I have oracle 8.0.4.0.0 production.
emp.txt
7844,TURNER,SALESMAN,7698,08-SEP-81,1500,0,30
7876,ADAMS,CLERK,7788,23-MAY-87,1100,,20
7900,JAMES,CLERK,7698,03-DEC-81,950,,30
Thanks
Sai

Hi Justin
I traced out the error message, is below,
1 declare
2 fh utl_file.file_type;
3 d varchar2(20) := 'sample data';
4 sql_err number(10);
5 error_info varchar2(60);
6 begin
7 fh := utl_file.fopen('c:\','A.TXT','A');
8 utl_file.put(fh,d);
9 dbms_output.put_line('file created');
10 d:='&urdata';
11 utl_file.putf(fh,'\n given data is %s\n',d);
12 utl_file.put_line(fh,'this is last line');
13 utl_file.put(fh,'hello');
14 utl_file.fflush(fh);
15 utl_file.fclose(fh);
16 exception
17 when others then
18 sql_err := SQLCODE;
19 error_info := SQLERRM;
20 dbms_output.put_line(SQL_ERR||'-'||error_info);
21 if utl_file.is_open(fh) then
22 utl_file.fclose(fh);
23 end if;
24* end;
SQL> /
Enter value for urdata: TEST
old 10: d:='&urdata';
new 10: d:='TEST';
1-User-Defined Exception
PL/SQL procedure successfully completed.
Sai

How to display the out put of the sql query in a text file using forms

I want to display the out put of the sql query in a text file using forms 6.0.Same could be done using spool command in sqlplus but i want it using forms....Fiaz

Have a look at the text_io package:
http://www.oracle.com/webapps/online-help/forms/10g/state?navSetId=_&navId=3&vtTopicFile=f1_help/oraini/c_text_io.html&vtTopicId=
cheers

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.

Producing text file from PL/SQL procedure (UTL_FILE)?

Hi,
I need to produce a text file from a PL/SQL procedure. My output should be a little over 38K records and my query has 70 fields. I'd like to separate the fields by pipe delimiters in the text file. I can either concatenate all 70 fields into one variable for each record or send all 70 fields over with a pipe, whichever is easier. It looks like I can't spool within PL/SQL but UTL_FILE might be an option from what I'm reading. Does anyone have any good, simple example(s) to produce a text file using this package in calling multiple fields from a LOOP? Our os is UNIX and db is Oracle 9i.
Also, I've read that UTL_FILE has a record output of 1,023 bytes. Is this for each record line or the whole file size? I belive the max # of characters for each line wouldn't exceed 500 characters. The 38K rows I have for the data set would be well over 1MB. If this is the case, is there a work around to produce a larger text file?
Any suggestions and/or examples would be greatly appreciated.
Thanks,
Eric

Assuming the goal is to create a text file on the database server, you can use UTL_FILE here. Each line can be 1023 characters, but you can have as many lines as you'd like.
Tom Kyte has an example here
http://asktom.oracle.com/pls/ask/f?p=4950:8:::::F4950_P8_DISPLAYID:235814350980
Justin
Distributed Database Consulting, Inc.
http://www.ddbcinc.com/askDDBC

Why this error in writing string to text file using utl_file?

HI Friends,
Iam trying to write procedure to add one line of text in text file using UTIL package. But getting error.
create or replace procedure Add_To_File() is
OutFile utl_file.file_type;
l_err_code NUMBER(10);
l_err_msg VARCHAR2(2000);
vNewLine VARCHAR2(4000);
vdir varchar2(200):='UTIL_DIR';
begin
OutFile:=utl_file.fopen(vdir,'out.txt','w','32000');
vNewLine:='Loading is successfull';
utl_file.put_line(OutFile,vNewLine);
EXCEPTION
WHEN OTHERS THEN
l_err_code := SQLCODE;
l_err_msg := SUBSTR(SQLERRM,1,128);
Dbms_output.put_line(l_err_code || l_err_msg);
end;
when i execute above procedure iam getting this error.
LINE/COL ERROR
1/23 PLS-00103: Encountered the symbol ")" when expecting one of the
following:
<an identifier> <a double-quoted delimited-identifier>
current delete exists prior
Please suggest me where iam wrong.
Thanks,
Venkat Vadlamudi

868591 wrote:
HI Friends,
Iam trying to write procedure to add one line of text in text file using UTIL package. But getting error.
create or replace procedure Add_To_File() is
OutFile utl_file.file_type;
l_err_code NUMBER(10);
l_err_msg VARCHAR2(2000);
vNewLine VARCHAR2(4000);
vdir varchar2(200):='UTIL_DIR';
begin
OutFile:=utl_file.fopen(vdir,'out.txt','w','32000');
vNewLine:='Loading is successfull';
utl_file.put_line(OutFile,vNewLine);
EXCEPTION
WHEN OTHERS THEN
l_err_code := SQLCODE;
l_err_msg := SUBSTR(SQLERRM,1,128);
Dbms_output.put_line(l_err_code || l_err_msg);
end;
when i execute above procedure iam getting this error.
LINE/COL ERROR
1/23 PLS-00103: Encountered the symbol ")" when expecting one of the
following:
<an identifier> <a double-quoted delimited-identifier>
current delete exists prior
Please suggest me where iam wrong.
Thanks,
Venkat Vadlamudibelow works for me
1 CREATE OR replace PROCEDURE Add_to_file
2 IS
3    outfile       utl_file.file_type;
4    l_err_code NUMBER(10);
5    l_err_msg VARCHAR2(2000);
6    vnewline   VARCHAR2(4000);
7    vdir       VARCHAR2(200) := 'UTIL_DIR';
8 BEGIN
9    outfile := utl_file.Fopen(vdir, 'out.txt', 'w', '32000');
10    vnewline := 'Loading is successfull';
11    utl_file.Put_line(outfile, vnewline);
12 EXCEPTION
13    WHEN OTHERS THEN
14            l_err_code := SQLCODE;
15            l_err_msg := Substr(sqlerrm, 1, 128);
16            dbms_output.Put_line(l_err_code
17                           || l_err_msg);
18* END;
SQL> /
Procedure created.

Need to send the text file using webservice

Hi,
I want to send the text file with contains data through oracle pl/sql using webservice. How can i handle this program?
Kindly share with your details.
Thanks in advance,
Maran

user8732035 wrote:
I want to send the text file with contains data through oracle pl/sql using webservice. How can i handle this program?Web services supply XML structured data. Not text files.
PL/SQL supports web services (XML output) and web procedures (text and binary output).
You need to clarify your requirements.

Search in txt file using PL/SQL

Is there any way to search for a string in a text file using a PL/SQL block??
Thnks in advance.
Ashish

Richard:
It would depend on the nature of the text file, but it could be done for most plain text files. If there is some consistent delimiter, that is, the text file is fielded in some way, you could define an external table with the appropriate structure then use normal SQL queries against the particular fields from the file.
If the file is just plain text with no fields, you could create an external table something like:
CREATE TABLE myexternal (
line VARCHAR2(4000),
ORGANIZATION EXTERNAL
(TYPE oracle_loader
DEFAULT DIRECTORY mydirectory
ACCESS PARAMETERS
(RECORDS DELIMITED BY newline
BADFILE 'textfile.bad'
DISCARDFILE 'textfile.dis'
LOGFILE 'textfile.log'
(line CHAR(4000) NULLIF line = blanks))
LOCATION ('textfile.txt'))
REJECT LIMIT UNLIMITEDThen use normal sql to search the contents of that file.
I have not done any benchmarks on this, but my gut feel is that it would be significantly faster than using utl_file to loop over the lines looking for specific content.
In one of our warehouse load programs, we process a text file that is typically about 7Mb in under 30 seconds.
John

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

Text file import to sql server

hello experts
i am looking the best practise considering performance to import a text file to a sql server 2008r2. i have 1,500 files that need to be imported to sql server? thank you as usaual.

efratb,
SSIS would be an good option:
http://www.codeproject.com/Articles/155829/SQL-Server-Integration-Services-SSIS-Part-1-Basics
http://blog.sqlauthority.com/2011/05/12/sql-server-import-csv-file-into-database-table-using-ssis/
in addition to ssis, you can also achieve the same thru bcp. check:
http://databases.about.com/od/sqlserver/a/bcp.htm
Thanks,
Jay
<If the post was helpful mark as 'Helpful' and if the post answered your query, mark as 'Answered'>

Generating Text files from PL/SQL

To generate Text files from PL/SQL on SERVER, i can use UTL_FILE
package, but how do i create text files on client ( i.e., on the
C: drive ) by executing anonymous PL/SQL blocks.
Thanks in advance.

You can use DBMS_OUTPUT to display stuff to the screen and the
SQL*Plus SPOOL command to write screen output to a file on your
local drive.
magic!
APC

How can I create an csv/excel file using pl/sql and then sending that file

How can I create an csv/excel file using pl/sql and then sending that file to a clients site using pl/sql?
I know how to create the csv/excel file but I can't figure out how I would get it to the clients site.

968776 wrote:
How can I create an csv/excel file using pl/sql and then sending that file to a clients site using pl/sql?
I know how to create the csv/excel file but I can't figure out how I would get it to the clients site.You are trying to do it at a wrong place..
Whay do you want database (pl/sql) code to do these things?
Anyhow, you may be interested in :
{message:id=9360007}
{message:id=9984244}

Compress Text File Using PL/Sql

Similar Messages

Maybe you are looking for