Send a text file using MF SO_NEW_DOCUMENT_ATT_SEND_API1

HI.
I am trying send a file text from a internal table using the MF: SO_NEW_DOCUMENT_ATT_SEND_API1, the code for tranfer the internal table   is:
LOOP AT i_bultos_inex2.
      mailbin-line(20) = i_bultos_inex2-cod_bulto.
      mailbin-line+20(8) = i_bultos_inex2-fecha.
      mailbin+254(1) = cl_abap_char_utilities=>cr_lf.
      APPEND mailbin.CLEAR mailbin.
    ENDLOOP.
In the file send by e-mail, the lines are not adjusted to the left and each line of the internal table not is a line in the file text.
How i can solved?
Thanks.

Hi,
Try to use
    call function 'SCMS_STRING_TO_FTEXT'
      exporting
        text      = string
      tables
        ftext_tab = mailbin.
I think you are not working unicode system
a®

Similar Messages

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.

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.

Send attachment though mail using FM SO_NEW_DOCUMENT_ATT_SEND_API1

Hello Gurus,
Please help me with the mail sending attachment(excel file) using FM SO_NEW_DOCUMENT_ATT_SEND_API1.
Here is the actual problem.
I am using the FM SO_NEW_DOCUMENT_ATT_SEND_API1 in my prog.
My attachment(excel sheet which is taken from internal table) contains the 10 records with one header description and data related to that description.
I am able to send the attachment but the records in the attachment has more than 255 characters nearly 700 character length.
So I spilt up each internal table record(with structure type solisti1) into 3 internal table records and populated it.
It is showing the entire record in the attached file but I am not able to see some fields which are embeded deeply inside the cells.
And they are not having any proper allignment.
Please do help me.
Promise to reward points.
Mac

Here is the sample code....
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.
Creating the document to be sent
DOC_CHNG-OBJ_NAME = 'OFFER'.
DOC_CHNG-OBJ_DESCR = 'Auction of a Picasso jr'.
OBJTXT = 'Reserve price : $250000'.
APPEND OBJTXT.
OBJTXT = 'A reproduction of the painting to be auctioned'.
APPEND OBJTXT.
OBJTXT = 'is enclosed as an 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 ).
Creating 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.
Creating the document attachment
(Assume the data in OBJBIN are given in BMP format)
OBJBIN = ' \O/ '. APPEND OBJBIN.
OBJBIN = '     '. APPEND OBJBIN.
OBJBIN = ' / \ '. APPEND OBJBIN.
DESCRIBE TABLE OBJBIN LINES TAB_LINES.
OBJHEAD = 'picasso.bmp'. APPEND OBJHEAD.
Creating 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   = 'BMP'.
OBJPACK-OBJ_NAME   = 'ATTACHMENT'.
OBJPACK-OBJ_DESCR = 'Reproduction object 138'.
OBJPACK-DOC_SIZE   = TAB_LINES * 255.
APPEND OBJPACK..
Entering names in the distribution list
RECLIST-RECEIVER = '<name>@yahoo.com'.
RECLIST-REC_TYPE = 'U'.
APPEND RECLIST.
RECLIST-RECEIVER = 'DLI-NEUREICH'.
RECLIST-REC_TYPE = 'P'.
APPEND RECLIST.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
         DOCUMENT_DATA = DOC_CHNG
         PUT_IN_OUTBOX = 'X'
         COMMIT_WORK   = 'X'
    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 'sent successfully'.
           ELSE.
             WRITE 'not sent'.
           ENDIF.
         ENDLOOP.
       WHEN 1.
     WRITE:
     / 'no authorization to send to the specified number recipients!'.
       WHEN 2.
         WRITE: / 'document could not be sent to any of the recipient'.
       WHEN 4.
         WRITE: / 'no authorization to send !'.
       WHEN OTHERS.
         WRITE: / 'error occurred during sending !'.
     ENDCASE.
Regards,
Pavan.

Wrong format on text file using SO_NEW_DOCUMENT_ATT_SEND_API1 FM

Hi All!!
I've been looking in the forum but couldn't find the solution...
I'm using this FM to send a text file by email.
I got the email and the file attached but the file is not right
I shoud get:
texttexttexttext blablabla texttexttexttext
texttexttexttext blablabla texttexttexttext
texttexttexttext blablabla texttexttexttext
texttexttexttext blablabla texttexttexttext
but I'm getting
texttexttexttext blablabla texttexttexttext
. ...................................... texttexttexttext blablabla texttexttexttext
. ....................................... ...................................... texttexttexttext blablabla texttexttexttext
. ....................................... ....................................... ...................................... texttexttexttext blablabla texttexttexttext
(dots are not being displayed)
I've tried concatenating '0A' or '09' at the end of each line but I'm still getting the wrong alinegment.
Any idea?
Thanks.
Edited by: Ina on Sep 15, 2009 1:01 PM
Edited by: Ina on Sep 15, 2009 1:02 PM

***********Declarations *******************************
constants : c_cret(2)        TYPE c VALUE cl_abap_char_utilities=>cr_lf,
                    c_tab(2)         TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,
DATA : i_objtxt            TYPE STANDARD TABLE OF solisti1,        " Internal table to hold Mail details
             i_objpack        TYPE STANDARD TABLE OF sopcklsti1,   " Internal table to hold Mail details
             i_objhead        TYPE STANDARD TABLE OF solisti1,        " Internal table for the Mail data
             i_objbin           TYPE STANDARD TABLE OF solisti1,        " Internal table to hold the Object text
             i_rcvrs            TYPE STANDARD TABLE OF somlreci1.
DATA : wa_objtxt        LIKE LINE OF i_objtxt,
            wa_objpack       LIKE LINE OF i_objpack,
            wa_objhead       LIKE LINE OF i_objhead,
            wa_objbin        LIKE LINE OF i_objbin,
             wa_rcvrs         LIKE LINE OF i_rcvrs.
********Send Mail***************************************
DATA : l_lines TYPE i.
DATA : l_attlines TYPE i.
Mail Body text
wa_objtxt-line = title
APPEND wa_objtxt TO i_objtxt.
DESCRIBE TABLE i_objtxt LINES l_lines.
*Document Attributes
i_doc_chng-obj_name = 'TEST'. " input contains the attributes of the document to be sent
i_doc_chng-obj_descr = 'bla bla bla'
Mail details
CLEAR wa_objpack.
wa_objpack-head_start = c_1.
wa_objpack-head_num   = c_0.
wa_objpack-body_start = c_1.
wa_objpack-body_num   = l_lines.
wa_objpack-doc_type   = 'RAW'.
APPEND wa_objpack TO i_objpack.
IF NOT i_output IS INITIAL.
    LOOP AT i_output INTO wa_output.
      CONCATENATE wa_output-matnr1 wa_output-text INTO wa_objbin SEPARATED BY c_tab.   "first line
      CONCATENATE c_cret wa_objbin INTO wa_objbin.
      APPEND wa_objbin TO i_objbin.
    ENDLOOP.
DESCRIBE TABLE i_objbin LINES l_attlines.
READ     TABLE i_objbin INTO wa_objbin INDEX l_attlines.
CLEAR wa_objpack.
wa_objpack-transf_bin = 'X'.
wa_objpack-head_start = c_1.
wa_objpack-head_num   = c_0.
wa_objpack-body_start = c_1.
wa_objpack-body_num   = l_attlines.
wa_objpack-doc_type   = 'TXT' .
wa_objpack-obj_name   = text-201.
wa_objpack-obj_descr = text-201.
wa_objpack-doc_size   = ( l_attlines - 1 ) * 255
                                            + STRLEN( wa_objbin ).
APPEND wa_objpack TO i_objpack.
MOVE p_list TO wa_rcvrs-receiver.
wa_rcvrs-rec_type = 'U'            " Internet ID
wa_rcvrs-rec_date = ''.
PERFORM touppercase CHANGING wa_rcvrs.
APPEND wa_rcvrs TO i_rcvrs.
CLEAR wa_rcvrs.
wa_objhead-line = text-201.
APPEND wa_objhead TO i_objhead.
Call function to send the mail
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = i_doc_chng
      put_in_outbox                = c_x
      commit_work                 = c_x
    TABLES
      packing_list                   = i_objpack
      object_header              = i_objhead
      contents_bin                = i_objbin
      contents_txt                 = i_objtxt
      receivers                      = i_rcvrs
    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.
CASE sy-subrc.
    WHEN '0'.
      WAIT UP TO 2 SECONDS.
      SUBMIT rsconn01 WITH mode = 'INT'
                      AND RETURN.
      MESSAGE s010(ad) WITH 'Mail Sent Successfully'(i50).
ENSCASE.
Try this code with your data, this should work.
Edited By Tejaswini Khante

Problen when Sending the text file as attachment to the external mail

HI,
I am sending the text file as an attachment to a aexternal mai. mailing is going with text file attachment, but text file is empty. No information in the file is going, only empty text file is going. I am sending the code iam using. Please suggest, if I need to change any passing parameters orany other other solution.
tables: knb1,kna1,adr6,ITEMSET,bsid,TSP01.
           INTERNAL TABLES
DATA: BEGIN OF it_kna1 occurs 0,
        KUNNR LIKE KNA1-KUNNR,
        ADRNR LIKE KNA1-ADRNR,
      END OF it_kna1.
DATA: BEGIN OF it_email occurs 0,
        ADDRNUMBER LIKE ADR6-ADDRNUMBER,
        SMTP_ADDR LIKE ADR6-SMTP_ADDR,
      END OF it_email.
DATA: BEGIN OF it_bsid occurs 0,
       KUNNR LIKE BSID-KUNNR,
       BUKRS LIKE BSID-BUKRS,
     END OF it_bsid.
DATA: BEGIN OF it_final occurs 0,
        KUNNR LIKE KNA1-KUNNR,
        ADRNR LIKE ADR6-ADDRNUMBER,
        EMAIL LIKE ADR6-SMTP_ADDR,
      END OF it_final.
DATA: BEGIN OF BUFFER OCCURS 10000,
          TEXT(255) TYPE C,
        END OF BUFFER.
data:xtext type solix_tab." occurs 0 with header line."line.
data:xi_pdf type soli_tab.
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE,
      OBJHEAD LIKE SOLISTI1   OCCURS 1 WITH HEADER LINE,
      OBJBIN LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      OBJTXT LIKE SOLISTI1   OCCURS 10 WITH HEADER LINE,
      RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE,
      DOC_CHNG LIKE SODOCCHGI1,
     PARAMS   LIKE PRI_PARAMS,
     ARPARAMS LIKE ARC_PARAMS,
     DAYS(1) TYPE N VALUE 8,
     COUNT(3) TYPE N VALUE 1,
     VALID    TYPE C,
     RECEIVER(30),
     STR(256).
data: spoolid    type tsp01-rqident,
       pdf_table like tline occurs 0 with header line,
       v_bytecount type i,
       itab_pdf like tline occurs 10 with header line,
      xi_pdf like tline occurs 0 with header line,
      xi_pdf like buffer occurs 0 with header line,
       xi_pdf_1 like xi_pdf,
       v_length(2) type p,
       html like solisti1   occurs 0 with header line,
       xi_temp      like bapiqcmime occurs 0 with header line,
       xi_mime(255) type c occurs 0 with header line.
          VARIABLES
data: g_email type adr6-smtp_addr,
      TAB_LINES LIKE SY-TABIX,
      G_FLAG(1) TYPE C.
     g_norm(1) TYPE C,
     g_shbv(1) TYPE C,
     g_merk(1) TYPE C,
     g_park(1) TYPE C,
     g_apar(1) TYPE C.
data: l_lines     type i,
      line1       type i,
      l_temp(500) type c,
      l_offset    type p,
      l_lineslen(2) type p,
      l_mimelen(2) type p,
      v_spono like tsp01-rqident,
      l_tabix       like sy-tabix.
*****VIA SELECTION-SCREEN
ENDFORM.                    " SEND_TO_SPOOL
*&      Form GET_SPOOL_ID
*&      Form CONVERT_SPOOL_TO_PDF
*&      Form SEND_MAIL
FORM SEND_MAIL .
data:l_lin like sy-tabix,
        l_lint like sy-tabix,
        it_list like abaplist occurs 0,
        l_newline(2) type x value '0D0A'.
*--Data for the status output after sending
data: user_address like sousradri1 occurs 1 with header line,
        sent_to_all like sonv-flag.
clear: reclist, reclist[],
         objtxt , objtxt[],
         objpack, objpack[],
         objbin , objbin[],
         doc_chng.
*--move list to office table objbin
*--Start of Changes to support PDF attachments - UB20030116
loop at html.
   objbin-line = html-line.
   append objbin.
   clear objbin.
endloop.
loop at xi_pdf.
   objbin-line = xi_pdf-text.
   append objbin.
   clear objbin.
endloop.
*--We may write additional text to the main document
*--For faxing this will be the cover page. Like sending from SAPoffice
*--the layout set Office-Telefax will be used.
objtxt-line = 'NOTE : Please Consider the below Headers'.
append objtxt.
clear objtxt.
objtxt-line = 'Assignment --> Purchase order number '.
append objtxt.
clear objtxt.
objtxt-line = 'Document -->   Invoice No '.
append objtxt.
clear objtxt.
objtxt-line = 'Amount In DC --> Amount Due '.
append objtxt.
clear objtxt.
objtxt-line = '                                            '.
append objtxt.
clear objtxt.
objtxt-line = '                                            '.
append objtxt.
clear objtxt.
objtxt-line = 'Please find attached statement for this week'.
append objtxt.
clear objtxt.
objtxt-line = '                                            '.
append objtxt.
clear objtxt.
objtxt-line = 'This is an AUTO GENERATED MAIL'.
concatenate objtxt-line 'Please Do not reply to this mail' into
objtxt-line separated by ' '.
append objtxt.
clear objtxt.
describe table objtxt lines tab_lines.
read table objtxt index tab_lines.
*--Create the document which is to be sent
doc_chng-obj_name = 'List'.
doc_chng-obj_name = 'SAPRPT'.
doc_chng-obj_descr = 'Customer statement for the week'.
concatenate 'Customer statement for '
              sy-datum into
              doc_chng-obj_descr
              separated by ' '.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).
*--Fill the fields of the packing_list for the main document:
*--It is a text document
clear objpack-transf_bin.
*--The document needs no header (head_num = 0)
objpack-head_start = 1.
objpack-head_num = 0.
*--but it has a body
objpack-body_start = 1.
objpack-body_num = tab_lines.
*--of type RAW
objpack-doc_type = 'RAW'.
append objpack.
*--Create the attachment (the list itself)
describe table objbin lines tab_lines.
*--Fill the fields of the packing_list for the attachment:
*--It is binary document
objpack-transf_bin = 'X'.
*--we need no header
objpack-head_start = 1.
objpack-head_num = 0.
*--but a body
objpack-body_start = 1.
objpack-body_num = tab_lines.
*--of type G_DOC_TYPE
objpack-doc_type = 'PDF'. "commented on 12/13/2007
objpack-doc_type = 'TXT'. "commented on 12/13/2007
objpack-obj_name = 'Attachment'.
objpack-obj_descr = 'Customer Statement'.
concatenate 'Customer Statement' sy-datum into objpack-obj_descr.
objpack-doc_size = tab_lines * 255.
append objpack.
reclist-receiver = g_email.
reclist-rec_type = 'U'.
reclist-com_type = 'FAX'.
append reclist.
data:xi type soli.
xi-line = 'haisdgsfsdf'.
append xi to xi_pdf.
xi-line = 'haisdfdsfd'.
append xi to xi_pdf.
xi-line = 'haisfgsdfsd'.
append xi to xi_pdf.
xi-line = 'haisdfsgfsdgg'.
append xi to xi_pdf.
*xi_pdf-text = 'hai'.
*append xi_pdf.
*xi_pdf-text = 'hai'.
*append xi_pdf.
*xi_pdf-text = 'hai'.
*append xi_pdf.
*xi_pdf-text = 'hai'.
*append xi_pdf.
CALL FUNCTION 'SO_SOLITAB_TO_SOLIXTAB'
    EXPORTING
      ip_solitab        = xi_pdf[]
   IMPORTING
     EP_SOLIXTAB       = xtext[].
**--Send the document by calling the SAPoffice API1 module for sending
**--documents with attachments
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_chng
      PUT_IN_OUTBOX              = 'X'
     COMMIT_WORK                = 'X'
    IMPORTING
      sent_to_all                = sent_to_all
    TABLES
      packing_list               = objpack
      object_header              = objhead
     contents_bin               = objbin
      contents_txt               = objtxt
      contents_hex               = xtext
      receivers                  = reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      others                     = 99.

HI,
There are lots of bugs.
Please refer this sample program to fix it.
http://www.sapdevelopment.co.uk/reporting/rep_spooltopdf.htm
Best regards,
Prashant

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 send a text file to a printer?

Hi, I'm in dark on how to send a text file to a printer through Java Stored Procedure.
Here are what I tried so far (OS: win 2000, Oracle: 817 or 9i2):
1, Enable DOS command in Java Stored Proc. and try to send PRINT command there:
public static String Run(String Command){
try{
Runtime.getRuntime().exec(Command);
System.out.println("Command: " + Command);
return("0");
catch (Exception e){
System.out.println("Error running command: " + Command +
"\n" + e.getMessage());
return(e.getMessage());
public static void main(String args[]){
if (args.length == 1)
Run("print /D:\\\\enterprise\\john " + args[0]);
else System.out.println("Usage: java OSCommand filename");
PL/SQL wrapper:
CREATE OR REPLACE FUNCTION OSCommand_Run(p1 IN VARCHAR2) RETURN VARCHAR2 AUTHID CURRENT_USER AS LANGUAGE JAVA NAME 'OSCommand.Run(java.lang.String) return java.lang.String';
SQL command:
//print /D:\\machine\printer test.txt
I loaded the Java Stored Procedure into SYSDBS account, it failed silently, even though piece of code works fine in external JVM.
2, Use filePrinter:
public static String print(String printString) {
try{
String printerUNC = "\\\\machine\\printer";
FileWriter fw = new FileWriter(printerUNC);
PrintWriter pw = new PrintWriter(fw);
pw.println(printString);
fw.close();
return "OK";
}catch(Exception e){
e.printStackTrace();
return "Exception: " + e.getMessage();
public static void main(String[] args) {
try{
String printerUNC = "\\\\machine\\printer";
String printString = "Hello World";
FileWriter fw = new FileWriter(printerUNC);
PrintWriter pw = new PrintWriter(fw);
pw.println(printString);
fw.close();
}catch(Exception e){e.printStackTrace();}
I loaded it into SYSDBS too, and tried with this:
SQL> select MY_PRINT.PRINT('HELLO from Oracle') from dual;
MY_PRINT.PRINT('HELLOFROMORACLE')
Exception: No such file or directory
SQL> show user
USER is "SYS"
It works in external JVM too.
What's wrong with this?
Thanks for any help in advance,
Charles

Avi:
Thanks for your response!
I put the java code in SYS, 'cause I assume that account has max privilege. If the test is successful, I will move that to some user schema and then to deal with those privilege settings... But I'm unlucky.
I checked Ask Tom, this is what I got from http://asktom.oracle.com/pls/ask/f?p=4950:8:1619723::NO::F4950_P8_DISPLAYID,F4950_P8_CRITERIA:38012348052,%7Bprinter%7D:
... Print file from PL/SQL ...
If you are using Oracle8i, release 8.1 -- much can be done with Java. java
would be able to print directly from the server.
Looks like using Java to print out file is better than PL/SQL. But there's no more hint there! And, no new question can be asked there today either...
I'm wondering whether we can create a socket to a printer and send the characters there directly... Anyone has experience on this?
Thanks for all the help in advance,
Charles

Sending a text file

hi
please can any one tell me if I want to send a text file residing on my mobile to another mobile using SMS how is it possible
I already hv a j2me application tht can send a text message.
I want a program tht will send this whole .txt file and the other end receives it as a text file
thanx
forumm

hi
can I split a text file and reassemble it using j2me
or I send the text in the file using the usual sms
and if I need to split the text file please can u give me some reference where I can find information about how to do that
thanx a ton
Forum

How to call text file using Script in Data Integrator

Dear All,
Can any one assit me in how to call a text file using script with the help of Data Integrator.
and one question ?
M having 32 csv files i want to club thos 32 csv files into one table with the help of Data Integrator, can
any one assist me.

mary,
since you knew the file name ,when clicked in name send to server,read the file and write to servlet outputstream.
I think this would help you.
If anything wrong in mycode ..forums will help you further
BufferedInputStream bis=null;
BufferedOutputStream bos=null;
int bytesRead=0;
byte buff[]=new byte[1024];
File f=new File(test.txt);
try{
     bis= new BufferedInputStream(new FileInputStream(f));
     bytesRead=bis.read(buff,0,buff.length);
     if(bytesRead!=-1){
          // create a BufferedOutputStream from ServletOutputStream
          bos=new BufferedInputStream(response.getOutputStream());
          do{
               bos.write(buff,0,bytesRead);
          }while((bytesRead=bis.read(buff,0,buff.length))!=-1)
}catch(Exception e){
     ////error handling
     }

Report the size of all SharePoint Databases in a text file using PowerShell?

I am new to Powershell. please help me for following question with step by step process.
How to report the size of all SharePoint Databases in a text file using PowerShell?

Hi Paul,
Here is the changed script, which will also include the size for the Config DB.
Please let me know if it worked:
#Get SharePoint Content database sizes
Add-PSSnapin Microsoft.SharePoint.PowerShell -ErrorAction SilentlyContinue
$date = Get-Date -Format "dd-MM-yyyy"
#Variables that you can change to fit your environment
$TXTFile = "D:\Reports\SPContentDatabase_$date.txt"
$SMTPServer = "yourmailserver"
$emailFrom = "[email protected]"
$emailTo = "[email protected]"
$subject = "Content & Config Database size reports"
$emailBody = "Daily/Weekly/Monthly report on Content & Config databases"
$webapps = Get-SPWebApplication
$configDB = Get-SPDatabase | ?{$_.Name -eq ((Get-SPFarm).Name)}
$ConfigDBSize = [Math]::Round(($configDB.disksizerequired/1GB),2)
Add-Content -Path $TXTFile -Value "Config Database size: $($ConfigDBSize)GB"
Add-Content -Path $TXTFile -Value ""
foreach($webapp in $webapps)
$ContentDatabases = $webapp.ContentDatabases
Add-Content -Path $TXTFile -Value "Content databases for $($webapp.url)"
foreach($ContentDatabase in $ContentDatabases)
$ContentDatabaseSize = [Math]::Round(($ContentDatabase.disksizerequired/1GB),2)
Add-Content -Path $TXTFile -Value "- $($ContentDatabase.Name): $($ContentDatabaseSize)GB"
if(!($SMTPServer) -OR !($emailFrom) -OR !($emailTo))
Write-Host "No e-mail being sent, if you do want to send an e-mail, please enter the values for the following variables: $SMTPServer, $emailFrom and $emailTo."
else
Send-MailMessage -SmtpServer $SMTPServer -From $emailFrom -To $emailTo -Subject $subject -Body $emailBody -Attachment $TXTFile
Nico Martens - MCTS, MCITP
SharePoint 2010 Infrastructure Consultant / Trainer

How to send a text file over a LAN?

Hi:
I am working on a program (web app using a servlet), that produces a text file with Key / Value pairs ex) NAME
joe
CITY
los angeles
I want to send the text file over an intranet (LAN) to another pc and store it in the C:\temp directory of the receiving computer.
Is it best to use the Networking package? Any idea on tutorials or code samples to help assist me? (I posted on Servlet Technology forum; nobody answered though...thanks for any thoughts.

one way cud be that u write a program to open a port on the computer u want to store and make that program save on the required directory. then u can send a simple file in byte format over it. but doing this only wud b unsafe as others wud also hav the access. wat u cud do to prevent is to put some kind of password so that first u authenticate to server b4 u pass on the file.
bye
jods

How to send a text file as jsp response

Hi
I want to send a text file/or other file as jsp response ..How to do it..
Pls tell me if any body knows about it..
thanks

Hmmm im no expert but i think you would have to convert it to a byte array and use OutputStream with the response ... not sure ...like i said, im no expert

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;

Sending EMail "Text-File" from Application Server!

Hi Experts,
how can I sending a Text-File from Application Server via Email?
Is there existing a Function Modul?
With Kind regards
Ersin
Moderator message: sending emails = FAQ, please search before posting.
Edited by: Thomas Zloch on Nov 25, 2010 4:23 PM

STF (Search the forum)! This type of question has been asked...and answered....many times.

Send a text file using MF SO_NEW_DOCUMENT_ATT_SEND_API1

Similar Messages

Maybe you are looking for