topic Re: Help in sy-subrc error in Application Development and Automation Discussions

Help in sy-subrc error

Former Member — Tue, 01 Jan 2008 14:07:06 GMT

Hello all,

I have a text tab delimited file in application server.I used open data set and sysubrc was 0 and when i tried to read the file i fot sy-subrc as 4......pls advice.....

filename like rlgrap-filename......."file name in Appln ser

file name

lv_itab(200) type char

OPEN DATASET pfilenaem FOR INPUT IN TEXT MODE DEFAULT MESSAGE.

here sy-subrc gives as 0

Read dataset pfilename into lv_itab.

here sy-subrc is givin as 4.....

i feel the pfilename is of file type and lv_itab is of type char so s ths causin error..........

pls advice....thanks in advance

Title edited by: Alvaro Tejada Galindo on Jan 1, 2008 9:47 AM

Re: Help in sy-subrc error

Former Member — Tue, 01 Jan 2008 14:48:33 GMT

You have to declare the lv_itab as an internal table.

declare something like this

DATA: BEGIN OF LV_ITAB OCCURS 0,

RECORD(1000),

END OF LV_ITAB.

You shud be fine.

Le'me know if you need any more

Vinodh Balakrishnan

Re: Help in sy-subrc error

Clemenss — Tue, 01 Jan 2008 17:34:37 GMT

Hi sapuser acc,

probably the length of your itab record (200) does not match the length of the record read.

Here is something that always works. The routine will also return the length of the longest record read.


types:
  TYPE typ_t_string type table of string.
*&---------------------------------------------------------------------*
*&      Form  READ_TEXT_FILE
*&---------------------------------------------------------------------*
FORM read_text_file  USING    p_file TYPE file
                CHANGING pt_str TYPE typ_t_string
                         p_maxs TYPE sytleng.
  STATICS:
    l_file TYPE file,
    l_maxs TYPE sytleng,
    lt_str TYPE typ_t_string.
  DATA:
    l_str TYPE string,
    l_len TYPE sytleng.
* keep the file read last avoiding duplicate read
  IF p_file <> l_file.
    l_file = p_file.
    CLEAR: l_maxs, lt_str.
    OPEN DATASET p_file IN TEXT MODE ENCODING DEFAULT FOR INPUT
      IGNORING CONVERSION ERRORS.
    WHILE sy-subrc = 0.
      READ DATASET p_file INTO l_str LENGTH l_len.
      CHECK sy-subrc = 0.
      IF l_len > l_maxs.
        l_maxs =  l_len.
      ENDIF." l_len > l_maxs.
      APPEND l_str TO lt_str.
    ENDWHILE." sy-subrc = 0.
    CLOSE DATASET p_file.
  ENDIF." p_file <> l_file.
  pt_str = lt_str.
  p_maxs = l_maxs.
  CHECK lt_str IS INITIAL.
  CLEAR l_file.
  MESSAGE s000 WITH 'File read error:' l_file '' ''.
*   & & & &

ENDFORM.                    " READ_TEXT_FILE

Regards,

Clemens

Re: Help in sy-subrc error

former_member156446 — Tue, 01 Jan 2008 17:48:01 GMT

check this

*To read the Source Unix file

FORM fr_open_file USING p_ufile.

OPEN DATASET p_ufile FOR INPUT IN TEXT MODE.

IF sy-subrc <> 0.

EXIT.

ENDIF.

DO.

READ DATASET p_ufile INTO in_file.

IF sy-subrc <> 0.

EXIT.

ENDIF.

APPEND in_file.

CLEAR in_file.

ENDDO.

CLOSE DATASET p_ufile.

LOOP AT in_file.

SPLIT in_file AT c_tab INTO

wa_citm_b-type

wa_citm_b-vbeln

wa_citm_b-posnr

wa_citm_b-uepos.

wa_citm_b-matnr
lv_menge
wa_citm_b-arktx
wa_citm_b-vbegdat
wa_citm_b-venddat
wa_citm_b-prctr
wa_citm_b-zterm
wa_citm_b-faksp
wa_citm_b-taxm1
wa_citm_b-vlaufz
wa_citm_b-vlauez
wa_citm_b-vlaufk
wa_citm_b-vkuegru
wa_citm_b-bstkd
wa_citm_b-bstdk
wa_citm_b-posex
wa_citm_b-bstkd_e
wa_citm_b-bstdk_e
wa_citm_b-period.

IF NOT wa_citm_b-posnr CA sy-abcde.

APPEND wa_citm_b TO lt_citm_b.

ENDIF.

ENDLOOP.

SORT lt_citm_b BY vbeln posnr.

DELETE ADJACENT DUPLICATES FROM lt_citm_b COMPARING vbeln posnr.