Writing a text file in Application layer (through AL11) via a batch program

Hi ,
I want to write a text doc everytime a batch(background) program is run in al11 in the specified directory. It is working fine in development server. But when itransported it into quality , its working some times and many times its not working , ie not creating a new text doc or overwriting the existing doc even for small amount of data.
here is my code snippet: (i have not provided all the loop and concatenate part since its repetitive but whole covp is being passed)
CLASS CL_ABAP_CHAR_UTILITIES DEFINITION LOAD.
CONSTANTS:C_TAB TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
TRANSLATE P_FILE TO LOWER CASE.
OPEN DATASET P_FILE FOR OUTPUT MESSAGE ZHR_ERROR_MSG
IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC = 0.
    CLEAR LV_STR.
    CONCATENATE TEXT-024 TEXT-010 SY-DATUM TEXT-011 SY-UZEIT
    INTO LV_STR SEPARATED BY SPACE.
    TRANSFER LV_STR TO P_FILE.
LOOP AT IT_COVP INTO WA_COVP.
      LV_WTGBTR = WA_COVP-WTGBTR.
      LV_WOGBTR = WA_COVP-WOGBTR.
      LV_WKGBTR = WA_COVP-WKGBTR.
      LV_WKFBTR = WA_COVP-WKFBTR.
      LV_PAGBTR = WA_COVP-PAGBTR.
      LV_PAFBTR = WA_COVP-PAFBTR.
       LV_K_TIMESTMP = WA_COVP-K_TIMESTMP.
concatenate WA_COVP-KOKRS
      WA_COVP-BELNR
      WA_COVP-BUZEI
      WA_COVP-PERIO
      LV_WTGBTR
      LV_WOGBTR
      LV_WKGBTR
      LV_WKFBTR
      LV_PAGBTR
      LV_PAFBTR
      WA_COVP-LEDNR
      WA_COVP-OBJNR
      WA_COVP-GJAHR
      WA_COVP-WRTTP
      WA_COVP-VERSN INTO LV_DATA SEPARATED BY C_TAB.
      TRANSFER LV_DATA TO P_FILE.
      IF SY-SUBRC NE 0.
        IF SY-BATCH IS INITIAL.
          MESSAGE ZHR_ERROR_MSG TYPE 'E'.
        ENDIF.
      ENDIF.
      LV_TOTAL_RECORDS = LV_TOTAL_RECORDS + 1.
      CLEAR: WA_COVP, LV_DATA.
    ENDLOOP.
CLEAR LV_STR.
    LV_TOTAL_RECORDS_STR = LV_TOTAL_RECORDS.
    CONCATENATE TEXT-025 TEXT-026 LV_TOTAL_RECORDS_STR
    INTO LV_STR SEPARATED BY SPACE.
    TRANSFER LV_STR TO P_FILE.
CLOSE DATASET P_FILE.
FREE: LV_VAR,
        ZHR_ERROR_MSG.
Please suggest

Hi,
One thing that you have to make sure is that you have the exact same path name that you see in AL11. These paths are case sensitive and sometimes named in a funny way to ahve some characters in CAPS and some as small letters. Also check if you have authorizations to the file-folder.
Regards,
Himanshu

Similar Messages

Error in Downloading the Text file on Application Server

Hi All,
          I am working on ECC6.0. I have written a program in whcih I am downloading the text file on
          application server in UTF-8 format. However when I am opening this file in Excel I am getting
          garbage value for some characters(as Excel does not support UTF-8 format). So now I
          want to download the data on application server in text file in non unicode format(Like ANSI or
          other non unicode format) which is supported by excel. When I am writing the code as
          OPEN DATASET DN_FILE FOR OUTPUT IN LEGACY TEXT MODE it is giving me dump saying
          CHARACTER CONVERSION FROM CODE PAGE '4102' to CODEPAGE '1100' NOT POSSIBLE.
          Same in case if I add the code OPEN DATASET DN_FILE FOR OUTPUT IN LEGACY TEXT
          MODE CODE PAGE '8000' is also giving dump.
          So please let me know how can I download the file in non unicode format ?
          Any help would be greatly appricated.
Thanks & Regards
Jitendra Gujarathi.

OPEN DATASET l_filename FOR INPUT IN TEXT MODE ENCODING NON-UNICODE IGNORING CONVERSION ERRORS.
CHECK sy-subrc EQ 0.
DO.
    CLEAR wa_file_content.
    READ DATASET l_filename INTO wa_file_content.
    IF sy-subrc EQ 0.
      APPEND wa_file_content TO it_file_content.
    ELSE.
      EXIT.
    ENDIF.
ENDDO.
CLOSE DATASET l_filename.
t_filedata[] = it_file_content[].
can you use like this.

Sending EMail "Text-File" from Application Server!

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

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

How to load date and time from text file to oracle table through sqlloader

hi friends
i need you to show me what i miss to load date and time from text file to oracle table through sqlloader
this is my data in this path (c:\external\my_data.txt)
7369,SMITH,17-NOV-81,09:14:04,CLERK,20
7499,ALLEN,01-MAY-81,17:06:08,SALESMAN,30
7521,WARD,09-JUN-81,17:06:30,SALESMAN,30
7566,JONES,02-APR-81,09:24:10,MANAGER,20
7654,MARTIN,28-SEP-81,17:24:10,SALESMAN,30my table in database emp2
create table emp2 (empno number,
                  ename varchar2(20),
                  hiredate date,
                  etime date,
                  ejob varchar2(20),
                  deptno number);the control file code in this path (c:\external\ctrl.ctl)
load data
infile 'C:\external\my_data.txt'
into table emp2
fields terminated by ','
(empno, ename, hiredate, etime, ejob, deptno)this is the error :
C:\>sqlldr scott/tiger control=C:\external\ctrl.ctl
SQL*Loader: Release 10.2.0.1.0 - Production on Mon May 31 09:45:10 2010
Copyright (c) 1982, 2005, Oracle. All rights reserved.
Commit point reached - logical record count 5
C:\>any help i greatly appreciated
thanks
Edited by: user10947262 on May 31, 2010 9:47 AM

load data
infile 'C:\external\my_data.txt'
into table emp2
fields terminated by ','
(empno, ename, hiredate, etime, ejob, deptno)Try
load data
infile 'C:\external\my_data.txt'
into table emp2
fields terminated by ','
(empno, ename, hiredate, etime "to_date(:etime,'hh24:mi:ss')", ejob, deptno)
this is the error :
C:\>sqlldr scott/tiger control=C:\external\ctrl.ctl
SQL*Loader: Release 10.2.0.1.0 - Production on Mon May 31 09:45:10 2010
Copyright (c) 1982, 2005, Oracle. All rights reserved.
Commit point reached - logical record count 5
C:\>
That's not an error, you can see errors within log and bad files.

Problem with saving data in text file in Application server

Hello Experts,
I am trying to save a text file in application server.When I text file have less that 60000 (i.e 59999) records, it saves the file successfully, but if records in text file (saved in application server) is more than 60000 (i.e 60002), it creates a new file at the 60000th record with the continued records.
Can anyone please advise, why it is creating a new file if records are more that 60000. I tested it with 59000 records in my internal table and it is working fine. I have not given any restriction in my program to create a new file if records are more than 60000.
The logic I implemented is the following:
*Open file
open dataset g_accnt_file for output in text mode encoding utf-8.
if sy-subrc = 0.
    clear g_header_record.
*Building header record for Accounting Validation file
    concatenate gc_hdr_desc
                gc_filetype
                gc_sequence
                gc_idntf_refresh
                gc_cmpny_idntf
                gc_accnt_id
                sy-datum
                sy-uzeit
                gc_linde_group
                sy-sysid
                gc_not_used into g_header_record separated by
                                           gc_deliminator.
    transfer g_header_record to g_accnt_file.
*Move Cost center data to file to create a detail record for Accounting
*Validation file
    loop at gt_csks into gs_csks.
*Remove leading Zeros
      call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
        exporting
          input = gs_csks-kostl
        importing
          output = gs_csks-kostl.
*      Overlay gs_csks-kostl with space.
*      SHIFT gs_csks-kostl RIGHT DELETING TRAILING gc_space.
*Prepare Cost Centre String
      perform prepare_costcentre_string.
*Prepare detail record with Company Code & Cost Centre
      perform prepare_detail_record.
      clear:g_detail_record,gs_csks,g_coa.
    endloop.
*Move Order data to file to create a detail record for Accounting
*Validation file
    loop at gt_aufk into gs_aufk.
*Remove leading Zeros
      call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
        exporting
          input = gs_aufk-aufnr
        importing
          output = gs_aufk-aufnr.
*      SHIFT gs_aufk-aufnr RIGHT DELETING TRAILING gc_space.
*Prepare Order String
      perform prepare_order_string.
*Prepare detail record with Company Code & Order
      perform prepare_detail_record.
      clear:g_detail_record,gs_aufk,g_coa.
    endloop.
*Move WBS data to file to create a detail record for Accounting
*Validation file
    loop at gt_prps into gs_prps.
      call function 'CONVERSION_EXIT_ABPSP_OUTPUT'
        exporting
          input = gs_prps-pspnr
        importing
          output = g_wbs_element.
*      SHIFT g_wbs_element RIGHT DELETING TRAILING gc_space.
*Prepare WBS Element String
      perform prepare_wbs_string.
*Prepare detail record with Company Code & WBS Element
      perform prepare_detail_record.
      clear:g_detail_record,gs_prps,g_coa.
    endloop.
*Building trailer record for Accounting Validation file which will
*contain the total number of detail records in file
    concatenate gc_trail_desc
                g_total_count
                into g_trailer_record
                separated by gc_deliminator.
    transfer g_trailer_record to g_accnt_file.
*Close file
    close dataset g_accnt_file.
    if sy-subrc = 0.
      message s036(/lig/fi).
    endif.
endif.
endform.                    " SELECT_DATA
Edited by: Matt on Sep 30, 2010 11:02 AM - added   tags

Hi Pankaj,
Can u check the concatenate statement with one more data. Check the no of lines for a single file.
    concatenate gc_hdr_desc
                gc_filetype
                gc_sequence
                gc_idntf_refresh
                gc_cmpny_idntf
                gc_accnt_id
                sy-datum
                sy-uzeit
                gc_linde_group
                sy-sysid
                sy-subrc
                gc_not_used into g_header_record separated by
                                           gc_deliminator.
Regards,
Amitava

Download text file from application server to client server.

Hi all,
I am facing a format issue while downloading text file from application server to the client machine.
The issue is that, say I have 6 to 10 lines in my text file in application server. but when i store it on the hard drive,
it shoes all the data in a single line. Where as i need to download data in same format as in application server.
Awaiting for your responses.
Regards,
Jose

Hi,
If we want to upload file data from the application server to the internal table, there is no function module or class static method which we can use, we must wirte the code by ourselves.
1. For the file data which has no seperator between field columns.
PARAMETERS p_file TYPE dxfile-filename.
START-OF-SELECTION.
OPEN DATASET p_file IN TEXT MODE ENCODING DEFAULT FOR INPUT.
DO.
 READ DATASET p_file INTO gds_data.
 IF sy-subrc <> 0.
 EXIT.
 ENDIF.
 APPEND gds_data TO gdt_data.
ENDDO.
CLOSE DATASET p_file.2. For the file data which has tab separator between field columns.
DATA: gds_field_split type gts_data.
FIELD-SYMBOLS: <fs_field> TYPE gts_data.
PARAMETERS p_file TYPE dxfile-filename.
START-OF-SELECTION.
OPEN DATASET prf_file IN TEXT MODE ENCODING DEFAULT FOR INPUT.
DO.
 READ DATASET p_file INTO gds_field.
 SPLIT gds_field AT cl_abap_char_utilities=>horizontal_tab
 INTO TABLE gdt_field_split.
 LOOP AT gdt_field_split into gds_field_split.
 gdf_index = gdf_index + 1.
 ASSIGN COMPONENT gdf_index OF STRUCTURE
 gds_data to <fs_field>.
 IF sy-subrc = 0.
 <fs_field> = gds_field_split.
 ENDIF.
 ENDLOOP.
 APPEND gds_data TO gdt_data.
ENDDO.
CLOSE DATASET p_file.
Thanks & regards,
ShreeMohan

Placing the text file in application server

Hi all,
I am uploading the text file into application server.
the line length is 1028 characters.But in application server i am not able to see whole line.it is showing only some data and reamaining data is not coming.
Please let em know how can we increase the line length in application server.
Regards,
Shoban

SE38 is the ABAP Editor transaction.
Use function module GUI_UPLOAD to create an upload the data.
*Use function module GUI_UPLOAD to create an upload the data.
Example Code >>>
REPORT zuploadtab                    .
PARAMETERS: p_infile LIKE rlgrap-filename
                        OBLIGATORY DEFAULT '/usr/sap/'..
*DATA: ld_file LIKE rlgrap-filename.
DATA: gd_file type string.
*Internal tabe to store upload data
TYPES: BEGIN OF t_record,
    name1 LIKE pa0002-vorna,
    name2 LIKE pa0002-name2,
    age   TYPE i,
    END OF t_record.
DATA: it_record TYPE STANDARD TABLE OF t_record INITIAL SIZE 0,
      wa_record TYPE t_record.
*Internal table to upload data into
DATA: BEGIN OF it_datatab OCCURS 0,
row(500) TYPE c,
END OF it_datatab.
*Text version of data table
TYPES: BEGIN OF t_uploadtxt,
name1(10) TYPE c,
name2(15) TYPE c,
age(5) TYPE c,
END OF t_uploadtxt.
DATA: wa_uploadtxt TYPE t_uploadtxt.
*String value to data in initially.
DATA: wa_string(255) TYPE c.
CONSTANTS: con_tab TYPE x VALUE '09'.
*If you have Unicode check active in program attributes then you will
*need to declare constants as follows:
*class cl_abap_char_utilities definition load.
*constants:
   con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB.
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_INFILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_infile.
CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            def_filename     = p_infile
            mask             = ',*.txt.'
            mode             = 'O'
            title            = 'Upload File'(078)
       IMPORTING
            filename         = p_infile
       EXCEPTIONS
            inv_winsys       = 1
            no_batch         = 2
            selection_cancel = 3
            selection_error = 4
            OTHERS           = 5.
*START-OF-SELECTION
START-OF-SELECTION.
gd_file = p_infile.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = gd_file
      has_field_separator     = 'X' "file is TAB delimited
    TABLES
      data_tab                = it_record
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      OTHERS                  = 17.
    IF sy-subrc NE 0.
      write: 'Error ', sy-subrc, 'returned from GUI_UPLOAD FM'.
      skip.
    endif.
Alternative method, where by you split fields at each TAB after you
have returned the data. No point unless you dont have access to
GUI_UPLOAD but just included for information
CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
           filename        = gd_file
           filetype        = 'ASC'
      TABLES
           data_tab        = it_datatab "ITBL_IN_RECORD[]
      EXCEPTIONS
           file_open_error = 1
           OTHERS          = 2.
IF sy-subrc NE 0.
ELSE.
   LOOP AT it_datatab.
     CLEAR: wa_string, wa_uploadtxt.
     wa_string = it_datatab.
     SPLIT wa_string AT con_tab INTO wa_uploadtxt-name1
                                     wa_uploadtxt-name2
                                     wa_uploadtxt-age.
     MOVE-CORRESPONDING wa_uploadtxt TO wa_record.
     APPEND wa_record TO it_record.
   ENDLOOP.
ENDIF.
*END-OF-SELECTION
END-OF-SELECTION.
*!! Text data is now contained within the internal table IT_RECORD
Display report data for illustration purposes
LOOP AT it_record INTO wa_record.
WRITE:/     sy-vline,
         (10) wa_record-name1, sy-vline,
         (10) wa_record-name2, sy-vline,
         (10) wa_record-age, sy-vline.
ENDLOOP.
Edited by: Nikhil Jathar on Jan 9, 2008 7:38 AM

I am facing problem to get text file from application sever

Hi This is lokesh.
Actually my requirement is to craete sales orders by getting file from other server.for that i have used shell script to connect that server.Ok i am connecting to that different server(not sap server) successfully.
But my problem is getting text file from application SERVER.
That different server people will send the file name as 'DDHHMMSS' (Days,Hours,Minutes,Seconds).
Just suppose if they will send today means that file name will come as 20103025. and with in half an hour if they again send that file file means that file name as '20110025'.
like that file name is always varies.So how can i read that type of text files from the application server.
and one more thing that is there chance to read morethan one text file from application server.
Pls guide me if u know the solution.PLs this requirement is urgent.
Regards,
Lokeshgoud

Hi..,
Just execute this program ... this is for the files received in JUST 3 MINS...
change it according to your requirement !!
data time type sy-uzeit value '100000'. "<<----start time
data file(8) type c value '20'.
do 180 times. " <<----- for 3 minutes
add sy-index to time.
concatenate file time into file.
write / file.
OPEN DATASET FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC EQ 0.
PERFORM READ_DATASET.
ENDIF.
file = '20'.
time = '100000'.
ENDDO.
form read_dataset.
read the file here with the file name FILE.
endform.
regards,
sai ramesh

Writing plain-text files in UTF-8 encoding under MacOSX

Hello forums,
I've run into some problem writing text-files under MacOSX. I've tried several methods of writing, the current one I'm using is as follows;
private void stringToFile(File file, String string) throws IOException
    OutputStream fout = new FileOutputStream(file);
    OutputStream bout = new BufferedOutputStream(fout);
    OutputStreamWriter out = new OutputStreamWriter(bout, "UTF-8");
    out.write(string);
    out.close();
}However, when I open the file letters other than A-Z appear corrupted in Text-Edit, though in BBEdit the file is identified as UTF-8 without BOM. (still corrupt.)
The application uses some components I am not so familiar with, which makes trouble-shooting less of a breeze.
It is a spring-framework web-app, and the string to be written is passed to the application through a HTTPClient.
The string itself is constructed by
MultipartFile content = multipartRequest.getFile(CONTENT_PARAM_NAME);
String contentStr = (content != null) ? new String(content.getBytes(), "UTF-8") : null;and is created client-side by
new FilePart("content", new ByteArrayPartSource("content", strContent.getBytes()), "", "UTF-8")I would appreciate any clues you have hinting towards a solution.
I have tried to isolate parts by f.ex. writing a fixed string (which still would not work properly, which leads me to think that the HTTPClient/Spring part is not to blaim).
Message was edited by:
joakim.back

Good idea,
I'm now ensuring that the hashcode of the clientside and serverside String match, supply the bytes as UTF-8, and write it properly with
private void stringToFile(File file, String string) throws IOException
    BufferedWriter out = new BufferedWriter(
                new OutputStreamWriter(
                            new FileOutputStream(file), "UTF8"));
    out.write(string);
    out.close();
}I adjusted the stringToFile earlier, so I'm not sure wether the old code still works.
TextEdit under MacOSX still view the files as corrupt, but BBEdit and EditPlus under windows view the result fine.
Lessons learned? Beeing very careful about identifying sub-tasks and dealing with them separately.
..ofcourse, my job is not done since the damned applescripts dealing with the output treats the files as TextEdit do, but that's a task for tomorrow.
Thank you for your assistance!

Automator - Loop through a text file and process data through a 3rd party software

Just stumbled on Automator the other day (I am a mac n00b) and would like to automate the processing of a text file, line-by-line, using a third party tool. I would like Automator to loop through the text file one line at a time, copy the string and keep as a variable. Next, place the variable data (copied string) into the text field of the 3rd party software for processing. Once the processing is complete, I would like Automator to fetch the next line/string for processing. I see items like "copy from clipboard" and "variables" within the menu but I am not finding much documentation on how to utilizle this tool. Just hear how potentially powerful it is.
The 3rd party software is not a brand name, just something made for me to process text. I may have to use mouse clicks or tabs + [return] to navigate with Automator. A term I heard on Bn Walldie's itunes video series was "scriptable software" for which I don't think this 3rd party app would be.
Kind regards,
jw

Good news and bad news...
The good news is that it should be entirely possible to automate your workflow.
The bad news is that it will be a nightmare to implement via Automator, if it's even possible.
Automator is, essentially a pretty interface on top of AppleScript/Apple Events, and with the pretty interface comes a certain stranglehold on features. Knowing how to boil rice might make you a cook, but understanding flavor profiles and ingredient combinations can make you a chef, and it's the same with AppleScript and Automator. Automator's good at getting you from points A to B but if there are any bumps in the road (e.g. the application you're using isn't scriptable) then it falls apart.
What I'm getting at is that your requirements are pretty simple to implement in AppleScript because you can get 'under the hood' and do exactly what you want, as opposed to Automator's restricted interface.
The tricky part is that if no one else can see this app it's going to be hard to tell you what to do.
I can give you the basics on reading a file and iterating through the lines of text in it, and I can show you how to 'type' text in any given application, but it may be up to you to put the pieces together.
Here's one way of reading a file and working through each line of text:
-- ask the user for a file:
set theFile to (choose file)
-- read the file contents:
set theFileContents to (read file theFile)
-- break out the lines/paragraphs of text:
set theLines to paragraphs of theFileContents
-- now iterate through those lines, one by one:
repeat with eachLine in theLines
-- code to perform for eachLine goes here
end repeat
Once you have a line of text (eachLine in the above example) you can 'type' that into another application via something like:
tell application "AppName" to activate
tell application "System Events"
tell process "AppName"
keystroke eachLine
end tell
end tell
Here the AppleScript is activating the application and using System Events to emulate typing the contents of the eachLine variable into the process. Put this inside your repeat loop and you're almost there.

Need Help: UTL_FILE Reading and Writing to Text File

Hello I am using version 11gR2 using the UTL_FILE function to read from a text file then write the lines where it begins with word 'foo' and end my writing to the text file where the line with the word 'ZEN' is found. Now, I have several lines that begin with 'foo' and 'ZEN' Which make for one full paragraph, and in this paragraph there's a line that begins with 'DE4.2'. Therefore,
I need to write all paragraphs that include the line 'DE4.2' in their beginning and ending lines 'foo' and 'ZEN'
FOR EXAMPLE:
FOO/234E53LLID
THIS IS MY SECOND LINE
THIS IS MY THIRD LINE
DE4.2 THIS IS MY FOURTH LINE
THIS IS MY FIFTH LINE
ZEN/DING3434343
FOO/234E53LLID
THIS IS MY SECOND LINE
THIS IS MY THIRD LINE
THIS IS MY FIFTH LINE
ZEN/DING3434343
I am only interested in writing the first paragraph tha includes line DE4.2 in one of ther lines Not the Second paragraph that does not include the 'DE4.2'
Here's my code thus far:
CREATE OR REPLACE PROCEDURE my_app2 IS
infile utl_file.file_type;
outfile utl_file.file_type;
buffer VARCHAR2(30000);
b_paragraph_started BOOLEAN := FALSE; -- flag to indicate that required paragraph is started
BEGIN
-- open a file to read
infile := utl_file.fopen('TEST_DIR', 'mytst.txt', 'r');
-- open a file to write
outfile := utl_file.fopen('TEST_DIR', 'out.txt', 'w');
-- check file is opened
IF utl_file.is_open(infile)
THEN
-- loop lines in the file
LOOP
BEGIN
utl_file.get_line(infile, buffer);
     --BEGINPOINT APPLICATION
IF buffer LIKE 'foo%' THEN
          b_paragraph_started := TRUE;
     END IF;
     --LOOK FOR GRADS APPS
          IF b_paragraph_started AND buffer LIKE '%DE4%' THEN
          utl_file.put_line(outfile,buffer, FALSE);
END IF;
     --ENDPOINT APPLICATION
          IF buffer LIKE 'ZEN%' THEN
     b_paragraph_started := FALSE;
          END IF;
utl_file.fflush(outfile);
EXCEPTION
WHEN no_data_found THEN
EXIT;
END;
END LOOP;
END IF;
utl_file.fclose(infile);
utl_file.fclose(outfile);
EXCEPTION
WHEN OTHERS THEN
raise_application_error(-20099, 'Unknown UTL_FILE Error');
END my_app2;
When I run this code I only get one line: DE4.2 I AM MISSING THE ENTIRE PARAGRAPH
PLEASE ADVISE...

Hi,
Look at where you're calling utl_file.put_line. The only time you're writing anything is immediately after you find the the key word 'DE4', and then you're writing just that line.
You need to store the entire paragraph, and when you reach the end of the paragraph, write the whole thing only if you found the key word, like this:
CREATE OR REPLACE PROCEDURE my_app2 IS
    TYPE line_collection
    IS       TABLE OF VARCHAR2 (30000)
           INDEX BY BINARY_INTEGER;
    infile               utl_file.file_type;
    outfile                      utl_file.file_type;
    input_paragraph          line_collection;
    input_paragraph_cnt          PLS_INTEGER     := 0;          -- Number of lines stored in input_paragraph
    b_paragraph_started      BOOLEAN      := FALSE;     -- flag to indicate that required paragraph is started
    found_key_word          BOOLEAN          := FALSE;     -- Does this paragraph contain the magic word?
BEGIN
    -- open a file to read
    infile := utl_file.fopen('TEST_DIR', 'mytst.txt', 'r');
    -- open a file to write
    outfile := utl_file.fopen('TEST_DIR', 'out.txt', 'w');
    -- check file is opened
    IF utl_file.is_open(infile)
    THEN
     -- loop lines in the file
     LOOP
         BEGIN
          input_paragraph_cnt := input_paragraph_cnt + 1;
             utl_file.get_line (infile, input_paragraph (input_paragraph_cnt));
          --BEGINPOINT APPLICATION
          IF LOWER (input_paragraph (input_paragraph_cnt)) LIKE 'foo%' THEN
              b_paragraph_started := TRUE;
          END IF;
          --LOOK FOR GRADS APPS
          IF b_paragraph_started
          THEN
              IF input_paragraph (input_paragraph_cnt) LIKE '%DE4%'
              THEN
               found_key_word := TRUE;
              END IF;
              --ENDPOINT APPLICATION
              IF input_paragraph (input_paragraph_cnt) LIKE 'ZEN%' THEN
                  b_paragraph_started := FALSE;
               IF found_key_word
               THEN
                   FOR j IN 1 .. input_paragraph_cnt
                   LOOP
                       utl_file.put_line (outfile, input_paragraph (j), FALSE);
                   END LOOP;
               END IF;
               found_key_word := FALSE;
               input_paragraph_cnt := 0;
              END IF;
          ELSE     -- paragraph is not started
              input_paragraph_cnt := 0;
          END IF;
          EXCEPTION
              WHEN no_data_found THEN
               EXIT;
          END;
      END LOOP;
    END IF;
    utl_file.fclose (infile);
    utl_file.fclose (outfile);
--EXCEPTION
--    WHEN OTHERS THEN
--        raise_application_error(-20099, 'Unknown UTL_FILE Error');
END my_app2;
SHOW ERRORSIf you don't have an EXCEPTION section, the default error handling will print an error message, spcifying exactly what the error was, and which line of your code caused the error. By using your own EXCEPTION section, you're hiding all that information. I admit, the error messages aren't always as informative as we'd like, but they're never less informative than "Unknown UTL_FILE Error'. Don't use your own EXCEPTION handling unless you can improve on the default.
Remember that anything inside quotes is case-sensitive. If your file contains upper-case 'FOO', then it won't be "LIKE 'foo%' ".
Edited by: Frank Kulash on Dec 7, 2011 1:35 PM
You may have noticed that this site normally doesn't display multiple spaces in a row.
Whenever you post formatted text (such as your code) on this site, type these 6 characters:
\{code}
(small letters only, inside curly brackets) before and after each section of formatted text, to preserve spacing.

Controlling the share permission when writing a text file

I have several application that writes a delimited text file to a file share. Another application, not a LabVIEW application then reads the delimited text file. When my application is creating and/or writing to the delimited text file, is there a way to manipulate the permissions so that no other application can read the file at the same time I'm writing to the file? I can do this in Visual Basic via the FileShare (http://msdn.microsoft.com/en-us/library/system.io.fileshare(v=vs.110).aspx) option when creating filestream, but I don't see this option in LabVIEW. Thanks.
Solved!
Go to Solution.

Nevermind. I believe this can be accomplished with the "Deny Access" function.

Downloading a text file from application server

Hi Freinds,
I am genarating a text file in our application server (Folder /usr/sap/dbi/) I need to download this text file in my destop pc or some other windows server.
What do I have to do? What is the procedure, Pls help.
If someone have sample code, pls send.
We are running SAP ECC5.0 on an iSeries (AS/400) Database DB2/400.
Regards
Thanura

Hi,
try this:
REPORT ZGRO_TEST.
DATA: DATEI_A(30) TYPE C VALUE '/tmp/matnr.txt'.
DATA: DATEI_PC TYPE STRING VALUE 'C:\MATNR.TXT'.
DATA: ITAB TYPE TABLE OF MARA WITH HEADER LINE.
START-OF-SELECTION.
PERFORM DATEI_EINLESEN.
PERFORM DATEI_DOWNLOAD.
FORM DATEI_EINLESEN.
OPEN DATASET DATEI_A FOR INPUT IN TEXT MODE.
IF SY-SUBRC NE 0. STOP. ENDIF.
DO.
 READ DATASET DATEI_A INTO ITAB.
 IF SY-SUBRC <> 0. EXIT. ENDIF.
 APPEND ITAB.
ENDDO.
CLOSE DATASET DATEI_A.
IF SY-SUBRC NE 0. STOP. ENDIF.
ENDFORM. "DATEI_EINLESEN
FORM DATEI_DOWNLOAD.
Datei downloaden
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD
 EXPORTING
 FILENAME = DATEI_PC
 FILETYPE = 'ASC'
 CHANGING
 DATA_TAB = ITAB[]
 EXCEPTIONS
 FILE_WRITE_ERROR = 1
 NO_BATCH = 2
 GUI_REFUSE_FILETRANSFER = 3
 INVALID_TYPE = 4
 NO_AUTHORITY = 5
 UNKNOWN_ERROR = 6
 HEADER_NOT_ALLOWED = 7
 SEPARATOR_NOT_ALLOWED = 8
 FILESIZE_NOT_ALLOWED = 9
 HEADER_TOO_LONG = 10
 DP_ERROR_CREATE = 11
 DP_ERROR_SEND = 12
 DP_ERROR_WRITE = 13
 UNKNOWN_DP_ERROR = 14
 ACCESS_DENIED = 15
 DP_OUT_OF_MEMORY = 16
 DISK_FULL = 17
 DP_TIMEOUT = 18
 FILE_NOT_FOUND = 19
 DATAPROVIDER_EXCEPTION = 20
 CONTROL_FLUSH_ERROR = 21
 NOT_SUPPORTED_BY_GUI = 22
 ERROR_NO_GUI = 23
 OTHERS = 24.
IF SY-SUBRC NE 0. STOP. ENDIF.
ENDFORM. "DATEI_DOWNLOAD
Regards, Dieter

How to store pdf files in application layer

Hi friends,
Can any body tell me how to this.when ever we give a print a spool number will be created.we can give this spool number to rstxpdft4 program and we can convert it into pdf.
how to put this pdf into application layer as a unix file.is it possible to do that.
Regards,
Sasi

Complete code right from spool request :
FORM convert_spool_to_pdf.
IF is_otf IS INITIAL .
List to PDF
 CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = p_spool
 dst_device = 'LOCL'
 IMPORTING
 pdf_bytecount = bytes
 pdf_spoolid = pdf_spool
 list_pagecount = pages
 btc_jobname = job_pdf
 btc_jobcount = jobcount_pdf
 TABLES
 pdf = i_pdf
 EXCEPTIONS
 err_no_abap_spooljob = 1
 err_no_spooljob = 2
 err_no_permission = 3
 err_conv_not_possible = 4
 err_bad_destdevice = 5
 user_cancelled = 6
 err_spoolerror = 7
 err_temseerror = 8
 err_btcjob_open_failed = 9
 err_btcjob_submit_failed = 10
 err_btcjob_close_failed = 11.
ELSE .
OTF ( SAPSCRIPT ) To PDF
 CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = p_spool
 no_dialog = ' '
 IMPORTING
 pdf_bytecount = bytes
 pdf_spoolid = pdf_spool
 otf_pagecount = pages
 btc_jobname = job_pdf
 btc_jobcount = jobcount_pdf
 TABLES
 pdf = i_pdf
 EXCEPTIONS
 err_no_otf_spooljob = 1
 err_no_spooljob = 2
 err_no_permission = 3
 err_conv_not_possible = 4
 err_bad_dstdevice = 5
 user_cancelled = 6
 err_spoolerror = 7
 err_temseerror = 8
 err_btcjob_open_failed = 9
 err_btcjob_submit_failed = 10
 err_btcjob_close_failed = 11.
ENDIF .
IF sy-subrc <> 0 OR
 i_pdf[] IS INITIAL .
Error creating PDF File .
 Message e000.
ELSE .
Got PDF Structure . Now transfer to App. Server.
ENDIF .
ENDFORM. " convert_spool_to_pdf
FORM send_spool_app.
OPEN DATASET p_fname FOR OUTPUT IN BINARY MODE .
IF sy-subrc = 0.
 LOOP AT i_pdf .
 TRANSFER i_pdf TO p_fname.
 ENDLOOP.
 CLOSE DATASET p_fname .
 MESSAGE s000 WITH p_fname.
ELSE.
 MESSAGE e502(0u) WITH p_fname .
ENDIF.
endform.
This is a working code as we are using the same concept.
Hope it helped.

Recording data at particular iterations and writing to text file

Hi all,
this is my first time posting on the NI boards. I'm running into a couple problems I can't seem to figure out how to fix.
I'm collecting data using a LabJack U3-HV daq. I've taken one of the out-of-the-box streaming functions that comes with the LabJack and modified it for my purposes. I am attempting to simply save the recorded data to a text file in columns, one for each of my 4 analog strain gauge inputs, and one for time. For some reason when the 'write to measurement file.vi' executes it is puts everything in rows, and the data is unintelligible.
The 2nd issue I am facing, which is not currently visible in my vi, is that I am running my test for 60,000 cycles, which generates a ton of data. I'm measuring creep/fatigue with my strain gages so I don't need data for every cycle, probably for the first 1000, then the 2k, 4k, 6k, 8k, 10k, 20k, etc. More of an exponential curve. I tried using some max/min functions and then matching the 'write to measurement file.vi' with a case structure that only permitted it to write for particular iterations, but can't seem to get it to work.
Thanks in advance for any help!
Attachments:
3.5LCP strain gages v2.vi ‏66 KB

Hey carfreak,
I've attached a screenshot that shows three different ways of trying to keep track of incrementing data and/or time in a while loop. The top loop just shows a program that demonstrates how shift registers can be used to transfer data between loops. This code just writes the iteration value to the array using the Build Array function.
The first loop counts iterations in an extremely round-about way... the second shows that really you can just build the array directly using the iteration count (the blue "i" in the while loop is just an iteration counter).
The final loop shows how you can use a time stamp to actually keep track of the relative time when a loop executes.
Please note that these three should not actually be implemented together in one VI. I just built them in one BD for simplicity's sake for the screenshot. As described above, the producer-consumer architecture should be used when running parallel loops.
Does that answer your question?
Chris G
Applications Engineer
National Instruments
Attachments:
While Loops and Iterations.JPG ‏83 KB

Writing a text file in Application layer (through AL11) via a batch program

Similar Messages

Maybe you are looking for