How can user attach file to interactive form, and be read by abap program?

Hello,
I created an abap interactive form, sent to the user, then user fills out the form fields, then it is uploaded back to sap, then my program reads this data and process it.
It works.
Now I want users to be able to attach any file they want, and the abap program to extract this file out of the PDF, to put it into SAP (or anywhere).
I succeeded in attaching a file, I can "see" it via function module get_annotations, but I get the file in compressed form by Adobe (filter="FlateDecode").
Do you know how to unzip the file, or is there another way to attach files in adobe reader/extract them via abap?
I use acrobat reader 8.1.2
Thx a lot!
sandra
Below is the xml obtained by GET_ANNOTATIONS. We see that there are other text annotations, and that the attached file has {length="98005"}, though real file (before "attach file" to the PDF, and also after "detach file") has length 111 995 bytes. It's why I deduced that there is a compression (I also tried to extract it as-is and open it with adobe but it doesn't work.
<?xml version="1.0" encoding="UTF-8"?>
<xfdf xmlns="http://ns.adobe.com/xfdf/" xml:space="preserve">
<annots>
 <highlight rect="212.347,624.257996,252.979004,636.539978" creationdate="D:20080604100938+02'00'"
name="2114308b-275d-4eca-8bfc-c8288ef4a77c" color="#FFFF00" flags="print"
date="D:20080604100938+02'00'" title="mtresori" subject="Texte surligne "
coords="215.432999,636.179016,249.893005,636.179016,215.432999,624.619019,249.893005,624.619019"
page="0">
 <popup rect="595.276001,516.179016,775.276001,636.179016" flags="print,nozoom,norotate"
open="no" page="0"/>
 </highlight>
 <fileattachment rect="15.345001,802.841003,29.345001,822.841003"
creationdate="D:20080604101011+02'00'" name="f6e12648-c9b0-4cd1-b08b-82876c8300d7"
color="#4055FF" flags="print,nozoom,norotate" date="D:20080604101019+02'00'" title="mtresori"
subject="Piece jointe" file="SAP_WIDGETS2.pdf" mimetype="application/pdf"
creation="D:20080603112937+02'00'" modification="D:20080603112937+02'00'" size="111995"
checksum="9F846412B510089F7C6DBCC6527C6339" page="0">
 <contents-richtext>
 <body xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/"
xfa:APIVersion="Acrobat:8.0.0" xfa:spec="2.0.2">
 SAP_WIDGETS2.pdf
 </body>
 </contents-richtext>
 <data MODE="raw" encoding="hex" length="98005" filter="FlateDecode">
4889CC570B5414D719F651A38EC468D5C6A2980104E528BBF3B8F3B2626405242920020A0AA4AEBB
C3B2BAECEAEEA2A018030A628C8FFA4A0F568F58426A1EF5118FB5266A8D9AA2B16A55044541C5
A62656EBA315935AE8BDB3BBEC2C0BD9D5B39EB3671966FEFBFCE6BF
ETC. (all hexa code is the attached file, but with compression by adobe)
 </data>
 </fileattachment>
 <text rect="96.187408,680.099976,116.186996,698.099976" creationdate="D:20080613144537+02'00'"
name="73360fcf-f5e5-4d5b-9315-fe4c42924300" color="#FFFF00" flags="print,nozoom,norotate"
date="D:20080613144617+02'00'" icon="Comment" title="srossi" subject="Note" page="0">
 <contents-richtext>
 <body xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/"
xfa:APIVersion="Acrobat:8.0.0" xfa:spec="2.0.2">
 
 
ffffffffffffffffffffff
 
 
 </body>
 </contents-richtext>
 <popup rect="595.276001,578.099976,775.276001,698.099976" flags="print,nozoom,norotate"
open="yes" page="0"/>
 </text>
 <text rect="100,82,120,100" creationdate="D:20080613144627+02'00'" state="Marked"
name="d524b7d5-1a85-4b62-80b3-5875dd152c51"
color="#FFFF00" flags="hidden,print,nozoom,norotate" date="D:20080613144627+02'00'"
icon="Comment" title="srossi" subject="Note"
inreplyto="73360fcf-f5e5-4d5b-9315-fe4c42924300" statemodel="Marked" page="0">
 <contents-richtext>
 <body xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/"
xfa:APIVersion="Acrobat:8.0.0" xfa:spec="2.0.2">
 Marked definie par srossi
 </body>
 </contents-richtext>
 <popuprect="595.276001,-20,775.276001,100" flags="print,nozoom,norotate" open="no" page="0"/>
 </text>
 <text rect="100,82,120,100" creationdate="D:20080613144633+02'00'" state="Accepted"
name="88af2cb6-7516-4f21-81e6-97edc7a85184"
color="#FFFF00" flags="hidden,print,nozoom,norotate" date="D:20080613144633+02'00'" icon="Comment"
title="srossi" subject="Note" inreplyto="d524b7d5-1a85-4b62-80b3-5875dd152c51" statemodel="Review"
page="0">
 <contents-richtext>
 <body xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/"
xfa:APIVersion="Acrobat:8.0.0" xfa:spec="2.0.2">
 Accepted definie par srossi
 </body>
 </contents-richtext>
 <popup rect="595.276001,-20,775.276001,100" flags="print,nozoom,norotate" open="no" page="0"/>
 </text>
 <text rect="100,82,120,100" creationdate="D:20080613144642+02'00'" state="Marked"
name="a8c6b485-c3f9-44e2-ad53-c61b2766d9d5" color="#FFFF00" flags="hidden,print,nozoom,norotate"
date="D:20080613144642+02'00'" icon="Comment" title="srossi" subject="Note"
inreplyto="f6e12648-c9b0-4cd1-b08b-82876c8300d7" statemodel="Marked" page="0">
 <contents-richtext>
 <body xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/"
xfa:APIVersion="Acrobat:8.0.0" xfa:spec="2.0.2">
 Marked definie par srossi
 </body>
 </contents-richtext>
 <popup rect="595.276001,-20,775.276001,100" flags="print,nozoom,norotate" open="no" page="0"/>
 </text>
 <text rect="100,82,120,100" creationdate="D:20080613144647+02'00'" state="Accepted"
name="0136b689-575c-46b8-a21a-86e3c8d73904" color="#FFFF00" flags="hidden,print,nozoom,norotate"
date="D:20080613144647+02'00'" icon="Comment" title="srossi" subject="Note"
inreplyto="a8c6b485-c3f9-44e2-ad53-c61b2766d9d5" statemodel="Review" page="0">
 <contents-richtext>
 <body xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/"
xfa:APIVersion="Acrobat:8.0.0" xfa:spec="2.0.2">
 Accepted definie par srossi
 </body>
 </contents-richtext>
 <popup rect="595.276001,-20,775.276001,100" flags="print,nozoom,norotate" open="no" page="0"/>
 </text>
 <text rect="100,82,120,100" creationdate="D:20080613144657+02'00'" state="Accepted"
name="a21fc3c5-cf6a-4c6f-bc1f-328a91050b4e" color="#FFFF00" flags="hidden,print,nozoom,norotate"
date="D:20080613144657+02'00'" icon="Comment" title="srossi" subject="Note"
inreplyto="2114308b-275d-4eca-8bfc-c8288ef4a77c" statemodel="Review" page="0">
 <contents-richtext>
 <body xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/"
xfa:APIVersion="Acrobat:8.0.0" xfa:spec="2.0.2">
 Accepted definie par srossi
 </body>
 </contents-richtext>
 <popup rect="595.276001,-20,775.276001,100" flags="print,nozoom,norotate" open="no" page="0"/>
 </text>
</annots>
<f href="acTempF-00000028453-00000000089"/>
<ids original="03473EFED11DB2110A00000000000000" modified="959796E85292D54DB7FA558CAAD4A346"/>
</xfdf>

Hello everybody,
I am sure you have an answer to my question above. It was :
how is it possible for a user to ATTACH files to a PDF interactive form, and then be able to READ them via a program ? (I guess the solution to read them via ABAP or JAVA is quite the same?)
Thx a lot !
sandra

Similar Messages

How can i attach files in oracle applications

Hi,
How can i attach files in oracle applications ? Is there any thing like open dialogue box?
krishna

Hi Naveen,
While I am searching for attaching files to oracle forms in forum, I found you. I have a question; probably you could help me out. I have a custom form which needs to have the facility to open the text files from C drive and load the data into Oracle tables.
The custom form will be attached to Oracle apps responsibility... We are currently using forms6i.
Could you help me out to open a dialog box which provides the users to open the text files from C drive when user clicks on a button
I have attached d2kcomm and d2kwutil to the form. It complies at the form level
but still it is not showing the dialog box.
I would appreciate if you can help me in this regard.
Thanks in Advance
Ravi.
Message was edited by:
ravipampana

How can I attach files or pictures when reply email?

How can I attach files or pictures when reply to email?

You can't in the present OS. If you'd like to see Apple add that capability, suggest such here:
http://www.apple.com/feedback/iphone.html

Thanks.. can u please help me out in one more question. how can i transfer files like pdf, .docx and ppt from my laptop to iPhone 5 ? please its urgent.

thanks.. can u please help me out in one more question. how can i transfer files like pdf, .docx and ppt from my laptop to iPhone 5 ? please its urgent.

See your other post
First, i want to know how can i pair my iPhone 5 with my lenovo laptop?

How can a respondent save an uncompleted form and return to it later?

How can a respondent save an uncompleted form and return to it later?

There is no way to save a web form. Our PDF forms do support this (you can open in Adobe Reader, fill, save, return later, fill and submit)
Randy

How can we use TABLE CONTROL in BDC and WORK FLOW of ABAP.

how can we use TABLE CONTROL in BDC and WORK FLOW of ABAP.?
please explain the important questions.

How to deal with table control / step loop in BDC
Steploop and table contol is inevitable in certain transactions. When we run BDC for such transactions, we will face the situation: how many visible lines of steploop/tablecontrol are on the screen? Although we can always find certain method to deal with it, such as function code 'NP', 'POPO', considering some extreme situation: there is only one line visible one the screen, our BDC program should display an error message. (See transaction 'ME21', we you resize your screen to let only one row visible, you can not enter mutiple lines on this screen even you use 'NP')
Now with the help of Poonam on sapfans.com developement forum, I find a method with which we can determine the number of visible lines on Transaction Screen from our Calling BDC program. Maybe it is useless to you, but I think it will give your some idea.
Demo ABAP code has two purposes:
1. how to determine number of visible lines and how to calculte page number;
(the 'calpage' routine has been modify to meet general purpose usage)
2. using field symbol in BDC program, please pay special attention to the difference in Static ASSIGN and Dynamic ASSIGN.
Now I begin to describe the step to implement my method:
(I use transaction 'ME21', screen 121 for sample,
the method using is Call Transation Using..)
Step1: go to screen painter to display the screen 121, then we can count the fixed line on this screen, there is 7 lines above the steploop and 2 lines below the steploop, so there are total 9 fixed lines on this screen. This means except these 9 lines, all the other line is for step loop. Then have a look at steploop itselp, one entry of it will occupy two lines.
(Be careful, for table control, the head and the bottom scroll bar will possess another two fixed lines, and there is a maximum number for table line)
Now we have : FixedLine = 9
 LoopLine = 2(for table control, LoopLine is always equal to 1)
Step2: go to transaction itself(ME21) to see how it roll page, in ME21, the first line of new page is always occupied by the last line of last page, so it begin with index '02', but in some other case, fisrt line is empty and ready for input.
Now we have: FirstLine = 0
 or FirstLine = 1 ( in our case, FirstLine is 1 because the first line of new page is fulfilled)
Step3: write a subroutine calcalculating number of pages
(here, the name of actual parameter is the same as formal parameter)
global data: FixedLine type i, " number of fixed line on a certain screen
 LoopLine type i, " the number of lines occupied by one steploop item
 FirstLine type i, " possbile value 0 or 1, 0 stand for the first line of new " scrolling screen is empty, otherwise is 1
 Dataline type i, " number of items you will use in BDC, using DESCRIBE to get
 pageno type i, " you need to scroll screen how many times.
 line type i, " number of lines appears on the screen.
 index(2) type N, " the screen index for certain item
 begin type i, " from parameter of loop
 end type i. " to parameter of loop
*in code sample, the DataTable-linindex stands for the table index number of this line
form calpage using FixedLine type i (see step 1)
 LoopLine type i (see step 1)
 FirstLine type i (see step 2)
 DataLine type i ( this is the item number you will enter in transaction)
 changing pageno type i (return the number of page, depends on run-time visible line in table control/ Step Loop)
 changing line type i.(visible lines one the screen)
data: midd type i,
 vline type i, "visible lines
if DataLine eq 0.
 Message eXXX.
endif.
vline = ( sy-srows - FixedLine ) div LoopLine.
*for table control, you should compare vline with maximum line of
*table control, then take the small one that is min(vline, maximum)
*here only illustrate step loop
if FirstLine eq 0.
 pageno = DataLine div vline.
 if pageno eq 0.
 pageno = pageno + 1.
 endif.
elseif FirstLine eq 1.
 pageno = ( DataLine - 1 ) div ( vline - 1 ) + 1.
 midd = ( DataLine - 1 ) mod ( vline - 1).
 if midd = 0 and DataLine gt 1.
 pageno = pageno - 1.
 endif.
endif.
line = vline.
endform.
Step4 write a subroutine to calculate the line index for each item.
form calindex using Line type i (visible lines on the screen)
 FirstLine type i(see step 2)
 LineIndex type i(item index)
 changing Index type n. (index on the screen)
if FirstLine = 0.
 index = LineIndex mod Line.
 if index = '00'.
 index = Line.
 endif.
elseif FirstLine = 1.
 index = LineIndex mod ( Line - 1 ).
 if ( index between 1 and 0 ) and LineIndex gt 1.
 index = index + Line - 1.
 endif.
 if Line = 2.
 index = index + Line - 1.
 endif.
endif.
endform.
Step5 write a subroutine to calculate the loop range.
form calrange using Line type i ( visible lines on the screen)
 DataLine type i
 FirstLine type i
 loopindex like sy-index
 changing begin type i
 end type i.
If FirstLine = 0.
 if loopindex = 1.
 begin = 1.
 if DataLine <= Line.
 end = DataLine.
 else.
 end = Line.
 endif.
 elseif loopindex gt 1.
 begin = Line * ( loopindex - 1 ) + 1.
 end = Line * loopindex.
 if end gt DataLine.
 end = DataLine.
 endif.
 endif.
elseif FirstLine = 1.
if loopindex = 1.
 begin = 1.
 if DataLine <= Line.
 end = DataLine.
 else.
 end = Line.
 endif.
elseif loop index gt 1.
 begin = ( Line - 1 ) * ( loopindex - 1 ) + 2.
 end = ( Line - 1 ) * ( loopindex - 1 ) + Line.
 if end gt DataLine.
 end = DataLine.
 endif.
endif.
endif.
endform.
Step6 using field sysbol in your BDC, for example: in ME21, but you should calculate each item will correponding to which index in steploop/Table Control
form creat_bdc.
field-symbols: <material>, <quan>, <indicator>.
data: name1(14) value 'EKPO-EMATN(XX)',
 name2(14) value 'EKPO-MENGE(XX)',
 name3(15) value 'RM06E-SELKZ(XX)'.
assign: name1 to <material>,
 name2 to <quan>,
 name3 to <indicator>.
do pageno times.
if sy-index gt 1
*insert scroll page ok_code"
endif.
 perform calrange using Line DataLine FirstLine sy-index
 changing begin end.
loop at DataTable from begin to end.
 perform calindex using Line FirstLine DataTable-LineIndex changing Index.
 name1+11(2) = Index.
 name2+11(2) = Index.
 name3+12(2) = Index.
 perform bdcfield using <material> DataTable-matnr.
 perform bdcfield using <quan> DataTable-menge.
 perform bdcfield using <indicator> DataTable-indicator.
endloop.
enddo.
An example abap program of handling Table Control during bdc programming.
REPORT zmm_bdcp_purchaseorderkb02
 NO STANDARD PAGE HEADING LINE-SIZE 255.
 Declaring internal tables *
*-----Declaring line structure
DATA : BEGIN OF it_dummy OCCURS 0,
 dummy(255) TYPE c,
 END OF it_dummy.
*-----Internal table for line items
DATA : BEGIN OF it_idata OCCURS 0,
 ematn(18), "Material Number.
 menge(13), "Qyantity.
 netpr(11), "Net Price.
 werks(4), "Plant.
 ebelp(5), "Item Number.
 END OF it_idata.
*-----Deep structure for header data and line items
DATA : BEGIN OF it_me21 OCCURS 0,
 lifnr(10), "Vendor A/c No.
 bsart(4), "A/c Type.
 bedat(8), "Date of creation of PO.
 ekorg(4), "Purchasing Organisation.
 ekgrp(3), "Purchasing Group.
 x_data LIKE TABLE OF it_idata,
 END OF it_me21.
DATA : x_idata LIKE LINE OF it_idata.
DATA : v_delimit VALUE ','.
DATA : v_indx(3) TYPE n.
DATA : v_fnam(30) TYPE c.
DATA : v_count TYPE n.
DATA : v_ne TYPE i.
DATA : v_ns TYPE i.
*include bdcrecx1.
INCLUDE zmm_incl_purchaseorderkb01.
 Search help for file *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 IMPORTING
 file_name = p_file.
START-OF-SELECTION.
 To upload the data into line structure *
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 filename = p_file
 filetype = 'DAT'
 TABLES
 data_tab = it_dummy.
 Processing the data from line structure to internal tables *
REFRESH:it_me21.
CLEAR :it_me21.
LOOP AT it_dummy.
 IF it_dummy-dummy+0(01) = 'H'.
 v_indx = v_indx + 1.
 CLEAR it_idata.
 REFRESH it_idata.
 CLEAR it_me21-x_data.
 REFRESH it_me21-x_data.
 SHIFT it_dummy.
 SPLIT it_dummy AT v_delimit INTO it_me21-lifnr
 it_me21-bsart
 it_me21-bedat
 it_me21-ekorg
 it_me21-ekgrp.
 APPEND it_me21.
 ELSEIF it_dummy-dummy+0(01) = 'L'.
 SHIFT it_dummy.
 SPLIT it_dummy AT v_delimit INTO it_idata-ematn
 it_idata-menge
 it_idata-netpr
 it_idata-werks
 it_idata-ebelp.
 APPEND it_idata TO it_me21-x_data.
 MODIFY it_me21 INDEX v_indx.
 ENDIF.
ENDLOOP.
 To open the group *
PERFORM open_group.
 To populate the bdcdata table for header data *
LOOP AT it_me21.
 v_count = v_count + 1.
 REFRESH it_bdcdata.
 PERFORM subr_bdc_table USING: 'X' 'SAPMM06E' '0100',
 ' ' 'BDC_CURSOR' 'EKKO-LIFNR',
 ' ' 'BDC_OKCODE' '/00',
 ' ' 'EKKO-LIFNR' it_me21-lifnr,
 ' ' 'RM06E-BSART' it_me21-bsart,
 ' ' 'RM06E-BEDAT' it_me21-bedat,
 ' ' 'EKKO-EKORG' it_me21-ekorg,
 ' ' 'EKKO-EKGRP' it_me21-ekgrp,
 ' ' 'RM06E-LPEIN' 'T'.
 PERFORM subr_bdc_table USING: 'X' 'SAPMM06E' '0120',
 ' ' 'BDC_CURSOR' 'RM06E-EBELP',
 ' ' 'BDC_OKCODE' '/00'.
 MOVE 1 TO v_indx.
*-----To populate the bdcdata table for line item data
 LOOP AT it_me21-x_data INTO x_idata.
 CONCATENATE 'EKPO-EMATN(' v_indx ')' INTO v_fnam.
 PERFORM subr_bdc_table USING ' ' v_fnam x_idata-ematn.
 CONCATENATE 'EKPO-MENGE(' v_indx ')' INTO v_fnam.
 PERFORM subr_bdc_table USING ' ' v_fnam x_idata-menge.
 CONCATENATE 'EKPO-NETPR(' v_indx ')' INTO v_fnam.
 PERFORM subr_bdc_table USING ' ' v_fnam x_idata-netpr.
 CONCATENATE 'EKPO-WERKS(' v_indx ')' INTO v_fnam.
 PERFORM subr_bdc_table USING ' ' v_fnam x_idata-werks.
 v_indx = v_indx + 1.
 PERFORM subr_bdc_table USING: 'X' 'SAPMM06E' '0120',
 ' ' 'BDC_CURSOR' 'RM06E-EBELP',
 ' ' 'BDC_OKCODE' '/00'.
 ENDLOOP.
 PERFORM subr_bdc_table USING: 'X' 'SAPMM06E' '0120',
 ' ' 'BDC_CURSOR' 'RM06E-EBELP',
 ' ' 'BDC_OKCODE' '=BU'.
 PERFORM bdc_transaction USING 'ME21'.
ENDLOOP.
PERFORM close_group.
 End of selection event *
END-OF-SELECTION.
IF session NE 'X'.
*-----To display the successful records
 WRITE :/10 text-001. "Sucess records
 WRITE :/10 SY-ULINE(20).
 SKIP.
 IF it_sucess IS INITIAL.
 WRITE :/ text-002.
 ELSE.
 WRITE :/ text-008, "Total number of Succesful records
 35 v_ns.
 SKIP.
 WRITE:/ text-003, "Vendor Number
 17 text-004, "Record number
 30 text-005. "Message
 ENDIF.
 LOOP AT it_sucess.
 WRITE:/4 it_sucess-lifnr,
 17 it_sucess-tabix CENTERED,
 30 it_sucess-sucess_rec.
 ENDLOOP.
 SKIP.
*-----To display the erroneous records
 WRITE:/10 text-006. "Error Records
 WRITE:/10 SY-ULINE(17).
 SKIP.
 IF it_error IS INITIAL.
 WRITE:/ text-007. "No error records
 ELSE.
 WRITE:/ text-009, "Total number of erroneous records
 35 v_ne.
 SKIP.
 WRITE:/ text-003, "Vendor Number
 17 text-004, "Record number
 30 text-005. "Message
 ENDIF.
 LOOP AT it_error.
 WRITE:/4 it_error-lifnr,
 17 it_error-tabix CENTERED,
 30 it_error-error_rec.
 ENDLOOP.
 REFRESH it_sucess.
 REFRESH it_error.
ENDIF.
CODE IN INCLUDE.
Include ZMM_INCL_PURCHASEORDERKB01
DATA: it_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA: it_MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA: E_GROUP_OPENED.
*-----Internal table to store sucess records
DATA:BEGIN OF it_sucess OCCURS 0,
 msgtyp(1) TYPE c,
 lifnr LIKE ekko-lifnr,
 tabix LIKE sy-tabix,
 sucess_rec(125),
 END OF it_sucess.
DATA: g_mess(125) type c.
*-----Internal table to store error records
DATA:BEGIN OF it_error OCCURS 0,
 msgtyp(1) TYPE c,
 lifnr LIKE ekko-lifnr,
 tabix LIKE sy-tabix,
 error_rec(125),
 END OF it_error.
 Selection screen
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS session RADIOBUTTON GROUP ctu. "create session
SELECTION-SCREEN COMMENT 3(20) text-s07 FOR FIELD session.
SELECTION-SCREEN POSITION 45.
PARAMETERS ctu RADIOBUTTON GROUP ctu. "call transaction
SELECTION-SCREEN COMMENT 48(20) text-s08 FOR FIELD ctu.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(20) text-s01 FOR FIELD group.
SELECTION-SCREEN POSITION 25.
PARAMETERS group(12). "group name of session
SELECTION-SCREEN COMMENT 48(20) text-s05 FOR FIELD ctumode.
SELECTION-SCREEN POSITION 70.
PARAMETERS ctumode LIKE ctu_params-dismode DEFAULT 'N'.
"A: show all dynpros
"E: show dynpro on error only
"N: do not display dynpro
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 48(20) text-s06 FOR FIELD cupdate.
SELECTION-SCREEN POSITION 70.
PARAMETERS cupdate LIKE ctu_params-updmode DEFAULT 'L'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(20) text-s03 FOR FIELD keep.
SELECTION-SCREEN POSITION 25.
PARAMETERS: keep AS CHECKBOX. "' ' = delete session if finished
"'X' = keep session if finished
SELECTION-SCREEN COMMENT 48(20) text-s09 FOR FIELD e_group.
SELECTION-SCREEN POSITION 70.
PARAMETERS e_group(12). "group name of error-session
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 51(17) text-s03 FOR FIELD e_keep.
SELECTION-SCREEN POSITION 70.
PARAMETERS: e_keep AS CHECKBOX. "' ' = delete session if finished
"'X' = keep session if finished
SELECTION-SCREEN END OF LINE.
PARAMETERS:p_file LIKE rlgrap-filename.
at selection screen *
AT SELECTION-SCREEN.
group and user must be filled for create session
IF SESSION = 'X' AND
 GROUP = SPACE. "OR USER = SPACE.
 MESSAGE E613(MS).
ENDIF.
create batchinput session *
FORM OPEN_GROUP.
IF SESSION = 'X'.
 SKIP.
 WRITE: /(20) 'Create group'(I01), GROUP.
 SKIP.
*----open batchinput group
 CALL FUNCTION 'BDC_OPEN_GROUP'
 EXPORTING
 CLIENT = SY-MANDT
 GROUP = GROUP
 USER = sy-uname.
 WRITE:/(30) 'BDC_OPEN_GROUP'(I02),
 (12) 'returncode:'(I05),
 SY-SUBRC.
ENDIF.
ENDFORM. "OPEN_GROUP
end batchinput session *
FORM CLOSE_GROUP.
IF SESSION = 'X'.
*------close batchinput group
 CALL FUNCTION 'BDC_CLOSE_GROUP'.
 WRITE: /(30) 'BDC_CLOSE_GROUP'(I04),
 (12) 'returncode:'(I05),
 SY-SUBRC.
ELSE.
 IF E_GROUP_OPENED = 'X'.
 CALL FUNCTION 'BDC_CLOSE_GROUP'.
 WRITE: /.
 WRITE: /(30) 'Fehlermappe wurde erzeugt'(I06).
 ENDIF.
ENDIF.
ENDFORM. "CLOSE_GROUP
 Start new transaction according to parameters *
FORM BDC_TRANSACTION USING TCODE TYPE ANY.
DATA: L_SUBRC LIKE SY-SUBRC.
*------batch input session
IF SESSION = 'X'.
 CALL FUNCTION 'BDC_INSERT'
 EXPORTING
 TCODE = TCODE
 TABLES
 DYNPROTAB = it_BDCDATA.
 WRITE: / 'BDC_INSERT'(I03),
 TCODE,
 'returncode:'(I05),
 SY-SUBRC,
 'RECORD:',
 SY-INDEX.
ELSE.
 REFRESH it_MESSTAB.
 CALL TRANSACTION TCODE USING it_BDCDATA
 MODE CTUMODE
 UPDATE CUPDATE
 MESSAGES INTO it_MESSTAB.
 L_SUBRC = SY-SUBRC.
 WRITE: / 'CALL_TRANSACTION',
 TCODE,
 'returncode:'(I05),
 L_SUBRC,
 'RECORD:',
 SY-INDEX.
ENDIF.
Message handling for Call Transaction *
perform subr_mess_hand using g_mess.
*-----Erzeugen fehlermappe
IF L_SUBRC <> 0 AND E_GROUP <> SPACE.
 IF E_GROUP_OPENED = ' '.
 CALL FUNCTION 'BDC_OPEN_GROUP'
 EXPORTING
 CLIENT = SY-MANDT
 GROUP = E_GROUP
 USER = sy-uname
 KEEP = E_KEEP.
 E_GROUP_OPENED = 'X'.
 ENDIF.
 CALL FUNCTION 'BDC_INSERT'
 EXPORTING
 TCODE = TCODE
 TABLES
 DYNPROTAB = it_BDCDATA.
ENDIF.
REFRESH it_BDCDATA.
ENDFORM. "BDC_TRANSACTION
 Form subr_bdc_table *
 text
 -->P_0220 text *
 -->P_0221 text *
 -->P_0222 text *
FORM subr_bdc_table USING VALUE(P_0220) TYPE ANY
 VALUE(P_0221) TYPE ANY
 VALUE(P_0222) TYPE ANY.
CLEAR it_bdcdata.
IF P_0220 = ' '.
 CLEAR it_bdcdata.
 it_bdcdata-fnam = P_0221.
 it_bdcdata-fval = P_0222.
 APPEND it_bdcdata.
ELSE.
 it_bdcdata-dynbegin = P_0220.
 it_bdcdata-program = P_0221.
 it_bdcdata-dynpro = P_0222.
 APPEND it_bdcdata.
ENDIF.
ENDFORM. " subr_bdc_table
 Form subr_mess_hand *
 text *
 -->P_G_MESS text *
FORM subr_mess_hand USING P_G_MESS TYPE ANY.
LOOP AT IT_MESSTAB.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 ID = it_messtab-msgid
 LANG = it_messtab-msgspra
 NO = it_messtab-msgnr
 v1 = it_messtab-msgv1
 v2 = it_messtab-msgv2
 IMPORTING
 MSG = P_G_MESS
 EXCEPTIONS
 OTHERS = 0.
 CASE it_messtab-msgtyp.
 when 'E'.
 it_error-error_rec = P_G_MESS.
 it_error-lifnr = it_me21-lifnr.
 it_error-tabix = v_count.
 APPEND IT_ERROR.
 when 'S'.
 it_sucess-sucess_rec = P_G_MESS.
 it_sucess-lifnr = it_me21-lifnr.
 it_sucess-tabix = v_count.
 APPEND IT_SUCESS.
 endcase.
ENDLOOP.
Describe table it_sucess lines v_ns.
Describe table it_error lines v_ne.
ENDFORM. " subr_mess_hand
Also refer
http://sap.ittoolbox.com/groups/technical-functional/sap-dev/bdc-table-control-668404
and
http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
Regards,
srinivas
*reward for useful answers*

How can i attach files while composing email in safari??

How can we attach pdf or other files while composing either directly in Mail OR using safari in ipad2 ??

this doesnt work for me... u should be able to attach files with the "attach files" paper clip, but safari goes as far as opening up a window and choosing which attachment I want but then nothing happens, no attachment. I don't have this problem with Chrome, I never had this problem when I had the Snow Leopard OS, should never have changed from Snow Leopard, it was solid! Going off macs since Lion, Mountain Lion, too many glitches
So can anyone help with this problem? I'm sure I'm not the only one...

How to systematically open file in a folder and process them with a program

Hello,
For my second question of the night.
I am wondering if there is a way to open every file in a folder, run them through a vi, and then append the output to an array or spreadsheet? This would save me lots of time and my wrists.
Thanks
Solved!
Go to Solution.

Hi,
Yes you can open a file in the folder by using 'List folder' function (Programming>File I/O>Advvanced File Function>List Folder) which lists all the files and folders in the given path. From that you can build the path and give to 'Open File' function.
Hope this helps you. Let us know this solves your issue

How to send attachment to adobe interactive form

Hi
I have two interactive forms i.e initiator and approver from intiator i want to send an attachment(word document) to approver.can you please tell me how to do this.
Thanks
Krishna

Hi,
this blog may be helpful to you,
Demystifying Attachments with SAP Interactive Forms
Regards,
ramesh

How can i attach file to workflow

hi,
i want to send notification to user(sap user)in workflow.
with this notification ,the workflow attach file automatically,
how can i do this one,
with Container attachobject, can i do.
or can i use any diffrent process,
pls tell me briefly, becausei am new to workflow.
thanks
sankar

Hi Sankar,
Its simple. In the task , you can see a tick
"Confirm End of Processing ". If you check that then at the time of execution of the work item by the agent , there is a scope to attach a file.
Pls reward if useful.
regards,
Laxman Nayak.

How can print a file PDF from form

Hi to all,
I need to print a file PDF from form (developer 6i), Is IT POSSIBLE?
Thank you
Silvia

"Print" probably won't work for a pdf file. As the HOST command try:
host('<path_to>/AcroRd32.exe /t pathname "printername" "drivername" "portname"');See "How do I use the Windows command line with Acrobat and Adobe Reader?" in:
http://www.adobe.com/content/dam/Adobe/en/devnet/acrobat/pdfs/Acrobat_SDK_developer_faq.pdf

How can I attach file to my email?

Please if anyone can help. I have a problem attaching my document from my computer file to my email. It always say invalid file after clicking attach file.

What specific type of file is it? Which App created the file? Word document? Excel? etc.
Hope this helps

How can I embed files of word, excel, and pdf format in a pdf document

I have a word document of the product, which I am updating for next product release. However, there are some excel, word, and pdf files embedded within a word document. When I double click these embedded files in word, these files open in a new window. However, we deliver documentation to the customer in the pdf format. Therefore, when I am converting the word document in the pdf format, only an icon of the embedded file is displayed and the files do not open in a new window. Can someone let me know how can I embed these files (in word, excel, and pdf format) in a pdf document?

You must attach them to the PDF file after it is created. You cannot embed file attachments onto a page as you can with Word.

How can I transfer files between a PC and a Mac NOT on the same network?

I have an iCloud account, a Time Capsule and a Seagate Free Agent portable hard drive. Which ways can I transfer files (any or all three?) and how? Here's my dilemma: I'm a graphic designer and I work on a PC at my office. At home I use my MacBook Pro...same programs, save files. However, I had trouble earlier saving my new documents onto the Free Agent from my MacBook Pro as the Free Agent was Read Only and original files on it were from the PC. The PC is not on my Time Capsule network and not accessible or even close to my MacBook. I simply want to be able to save the files I updated/changed on my Mac to somewhere that I can access them later from that PC...right now they are saved to my Documents folder. Any help is greatly appreciated. Thanks!

Format the external drive as FAT32 or ExFAT. Both computers will then be able to read and write to it.

How can load properties file for one time and use in entire application

Hi folks,
I dont want to read properties file every time , and want to get property value in any servelet or jsp page.(means i want to read only property file only for once and want to get value in any where ) , how to do this.
Message was edited by:
RajeshwarReddyT

means we have to read file every time Know but i dont
want to be happen that ??? No you don't . You read the file once. You store it in the hashmap. Then you hand that hashmap to whatever class needing the data.
getProperties() returns the hashmap, doesn't read the file.
Maybe I should have called the method getMap or something.
Message was edited by:
karma-9

How can user attach file to interactive form, and be read by abap program?

Similar Messages

Maybe you are looking for