No upload possible

hi, I've just installed itunes on my computer (windows XP) and bought a music album; I wanted to load the album but it did not work; it always says that there ocured a problem and it seems to be a file damage, therefore I should reload the music title again - but it does not work!
Can anyone please help me!

it shows also the error message -100008 after the unsuccessful load.
I'm a little bit confused - need your help out there - thx!

Similar Messages

Do I get charged for any uploading (possibly even from my web host) when people download a podcast that I have created?

Do I get charged for any uploading (possibly even from my web host) when people download a podcast that I have created?

Not as far as iTunes is concerned: hosting a podcast there is free. However the media files are kept on your server - your ISP or a hosting service - and there may be a limit to bandwidth. If you podcast turned out to be extremely popular then the number of downloads might exceed the allowable bandwidth from your server in a given period and lead to an extra charge or possibly blocking until the period was over: this is something you would have to check with them.

BPC delta flat file upload possible?

Hi experts,
Ive been trying to find an answer of whether or not it is possible to retain member data on manual flat file upload into a dimension. We have created a dimension (employee) and have created some dummy nodes member data and would like to determine if it is possible to then keep this manual member data while manually loading further member data through flat file load. Is this sort of manual flatfile delta load possible? If so how? What is best practice here?
Also, is it possible to load data into a dimension using two methods IE manual upload file and then another form (IE BW load) without overwriting data? Im assuming this is where the merge data option comes in to play.
Any guidance would be much appreciated.
Regards,
Danielle

Hi Danielle,
While uploading data, if you have added dimension members manually, then, it never gets deleted untill and unless you specify for it.
In your scenario, you have created dummy members and want to upload data thru flat file. Then, the data will be uploaded only for those members for which you want to upload data, rest of the members will display the old data.
As you rightly said earlier, while running data manager package, you need to select MERGE option instead of REPLACE & CLEAR data values. This keeps the old data intact and adds the new ones as well.
Hope this clarifies further.
Rgds,
Poonam

Excel file upload possible?

Hello BW Experts,
Is it possible to upload Excel files into BW? not refereing to csv...
i remember in one of the project they did this usingg bdc / lsmw or somethhing. can you please help me get the exact procedure..
Thanks,
BWer

You can load the Excel file to a Table in SAP R/3 using LSMW and BDC but not to an infocube.
The reason is that when you load an infocube or master infoobjects the SID for each dimension is created automatically and you can't have any control over that.
Only way to upload the data is going through formal way of creating infosource and infopack.
Regs
Gopi.
Assign points if it helps ...

Mass upload possibility for ABF1 ?

Hi, we have to transfer a lot of assets. For single asset transfers I use ABF1, but this would take hours, if not days, to transfer the assets. Is there a possibility to upload an excel with the information ? The normal transaction we use to upload excel postings, doesn't accept postings to asset accounts (ZFIR08646).
As always, thanks for your help in advance,
Alexis

Hello Alexis,
I hope that you wrote ABF1 only by mistake and that you meant ABT1 or ABT1N instead (Because ABF1 is a special transaction that is only to be used in case of inconsistencies between FI and FI-AA subledger and it can cause inconsistencies if used otherwise).
Concerning the transfer of a huge number of assets, FI-AA offers the functionality of "mass transfer" (You will find further information in the Asset Accounting documentation in SAP library at "Tools->Mass processing"). Maybe this functionality fits your requirements. The standard transfer transactions cannot do the transfer based on an excel upload. This would require you to write an own program.
Kind regards, Michael

No Mobile Me upload possible - need help

Running AP3 now for some weeks, I suddenly face a strange thing: I cannot upload MobileMe galleries.
As always, I select pictures, than press MobileMe button. AP3 creates MobilMe Gallery. But no upload happens (usually indicated by spinning arrow sign next right to name of gallery).
This is really annoying, since I am to sell a lens and the potential buyer asks for some sample pictures.
It must be AP3 issue, since from iphoto everything runs just fine.
Any help very appreciated,
Henri

HenriF wrote:
Running AP3 now for some weeks, I suddenly face a strange thing: I cannot upload MobileMe galleries.
As always, I select pictures, than press MobileMe button. AP3 creates MobilMe Gallery. But no upload happens (usually indicated by spinning arrow sign next right to name of gallery).
This is really annoying, since I am to sell a lens and the potential buyer asks for some sample pictures.
It must be AP3 issue, since from iphoto everything runs just fine.
Any help very appreciated,
Henri
This is strange, but you are not alone Henri. A bunch of us are sharing experiences and have submitted reports to apple here at this thread:
http://discussions.apple.com/thread.jspa?messageID=11277874#11277874
A bug report submitted from you would be helpful!

Is a YouTube "Unlisted" upload possible directly from PE9?

I notice that PE9 enable direct upload to YouTube. But it only allows public or private classification from what I can see. Any one know if you can upload an unlisted video? This selection ius nice since your friends and family can watch your videos, but don't need a YouTube account. Other good options for sharing, but not opening up to whole world?
Thanks,
David

You do have more options if you upload to YouTube the manual way, as described in the FAQs to the right of this forum.
http://forums.adobe.com/thread/623549?tstart=0

Safari Not Uploading: Possible Solution

'Did a search in the forum for Safari not able to upload, and found numerous complaints. I too discovered I could no longer upload an image to an image hosting site -- but switching to Firefox encountered no problems. So I disabled two plugins I have for Safari (2.0.2); but that didn't help. I emptied Safari's cache; that didn't help. Then I disabled Safari's JavaScript -- and that seemed to have done the trick. So the last time I remember uploading an image was a bit over a month ago -- could that have been before Apple's last Security Update?

-- or it might have been after installing the last java release -- anyway, I installed both late after their release.

Flex based Offline File Upload Application

Hi,
I am developing a flex based desktop client application,
which provides capability for offline and online file upload.
I want to achieve following functionality.
It detects whether user is online or not, If not online then
it saves data to somewhere on local file system folder
and as soon as it detects that user is online, it uploads
data from local file systm folder to HTTP based server.
I explored FileReference object in flash.net API, Apparently
it does not provide any capability to store content to local file
system.
Is above mentioned offline file upload possible using action
script ?
Pls. help.
Regards
Tarun

hi,
for all offline working applications you need an offline swf
to exe maker. i use mdm zinc. it is fantastic for the type of
problem you mentioned. visit www.multidmedia.com and download a
trial version. it will provide you with the necessary tool.
gaurav

How to upload a podcast

hello everyone
we'd like to upload a podcast on itunes. we have an mp3-file and within the upload process itunes is asking for a "url" and we have no idea which information we have to put in here ... :/
i suppose that we have to upload the mp3-file first to a server, but which one? our one webhosting server or is there a free upload possibility?
well, how do we have to do this?
thanks very much for your help.
louis

Could you first please read this page, which will give you some background on podcasting:
http://rfwilmut.net/pc
and then do please come back if you have some more questions.

$200 reward to solve problem with JDBC and CLOB.getCharacterOutputStream

I'm trying to update CLOB with the getCharacterOutputStream as suggested in the example code. It works with US7ASCII DB instance but not instances in UTF8.
I've been browsing through all the Oracle doc's and found some rather confusing statements:
In the page at http://oradoc.photo.net/ora816/java.816/a81354/oralob2.htm#1043220
it says: [When writing to or reading from a CLOB, the JDBC drivers perform all character set conversions for you.]
also: [The oracle.sql.CLOB class supports all the character sets that the Oracle data server supports for CLOB types.]
So far so good.
In the page at http://oradoc.photo.net/ora816/java.816/a81354/oraint3.htm#1012518
it says [The oracle.sql package supports these datatypes in several ways: CLOBs point to large fixed-width character data items (that is, characters that require a fixed number of bytes per character) and are supported by the oracle.sql.CLOB class.]
Ooh no! Is this for real? UTF8 is variable width and does this mean it is not supported?
Any way to get around this?
In the page at http://oradoc.photo.net/ora816/java.816/a81358/03_pub2.htm#36009
says [6.The mappings to oracle.sql classes are optimal because they preserve data formats and require no character-set conversions (apart from the usual network conversions). Those classes are especially useful in applications that "shovel" data between SQL and Java.]
"No character set conversion"? Very confusing!
I've been hammering on this CLOB/JDBC/UTF8 problem for more than a week now and I really appreciate some solutions, workarounds, or whatever help I can get. I'm running java stored procedure in 8.1.6 on Linux RH6.2.
For your trouble, I'd pay $200 for the first guy who come up with a verifiable solution.

This is just findings based upon your comments:
Please refer to document Oracle8i National Language Support Guide
Release 2 (8.1.6) from Oracle Documentation Library, Release 8.1.7
Chapter 6 Java,
There its clearly mention that:
"Oracle JDBC drivers provide globalization support by allowing users to retrieve data from or insert data into a database in any character set that Oracle supports. Because Java strings are UCS2 encoded (16-bit Unicode) for JDBC programs, the target character set on the client is always UCS2. Character set conversion is required to convert data from the database character set (Db Charset) to UCS2. This applies to CHAR, LONG, CLOB, and VARCHAR2 data types; RAW data is not converted. "
Also..please refer this...
"oracle.sql.CLOB's method getCharacterStream() returns the contents of a CLOB as a Unicode stream."
"The techniques that Oracle's drivers use to perform character set conversion for Java applications depend on the character set the database uses. The simplest case is where the database uses a US7ASCII or WE8ISO8859P1 character set. In this case, the driver converts the data directly from the database character set to UCS2,which is used in Java applications. "
"If you are working with databases that employ a non-US7ASCII or non-WE8ISO8859P1 character set (for example, Japanese or Korean), then the driver converts the data, first to UTF8, then to UCS2. "
In my case the characte-set of the database is WE8ISO8859P1 and for security reason i can't change the character set but my feeling is that if you are updating the CLob from the java client you are forming a reference of a clob in the client which is UCS2 at the Java side. Now when you are populating the clob through java.io.Writer and call the procedure to pass the reference of the clob to the procedure then I believe the JDBC will convert the UCS2 datatype of Clob to UTF8 in the database.
You can try out the code snippet:
package ServletGDC;
import java.io.*;
import java.util.*;
import javax.servlet.*;
import javax.servlet.http.*;
import oracle.sql.*;
import java.sql.*;
import oracle.jdbc.driver.*;
import ClassesGDC.*;
public class testUpload extends HttpServlet {
private String m_strMessage="";//It stores the message to be uploaded along with the Document
Connection conn=null;
public void doPost(HttpServletRequest req, HttpServletResponse res)
throws ServletException, IOException {
String strContent="";
//res.setContentType("application/msword");
res.setContentType("text/html");
PrintWriter out = res.getWriter();
try {
CallableStatement cmt=null;
OutputStream output=null;
ByteArrayOutputStream byteoutput=null;
String strDocString="";
oracle.sql.CLOB tempClob = null;
String strPassedFileName=""; // the file name passed in the request object
String strStdFilename="";//the file name to be given to the best practice
String strSaveDirectory=""; //the directory in which the bp is to be saved
String strParamName="";//name of parameters
String strParamValue="";//value of parameters
int intTempVariable=0; // temporaty variable
long lngSizeOfFileUploaded=0;//stores the size of the file which had been uploaded in the file system
File filePathOfFileUploaded=null;//stores the path of the file uploaded to the file system
String strQuery="";
//ST------------checks if the user has logged in or not-----------------------
HttpSession session=req.getSession(true);
if(req.getContentLength()>20*1024*1024)
throw new skip("The size of the posted content is more than 10 MB . If you have a best practice whose size is more than 1 MB please mail it to Us.");
byteoutput = new ByteArrayOutputStream();
MultipartParser mp = new MultipartParser(req, 20*1024*1024); // 10MB is the limit of the file to be uploaded
Part part;//Its an abstact part which helps in retrieving information about the file and the parameters
while ((part = mp.readNextPart()) != null) {//Reads the next part
strParamName = part.getName();
// the following if is executed if the part is for a parameter rather than a file
if (part.isParam()) {
}else if (part.isFile()) {
// it's a file part
m_strMessage="inside file part";
FilePart filePart = (FilePart) part;
strPassedFileName = filePart.getFileName();
strContent= filePart.getContentType();
out.println(" strPassedFileName is "+strPassedFileName+"");
if(strPassedFileName != null || !(strPassedFileName.trim().equals("")) ) {
// the part actually contained a file
out.println(" before forming long");
//lngSizeOfFileUploaded = filePart.writeTo(filePathOfFileUploaded); //the statement upload the bestpractice in the
lngSizeOfFileUploaded = filePart.writeTo(byteoutput); //specified file path filePathOfFileUploaded.
out.println(" after file is written into the outputstream");
else {
throw new skip("The file name is null or it is empty space. Files in such Format are not accepted");
}//end of else if
}//end of while loop
if( lngSizeOfFileUploaded==0) {// the size of the file uploaded is zero then the file supplied was not proper and hence exception is to be thrown
//if(filePathOfFileUploaded.exists())
// filePathOfFileUploaded.delete();
throw new skip("The File could not be uploaded,Possible reasons may be that the file is sent null or the file is corrupted");
//END---------------the file is uploaded in the proper directory--------------------
//res.setContentType(strContent);
out.println(" long value is : "+lngSizeOfFileUploaded+" and content is "+strContent+"");
String strbyte= byteoutput.toString();
byteoutput.flush();
Class.forName("oracle.jdbc.driver.OracleDriver");
// Establish network connection to database
conn = DriverManager.getConnection("jdbc:oracle:thin:@pc-p32670:1521:GDCDBI","gdc_user","myuser");
//if(conn!=null)
out.println(" Connection formed"+conn);
//els
//out.println(" long value is : "+strbyte+"");
try{
tempClob = oracle.sql.CLOB.createTemporary(conn,true, oracle.sql.CLOB.DURATION_SESSION);
out.println(" tempClob : "+tempClob);
tempClob.open( oracle.sql.CLOB.MODE_READWRITE);
java.io.Writer tempClobWriter = tempClob.getCharacterOutputStream();
// writing the string formed from the multipart file to the clob
tempClobWriter.write(strbyte);
if(tempClob!=null){}
out.println(" CLOB value is : "+tempClob+"");
strQuery="{call INSERT_CLOB(?,?)}";
cmt=conn.prepareCall(strQuery);
cmt.setString(1,strPassedFileName);
cmt.setClob(2,tempClob);
cmt.registerOutParameter(2,java.sql.Types.CLOB);
cmt.execute();
tempClobWriter.flush();
tempClobWriter.close();
tempClob.freeTemporary();
//res.setContentType(strContent);
//strDocString.toString();
out.println(" bob is "+strbyte+"");
tempClob.close();
}catch(Exception e){
tempClob.close();
out.println(" Error is :"+e.getMessage()+"");
//e.printStackTrace(out);
cmt.close();
//out.println(" <h2>SUCCESS</h2>");
//res.sendRedirect("../test/showfile.jsp?contentype="+strContent.trim()+"");
}catch(Exception e){
java.util.Date d = new java.util.Date();
String s =d.toString();
out.println(" Error is :"+e.getMessage()+"");
//e.printStackTrace(out);
}finally{
try{
if(conn!=null)
conn.close();
}catch(Exception e){
out.println(" Error is :"+e.getMessage()+"");
}// end of finally
} //end of doPost
} //end of class
in the Procedure you will be inserting/updating the clob in a table with the reference clob in the out parameter of the procedure
Thanks.

Steps for Excise Opening Balance for RG1

Hi,
Can anybody tell me the steps involved in uploading the stock balance involved for RG1 updates.
Rgds,
Indrajit

Dear Indrajit
The following is the sequence for RG1 updation:
1. Set the Loose pack Indicator in SE16 Table J_1IRG1BAL to P. You also have to specify the Excise Group, material Number, User Id and Time of Updation. This entry is to be done only once, the very first time.
2. Update RG1 in J1I5. For the initial entry, specify the Posting Date and the Classification. You need to be extremely careful on the Classification type you use. If the material is coming from MB1C (Initial Stock Upload, possibly because you have uploaded the existing Stocks based on Cutover data), use ROP. If the updation is because of Production, you need to use Classification type: RMA - Receipt from manufacture". There is a rare possibility you may not see any entry for the manufactured quantity. More on this in Point No: 6
3. Also update the outward movements of finished goods ( IDH for Domestic Sales and IWE for Exports under Bond/ IDE for Exports against payment of Duty).
4. Extract the RG1 Register using T Code: J2I5. You must get a Green checkmark.
5.Print the RG1 Register using J2I6.
6. Sometimes you may not be able to view the manufactured material when you use RMA indicator in J1I5.(MIGO would have been used with movement type 101). Verify, if in Logistics-General --> Tax on Goods Movement --> India --> Business Transactions --> Incoming Excise Invoices --> Specify which movement types involve Excise Invoices, you have maintained 'RG1 Register' against Movement Types 131 and 132.
thanks
G. Lakshmipathi

Cost Center & Cost Element Excel Planning Profile Error - KP06

Hi,
I have created a layout for cost center/cost element planning.after that i have created planner profile.but while saving the generic file,i am getting the below error and not able to save that.Kindly advice me.
A later upload is not possible with this layout
Message no. K9363
Diagnosis
The layout cannot be used for an upload. This can be caused by one of the following situations:
The layout does not contain a data field that is ready for input.
The layout has a lead column that only contains the text for the characteristic value and not the characteristic value itself
The layout contains formulas
The layout has a complex lead column and contains empty lines.
System response
If generic file names have already been created (that is, an upload is intended), the file description cannot be saved.
Procedure
If you want to use the layout for an upload, configure it accordingly.
If one of the last three situations is the case, the layout can only be used for manual planning and not for an upload. In this case, remove the generic file name.
Thanks
Supriya

Hi Supriya,
Can you please review the attached notes as they should fix the problem.
489867 KP06 and following: Setting up an Excel upload
319713 Error with Excel upload - possible causes
Regards,
Abhisek

No Posting object

No posting object defined for company code, funds centre and commitment item.........pls let me know why this error occurs?
Is it a configuration error or mapping problem? Is any mass upload possible, if so wat is the transaction code?

Hi Rahul
This is a budget structure error - maintain the budgeting / posting addresses in FMBSBO / FMBSPO.
There are transactions available for mass maintenance (FMBSBO_MULT / FMBSPO_MULT).
Let me know if it works.
Regards
Prasad

OO ABAP - Retrieve source from Class Builder?

Hi. Is there a way to display the source code for a class or interface definition that was created with the class builder (se24).
I looked through the drop downs, but I didn't see anything to display the source.
Thanks in advance.
Brendan

A class is distributed upon several includes. The Se24 in my 45b system offers to view the source via button on the bottom of the method list.
If you like you can try the following sample program also. Just paste the source and create the Pf-Status 'STA_MAIN' (line 135) and add the commands PICK(f2),Back, Exit, My_Edit(any key).
PS: double clicking on a include navigates forward ( if PICK is set to F2 ).
PPS: If you experience trouble with pasting the code and lost line termination, please paste into wordpad an save as text file.
[code]
report: Ze80Lite
created: 17.aug.2000
purpose
this report displays various informations of report-source files
Change History
#nn - dd.mmm.yyyy - Author
 short description
#00 - 17.aug.2000 - KZI
 initial
report Ze80Lite
no standard page heading
line-size 120
message-id sx.
*$ external types & constants =====================
*======================================================================
*$ local types ========================================================
*======================================================================
types:
typ_source type string,
typ_source_tab type standard table of typ_source,
begin of typ_file_info,
 lsind type syst-lsind,
 isvalid type flag,
 r3state type d010sinf-r3state,
 prgnam type programm,
 srcnam type programm,
 prgtyp type d010sinf-subc,
end of typ_file_info,
begin of typ_line_info,
 flag_newline type flag,
 flag_comment type flag,
 text type string,
end of typ_line_info,
begin of typ_method_info,
 methodname type tmdir-methodname,
 methodindx type tmdir-methodindx,
end of typ_method_info,
typ_method_info_tab type standard table of typ_method_info,
typ_line_tab type standard table of typ_line_info.
selection-screen begin of block sel1 with frame title text-s01.
parameter:
p_prgnam type programm obligatory,
p_state type d010sinf-r3state default 'I',
p_typprg radiobutton group 0001 default 'X',
p_typcla radiobutton group 0001,
p_typifc radiobutton group 0001,
p_typfct radiobutton group 0001,
p_typmod radiobutton group 0001,
p_typool radiobutton group 0001.
selection-screen end of block sel1.
constants:
begin of gcr_rep,
 typ_prg type i value 1,
 typ_cla type i value 2,
 typ_ifc type i value 3,
 typ_fct type i value 4,
 typ_mod type i value 5,
 typ_pool type i value 6,
 max_modi type syst-lsind value 5,
 max_width type i value 80,
 mem_prg type memoryid value 'ST22_PRGNAME',
 mem_typ type memoryid value '91A', " missuse
 mem_dir type memoryid value '91B', " missuse
 mem_sta type memoryid value '91C', " missuse
end of gcr_rep.
data:
goa_file type standard table of typ_file_info.
=====================================================================
*$ report eventing ====================================================
=====================================================================
initialization.
perform sub_init.
at selection-screen.
perform sub_check.
start-of-selection.
perform sub_main.
at line-selection.
perform sub_click.
at user-command.
perform sub_command
 using sy-ucomm.
sy-ucomm = ''.
=====================================================================
*$ subroutines ========================================================
=====================================================================
form : sub_main
purp. : main entry point for procecssing
param : <global> from selectio screen
rcode : ---
hist. : #00 - KZI - created
form sub_main.
data declaration
data:
 lon_error type i,
 lon_srctyp type i,
 loc_srcnam type programm,
 lor_file type typ_file_info.
init
set pf-status 'STA_MAIN'.
clear:
 lor_file,
 goa_file.
do 10 times.
 append lor_file to goa_file[].
enddo.
get the type
" keep in sync with parameter, sub_check, sub_init
case 'X'.
 when p_typprg.
 lon_srctyp = gcr_rep-typ_prg.
 when p_typcla.
 lon_srctyp = gcr_rep-typ_cla.
 when p_typifc.
 lon_srctyp = gcr_rep-typ_ifc.
 when p_typfct.
 lon_srctyp = gcr_rep-typ_fct.
 when p_typmod.
 lon_srctyp = gcr_rep-typ_mod.
 when p_typool.
 lon_srctyp = gcr_rep-typ_pool.
 when others.
 lon_srctyp = gcr_rep-typ_prg.
endcase.
get true name
perform sub_get_srcnam
 using
 lon_srctyp
 p_prgnam
 changing
 lon_error
 loc_srcnam.
perform sub_dsp_source
 using
 p_prgnam
 loc_srcnam.
the end
exit. " form
endform. "sub_main
form : sub_click
purp. : entry point for line selection
param : <global> sy-lisel
rcode : ---
hist. : #00 - KZI - created
form sub_click.
data declaration
data:
 lon_error type i,
 loc_prgnam type programm,
 loc_srcnam type programm.
get possibly program name
if ( 0 eq lon_error ).
 perform sub_get_word_from_list
 changing
 loc_prgnam.
 if ( '' eq loc_prgnam ).
 lon_error = 1.
 else.
 translate loc_prgnam to upper case.
 endif.
endif.
get source name
if ( 0 eq lon_error ).
 case loc_prgnam.
 when 'METHODS'.
 perform sub_dsp_methods.
 when others.
 perform sub_get_srcnam
 using
 gcr_rep-typ_prg
 loc_prgnam
 changing
 lon_error
 loc_srcnam.
 if ( 0 eq lon_error ).
 perform sub_dsp_source
 using
 loc_srcnam
 loc_srcnam.
 endif.
 endcase.
endif.
the end
exit. " form
endform. "sub_click
form : sub_command
purp. : entry point for user command
param : ---
rcode : ---
hist. : #00 - KZI - created
form sub_command
using
 value(poc_cmd) type syst-ucomm.
data declaration
data:
 lon_error type i,
 lon_lsind type syst-lsind,
 lor_file type typ_file_info.
try to catch a valid file info
if ( 0 eq lon_error ).
 read table goa_file[]
 into lor_file
 with key lsind = sy-lsind.
 if ( 0 ne sy-subrc ).
 lon_error = 1.
 elseif ( 'X' ne lor_file-isvalid ).
 lon_error = 1.
 endif.
endif.
dispatch work
if ( 0 eq lon_error ).
 case poc_cmd.
 when 'MY_EDIT'.
 editor-call for report lor_file-srcnam display-mode.
 when 'MY_HELP'.
 perform sub_dsp_help.
 when others.
 " nop
 endcase.
endif.
endform. "sub_command
form : sub_get_word_from_list
purp. : get the word clicked on
param : <global> sy-lisel
rcode : ---
hist. : #00 - created
 #01 - fixed a problem with words starting in first column
form sub_get_word_from_list
changing
 prc_srcnam type programm.
data:
 loc_cmp(1) type c,
 lon_bgn type i,
 lon_end type i,
 lon_len type i.
get fundamental data
lon_len = strlen( sy-lisel ).
lon_bgn = sy-cucol.
lon_end = sy-cucol.
find begin/end of word
do.
 loc_cmp = sy-lisel+lon_bgn(1).
 if
 '' eq loc_cmp or
 '"'',.' ca loc_cmp
 exit." do
 endif.
 lon_bgn = lon_bgn - 1.
 if ( 0 GT lon_bgn ).
 exit. " do
 endif.
enddo.
lon_bgn = lon_bgn + 1.
do.
 loc_cmp = sy-lisel+lon_end(1).
 if
 lon_len le lon_end or
 '' eq loc_cmp or
 '"'',.' ca loc_cmp
 exit.
 endif.
 lon_end = lon_end + 1.
enddo.
lon_end = lon_end - 1.
if end >= begin give it back
if ( lon_end ge lon_bgn ).
 lon_len = lon_end - lon_bgn + 1.
 prc_srcnam = sy-lisel+lon_bgn(lon_len).
endif.
endform. "sub_get_word_from_list
form : sub_get_srcnam
purp. : builds sourcename according to selection screen settings
param : pon_prgtyp distinquish the various program types
 pon_prgnam the program name used to build the source file
rcode : prn_error 0 success, else failure
 prc_srcnam name of sourcefile
hist. : #00 - KZI - created
form sub_get_srcnam
using
 value(pon_prgtyp) type i
 value(poc_prgnam) type program
changing
 prn_error type i
 prc_srcnam type programm.
data declaration
data:
 lon_error type i, " local errorflag
 x type i, " simple counter
 y type i, " simple counter
 lor_tfdir type tfdir. " prog info tab.
build the true filename dependend on prg type
" keep this source in sync with parameter, sub_check, sub_init
case pon_prgtyp.
 when gcr_rep-typ_prg.
 " simple program
 prc_srcnam = poc_prgnam.
 when gcr_rep-typ_cla.
 " class
 prc_srcnam = poc_prgnam.
 x = strlen( poc_prgnam ).
 if ( 30 > x ).
 y = 30 - x.
 prc_srcnam+x(y) = '=============================='.
 endif.
 prc_srcnam+30(2) = 'CP'.
 when gcr_rep-typ_ifc.
 " interface
 prc_srcnam = poc_prgnam.
 x = strlen( poc_prgnam ).
 if ( 30 > x ).
 y = 30 - x.
 prc_srcnam+x(y) = '=============================='.
 endif.
 prc_srcnam+30(2) = 'IP'.
 when gcr_rep-typ_fct.
 " function pool
 concatenate
 'SAPL'
 poc_prgnam
 into prc_srcnam.
 when gcr_rep-typ_mod.
 " function module
 select
 single *
 into lor_tfdir
 from tfdir
 where funcname = poc_prgnam.
 if ( 0 eq sy-subrc ).
 concatenate
 'L'
 lor_tfdir-pname+4
 'U'
 lor_tfdir-include
 into prc_srcnam.
 else.
 lon_error = 1.
 endif.
 when gcr_rep-typ_pool.
 " type pool
 concatenate '%_C' poc_prgnam into prc_srcnam.
 when others.
 " unknown type
 lon_error = 1.
endcase.
the end
if ( 0 eq lon_error ).
 prn_error = 0.
else.
 prn_error = 1.
 prc_srcnam = p_prgnam.
endif.
endform. "sub_get_srcnam
form : Sub_Dsp_Methods
purp. : displays methods of a Class
param : prc_ClassName the name of the class to display methods from
rcode :
hist. : #00 - KZI - created
form sub_dsp_methods.
data declaration
constants:
 c_Num_Index type i value 35,
 c_Num_Modulo type i value 36,
 c_Index(37) type c
 value '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ?'.
data:
 lon_Fraction type i,
 lon_Modulo type i,
 lon_Index type i,
 lon_Offset type i,
 loa_methods type typ_method_info_tab,
 loc_Class_Name type tmdir-classname,
 loc_include_Name type programm,
 lor_file type typ_file_info,
 loc_Index(3) type c.
field-symbols:
 <lor_method> type typ_method_info.
init &_ precheck
lor_file-isvalid = ''.
lor_file-prgtyp = ''.
lor_file-lsind = sy-lsind + 1.
modify goa_file[] from lor_file index lor_file-lsind.
read table goa_file[] index sy-lsind into lor_file.
if ( 0 ne sy-subrc or 'X' ne lor_File-isValid ).
 exit.
endif.
loc_Class_Name = lor_File-PrgNam.
if ( loc_class_name cs '=' ).
 loc_Class_Name = loc_class_name(sy-fdpos).
endif.
get all methods
select methodname methodindx from tmdir
 into corresponding fields of table loa_methods[]
 where
 classname = loc_class_name AND
 methodname <> ''
 order by
 methodindx.
if ( 0 ne sy-subrc ).
 write:
 'could not be loaded!'(e04),
 / 'No entry in TMDIR,' , loc_class_name.
 exit.
endif.
put em on the list.
Format: Reset.
loc_Include_Name = loc_Class_Name.
concatenate
 loc_Include_Name
 '=================================================='
 into loc_Include_Name.
 loc_Include_Name+30 = 'CM'.
loop at loa_methods[] assigning <lor_method>.
 loc_Index = '000'.
 lon_Offset = 3.
 lon_Modulo = <lor_Method>-MethodIndx mod c_Num_Modulo.
 lon_Fraction = <lor_Method>-MethodIndx div c_Num_Modulo.
 while ( ( lon_Fraction > 0 or lon_Modulo > 0 ) and lon_Offset > 0 ).
 lon_Offset = lon_Offset - 1.
 loc_Indexlon_Offset(1) = c_Indexlon_Modulo(1).
 loc_Include_Name+32 = loc_Index.
 lon_Modulo = lon_Fraction mod c_Num_Modulo.
 lon_Fraction = lon_Fraction div c_Num_Modulo.
 endwhile.
 write: /
 loc_include_name intensified,
 at 40 <lor_method>-methodname(40).
endloop.
endform. "sub_Dsp_Methods
form : sub_Dsp_Source
purp. : loads source file from database and displays its contents
 with write
param : prc_srcnam name of source piece to display
rcode : <hide> name of occasional included files
hist. : #00 - KZI - created
form sub_dsp_source
using
 value(poc_prgnam) type programm
 value(poc_srcnam) type programm.
data declaration
data:
 lon_error type i,
 lon_warn type i,
 loa_source type standard table of typ_source,
 loa_lines type typ_line_tab,
 loc_line type string,
 loc_print type string,
 lon_tmp type i,
 lon_tabix type syst-tabix,
 lor_d010sinf type d010sinf,
 lor_file type typ_file_info.
field-symbols:
 <lof_source> type typ_source,
 <lof_line> type typ_line_info.
init &_ precheck
format:
 reset.
if ( gcr_rep-max_modi lt sy-lsind ). " limit modes
 sy-lsind = gcr_rep-max_modi.
endif.
lor_file-srcnam = poc_srcnam.
lor_file-prgnam = poc_prgnam.
lor_file-lsind = sy-lsind + 1.
lor_file-r3state = p_state.
poc_srcnam = ucase( poc_srcnam ).
check existance
if ( 0 eq lon_error ).
 select *
 from d010sinf up to 1 rows
 into lor_d010sinf
 where
 prog = poc_srcnam
 order by
 r3state
 cdat.
 if ( lor_d010sinf-r3state eq p_state ).
 exit. " loop
 endif.
 endselect.
 if ( 0 ne sy-subrc ).
 lon_error = 1.
 write:
 'could not be loaded!'(e04),
 / 'No entry in D010SINF,' , poc_srcnam.
 endif.
endif.
get report text
if ( 0 eq lon_error ).
 read report poc_srcnam into loa_source[] state p_state.
 if ( 0 ne sy-subrc and 'I' eq p_state ).
 read report poc_srcnam into loa_source[] state 'A'.
 lon_warn = 1.
 endif.
 if ( 0 ne sy-subrc ).
 lon_tmp = strlen( poc_srcnam ).
 write: / 'Program'(e01).
 format inverse on. format color col_negative on.
 write at (lon_tmp) poc_srcnam.
 format inverse off. format color col_negative off.
 write: /
 'Cannot load source info, sy-subrc= '(e02),sy-subrc.
 endif.
endif.
create display
if ( 0 eq lon_error ).
 perform sub_dsp_source_lines
 using
 poc_prgnam
 0
 0
 loa_source[]
 changing
 lon_error.
endif.
update internal memory
if ( 0 eq lon_error ).
 lor_file-isvalid = 'X'.
 if ( 0 eq lon_warn ).
 lor_file-r3state = p_state.
 else.
 lor_file-r3state = 'A'.
 endif.
 lor_file-prgtyp = lor_d010sinf-subc.
else.
 lor_file-isvalid = ''.
 lor_file-prgtyp = ''.
endif.
modify goa_file[] from lor_file index lor_file-lsind.
the end
if ( 0 ne lon_warn ).
 message s777 with
 'There is no inactive version => no upload possible!'(i01).
endif.
exit. " form
endform. "sub_dsp_source
form : sub_dsp_source_lines
purp. : loads source file from database and displays its contents
 with write
param : poc_prgnam name of source piece to display
 pra_source source to display
rcode : prn_error 0 success
hist. : #00 - KZI - created
form sub_dsp_source_lines
using
 value(poc_prgnam) type programm
 value(pon_lwr_ndx) type i
 value(pon_upr_ndx) type i
 pra_source type typ_source_tab
changing
 prn_error type i.
data declaration
data:
 lon_Strlen type i,
 lon_Tabix(5) type n,
 loa_lines type typ_line_tab,
 loc_line type string,
 lon_error type i,
 lon_tmp type i,
 lon_lwr_ndx type syst-tabix,
 lon_upr_ndx type syst-tabix.
field-symbols:
 <lof_source> type typ_source,
 <lof_line> type typ_line_info.
init &_ precheck
format:
 reset.
lon_error = 0.
describe table pra_source[] lines lon_tmp.
if ( 1 gt pon_lwr_ndx or lon_tmp lt pon_lwr_ndx ).
 lon_lwr_ndx = 1.
else.
 lon_lwr_ndx = pon_lwr_ndx.
endif.
if ( 1 gt pon_upr_ndx or lon_tmp lt pon_upr_ndx ).
 lon_upr_ndx = lon_tmp.
else.
 lon_upr_ndx = pon_upr_ndx.
endif.
create display
if ( 0 eq lon_error ).
 format: reset.
 loop at pra_source[]
 assigning <lof_source>
 from lon_lwr_ndx
 to lon_upr_ndx.
 lon_tabix = syst-tabix.
 loc_line = <lof_source>.
 perform sub_cut_text_comment
 using
 loc_line
 'X'
 changing
 loa_lines[].
 loop at loa_lines[] assigning <lof_line>.
 if ( 'X' eq <lof_line>-flag_newline ).
 if ( 0 ne lon_tabix ).
 write:
 /(5) lon_tabix intensified color col_normal.
 else.
 write:
 /(5) ' .' intensified color col_normal.
 endif.
 write at 6 ''.
 lon_tabix = 0.
 endif.
 lon_Strlen = strlen( <lof_Line>-Text ).
 if ( 'X' eq <lof_line>-flag_comment ).
 write: at (lon_Strlen)
 <lof_line>-text intensified no-gap.
 else.
 write: at (lon_Strlen)
 <lof_line>-text no-gap.
 endif.
 endloop.
 endloop.
endif.
the end
if ( 0 ne lon_error ).
 prn_error = 1.
else.
 prn_error = 0.
endif.
exit. " form
endform. "sub_dsp_source_lines
form : sub_chk_input
purp. : (en) validate input data
 (de) validieren der eingabewerte
param : ---
rcode : ---
hist. : #00 - initial
form sub_dsp_help.
data declaration
data:
 lon_error type i,
 loa_tline type standard table of tline,
 loc_docnam type syst-repid.
show help about ?
if ( 0 eq lon_error ). " Help
 loc_docnam = sy-repid.
 call function 'HELP_OBJECT_SHOW'
 exporting
 dokclass = 'RE'
 dokname = loc_docnam
 tables
 links = loa_tline[]
 exceptions
 object_not_found = 1
 sapscript_error = 2
 others = 3.
 if ( 0 ne sy-subrc ).
 lon_error = 1.
 message w777 with 'No Help Available'(w00).
 sy-subrc = 0.
 endif.
endif.
endform. "sub_dsp_help
form : sub_init
purp. : initializes the selection screen
param : ---
rcode : ---
hist. : #00 - KZI - created
form sub_init.
data declaration
data:
 loc_memory(256) type c,
 lon_memory type i.
memory id logic
" get prog
get parameter id gcr_rep-mem_prg field p_prgnam.
if ( 0 ne sy-subrc or '' eq p_prgnam ).
 p_prgnam = sy-repid.
endif.
set parameter id gcr_rep-mem_prg field p_prgnam.
" get prog type ( keep in sync with parameters sub_check and
" sub_get_srcnam )
get parameter id gcr_rep-mem_typ field loc_memory.
condense loc_memory.
loc_memory = loc_memory(4).
if ( loc_memory co ' 0123456789' ).
 lon_memory = loc_memory.
else.
 lon_memory = gcr_rep-typ_prg.
endif.
clear:
 p_typcla,
 p_typfct,
 p_typifc,
 p_typmod,
 p_typool,
 p_typprg.
case lon_memory.
 when gcr_rep-typ_prg.
 p_typprg = 'X'.
 when gcr_rep-typ_cla.
 p_typcla = 'X'.
 when gcr_rep-typ_ifc.
 p_typifc = 'X'.
 when gcr_rep-typ_fct.
 p_typfct = 'X'.
 when gcr_rep-typ_mod.
 p_typmod = 'X'.
 when gcr_rep-typ_pool.
 p_typool = 'X'.
 when others.
 " default
 p_typprg = 'X'.
endcase.
" get status ( keep in sync with sub check ).
get parameter id gcr_rep-mem_sta field p_state.
if ( 'A' ne p_state ).
 " only 'I' or 'A' is allowed
 p_state = 'I'.
endif.
set parameter id gcr_rep-mem_sta field p_state.
endform. "sub_init
form : sub_check
purp. : at the selection screen
param : ---
rcode : ---
hist. : #00 - KZI - created
form sub_check.
data declaration
data:
 loc_memory(4) type c,
 lon_rcode type i.
memory id handling
case p_state.
 when 'A' or 'I'.
 " ok
 when others.
 message e777 with
 'Only ''A'' and ''I'' are allowed for state'(se1).
endcase.
set parameter id gcr_rep-mem_prg field p_prgnam.
set parameter id gcr_rep-mem_sta field p_state.
" multiple choice
" keep in sync with parameters and sub_check, sub_main
case 'X'.
 when p_typprg.
 loc_memory = gcr_rep-typ_prg.
 when p_typcla.
 loc_memory = gcr_rep-typ_cla.
 when p_typifc.
 loc_memory = gcr_rep-typ_ifc.
 when p_typfct.
 loc_memory = gcr_rep-typ_fct.
 when p_typmod.
 loc_memory = gcr_rep-typ_mod.
 when p_typool.
 loc_memory = gcr_rep-typ_pool.
 when others.
 " if bugfree this should never happen, sync source if you
 " expierience this source to be executed
 loc_memory = gcr_rep-typ_prg.
endcase.
if ( '' ne loc_memory ).
 set parameter id gcr_rep-mem_typ field loc_memory.
endif.
endform. "sub_check
form : sub_split_comment
purp. : splits a line into a comment and command part.
param : poc_line to source line
 poc_command the command part
 poc_comment the comment part
rcode : <hide> name of occasional included files
hist. : #00 - KZI - created
form sub_split_comment
using
 value(poc_line) type typ_source
changing
 prc_command type typ_source
 prc_comment type typ_source.
data declaration
data:
 loc_First_Char(1) type c,
 lon_len_old type i,
 lon_len_new type i,
 lon_pos_cmt type i,
 loc_buf1 type string,
 loc_buf2 type string,
 loc_cmtbuf(240) type c.
init & precheck
clear:
 prc_command,
 prc_comment.
computation
loc_First_Char = poc_Line.
if ( '*' eq loc_First_Char ).
 prc_command = ''.
 prc_comment = poc_line.
else.
 if ( poc_line ca '"' and poc_line np '''"''' ).
 split poc_line at '"' into loc_buf1 loc_buf2.
 if ( '' eq loc_buf1 ).
 prc_command = ''.
 prc_comment = poc_line.
 else.
 lon_len_old =
 strlen( poc_line ).
 lon_len_new =
 strlen( loc_buf1 ) +
 strlen( loc_buf2 ).
 lon_pos_cmt = lon_len_old - lon_len_new - 2.
 if ( 0 gt lon_pos_cmt or 240 lt lon_pos_cmt ).
 lon_pos_cmt = 0.
 endif.
 loc_cmtbuf+lon_pos_cmt = '"'.
 prc_command = loc_buf1.
 concatenate loc_cmtbuf loc_buf2 into prc_comment.
 endif.
 else.
 prc_command = poc_line.
 prc_comment = ''.
 endif.
endif.
the end
exit. " form
endform. "sub_split_comment
form : sub_cut_text_comment
purp. : splits a line into a comment and command part.
param : poc_line to source/text line
 poc_cmt 'X' chk for comments
rcode : pra_lines filled with line info ( reset )
hist. : #00 - KZI - created
form sub_cut_text_comment
using
 value(poc_line) type string
 value(poc_cmt_check) type flag
changing
 pra_lines type typ_line_tab.
data declaration
data:
 loc_buf1 type string,
 loc_buf2 type string,
 loc_comment type string,
 loc_command type string.
data:
 loc_First_Char(1) type c,
 loc_new_line type flag,
 lon_cur_pos type i,
 lon_new_pos type i.
init & precheck
clear:
 pra_lines[],
 loc_command,
 loc_comment.
computation
loc_First_Char = poc_Line.
if ( '' eq poc_cmt_check or '' eq poc_line ).
 loc_command = poc_line.
 loc_comment = ''.
else.
 if ( '*' eq loc_First_Char ).
 loc_command = ''.
 loc_comment = poc_line.
 else.
 if ( poc_line ca '"' and poc_line np '''"''' ).
 split poc_line at '"' into loc_buf1 loc_buf2.
 if ( '' eq loc_buf1 ).
 loc_command = ''.
 loc_comment = poc_line.
 else.
 loc_command = loc_buf1.
 concatenate '"' loc_buf2 into loc_comment.
 endif.
 else.
 loc_command = poc_line.
 loc_comment = ''.
 endif.
 endif.
endif.
cvt text
lon_cur_pos = 0.
loc_new_line = 'X'.
if ( '' ne loc_command ).
 perform sub_cut_text_width
 using
 loc_command
 loc_new_line
 lon_cur_pos
 gcr_rep-max_width
 changing
 pra_lines[]
 lon_new_pos.
 lon_cur_pos = lon_new_pos.
 loc_new_line = ''.
endif.
if ( '' ne loc_comment ).
 perform sub_cut_text_width
 using
 loc_comment
 loc_new_line
 'X'
 lon_cur_pos
 gcr_rep-max_width
 changing
 pra_lines[]
 lon_new_pos.
 lon_cur_pos = lon_new_pos.
 loc_new_line = ''.
endif.
if ( '' ne loc_new_line ).
 perform sub_cut_text_width
 using
 loc_new_line
 lon_cur_pos
 gcr_rep-max_width
 changing
 pra_lines[]
 lon_new_pos.
 lon_cur_pos = lon_new_pos.
 loc_new_line = ''.
endif.
the end
exit. " form
endform. "sub_cut_text_comment
form : sub_cut_text_width
purp. : splits text info into several lines to make them
 fit to a max-width
param : poc_line to source/text line
 poc_cmt 'X' chk for comments
rcode : pra_lines appended ( no reset ) line info.
hist. : #00 - KZI - created
form sub_cut_text_width
using
 value(poc_text) type string
 value(poc_new_line) type flag
 value(poc_typ_cmt) type flag
 value(pon_cur_pos) type i
 value(pon_max_width) type i
changing
 pra_lines type typ_line_tab
 prn_new_pos type i.
data declaration
data:
 lor_text_info type typ_line_info,
 lon_cnt_loop type i,
 lon_tmp type i,
 lon_pos_cur type i,
 lon_len_cur type i,
 loc_buf_cur type string,
 loc_new_line type flag.
init & precheck
loc_buf_cur = poc_text.
loc_new_line = poc_new_line.
lon_pos_cur = pon_cur_pos.
do.
 if ( '' eq loc_buf_cur and '' eq loc_new_line or
 1000 lt lon_cnt_loop ).
 exit. " do
 else.
 lon_cnt_loop = lon_cnt_loop + 1.
 clear:
 lor_text_info.
 lor_text_info-flag_comment = poc_typ_cmt.
 if ( '' ne loc_new_line ).
 loc_new_line = ' '.
 lor_text_info-flag_newline = 'X'.
 lon_pos_cur = 0.
 endif.
 lon_len_cur = strlen( loc_buf_cur ).
 lon_tmp = lon_pos_cur + lon_len_cur.
 if ( lon_tmp le pon_max_width ).
 " all fits in currentline
 lor_text_info-text = loc_buf_cur.
 loc_buf_cur = ''.
 lon_pos_cur = lon_pos_cur + lon_len_cur.
 else.
 " we need to split
 lon_tmp = pon_max_width - lon_pos_cur.
 if ( 0 gt lon_tmp ).
 " should not happen
 lor_text_info-text = loc_buf_cur.
 loc_buf_cur = ''.
 else.
 lor_text_info-text = loc_buf_cur(lon_tmp).
 loc_buf_cur = loc_buf_cur+lon_tmp.
 endif.
 lon_pos_cur = 0.
 loc_new_line = 'X'.
 endif.
 append lor_text_info to pra_lines[].
 endif.
enddo.
the end
prn_new_pos = lon_pos_cur.
exit. " form.
endform. "sub_cut_text_width
[/code]

No upload possible

Similar Messages

Maybe you are looking for