Including Content fromtext file and transporting

Hi all,
my requirement is to include content from a text file into a transport request and transport to required client,but when i create a new transport request i dont find any option to include the contents of my text file into the request..plz help mee.
i have to tranport these bcos they are needed for some configuration in SolutionManager.
the below is the description given in marketplace which i am pasting here..
Create a new transport request (transaction SE09) in the source client of your Solution Manager system. Unpack the SOLMAN40_MOPZ_TTYP_SLMO_000.zip file from the attachment to this note. Copy the contents of the SOLMAN40_MOPZ_TTYP_SLMO_000.txt file into the transport request. Use transaction SCC1 to import the transport request into your Solution Manager client.
rgds,
Anand

Dear Anand,
Firstly you need to create an Transport Request using transaction SE01 / SE09.
To include objects of your choice in a request, proceed as follows:
Position the cursor on a modifiable request.
Choose Request/task --> Include objects
The Include Objects in Request <Request Number> dialog box appears.
In the dialog box, select Freely selected objects and continue by choosing Copy.
The Object Selection screen appears.
Enter your selection criteria and choose Execute.
The objects found are displayed in a hierarchical overview.
In the list, select the objects that you want to include.
Choose Objects --> Save in request.
Hope this information helps.
Regards
Amit

Similar Messages

How to include .txt (notepad file) into Transport Request?

Hello,
We are configuring the SolMan Service Desk (SPS15) and the IMG says that we need to activate BC sets and we did that.
There is a note 898614 (Service Desk-BC sets) states that for the installation we need to Copy the contents of the file Piecelist_Service_Desk_Initial.txt to the transport
request.
Can anyone help me the procedure how do we go about this activity and if i do this on the Development Client can i move this to the Producation too.
Thanks and Regards,
Rao
Edited by: Rao on Jul 28, 2008 3:56 PM

Hi,
You just need to open the text file and copy the entries into the transport request.
Below is the procedure on how to copy the entries into a transport request.
Goto trx SE10 --> Create a transport request --> Double click on the request --> selcts tab 'objects' and paste the entries there.
Pl reward points if it helps.
Thanks,
Naga

ANT - Jar File include another Jar file and importing classes

Here is the directory structure i have set up:
FTPGetter
\src
    \com
      \abc
        \ftpgetter
          - GUI.java
          - FTPGetter.java
          - Login.java
\classes
\include
    - ftpClient.jar
    - info.xml
\jar
    - FTPGetter.jarThe code compiles file and can create a Jar file without errors. But when I execute the Jar file, I get
java.lang.NoClassDefFoundError: com/abc/ftpclient/FTPwhich is a class that I import from the ftpClient.jar file in FTPGetter.java
What gives?
Here is my necessary build.xml code:
<?xml version="1.0"?>
<project name="FTPGetter" default="all">
<property name="src.dir"        value="src"/>
<property name="package.name"   value="com.abc.ftpgetter"/>
<property name="package.dir"    value="${src.dir}/com/abc/ftpgetter"/>
<property name="classes.dir"    value="classes"/>
<property name="include.dir"    value="include"/>
<property name="jar.dir"        value="jar"/>
<property name="javadoc.dir"    value="docs"/>
<property name="javadoc.title" value="FTPGetter"/>
<property name="javadoc.header" value="FTPGetter - By ABC XYZ [2005]"/>
<property name="run.classname" value="${package.name}.FTPGetter"/>
<target name="init">
    <mkdir dir="${javadoc.dir}" />
    <mkdir dir="${classes.dir}" />
    <mkdir dir="${jar.dir}" />
</target>
<target name="all" depends ="compile,jar" />
<target name="compile" description="Compile Java code" depends="clean, init">
    <javac srcdir="${package.dir}" destdir="${classes.dir}">
      <classpath>
        
        <pathelement path="${classes.dir}" />
        
        <fileset dir="${include.dir}">
          <include name="**/*.jar"/>
        </fileset>
      </classpath>
    </javac>
</target>
<target name="clean" description="Clean up">
    <delete dir="${javadoc.dir}" />
    <delete dir="${classes.dir}" />
    <delete dir="${jar.dir}" />
</target>
<target name="jar" depends="compile">
    <jar jarfile="${jar.dir}/FTPGetter.jar" update="false">
      <fileset dir="${classes.dir}" includes="**/*.class" />

      <fileset dir="${include.dir}" includes="info.xml" />

      <fileset dir="${include.dir}" includes="ftpClient.jar" />
      <manifest>
        <attribute name="Main-Class" value="com.abc.ftpgetter.FTPGetter" />
        <attribute name="Class-Path" value="include/ftpClient.jar"/>
      </manifest>
    </jar>
</target>
</project>

nevermind I got that fixed now:
had to get the build.xml code for the <target name="jar" depends="compile">so that it looks more like:
<target name="jar" depends="compile">
    <jar jarfile="${jar.dir}/FTPGetter.jar">
      <zipfileset dir="classes" prefix="" />
      <zipfileset src="include/ftpClient.jar" />
      <zipfileset dir="${include.dir}" includes="info.xml" />
      <manifest>
        <attribute name="Main-Class" value="com.abc.ftpgetter.FTPGetter" />
      </manifest>
    </jar>
</target>Keyword would need to be zipfileset.

Creating XML file and transport to GIS (gentran integration suite)

Hello Experts,
I have a requirement. I need to convert the data from an internal table to    XML Format file   , and send that XML file to
GIS application   [ gentran integration suite -   middleware applicationa ]
i need to save that file to Unix-Filesystem and call an FTP transfer routine to GIS.
[   Purpose of   GIS --> Transforming data (using services) from different applications so that it can be communicated to other
systems.Moving and communicating data between different systems external to Gentran Integration Suite,using adapters. ]
Please kindly reply me....
Thanks

I do not think that you need to know more than the basics of Gentran, as you will have to upgrade PI, not Gentran.
Just check the Homepage of Gentran to find an overview about it:
http://www.sterlingcommerce.com/products/b2b-integration/sterling-integrator/
or find more information with google.

Reading Contents of File and displaying output

I'm trying to read the contents of a file, then loop through the contents, perform some formatting, and display the output. Should I read the file into an array? What is the best approach? Thanks in advance.

Depends. Is it a text file? Can you format each line independent of others? If so, you can just read one line at a time (BufferedReader) and pass it to wherever the display is. If you need to work on the file as a whole, then you need read it all at once.

Install BI Content on Test and Transport

Hi,
how do you make sure that something that works on your testsystem will also work on the
production system? For example if I install some objects from BI Content, and everything works fine on the test system, and now I transport these few installed objects on production system how do I know if everything else was transported before?
I mean I can compare both systems, but then I have to check each object on test and production system
to know if everything was transported before...Am I wrong?
Thanks
alto

Hi,
If it is already live system then you have to compare each object with production system .
Regards,
Satya

Include a JSP file and pass the parameter

I don't know how to get the parameter value by <jsp:include .../> tag.
My program "main.jsp" like this :
<jsp:include page="head.jsp" flush="true">
<jsp:param name="pageLanguage" value="gb" />
<jsp:param name="frmProcess" value="head.jsp" />
<jsp:param name="extTitle" value="Test Including" />
</jsp:include>
please tell me how to access the parameters in my head.jsp page

I don't know how to get the parameter value by
<jsp:include .../> tag.
My program "main.jsp" like this :
<jsp:include page="head.jsp" flush="true">
<jsp:param name="pageLanguage" value="gb" />
<jsp:param name="frmProcess" value="head.jsp" />
<jsp:param name="extTitle" value="Test Including"
ng" />
</jsp:include>
please tell me how to access the parameters in my
head.jsp pageIn the head.jsp page , code
request.getParameter("pageLanguage") and the value returned will be the value "gb" ...similarly for the other name=value pairs being passed to head.jsp from main.jsp
armreon

Clean Install with Mountain Lion, including backing up files and Parallels

Hello,
I could use all the the advise I can get. Since switching over to the Mac, I have had to retrain my brain on how to do certain installations. I am planning on doing my first reformatting with an Apple and need some advise.
This is my current configuration:
OS X 10.6.8 Snow Leapord
Parallels 5 with Windows XP
My planned configuration:
Mountain Lion (clean install, no upgrade)
Parallels 8 with Windows 7 or 8
Here are my questions:
1. From what I read, I can download Mountain Lion and set it up on a flash drive from the disk utility. I have found some info on that and feel confident in doing so. When I reformat my machine, I do not want to reinstall Snow Leopard. Is the Mountain Lion downlad the full version? Is there no upgrade version, like Windows? Would I need to install Snow Leopard first? Anything that I need to know?
2. Assuming I successfully download and install a clean version of Mountain Lion, I would like to place my backup files back on my computer. For some reason, my Time Machine has been failing on the backups. I am thinknig that I need to get a new backup drive. Also, my backups have been occurring over my wireless network. I may plan on plugging the drive directly into my computer so that it copies over a lot faster. In order to completely restore all of my files carefully, do I run a successful backup of my computer with time machine and then restore it through the disk utility? Since I need to upgrade my Parallels, would I be copying over legacy Parallels files to my new install? If so, would those interfere with my new Parallels?
3. I am assuming that I will have issues reinstalling my old parallels and then doing the upgrade for the upgrade price. Would I have to purchase a full version on Parallels?
4. Any other advise that you can give? I really appreciate everyones help!
Thanks

E30 BMW M3 wrote:
Here are my questions:
1. ... Is the Mountain Lion downlad the full version? Is there no upgrade version, like Windows? Would I need to install Snow Leopard first? Anything that I need to know?
Yes. Mountain Lion you purchase through the App Store is the full version.
No. You do not need to install SL. But there must be a volume, on the internal hard drive, formatted HFS+ with GUID partition scheme.
You can also create or recreate the Volume/Partition launching Disk Utility during the setup process.
2. Assuming I successfully download and install a clean version of Mountain Lion, I would like to place my backup files back on my computer. For some reason, my Time Machine has been failing on the backups. I am thinknig that I need to get a new backup drive. Also, my backups have been occurring over my wireless network. I may plan on plugging the drive directly into my computer so that it copies over a lot faster. In order to completely restore all of my files carefully, do I run a successful backup of my computer with time machine and then restore it through the disk utility? Since I need to upgrade my Parallels, would I be copying over legacy
Parallels files to my new install? If so, would those interfere with my new Parallels?
3. I am assuming that I will have issues reinstalling my old parallels and then doing the upgrade for the upgrade price. Would I have to purchase a full version on Parallels?
Usually I manually recover my documents and preferences from backups. It may seem at first a long and tedious task, but I never had any major issues that other users had in upgrading.
I do have VMware Fusion. I installed only the latest version of the program, with new s/n licence. The first time I executed Fusion, the program asked me to update the old VMs, that I did.
I think you can do the same with Parallels.

Include text file and display from text file

Ok. I'm found the site with the monkey on the the flash thing and all it shows is a name, email and something else and I used it and it works by including a txt file and displaying text from that file as putting down this information
name.text = this.name;
and I can't find the site anymore to get help.
I want to know how to include a PHP script that shows this information like this
text=something I need&username=My Name&email=[email protected]
I want to show this stuff on the flash but every time I execute by using it as localhost/test.php, it will show a sentax error.
This is really stressing me out and I need a lot of help on this stuff.
Can someone help me?

ok. let me describe something else.
there's 3 text boxes that is dynamic text.
one of them is called name
the other one is called email
and last one is called location
in the text file, it shows this for importing to the flash file
name=My Name&email=EMAIL&location=My Location
When viewing the flash file that you created, it shows the name, it shows the email, and it shows location.
When I do it on my own even with a text file, it keeps on saying that there is an error on line 1.
I found a site that shows how to do it and it shows what to put in a text file, and it shows the action script. On the FLA file that he shows me has a monkey on the flash file and it has 3 text boxes that I described above. As well as the text file, it is the same. I used the example and it worked but I can't find the example again. I don't know what happened to the website and I don't know what happened to the download I had but it is not downloaded any more. I have adanced systemcare pro so it clears out my recent web searches and my recent downloads so I can't find it. I did a google search on anything about action scripts. I even did a monkey action script search and I couldn't find it.
It's making me mad and I don't know what to do. This is stressing me out way more than you think.
UPDATE:
I did a google search on a file I found in my www folder and I found it. finally.
Here's the site.
http://www.kirupa.com/developer/mx/externaldata.htm
now, I need to figure out how to load it from a PHP file.

Upload file and link to sales order in SAP via rfc (C#)

Hello all,
In my company we have the possibility to attach files to sales orders, e.g. pdf files with the printing details.
These files are added by the GUI user, this works fine.
Now we have an extra order creation stream in which a pdf file has to be added to the SO without user interaction.
In a previous question I had a little question about the linking, that has been solved, I will post the test program later.
I now can link front end files (pdf's in this case) to the sales orders and it works fine.
Now we are developing a frontend in C# (build by a third party) which creates a sales order via a RFC. We also want that RFC to include the PDF file and link it to the created order.
In the interface of the RFC I included a table with 255 char lines. That is the same as in the example program. the problem is that our partner is yet unable to fill the interface in exact the same way as the example program does, so the linked pdf file is corrupted.
Does anyone have hints how C# should fill the interface table, or how I can change the interface?
code snippid table declaration for pdf table:
IT_PDF     LIKE     ZETEX_TAB_PDF
and
structure ZETEX_TAB_PDF consists of
LINE     CHAR255
the sample program (see other topic on where I got it)
REPORT zzfb_brc LINE-SIZE 260.
* Report Z_RMTIWARI_ATTACH_DOC_TO_BO
* Written By : Ram Manohar Tiwari
* Function   : We need to maintain links between Business Object and
*              the attachment.Attachment document is basiclally a
*              business object of type 'MESSAGE'.In order to maintain
*              links, first the attachment will be crated as Business
*              Object of type 'MESSAGE' using Message.Create method.
*              Need to check if we can also use FM
*              'SO_DOC_INSERT_WITH_ORIG_API1' or SO_OBJECT_INSERT rather
*              than using Message.Create method.
* I took this program and removed all the parts for adding URL's and
* notes.
* Include for BO macros
INCLUDE : <cntn01>.
* Load class.
CLASS cl_binary_relation DEFINITION LOAD.
CLASS cl_obl_object      DEFINITION LOAD.
PARAMETERS:
* Object_a
   p_botype LIKE obl_s_pbor-typeid DEFAULT 'BUS2032',    "SO
   p_bo_id LIKE obl_s_pbor-instid DEFAULT '0000757830', "example number
* Object_b
   p_docty LIKE obl_s_pbor-typeid DEFAULT 'MESSAGE' NO-DISPLAY,
   p_msgtyp LIKE sofm-doctp        DEFAULT 'EXT'     NO-DISPLAY,
* Relationship
   p_reltyp LIKE mdoblrel-reltype DEFAULT 'ATTA'.
TYPES: BEGIN OF ty_message_key,
        foltp     TYPE so_fol_tp,
        folyr     TYPE so_fol_yr,
        folno     TYPE so_fol_no,
        doctp     TYPE so_doc_tp,
        docyr     TYPE so_doc_yr,
        docno     TYPE so_doc_no,
        fortp     TYPE so_for_tp,
        foryr     TYPE so_for_yr,
        forno     TYPE so_for_no,
       END OF ty_message_key.
DATA : lv_message_key TYPE ty_message_key.
DATA : lo_message TYPE swc_object.
DATA : lt_doc_content TYPE STANDARD TABLE OF soli-line,
       ls_doc_content TYPE soli-line.
* Create an initial instance of BO 'MESSAGE' - to call the
* instance-independent method 'Create'.
swc_create_object lo_message 'MESSAGE' lv_message_key.
* Upload the pdf file, for now from the frontend, in the future from
* the server.
DATA:
* dsn(40) TYPE C VALUE '/usr/sap/trans/convert/1.pdf', "server location
l_lines TYPE i. "filelenght
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
    filename   = 'c:tsimple.pdf'
    filetype   = 'BIN'
IMPORTING
    filelength = l_lines
TABLES
    data_tab   = lt_doc_content.
* no exceptions, the file is there in this example
clear l_lines.
loop at lt_doc_content into ls_doc_content.
l_lines = l_lines + 255.
endloop.
compute l_lines =   l_lines
                  + STRLEN( ls_doc_content ).
** the coding for the server input, for later
*OPEN DATASET dsn FOR INPUT IN BINARY MODE.
*IF sy-subrc <> 0.
* EXIT.
*ENDIF.
*READ DATASET dsn INTO ls_doc_content.
*WHILE sy-subrc EQ 0.
* APPEND ls_doc_content TO lt_doc_content.
* READ DATASET dsn INTO ls_doc_content.
*ENDWHILE.
*CLEAR ls_doc_content.
*CLOSE DATASET dsn.
* define container to pass the parameter values to the method call
* in next step.
swc_container lt_message_container.
* Populate container with parameters for method
swc_set_element lt_message_container 'DOCUMENTTITLE' 'Some title'.
swc_set_element lt_message_container 'DOCUMENTLANGU' 'E'.
swc_set_element lt_message_container 'NO_DIALOG'     'X'.
swc_set_element lt_message_container 'DOCUMENTNAME' p_docty.
swc_set_element lt_message_container 'DOCUMENTTYPE' 'PDF'.
swc_set_element lt_message_container 'DocumentSize'    l_lines.
swc_set_element lt_message_container 'DocumentContent' lt_doc_content.
swc_call_method lo_message 'CREATE' lt_message_container.
* Refresh to get the reference of create 'MESSAGE' object for attachment
swc_refresh_object lo_message.
* Get Key of new object
swc_get_object_key lo_message lv_message_key.
* Now we have attachment as a business object instance. We can now
* attach it to our main business object instance.
* Create main BO object_a
DATA: lo_is_object_a TYPE sibflporb.
lo_is_object_a-instid = p_bo_id.
lo_is_object_a-typeid = p_botype.
lo_is_object_a-catid = 'BO'.
* Create attachment BO object_b
DATA: lo_is_object_b TYPE sibflporb.
lo_is_object_b-instid = lv_message_key.
lo_is_object_b-typeid = p_docty.
lo_is_object_b-catid = 'BO'.
*TRY.
CALL METHOD cl_binary_relation=>create_link
EXPORTING
    is_object_a = lo_is_object_a
    is_object_b = lo_is_object_b
    ip_reltype = p_reltyp.
* Check if everything OK...who cares!!
COMMIT WORK.

I woudl suggest you check ORDERS05 IDOC type (ORDCHG message type).
FM - idoc_input_ordchg

How to include a .desktop file for a Java-based PKGBUILD?

I've tried searching a for a while and can't seem to get anywhere with such generic search terms, but I was wondering what would be the proper way to include a .desktop file and possibly an icon for a PKGBUILD that is just a Java-based program? I think it would be a lot more user-friendly for people if I could add the program to their menu when they install it.
As things are right now, the PKGBUILD just creates an executable script in <code>/usr/bin/</code> that runs the jar file with the proper classpath (as per the Java Packaging Guidelines), and there is nothing to actually make/compile (thus no .desktop file directly from the author). The package I plan on adding these features to is jGnash in the AUR if you want to take a look. Thanks!

elasticdog wrote:
It took me a little while to track it down again too You can find the guidelines here: http://www.buchuki.com/misc/archjava.html
If I get bored later tonight, I'll try to convert that document over to the wiki...
Took me a couple days to get bored, but tonight I added and slightly edited the Java Package Guidelines to the Wiki...

What is the best way to include an xml file in JSP?

I have a jsp page that I need to include an xml file. The xml file
          uses an xsl to render the file. What is the best way to include the
          xml file and still maintain the structure of the style sheet?
          Thanks
          Jennifer


          The best way is using the tag lib. If you cannot, but you can use JAXP, you can
          try
          javax.xml.transform.Transformer.transform(Source xmlSource,
          Result outputTarget)
          throws TransformerException
          You construct the transformer with you xsl, use you xml file or DOM to form xmlSource,
          and use JSPWriter "out" to form outputTarget (StreamResult). But if your JSP page
          generates the xml itself, tag lib is the only way.
          [email protected] (Jennifer) wrote:
          >[email protected] (Jennifer) wrote in message news:<[email protected]>...
          >> I have a jsp page that I need to include an xml file. The xml file
          >> uses an xsl to render the file. What is the best way to include the
          >> xml file and still maintain the structure of the style sheet?
          >>
          >> Thanks
          >>
          >> Jennifer
          >
          >Or is there a way to parse the xml file with the jsp page to display
          >the information. I cannot use the Java Standard Tag Libraries as the
          >version of iplanet we are running does not support the JSTL
          >
          >Thanks
          >
          >Jennifer

Problem restoring files and settings after a recovery

I did a system recovery using recovery disks purchased from HP. My files and settings were backed up during the recovery program on an external drive.
There were no instructions included on restoring files and settings after the system recovery. I called HP and a support tech told me to run the backup program on the external drive from the admin profile which I did. However, the program put my old files on my C drive at the following location C:\System Recovery Files\C\Users\Bill.
How do I use these files under my current user profile at C:\Users\Bill?
I suppose I could move my data files, folder by folder, but is there an easier and better way?
My computer is as follows:
HP Pavilion GC673AAR-ABA m8100n, SN MX3733051W
Windows Vista Home Premium 32-bit
This question was solved.
View Solution.

Unfortunately the backup feature within the recovery manager is used as a last resort option for gathering whatever files can be saved, and there is no way to place the files back to where they were previously.
I am an HP employee, but my views are my own and are not endorsed by HP.

Urgent ! How to Zip Folder Contents including files and sub folders.

Hi, i need an urgent help from you regarding zipping the contents of any folder/directory including its sub folders and files to a .zip file. Please provide a code for ot or help me out. It is really very urgent.
Thanx Waiting....

This class can add a string or file to a ZIP. Maybe you can adapt it to do a directory and all its subfolders and files recursively:
package demo;
import java.io.BufferedReader;
import java.io.ByteArrayInputStream;
import java.io.ByteArrayOutputStream;
import java.io.File;
import java.io.FileReader;
import java.io.IOException;
import java.util.zip.GZIPInputStream;
import java.util.zip.GZIPOutputStream;
import java.util.zip.ZipException;
* Demo for using the Zip facilities to compress data
public class ZipDemo
    /** Default buffer size */
    private static final int DEFAULT_BUFFER_SIZE = 4096;
     * Compress a string
     * @param uncompressed string
     * @return byte array containing compressed data
     * @throws IOException if the deflation fails
    public static final byte [] compress(final String uncompressed) throws IOException
        ByteArrayOutputStream baos = new ByteArrayOutputStream();
        GZIPOutputStream zos        = new GZIPOutputStream(baos);
        byte [] uncompressedBytes   = uncompressed.getBytes();
        zos.write(uncompressedBytes, 0, uncompressedBytes.length);
        zos.close();
        return baos.toByteArray();
     * Uncompress a previously compressed string;
     * this method is the inverse of the compress method.
     * @param byte array containing compressed data
     * @return uncompressed string
     * @throws IOException if the inflation fails
    public static final String uncompress(final byte [] compressed) throws IOException
        String uncompressed = "";
        try
            ByteArrayInputStream bais   = new ByteArrayInputStream(compressed);
            GZIPInputStream zis         = new GZIPInputStream(bais);
            ByteArrayOutputStream baos = new ByteArrayOutputStream();
            int numBytesRead            = 0;
            byte [] tempBytes           = new byte[DEFAULT_BUFFER_SIZE];
            while ((numBytesRead = zis.read(tempBytes, 0, tempBytes.length)) != -1)
                baos.write(tempBytes, 0, numBytesRead);
            uncompressed = new String(baos.toByteArray());
        catch (ZipException e)
            e.printStackTrace(System.err);
        return uncompressed;
     * Uncompress a previously compressed string;
     * this method is the inverse of the compress method.
     * Implemented in terms of the byte array version.
     * @param string containing compressed data
     * @return uncompressed string
     * @throws IOException if the inflation fails
    public static final String uncompress(final String compressed) throws IOException
        return ZipDemo.uncompress(compressed.getBytes());
     * Main driver class for ZipDemo
     * @param command line arguments - either string or file name to compress
    public static void main(String [] args)
        try
            for (int i = 0; i < args.length; ++i)
                String uncompressed = "";
                File f              = new File(args);
if (f.exists())
BufferedReader br = new BufferedReader(new FileReader(f));
String line = "";
StringBuffer buffer = new StringBuffer();
while ((line = br.readLine()) != null)
buffer.append(line);
br.close();
uncompressed = buffer.toString();
else
uncompressed = args[i];
System.out.println("length before compression: " + uncompressed.length());
byte [] compressed = ZipDemo.compress(uncompressed);
System.out.println("length after compression : " + compressed.length);
String compressedAsString = new String(compressed);
System.out.println("length of compressed str : " + compressedAsString.length());
byte [] bytesFromCompressedAsString = compressedAsString.getBytes();
boolean isTheSameAs = bytesFromCompressedAsString.equals(compressed);
System.out.println("compressed bytes are " + (isTheSameAs ? "" : "not ") + "the same as from String");
System.out.println("length of bytesFrom...: " + bytesFromCompressedAsString.length);
String restored = ZipDemo.uncompress(compressed);
System.out.println("length after decompress : " + restored.length());
isTheSameAs = restored.equals(uncompressed);
System.out.println("original is " + (isTheSameAs ? "" : "not ") + "the same as the restored");
String restoredFromString = ZipDemo.uncompress(compressedAsString);
isTheSameAs = restoredFromString.equals(uncompressed);
System.out.println("original is " + (isTheSameAs ? "" : "not ") + "the same as the restored from string");
catch (Exception e)
e.printStackTrace(System.err);
MOD

Hi all, need data file and co file after single transport in 6.4 or 6.7

hi all
following is the requirement
To process/compile the attached programs (given below) in 6.4/7 Kernel (SAP 6.4 version or 6.7 version )and send a single transport (Data File and Co File).
these data file and co file are flat files.
CAN ANYONE HELP ME GETTING THESE FLAT FILES. I need these flat files urgently.
WHAT U HAVE TO DO IS:
IF U HAVE 6.4 OR 6.7 VERSION, JUST TRANSPORT FOLLOWING 10 PROGRAMS IN SINGLE TRANSPORT IN TESTING SYSTEM OR DEVELOPEMENT SYSTEM AND AFTER GETTING DATA FILE AND CO FILE U CAN REVERT THE TRANSPORT.
Programs files are as follows: (total number of prog is 10)
1.
FUNCTION Z_3N_CKS_EXIST_USER .
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" VALUE(CKSMDTID) TYPE USR02-MANDT DEFAULT SY-MANDT
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
*" EXCEPTIONS
*" USER_DONT_EXIST
*" USER_EXISTS
FUNCTION TO CHECK IF USER EXISTS
CLEAR RCODE.
CALL FUNCTION 'USER_EXISTS'
EXPORTING
BNAME = CKSUSRID
CLIENT = CKSMDTID
EXCEPTIONS
USER_DONT_EXIST = 1
USER_EXISTS = 0.
RCODE = SY-SUBRC.
ENDFUNCTION.
2.
FUNCTION Z_3N_CKS_LOCKSTATE.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
FUNCTION TO OBTAIN THE CURRENT LOCK STATUS FOR A USER
*{ PASSGOAPR06
*\DATA:LOCKSTATE(50) type c,
*\C_LOCKED_BY_ADMIN like usr02-uflag.
*\tables:usr02.
DATA:LOCKSTATE(50) type c.
*} PASSGOAPR06
CLEAR: RCODE, LOCKSTATE.
SELECT SINGLE * FROM USR02 WHERE BNAME = CKSUSRID.
IF SY-SUBRC <> 0.
RCODE = 01. "No such User
EXIT.
ENDIF.
*{ PASSGOAPR06
IF USR02-UFLAG Z C_LOCKED_BY_ADMIN AND
USR02-UFLAG Z C_LOCKED_BY_FAILED_LOGON.
LOCKSTATE = 'UNLOCKED'.
RCODE = 00.
ELSE.
IF USR02-UFLAG O C_LOCKED_BY_FAILED_LOGON.
LOCKSTATE = 'LOCKED_BY_FAILED_LOGON'.
RCODE = 02.
ENDIF.
IF USR02-UFLAG O C_LOCKED_BY_ADMIN.
LOCKSTATE = 'LOCKED_BY_ADMIN'.
RCODE = 02.
ENDIF.
ENDIF.
uflag = usr02-uflag.
IF UFLAG Z C_LOCKED_BY_ADMIN AND
UFLAG Z C_LOCKED_BY_FAILED_LOGON.
LOCKSTATE = 'UNLOCKED'.
RCODE = 00.
ELSE.
IF UFLAG O C_LOCKED_BY_FAILED_LOGON.
LOCKSTATE = 'LOCKED_BY_FAILED_LOGON'.
RCODE = 02.
ENDIF.
IF UFLAG O C_LOCKED_BY_ADMIN.
LOCKSTATE = 'LOCKED_BY_ADMIN'.
RCODE = 02.
ENDIF.
ENDIF.
*} PASSGOAPR06
ENDFUNCTION.
3.
FUNCTION Z_3N_CKS_PWDCHG_INITIAL.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
*" TABLES
*" RETURN STRUCTURE BAPIRET2
FUNCTION TO INITIALISE USERs PASSWORD, USER WILL BE FORCED
TO CHANGE PASSWORD ON NEXT LOGIN
CLEAR: USR02, RCODE.
SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.
IF SY-SUBRC <> 0.
RCODE = 01.
else.
CALL FUNCTION 'BAPI_USER_CHANGE'
EXPORTING
USERNAME = CKSUSRID
PASSWORD = CKSUSRPWD
PASSWORDX = 'X'
TABLES
RETURN = RETURN.
loop at return.
if return-type eq 'E' or return-type eq 'A'.
rcode = 13.
endif.
endloop.
endif.
ENDFUNCTION.
4.
FUNCTION Z_3N_CKS_VERIFY_USER.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE RSYST-BNAME
*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE OPTIONAL
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
FUNCTION TO VALIDATE A USER
*{ PASSGOAPR06
TABLES:USR02.
CLEAR: USR02, RCODE.
SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.
IF SY-SUBRC = 4.
RCODE = 01. "no such user
EXIT.
ELSEIF CKSUSRPWD = SPACE.
RCODE = 03. "invalid old password
EXIT.
ELSE.
CALL FUNCTION 'SUSR_LOGIN_CHECK_RFC'
EXPORTING
BNAME = CKSUSRID
PASSWORD = CKSUSRPWD
EXCEPTIONS
WAIT = 1
USER_LOCKED = 2
USER_NOT_ACTIVE = 3
PASSWORD_EXPIRED = 4
WRONG_PASSWORD = 5
NO_CHECK_FOR_THIS_USER = 6
INTERNAL_ERROR = 7
OTHERS = 8
CASE SY-SUBRC.
WHEN '2'. RCODE = 02. "user disabled/blocked
WHEN '3'. RCODE = 02. "user disabled/blocked
WHEN '4'. RCODE = 03. "invalid old password
WHEN '5'. RCODE = 03. "invalid old password
WHEN '8'. RCODE = 12. "internal error
ENDCASE.
ENDIF.
*} PASSGOAPR06
ENDFUNCTION.
5.
*& Include ZMS01JTOP *
PROGRAM MS01JTOP MESSAGE-ID 01 LINE-SIZE 132. "Berechtigungsdatenpflege
13.08.93
INCLUDE MS01CTP2.
INCLUDE MS01CTCO.
TABLES: XU200, XU213, XU310, XU350, XU390, XU400.
TABLES: TSTC, TSP03, TPARA, TPARAT.
TABLES: *USR01, *USR03, USR15.
TABLES: SOUD, SOUD3.
*ABLES: ZCSA, ADRS.
*{ PASSGOAPR06
TABLES: usr02.
DATA: uflag type x.
DATA: begin of return occurs 0.
INCLUDE structure bapiret2.
DATA: end of return.
DATA calling_cksusrid like usr02-bname.
DATA: init_pass like BAPIPWD.
INCLUDE USER_CONSTANTS.
*} PASSGOAPR06
CONTROLS TC213 TYPE TABLEVIEW USING SCREEN 213.
CONTROLS TC520 TYPE TABLEVIEW USING SCREEN 350.
DATA: COPYOK TYPE I,
RENAMEOK TYPE I,
DATFM1,
DATFM2,
DATFM3,
DATFM4,
DCPFM1,
DCPFM2,
USERNAME LIKE USR01-BNAME,
LOCK,
UNLO,
STATFLAG TYPE I VALUE 0,
NAVIFLAG TYPE I VALUE 0,
PARTOPIX TYPE I,
PARFILL TYPE I,
PARAMETER LIKE USR05-PARVA,
PARID LIKE USR05-PARID,
PARLOOP LIKE SY-STEPL,
SHOW_ONLY VALUE ' ',
INTPRO_LOADED TYPE I VALUE 0,
EXT_SECURITY VALUE ' '.
DATA: H_201_USGRP LIKE USGRP-USERGROUP,
H_201_VALID TYPE C,
CC201 LIKE SY-CUCOL VALUE 2,
CR201 LIKE SY-CUROW VALUE 6,
SAVE_LINE201 LIKE SY-LILLI VALUE 1,
SAVE_LSIND201 LIKE SY-LSIND VALUE 1.
DATA: OFFICENAME LIKE SOUD-USRNAM.
DATA: BEGIN OF NAME_IN.
INCLUDE STRUCTURE SOUD3.
DATA: END OF NAME_IN.
DATA: BEGIN OF NAME_OUT.
INCLUDE STRUCTURE SOUD3.
DATA: END OF NAME_OUT.
DATA: BEGIN OF EMPTYPROF OCCURS 2.
INCLUDE STRUCTURE USREF.
DATA: END OF EMPTYPROF.
DATA: BEGIN OF PROFILES OCCURS 10.
INCLUDE STRUCTURE USREF.
DATA: END OF PROFILES.
DATA: MAXPAR TYPE I VALUE 300.
DATA: BEGIN OF TABPAR OCCURS 300,
PARID LIKE USR05-PARID,
PARVA LIKE USR05-PARVA,
END OF TABPAR.
DATA: BEGIN OF DELTAB OCCURS 50,
USGRP LIKE USR02-CLASS,
END OF DELTAB.
DATA: BEGIN OF ADDTAB OCCURS 50,
USGRP LIKE USR02-CLASS,
END OF ADDTAB.
DATA: BEGIN OF ADDRESS_DATA.
INCLUDE STRUCTURE SADRP_USR.
DATA: END OF ADDRESS_DATA.
DATA:
CLEAR TYPE X VALUE '00'.
*ATA: BEGIN OF ADRSDATEN.
INCLUDE STRUCTURE ADRS.
*ATA: END OF ADRSDATEN.
06.10.95 Tosun
DATA 930_FLAG.
"$$
6.
FUNCTION Z_3N_CKS_LOCK_USER.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
CLEAR RCODE.
*{ PASSGOAPR06
*\ PERFORM LOCK_USER IN PROGRAM ZSAPMS01J USING CKSUSRID.
*\ IF SY-SUBRC <> 0.
*\ RCODE = SY-SUBRC.
*\ EXIT.
*\ ELSE.
*\ COMMIT WORK.
*\ ENDIF.
the report (form) is dumping.
so we try it with the correct BAPI
CALL FUNCTION 'BAPI_USER_LOCK'
EXPORTING
USERNAME = CKSUSRID
TABLES
RETURN = return
IF return-type <> 'S'.
RCODE = '8'.
rollback work.
EXIT.
ENDIF.
*} PASSGOAPR06
ENDFUNCTION.
7.
FUNCTION Z_3N_CKS_PWDCHG_DIRECT.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
*" TABLES
*" RETURN STRUCTURE BAPIRET2
FUNCTION TO CHANGE USERs PASSWORD
Password is initialised to a fixed value,
to avoid having to provide the valid old password
If the password change fails, the change is
rolled back - this is required because
BAPI_USER_CHANGE does an internal commit.
CLEAR: USR02, RCODE.
DATA: L_TIME LIKE SY-UZEIT,
ZLIN TYPE I.
*{ PASSGOAPR06
calling_cksusrid = cksusrid. "Save calling userid
init_pass = 'INITPASS'.
*} PASSGOAPR06
do 1 times.
SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.
IF SY-SUBRC <> 0.
RCODE = 1.
else.
* Change login to initpass.
CALL FUNCTION 'BAPI_USER_CHANGE'
EXPORTING
USERNAME = CKSUSRID
*{ PASSGOAPR06
*\ PASSWORD = 'INITPASS'
PASSWORD = init_pass
*} PASSGOAPR06
PASSWORDX = 'X'
TABLES
RETURN = RETURN.
* Evaluate return table, if not success, rcode = 13
describe table return lines zlin.
IF zlin > 0.
IF return-type ne 'S'.
rcode = 13.
exit.
ENDIF.
ENDIF.
* Wait 1 second, otherwise table ush02 gets the same key as before.
* Not very good, but its the only way, because the wait up to
* statement includes a db-commit.
L_TIME = sy-uzeit.
WHILE L_TIME = sy-uzeit.
GET TIME.
ENDWHILE.
* Change 'INITPASS' to input login
CALL FUNCTION 'SUSR_USER_CHANGE_PASSWORD_RFC'
EXPORTING
BNAME = CKSUSRID
PASSWORD = 'INITPASS'
NEW_PASSWORD = CKSUSRPWD
NEW_BCODE = '0000000000000000'
NEW_CODVN = ' '
EXCEPTIONS
CHANGE_NOT_ALLOWED = 1
PASSWORD_NOT_ALLOWED = 2
INTERNAL_ERROR = 3
CANCELED_BY_USER = 4
OTHERS = 5.
case sy-subrc.
when '0'. rcode = 0.
when '1'. rcode = 2.
when '2'. rcode = 4.
when '3'. rcode = 12.
when '4'. rcode = 2.
when '5'. rcode = 12.
ENDCASE.
ENDIF.
exit. "end of do 1 times "
enddo.
* rollback if it didn't work
if not rcode is initial.
rollback work.
endif.
ENDFUNCTION.
8.
FUNCTION Z_3N_CKS_UNLOCK_USER.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
CLEAR RCODE.
*{ PASSGOAPR06
*\ PERFORM UNLOCK_USER IN PROGRAM ZSAPMS01J USING CKSUSRID.
*\ IF SY-SUBRC <> 0.
*\ RCODE = SY-SUBRC.
*\ EXIT.
*\ ELSE.
*\ COMMIT WORK.
*\ ENDIF.
the report (form) is dumping.
so we try it with the correct BAPI
CALL FUNCTION 'BAPI_USER_UNLOCK'
EXPORTING
USERNAME = CKSUSRID
TABLES
RETURN = return
IF return-type <> 'S'.
RCODE = '8'.
rollback work.
EXIT.
ENDIF.
*} PASSGOAPR06
ENDFUNCTION.
9.
*& Include ZMS01JO10 *
MS01JO10 Module before Output
14.05.93
MODULE D150_SELECT *
Einen Eintrag aus der Liste uebernehmen. *
MODULE D150_SELECT OUTPUT.
IF SELE = 1.
IF SY-LILLI < 3.
MESSAGE S209.
ELSE.
IF USRFLAG = 10 AND SY-LILLI = 3.
MESSAGE S209.
ELSE.
IF USRFLAG = 10.
XU150-VON = SY-LISEL.
ELSE.
COUNTX = PUSR - 1.
ASSIGN SY-LISEL+COUNTX(12) TO <TEXT>. " unicode
WRITE <TEXT> TO XU150-VON.
ENDIF.
ENDIF.
ENDIF.
SELE = 0.
ENDIF.
IF FERTIG = 2.
FCODE = 'BACK'.
SUPPRESS DIALOG.
ENDIF.
ENDMODULE.
MODULE D150_SETSTATUS *
PF-Status setzen *
MODULE D150_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 150.
XU150-SELPROF = XU150-SELFEST = XU150-SELADRE = XU150-SELPARA = 'X'.
XU150-SELMENU = 'X'.
ENDMODULE.
MODULE D155_SETSTATUS *
PF-Status setzen *
MODULE D155_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 155.
ENDMODULE.
MODULE D200_SELECT *
Einen Eintrag aus der Liste ins Dynpro uebernehmen *
MODULE D200_SELECT OUTPUT.
IF SELE = 1.
IF SY-LILLI < 3.
MESSAGE S209.
ELSE.
XU200-XUSER = SY-LISEL.
ENDIF.
SELE = 0.
ENDIF.
IF FCODE2 = 'USER' OR FCODE2 = 'FEST' OR FCODE2 = 'ADRE' OR
FCODE2 = 'PARA' OR FCODE2 = 'ADMI' OR FCODE2 = 'RESE' OR
FCODE2 = 'N '.
SUPPRESS DIALOG.
ENDIF.
PERFORM SET_STATUS USING 200.
ENDMODULE.
MODULE D213_VALOUT *
Festwerte auf das Dynpro schreiben. *
MODULE D213_VALOUT OUTPUT.
DEL = 0.
XU213-DIA = '.'.
XU213-ODC = '.'.
XU213-BDC = '.'.
XU213-CPIC = '.'.
XU213-BATCH = '.'.
CASE USR02-USTYP.
WHEN TYPDIA.
XU213-DIA = 'X'.
WHEN TYPBATCH.
XU213-BATCH = 'X'.
WHEN TYPCPIC.
XU213-CPIC = 'X'.
WHEN TYPBDC.
XU213-BDC = 'X'.
WHEN TYPODC.
XU213-ODC = 'X'.
ENDCASE.
IF USR02-LTIME <> SPACE AND USR02-LTIME <> '000000'.
LOOP AT SCREEN.
CASE SCREEN-GROUP1.
WHEN 'MOD'.
SCREEN-INVISIBLE = '1'.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
SET CURSOR FIELD 'USR02-CLASS'.
IF F <> ' ' AND L <> 0.
SET CURSOR FIELD F LINE L.
ENDIF.
CODEFLAG = 1.
ELSE.
CLEAR XU213-BCODE.
CLEAR XU213-BCODE2.
IF USR02-BCODE <> '0000000000000000' AND BCODE_C = SPACE.
CODEFLAG = 0.
ENDIF.
IF CODEFLAG = -2.
SET CURSOR FIELD 'XU213-BCODE'.
MESSAGE S290.
ELSE.
SET CURSOR FIELD 'USR02-CLASS'.
IF F <> ' ' AND L <> 0.
SET CURSOR FIELD F LINE L.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
MODULE D213_SELECT *
Einen Eintrag aus der Liste uebernehmen. *
MODULE D213_SELECT OUTPUT.
IF SELE = 1.
IF SY-LILLI < 4.
MESSAGE S209.
ELSE.
ASSIGN SY-LISEL(PROFLNG) TO <TEXT>.
MOVE <TEXT> TO XU213-PROFILE.
PERFORM AUTH_CHECK USING OBJ_PROF
XU213-PROFILE SPACE ACT_INCLUDE RC.
IF RC <> 0.
MESSAGE S478 WITH XU213-PROFILE.
ELSE.
FOUND = 0.
LOOP AT TABUSR.
IF TABUSR-PROFILE = XU213-PROFILE.
FOUND = 1.
MESSAGE S268 WITH XU213-PROFILE.
EXIT.
ENDIF.
ENDLOOP.
IF FOUND = 0.
PERFORM EXIST_USR10
USING XU213-PROFILE AKTIVATED SPACE RC.
CLEAR TABUSR.
TABUSR-PROFILE = XU213-PROFILE.
IF USR10-TYP = COLECTPROF.
TABUSR-SAMPROF = 'X'.
ENDIF.
Profiletext lesen
CLEAR USR11.
SELECT SINGLE * FROM USR11
WHERE LANGU = SY-LANGU
AND PROFN = TABUSR-PROFILE
AND AKTPS = AKTIVATED.
TABUSR-PTEXT = USR11-PTEXT.
APPEND TABUSR.
XU213-FILL = XU213-FILL + 1.
IF XU213-FILL >= MAXUSR.
MESSAGE S269.
ENDIF.
UCHANGE = 1.
PERFORM NOTSAVED.
ENDIF.
ENDIF.
ENDIF.
SELE = 0.
ENDIF.
PERFORM SET_STATUS USING 213.
PERFORM MESSAGE.
IF EXT_SECURITY <> '1'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'EXT'.
SCREEN-INPUT = '0'.
SCREEN-INVISIBLE = '1'.
SCREEN-ACTIVE = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
MODULE D213_PROFOUT *
Profiles auf den Bildschirm ausgeben. *
MODULE D213_PROFOUT OUTPUT.
include <symbol>.
COUNTX = XU213-TOPIX + SY-STEPL - 1. "Bild-oben-Pos. in Tab. feststell
IF COUNTX <= XU213-FILL. "Am Ende der Tabelle ?
READ TABLE TABUSR INDEX COUNTX. "Tab. lesen
IF SY-SUBRC = 0.
MOVE-CORRESPONDING TABUSR TO XU213. "Daten auf den Bildschirm
xu213-samprof = sym_documents.
ENDIF.
ENDIF.
USRLOOP = SY-LOOPC.
ENDMODULE.
MODULE D254_SUPPRESS *
Dialog fuer Dynpro 254 unterdruecken *
MODULE D254_SUPPRESS OUTPUT.
SUPPRESS DIALOG.
ENDMODULE.
MODULE D310_SETSTATUS *
PF-Status setzen *
MODULE D310_SETSTATUS OUTPUT.
IF SHOW_ONLY = SPACE.
PERFORM SET_STATUS USING 310.
IF STATFLAG = 1.
LOOP AT SCREEN.
IF SCREEN-NAME = 'USR01-CATTKENNZ '.
AUTHORITY-CHECK OBJECT 'S_DEVELOP'
ID 'DEVCLASS' DUMMY
ID 'OBJTYPE' FIELD 'SCAT'
ID 'OBJNAME' DUMMY
ID 'P_GROUP' DUMMY
ID 'ACTVT' FIELD '70'.
IF SY-SUBRC <> 0.
SCREEN-INPUT = 0.
SCREEN-INVISIBLE = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSE.
PERFORM SET_STATUS USING 330.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'RO '.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR FCODE.
ENDMODULE.
MODULE D310_FORMAT_OUT. *
Datumsformat und Dezimalpunktformat entsprechend Daten aus usr01 *
ankreuzen. *
MODULE D310_FORMAT_OUT OUTPUT.
XU310-DATFM1 = ' '.
XU310-DATFM2 = ' '.
XU310-DATFM3 = ' '.
XU310-DATFM4 = ' '.
XU310-DATFM5 = ' '.
XU310-DCPFM1 = ' '.
XU310-DCPFM2 = ' '.
XU310-SPDB1 = ' '.
XU310-SPDA1 = ' '.
IF USR01-DATFM < 1 OR USR01-DATFM > 5.
CALL 'C_SAPGPARAM'
ID 'NAME' FIELD 'zcsa/moddatfm'
ID 'VALUE' FIELD USR01-DATFM.
ENDIF.
CASE USR01-DATFM.
WHEN 1.
XU310-DATFM1 = 'X'.
WHEN 2.
XU310-DATFM2 = 'X'.
WHEN 3.
XU310-DATFM3 = 'X'.
WHEN 4.
XU310-DATFM4 = 'X'.
WHEN 5.
XU310-DATFM5 = 'X'.
WHEN OTHERS.
XU310-DATFM1 = 'X'.
ENDCASE.
IF USR01-DCPFM = ' '.
XU310-DCPFM1 = 'X'.
ELSE.
XU310-DCPFM2 = 'X'.
ENDIF.
IF USR01-SPDB = 'G'.
XU310-SPDB1 = 'X'.
ENDIF.
IF USR01-SPDA = 'D'.
XU310-SPDA1 = 'X'.
ENDIF.
CLEAR TSP03.
SELECT SINGLE * FROM TSP03
WHERE PADEST = USR01-SPLD.
ENDMODULE.
MODULE D320_SETSTATUS *
PF-Status setzen *
MODULE D320_SETSTATUS OUTPUT.
IF SHOW_ONLY = SPACE.
PERFORM SET_STATUS USING 320.
ELSE.
PERFORM SET_STATUS USING 340.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'RO '.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR FCODE.
ENDMODULE.
MODULE D330_SETSTATUS *
PF-Status setzen *
MODULE D330_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 330.
ENDMODULE.
MODULE D340_SETSTATUS *
PF-Status setzen *
MODULE D340_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 340.
ENDMODULE.
MODULE D350_SETSTATUS *
PF-Status setzen *
MODULE D350_SETSTATUS OUTPUT.
IF SELE = 1.
IF SY-LILLI < 3.
MESSAGE S209.
ELSE.
TABPAR-PARID = SY-LISEL.
APPEND TABPAR.
PARFILL = PARFILL + 1.
ENDIF.
SELE = 0.
ENDIF.
IF SHOW_ONLY = SPACE.
PERFORM SET_STATUS USING 350.
ELSE.
PERFORM SET_STATUS USING 360.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'RO '.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR FCODE.
ENDMODULE.
MODULE D350_PAROUT *
Parameter auf den Bildschirm ausgeben. *
MODULE D350_PAROUT OUTPUT.
COUNTX = PARTOPIX + SY-STEPL - 1. "Bild-oben-Pos. in Tab. feststell
IF COUNTX <= PARFILL. "Am Ende der Tabelle ?
READ TABLE TABPAR INDEX COUNTX. "Tab. lesen
IF SY-SUBRC = 0.
MOVE-CORRESPONDING TABPAR TO XU350. "Daten auf den Bildschirm
SELECT SINGLE * FROM TPARAT
WHERE SPRACHE = SY-LANGU
AND PARAMID = TABPAR-PARID.
ENDIF.
ENDIF.
PARLOOP = SY-LOOPC.
ENDMODULE.
MODULE D351_SETSTATUS *
PF-Status setzen *
*ODULE D351_SETSTATUS OUTPUT.
IF SELE = 1.
IF SY-LILLI < 3.
MESSAGE S209.
ELSE.
XU350-PARID = SY-LISEL.
ENDIF.
SELE = 0.
ENDIF.
PERFORM SET_STATUS USING 352.
SUPPRESS DIALOG.
*NDMODULE.
MODULE D360_SETSTATUS *
PF-Status setzen *
MODULE D360_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 360.
ENDMODULE.
MODULE D390_STATUS *
PF-Status setzen. *
MODULE D390_STATUS OUTPUT.
data uflag_x type x. " unicode
SELECT SINGLE * FROM USR02
WHERE BNAME = XU200-XUSER.
uflag_x = USR02-UFLAG. " unicode
IF SY-SUBRC <> 0.
XU390-STATTEXT = ' Nicht vorhanden.'(222).
ELSE.
IF uflag_x Z YULOCK AND uflag_x Z YUSLOC. " unicode
PERFORM SET_STATUS USING 390.
XU390-STATTEXT = ' Nicht gesperrt. '(223).
ELSE.
IF uflag_x O YULOCK. " unicode
PERFORM SET_STATUS USING 391.
XU390-STATTEXT = ' Durch Falschanmeldungen gesperrt !!!'(224).
ENDIF.
IF uflag_x O YUSLOC. " unicode
PERFORM SET_STATUS USING 391.
XU390-STATTEXT = ' Durch Systemmanager gesperrt !!!'(225).
ENDIF.
ENDIF.
ENDIF.
LOCK = '.'.
UNLO = '.'.
ENDMODULE.
MODULE D400_CLEAR_CODE *
Passwortfeld loeschen. *
MODULE D400_CLEAR_CODE OUTPUT.
CLEAR XU400-NEWCODE.
CLEAR XU400-NEWCODE1.
ENDMODULE.
MODULE D400_SETSTATUS *
PF-Status setzen *
MODULE D400_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 400.
ENDMODULE.
MODULE D500_SUPPRESS *
Dynpro unterdruecken *
MODULE D500_SUPPRESS OUTPUT.
SET PF-STATUS '0200'.
SUPPRESS DIALOG.
ENDMODULE.
*& Module D214_SETSTATUS OUTPUT
MODULE D214_SETSTATUS OUTPUT.
SET PF-STATUS '0214'.
SET TITLEBAR '214'.
ENDMODULE. " D214_SETSTATUS OUTPUT
*& Module D216_PROFOUT OUTPUT
MODULE D216_PROFOUT OUTPUT.
COUNTX = XU213-TOPIX2 + SY-STEPL - 1. "Bild-oben-Pos. in Tab. festst
IF COUNTX <= XU213-FILL2. "Am Ende der Tabelle ?
READ TABLE INTPRO2 INDEX COUNTX. "Tab. lesen
IF SY-SUBRC = 0.
MOVE-CORRESPONDING INTPRO2 TO XU213. "Daten auf den Bildschirm
ENDIF.
ENDIF.
ENDMODULE. " D216_PROFOUT OUTPUT
*& Module D504_STATUS OUTPUT
MODULE D504_STATUS OUTPUT.
SET PF-STATUS '0504'.
SET TITLEBAR '604'.
ENDMODULE. " D504_STATUS OUTPUT
*& Module D217_SETSTATUS
MODULE D217_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 217.
PERFORM MESSAGE.
IF FERTIG = -1.
SUPPRESS DIALOG.
ENDIF.
ENDMODULE. " D217_SELECT OUTPUT
*& Module D202_SETSTATUS OUTPUT
text *
MODULE D202_SETSTATUS OUTPUT.
SET PF-STATUS '0203'.
SET TITLEBAR '203'.
ENDMODULE. " D202_SETSTATUS OUTPUT
*& Module D200_LESEN_MEMORY OUTPUT
Schnittstelle mit RSUSR008
call transaction su01 and skip first screen
MODULE D200_LESEN_MEMORY OUTPUT.
IMPORT FCODE FROM MEMORY ID 'OK_CODE'.
EXPORT FCODE FROM SPACE TO MEMORY ID 'OK_CODE'.
ENDMODULE. " D200_LESEN_MEMORY OUTPUT
"$$
10.
*& Report ZSAPMS01J *
23.10.92
set extended check off.
INCLUDE ZMS01JTOP.
*INCLUDE MS01JTOP. "Datendeklarationen
INCLUDE ZMS01JO10.
*INCLUDE MS01JO10. "PBO-Module
*INCLUDE ZMS01JI10.
INCLUDE MS01JI10. "PAI-Module
*INCLUDE ZMS01JF10.
INCLUDE MS01JF10. "Forms
*INCLUDE ZMS01JR10.
INCLUDE MS01JR10. "Reporting
*INCLUDE ZMS01CC10.
INCLUDE MS01CC10. "Checks
*INCLUDE ZMS01CD10.
INCLUDE MS01CD10. "Datenzugriffe
set extended check on.
see there are in total 10 prog that should go in one trasport order. this will creat data file and co file. these are flat files. i want these flat files.
do it in developement server or testing server and then delete it or revert it once you get data file or co file.
i will greatful to u if you could send me these flat files.
thanx in advance
raj

hi all,
this can be done in 4.6 version also.
thanx for spending time on this.
thanx&regards
raj

Including Content fromtext file and transporting

Similar Messages

Maybe you are looking for