RFBIBL00 for FB01 - BATCH INPUT ERROR

Former Member · ‎2007 Aug 02

Hi,

When am trying to post from foreground i found an error

"Field DKACB-XERGO. does not exist in the screen SAPLKACB-0002"

such errors come for only certain GL account, could you provide me a solution?

Former Member · ‎2007 Aug 02

Hi Dear,

If such kind of Error Comes in Fore Ground that field does not exist then on that partiuclar screen no that feild does not exist. (DKACB-XERGO).

To avoid such problem there a two solutions :

1) That filed may be Hidden in that screen ask Functiona Guy to make it active or else

pass slash (\) in that feild force fully to avoid error thr prg.

Reward Points.

Regards,

Bohra

Former Member · ‎2007 Aug 02

thanks,

i can forcefully give a slash when i run it in foreground but if i run in background then what will i do? other than asking functional to change the hidden field is there any other solution?

Former Member · ‎2007 Aug 02

Hi Dear,

You pass slash in that field programatically. So prog in background will remains the same as it is in foreground. I have faced the Simlar issues while writing interface for

f-02.

Reward Points if it is helpful.

If still not clarified i wil send u sample code how to pass slash in field.

Regards,

Bohra.

Former Member · ‎2007 Aug 02

but then this is a standard code right how do you implement that code here???

Former Member · ‎2007 Aug 02

Hi Dear,

Call Rfbibl00 in you program and submit your structure to rfbibl00. Here is the sample code....c how i have submitted in back ground i have given commenting in code it will b easier for you.

Still issues feel free to ask.

Reward for program

DATA :w_t001 LIKE t001,

w_gjahr LIKE bkpf-gjahr,

w_poper LIKE t009b-poper,

BEGIN OF it_input1 OCCURS 0,

data(10000),

END OF it_input1,

separator(1) TYPE c VALUE ';',

input_line(10000),

count TYPE i,

i_lines TYPE i,

BEGIN OF it_input OCCURS 0,

ind(1), " indicator for feild

bldat(8), " DOC DATE

blart(2), " DOC TYPE

bukrs(4), " COMPANY CODE

budat(8), " POSTING DATE

waers(5), " CURRENCY

xblnr(16), " HEADER REF

bktxt(25), " HEADER TXT

newbs(2), " POSTING KEY

newko(17), " ACCOUNT

newum(1), " SPL GL INDICATOR

wrbtr(13), " AMOUNT IN FOR CURRENCY

dmbtr(13), " AMOUNT IN LOCAL CURRENCY

zterm(4), " PAYAMENT TERMS

zfbdt(10), " BASE LINE DATE

wt_wit(2), " WITH TAXCODE

wt_qs(15), " WITH TAXCODE

wt_qb(15), " WITH TAXAMOUNT

mwskz(2), " TAXCODE

bupla(4), " BUSINESS PLACE

newbk(4), " LINE ITEM COMAPNY CODE

kostl(10), " COSTCENTER

aufnr(12), " INTERNAL ORDER

prctr(10), " PROFIT CENTER

pernr(8), " PERSONAL NUMBER

zuonr(18), " ASSIGNMENT

xref1(12), " REF1

xref2(12), " REF2

xref3(20), " REF3

sgtxt(50), " LINE TEXT

END OF it_input,

it_tmp_input LIKE it_input OCCURS 0 WITH HEADER LINE.

DATA : file TYPE string,

file1 TYPE string.

path on which error and complete directories are placed

DATA : w_path_err(100) TYPE c VALUE '\usr\sap\DEV\interfaces\ERROR\',

w_path_comp(100) TYPE c VALUE '\usr\sap\DEV\interfaces\COMPLETE\',

w_path_capinv(200) TYPE c VALUE '\usr\sap\DEV\interfaces\IN\SETDDN\',

w_path_capinv1(200) TYPE c, "contains the path of the file in the its original directory eg SETDDN

w_path_capinv2(200) TYPE c, "contains the path of the error file in the error directory eg ERROR

w_path_capinv3(200) TYPE c. "contains the path of the file in the complete directory eg COMPLETE

type declaration for headerref

TYPES : BEGIN OF ty_input_err,

xblnr(16), " HEADER REF

item_no(4),

err_text(500),

END OF ty_input_err.

DATA : it_input_err TYPE STANDARD TABLE OF ty_input_err,

wa_input_err LIKE LINE OF it_input_err.

variables for validations

DATA : w_post TYPE c,

w_xblnr TYPE bkpf-xblnr,

w_wrbtr TYPE i,

w_wrbtr1 TYPE i,

w_wrbtr2 TYPE i,

w_newko(10) TYPE c,

w_count1 TYPE n.

DATA :

w_path LIKE rlgrap-filename,

w_file LIKE rlgrap-filename,

w_dir LIKE rlgrap-filename,

w_dir1 LIKE epsf-epsdirnam,

w_file1 LIKE epsf-epsfilnam,

w_flag TYPE i,

w_budat TYPE budat,

w_flag_s TYPE c,

w_file_comp LIKE rlgrap-filename.

DATA : BEGIN OF it_file OCCURS 0.

INCLUDE STRUCTURE epsfili.

DATA: END OF it_file.

FIELD-SYMBOLS: <fs>.

DATA: BEGIN OF bdcdata OCCURS 100.

INCLUDE STRUCTURE bdcdata.

DATA: END OF bdcdata.

DATA : BEGIN OF it_data OCCURS 0,

f1(10000),

END OF it_data.

DATA : wa_bgr00 LIKE bgr00,

wa_bbkpf LIKE bbkpf,

wa_bbkpf1 LIKE bbkpf,

wa_bbseg LIKE bbseg,

w_param_1 LIKE filename-fileintern,

x_file(500),

w_move_file LIKE epsf-epsfilnam,

w_from_dir LIKE epsf-epsdirnam.

type declaration for validations

TYPES : BEGIN OF ty_blart,

blart TYPE t003-blart,

END OF ty_blart.

TYPES : BEGIN OF ty_xblnr,

xblnr TYPE bkpf-xblnr,

END OF ty_xblnr.

TYPES : BEGIN OF ty_mwskz,

mwskz TYPE t007a-mwskz,

END OF ty_mwskz.

TYPES : BEGIN OF ty_qsskz,

qsskz TYPE t059q-qsskz,

END OF ty_qsskz.

TYPES : BEGIN OF ty_zterm,

zterm TYPE t052-zterm,

END OF ty_zterm.

TYPES : BEGIN OF ty_bschl,

bschl TYPE tbsl-bschl,

END OF ty_bschl.

TYPES : BEGIN OF ty_umskz,

umskz TYPE t074u-umskz,

END OF ty_umskz.

TYPES : BEGIN OF ty_prctr,

prctr TYPE cepc-prctr,

END OF ty_prctr.

TYPES : BEGIN OF ty_kostl,

kostl TYPE csks-kostl,

END OF ty_kostl.

TYPES : BEGIN OF ty_branch,

branch TYPE j_1bbranch-branch,

END OF ty_branch.

TYPES : BEGIN OF ty_seccode,

seccode TYPE seccode-seccode,

END OF ty_seccode.

TYPES : BEGIN OF ty_tbsl,

bschl TYPE tbsl-bschl,

shkzg TYPE tbsl-shkzg,

END OF ty_tbsl.

TYPES : BEGIN OF ty_aufnr,

aufnr TYPE aufk-aufnr,

END OF ty_aufnr.

TYPES : BEGIN OF ty_pernr,

pernr TYPE pa0001-pernr,

END OF ty_pernr.

TYPES : BEGIN OF ty_ska1,

saknr TYPE ska1-saknr,

END OF ty_ska1.

TYPES : BEGIN OF ty_lfa1,

lifnr TYPE lfb1-lifnr,

bukrs TYPE lfb1-bukrs,

END OF ty_lfa1.

internal table declaration for validation

DATA : it_blart TYPE STANDARD TABLE OF ty_blart,

it_mwskz TYPE STANDARD TABLE OF ty_mwskz,

it_umskz TYPE STANDARD TABLE OF ty_umskz,

it_xblnr TYPE STANDARD TABLE OF ty_xblnr,

it_qsskz TYPE STANDARD TABLE OF ty_qsskz,

it_zterm TYPE STANDARD TABLE OF ty_zterm,

it_bschl TYPE STANDARD TABLE OF ty_bschl,

it_prctr TYPE STANDARD TABLE OF ty_prctr,

it_kostl TYPE STANDARD TABLE OF ty_kostl,

it_branch TYPE STANDARD TABLE OF ty_branch,

it_seccode TYPE STANDARD TABLE OF ty_seccode,

it_tbsl TYPE STANDARD TABLE OF ty_tbsl,

it_aufnr TYPE STANDARD TABLE OF ty_aufnr,

it_pernr TYPE STANDARD TABLE OF ty_pernr,

it_ska1 TYPE STANDARD TABLE OF ty_ska1,

it_lifnr TYPE STANDARD TABLE OF ty_lfa1.

DATA : wa_it_tbsl LIKE LINE OF it_tbsl.

DATA : w_date TYPE sy-datum,

w_check TYPE c ,

w_item_no TYPE i.

CONSTANTS : c_under TYPE c VALUE '_',

c_ext(4) TYPE c VALUE '.txt'.

Input file

SELECTION-SCREEN BEGIN OF BLOCK inp WITH FRAME TITLE text-001.

PARAMETERS :

pr_serv RADIOBUTTON GROUP abc DEFAULT 'X',

pr_sfile TYPE filename-fileintern,

pr_lok RADIOBUTTON GROUP abc,

pr_lfile TYPE filename-fileextern.

SELECTION-SCREEN END OF BLOCK inp.

--- output

SELECTION-SCREEN BEGIN OF BLOCK out WITH FRAME TITLE text-002.

PARAMETERS : pr_group LIKE bgr00-group OBLIGATORY DEFAULT '1000EXPENSE', " batch input structure for sessiondata

pr_xkeep LIKE bgr00-xkeep DEFAULT 'X' NO-DISPLAY,

pr_max(4) TYPE n DEFAULT '8000',

callmode LIKE rfpdo-rfbifunct , " Function for Generating Posting

pr_nodta LIKE bgr00-nodata DEFAULT '/' NO-DISPLAY,

pr_out LIKE rlgrap-filename,

pr_err LIKE rlgrap-filename.

SELECTION-SCREEN END OF BLOCK out.

Company code and currency

SELECTION-SCREEN BEGIN OF BLOCK def WITH FRAME TITLE text-003.

PARAMETERS : pr_bukrs LIKE t001-bukrs,

pr_waers LIKE bkpf-waers.

SELECTION-SCREEN END OF BLOCK def.

Read file from server

PERFORM f001_upload_file.

&----

*& Form create_doc

&----

text

----

--> p1 text
<-- p2 text

----

FORM f003_create_doc.

DATA : l_count TYPE i.

DATA : w_session TYPE i.

CLEAR w_flag_s.

CLEAR l_count.

LOOP AT it_input.

IF l_count = 0 AND w_flag_s NE 'X'.

REFRESH it_data.

ENDIF.

*Commented code for background processing

IF it_data[] IS INITIAL.

PERFORM bdc_bgr00.

IF NOT w_session IS INITIAL.

APPEND wa_bbkpf1 TO it_data.

APPEND it_data.

MOVE 'X' TO w_flag_s.

ENDIF.

IF NOT it_input-ind IS INITIAL.

ADD 1 TO l_count.

PERFORM header_record.

PERFORM item_record.

CLEAR w_flag_s.

ELSE.

PERFORM item_record.

ENDIF.

IF l_count > 18 .

PERFORM save_on_server.

PERFORM post_document.

ADD 1 TO w_session.

l_count = 0.

REFRESH it_data.

ENDIF.

ENDLOOP.

IF NOT it_data[] IS INITIAL.

PERFORM save_on_server.

PERFORM post_document.

ENDIF.

*moving the file name to temporary variable.

CONCATENATE w_path_comp it_file-name INTO w_path_capinv3.

OPEN DATASET w_path_capinv3 FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

*w_path_capinv2 contains the path of the error file.

*so all of the content of it_input is tranfered to file which is stored in the error.

LOOP AT it_input.

TRANSFER it_input TO w_path_capinv3 .

IF sy-subrc NE 0.

MESSAGE i001(mg) WITH w_path_capinv3 . " error writing to sequential file

MESSAGE a099(mg). " processing terminated

ENDIF.

ENDLOOP.

CLOSE DATASET w_path_capinv3.

CLEAR w_path_capinv3.

*After successful posting of the file that file is deleted form its original directory.

CONCATENATE w_path_capinv it_file-name INTO w_path_capinv1.

DELETE DATASET w_path_capinv1.

CLEAR w_path_capinv1.

-------------- save file on appl. server -----------------

perform save_on_server.

-------------- call RFBIBL00 -----------------------------

perform call_rfbibl00.

ENDFORM. " create_doc

&----

*& Form header_record

&----

text

----

--> p1 text
<-- p2 text

----

FORM header_record.

PERFORM fill_in_nodata_character CHANGING wa_bbkpf.

wa_bbkpf-stype = '1'.

wa_bbkpf-tcode = 'FB01'.

Check the file is for the valid company code.

SELECT SINGLE * INTO w_t001 FROM t001

WHERE bukrs EQ pr_bukrs.

IF sy-subrc NE 0.

MESSAGE a899 WITH text-021 pr_bukrs.

ENDIF.

Determine period

CALL FUNCTION 'FI_PERIOD_DETERMINE'

EXPORTING

i_budat = sy-datum

i_bukrs = pr_bukrs

IMPORTING

e_gjahr = w_gjahr

e_poper = w_poper

EXCEPTIONS

fiscal_year = 1

period = 2

period_version = 3

posting_period = 4

special_period = 5

version = 6

posting_date = 7

OTHERS = 8.

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

wa_bbkpf-bukrs = pr_bukrs.

Document type

IF NOT it_input-blart IS INITIAL.

wa_bbkpf-blart = it_input-blart.

ENDIF.

Document date and Posting date.

IF NOT it_input-budat IS INITIAL.

wa_bbkpf-budat = it_input-budat.

ENDIF.

*new changes for background.

MOVE it_input-budat TO w_budat.

*end change.

IF NOT it_input-bldat IS INITIAL.

wa_bbkpf-bldat = it_input-bldat.

ENDIF.

Reference document number

IF NOT it_input-xblnr IS INITIAL.

wa_bbkpf-xblnr = it_input-xblnr.

ENDIF.

Currency

wa_bbkpf-waers = pr_waers.

wa_bbkpf-kursf = it_input-kursf.

IF NOT it_input-bktxt IS INITIAL.

wa_bbkpf-bktxt = it_input-bktxt.

ENDIF.

APPEND wa_bbkpf TO it_data.

MOVE wa_bbkpf TO wa_bbkpf1.

ENDFORM. " header_record

&----

*& Form item_record

&----

text

----

--> p1 text
<-- p2 text

----

FORM item_record.

Fill BBSEG with no data character .

PERFORM fill_in_nodata_character CHANGING wa_bbseg.

wa_bbseg-stype = '2'.

wa_bbseg-tbnam = 'BBSEG'.

IF NOT it_input-newbs IS INITIAL.

wa_bbseg-newbs = it_input-newbs.

ENDIF.

IF NOT it_input-newko IS INITIAL.

wa_bbseg-newko = it_input-newko.

ENDIF.

IF NOT it_input-newum IS INITIAL.

wa_bbseg-newum = it_input-newum.

ENDIF.

IF NOT it_input-wrbtr IS INITIAL.

wa_bbseg-wrbtr = it_input-wrbtr.

ENDIF.

IF NOT it_input-dmbtr IS INITIAL.

wa_bbseg-dmbtr = it_input-dmbtr.

ENDIF.

IF NOT it_input-zterm IS INITIAL.

wa_bbseg-zterm = it_input-zterm.

ENDIF.

IF NOT it_input-zfbdt IS INITIAL.
wa_bbseg-zfbdt = it_input-zfbdt.
ENDIF.

wa_bbseg-zfbdt = w_budat.

IF NOT it_input-wt_wit IS INITIAL.

wa_bbseg-qsskz = it_input-wt_wit.

ENDIF.

IF NOT it_input-wt_qs IS INITIAL.

wa_bbseg-qsshb = it_input-wt_qs.

ENDIF.

IF NOT it_input-wt_qb IS INITIAL.

wa_bbseg-qsfbt = it_input-wt_qb.

ENDIF.

IF NOT it_input-mwskz IS INITIAL.

wa_bbseg-mwskz = it_input-mwskz.

ENDIF.

IF NOT it_input-bupla IS INITIAL.

wa_bbseg-bupla = it_input-bupla.

ENDIF.

IF it_input-ind IS INITIAL AND NOT it_input-newbk IS INITIAL.

wa_bbseg-newbk = it_input-newbk.

ENDIF.

IF NOT it_input-kostl IS INITIAL.

wa_bbseg-kostl = it_input-kostl.

ENDIF.

IF NOT it_input-aufnr IS INITIAL.

wa_bbseg-aufnr = it_input-aufnr.

ENDIF.

Changes for background processing

IF it_input-newbs NE '34' AND it_input-newbs NE '24'.

IF NOT it_input-prctr IS INITIAL.

wa_bbseg-prctr = it_input-prctr.

ENDIF.

end of changes.

IF NOT it_input-pernr IS INITIAL.

wa_bbseg-pernr = it_input-pernr.

ENDIF.

IF NOT it_input-zuonr IS INITIAL.

wa_bbseg-zuonr = it_input-zuonr.

ENDIF.

IF NOT it_input-xref1 IS INITIAL.

wa_bbseg-xref1 = it_input-xref1.

ENDIF.

IF NOT it_input-xref2 IS INITIAL.

wa_bbseg-xref2 = it_input-xref2.

ENDIF.

IF NOT it_input-xref3 IS INITIAL.

wa_bbseg-xref3 = it_input-xref3.

ENDIF.

IF NOT it_input-wrbtr IS INITIAL.

wa_bbseg-sgtxt = it_input-sgtxt.

ENDIF.

APPEND wa_bbseg TO it_data.

ENDFORM. " item_record

&----

*& Form post_document

&----

text

----

--> p1 text
<-- p2 text

----

FORM post_document.

PERFORM call_rfbibl00.

ENDFORM. " post_document

&----

*& Form upload_file

&----

text

----

--> p1 text
<-- p2 text

----

FORM f001_upload_file.

IF pr_serv = 'X'.

MOVE '*' TO w_param_1.

CONCATENATE sy-datum '_' '*' INTO w_param_1.

PERFORM get_file_name USING pr_sfile w_param_1.

CHANGING x_file.

LOOP AT it_file WHERE name CP w_file1.

CLEAR : x_file, w_path,

w_move_file, w_from_dir.

REFRESH : it_input,

it_input_err.

IF w_flag IS INITIAL.

CONCATENATE w_dir it_file-name INTO x_file.

CONDENSE x_file.

TO Move file from sever for backup storing the file name and path

w_path = x_file.

CALL FUNCTION 'TRINT_SPLIT_FILE_AND_PATH'

EXPORTING

full_name = x_file

IMPORTING

stripped_name = w_move_file

file_path = w_from_dir

EXCEPTIONS

x_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

PERFORM read_file TABLES it_input

USING x_file.

PERFORM next_steps.

CLEAR it_input_err.

REFRESH it_input.

ENDLOOP.

ELSE.

DATA : w_string TYPE string.

w_string = pr_lfile.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = w_string

filetype = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

TABLES

data_tab = it_input1

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 <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT it_input1 INTO input_line.

CLEAR: it_input, count.

DO.

ADD 1 TO count.

ASSIGN COMPONENT count OF STRUCTURE it_input TO <fs>.

IF sy-subrc = 0.

SPLIT input_line AT separator INTO <fs> input_line.

ELSE.

EXIT.

ENDIF.

ENDDO.

APPEND it_input.

ENDLOOP.

PERFORM next_steps.

CLEAR it_input_err.

REFRESH it_input.

ENDIF.

ENDFORM. " upload_file

&----

*& Form bdc_header

&----

text

&----

*& Form bdc_dynpro

&----

text

----

-->P_0956 text
-->P_0957 text

----

FORM bdc_dynpro USING program dynpro.

CLEAR bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

ENDFORM. " bdc_dynpro

&----

*& Form bdc_field

&----

text

----

-->P_0961 text
-->P_0962 text

----

FORM bdc_field USING fnam fval.

CLEAR bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

IF bdcdata-fval NE space.

APPEND bdcdata.

ENDIF.

ENDFORM. " bdc_field

&----

*& Form bdc_items

&----

text

&----

*& Form fill_in_nodata_character

&----

text

----

<--P_WA_BBKPF text

----

FORM fill_in_nodata_character CHANGING p_struc.

FIELD-SYMBOLS: <nodata_field>.

DATA: num TYPE i.

DO.

ADD 1 TO num.

ASSIGN COMPONENT num OF STRUCTURE p_struc TO <nodata_field>.

IF sy-subrc = 0.

<nodata_field> = pr_nodta.

ELSE.

EXIT.

ENDIF.

ENDDO.

ENDFORM. " fill_in_nodata_character

&----

*& Form bdc_bgr00

&----

text

----

--> p1 text
<-- p2 text

----

FORM bdc_bgr00.

PERFORM fill_in_nodata_character CHANGING wa_bgr00.

wa_bgr00-stype = '0'.

wa_bgr00-group = pr_group.

wa_bgr00-mandt = sy-mandt.

wa_bgr00-usnam = sy-uname.

wa_bgr00-start = sy-datum.

wa_bgr00-xkeep = pr_xkeep.

APPEND wa_bgr00 TO it_data.

ENDFORM. " bdc_bgr00

&----

*& Form save_on_server

&----

text

----

--> p1 text
<-- p2 text

----

FORM save_on_server.

MOVE sy-datum TO w_date.

CLEAR w_file_comp.

w_file_comp = pr_out.

CONCATENATE w_path_comp pr_out c_under w_date c_ext INTO pr_out.

OPEN DATASET pr_out FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

LOOP AT it_data.

TRANSFER it_data TO pr_out.

IF sy-subrc NE 0.

MESSAGE i001(mg) WITH pr_out. " error writing to sequential file

MESSAGE a099(mg). " processing terminated

ENDIF.

ENDLOOP.

CLOSE DATASET pr_out.

FREE it_data.

ENDFORM. " save_on_server

&----

*& Form call_rfbibl00

&----

text

----

--> p1 text
<-- p2 text

----

FORM call_rfbibl00.

Submit file after mapping the data to RFBIBL00

SUBMIT rfbibl00 WITH ds_name = pr_out

WITH callmode = callmode

WITH xlog = 'X'

WITH max_comm = pr_max

WITH pa_xprot = 'X'

AND RETURN.

pr_out = w_file_comp.

ENDFORM. " call_rfbibl00

&----

*& Form get_file_name

&----

text

----

-->P_P_SFILE text
-->P_W_PARAM_1 text

----

FORM get_file_name USING p_sfile

w_param_1.

CHANGING x_file.

CALL FUNCTION 'FILE_GET_NAME'

EXPORTING

client = sy-mandt

logical_filename = p_sfile

parameter_1 = w_param_1

IMPORTING

file_name = x_file

EXCEPTIONS

file_not_found = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

w_path = x_file.

CALL FUNCTION 'TRINT_SPLIT_FILE_AND_PATH'

EXPORTING

full_name = w_path

IMPORTING

stripped_name = w_file

file_path = w_dir

EXCEPTIONS

x_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

w_dir1 = w_dir.

w_file1 = w_file.

CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'

EXPORTING

dir_name = w_dir1

file_mask = w_file1

TABLES

dir_list = it_file

EXCEPTIONS

invalid_eps_subdir = 1

sapgparam_failed = 2

build_directory_failed = 3

no_authorization = 4

read_directory_failed = 5

too_many_read_errors = 6

empty_directory_list = 7

OTHERS = 8.

IF sy-subrc <> 0.

WRITE : / text-022.

ENDIF.

LOOP AT it_file WHERE name CP w_file1.

IF w_flag IS INITIAL.

CONCATENATE w_dir it_file-name INTO x_file.

CONDENSE x_file.

w_flag = 1.

ELSE.

EXIT.

ENDIF.

ENDLOOP.

ENDFORM. " get_file_name

&----

*& Form read_file

&----

text

----

-->P_X_FILE text

----

FORM read_file TABLES it_tab

USING x_file.

OPEN DATASET x_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc NE 0.

WRITE : / text-023.

ELSE.

DO.

READ DATASET x_file INTO input_line.

IF sy-subrc = 0.

CLEAR: it_input, count.

DO.

ADD 1 TO count.

ASSIGN COMPONENT count OF STRUCTURE it_tab TO <fs>.

IF sy-subrc = 0.

SPLIT input_line AT separator INTO <fs> input_line.

ELSE.

EXIT.

ENDIF.

ENDDO.

APPEND it_tab.

ELSE.

EXIT.

ENDIF.

ENDDO.

ENDIF.

CLOSE DATASET x_file.

ENDFORM. " read_file

&----

*& Form validate

&----

text

----

--> p1 text
<-- p2 text

----

FORM f002_validate .

SELECT blart

FROM t003

INTO TABLE it_blart.

IF sy-subrc NE 0.

CLEAR it_blart.

ENDIF.

SELECT saknr

FROM ska1

INTO TABLE it_ska1.

IF sy-subrc NE 0.

CLEAR it_ska1.

ENDIF.

SELECT lifnr

FROM lfa1

INTO TABLE it_lifnr.

IF sy-subrc NE 0.

CLEAR it_lifnr.

ENDIF.

SELECT mwskz

FROM t007a

INTO TABLE it_mwskz.

IF sy-subrc NE 0.

CLEAR it_mwskz.

ENDIF.

SELECT qsskz

FROM t059q

INTO TABLE it_qsskz.

IF sy-subrc NE 0.

CLEAR it_qsskz.

ENDIF.

SELECT zterm

FROM t052

INTO TABLE it_zterm.

IF sy-subrc NE 0.

CLEAR it_zterm.

ENDIF.

SELECT bschl

FROM tbsl

INTO TABLE it_bschl.

IF sy-subrc NE 0.

CLEAR it_bschl.

ENDIF.

SELECT umskz

FROM t074u

INTO TABLE it_umskz.

IF sy-subrc NE 0.

CLEAR it_umskz.

ENDIF.

SELECT DISTINCT xblnr

FROM bkpf

INTO TABLE it_xblnr.

IF sy-subrc NE 0.

CLEAR it_xblnr.

ENDIF.

SELECT prctr

FROM cepc

INTO TABLE it_prctr.

IF sy-subrc NE 0.

CLEAR it_prctr.

ENDIF.

SELECT kostl

FROM csks

INTO TABLE it_kostl.

IF sy-subrc NE 0.

CLEAR it_kostl.

ENDIF.

SELECT branch

FROM j_1bbranch

INTO TABLE it_branch.

IF sy-subrc NE 0.

CLEAR it_branch.

ENDIF.

SELECT seccode

FROM seccode

INTO TABLE it_seccode.

IF sy-subrc NE 0.

CLEAR it_seccode.

ENDIF.

SELECT bschl shkzg

FROM tbsl

INTO TABLE it_tbsl.

IF sy-subrc NE 0.

CLEAR it_tbsl.

ENDIF.

SELECT aufnr

FROM aufk

INTO TABLE it_aufnr.

IF sy-subrc NE 0.

CLEAR it_aufnr.

ENDIF.

SELECT pernr

FROM pa0001

INTO TABLE it_pernr.

IF sy-subrc NE 0.

CLEAR it_pernr.

ENDIF.

LOOP AT it_input.

CLEAR : wa_input_err,w_check.

AT NEW xblnr.
CLEAR w_item_no.
ENDAT.

*

AT NEW xblnr.
CLEAR w_wrbtr.
ENDAT.

*

w_wrbtr = w_wrbtr + it_input-wrbtr.

*checking the whether record is a header record or not.

IF NOT it_input-ind IS INITIAL.

CLEAR w_item_no.

*keeping the track of item number for error record.

w_item_no = w_item_no + 1.

*Checking the total amount in line item eq 0 or not.

IF w_wrbtr NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

CONCATENATE wa_input_err-err_text text-019 INTO wa_input_err-err_text SEPARATED BY space.

APPEND wa_input_err TO it_input_err.

ENDIF.

CLEAR : w_xblnr,w_wrbtr.

*Checking whether the record already posted or not.

READ TABLE it_xblnr

WITH KEY xblnr = it_input-xblnr

TRANSPORTING NO FIELDS.

*If record is already posted then al the line items related to that header are moved to

*the error directory saying that record already posted.

IF sy-subrc EQ 0.

MOVE it_input-xblnr TO wa_input_err-xblnr.

MOVE it_input-xblnr TO w_xblnr.

MOVE text-024 TO wa_input_err-err_text.

APPEND wa_input_err TO it_input_err.

*Setting the flag for keeping the track of the posted items.

MOVE 'X' TO w_post.

*Skipping the current record as it is already posted so no validation is done for that record.

CONTINUE.

*If the record is not posted then all the vaidation will be done and depending existanse in check table

*corresponding enrty is moved to the error table.

ELSE.

CLEAR w_post.

MOVE it_input-xblnr TO w_xblnr.

validations for document type

IF NOT it_input-blart IS INITIAL.

READ TABLE it_blart

WITH KEY blart = it_input-blart

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

MOVE text-018 TO wa_input_err-err_text.

ENDIF.

*validation for company code

IF pr_bukrs NE it_input-bukrs.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-005 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for currency

IF pr_waers NE it_input-waers.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-006 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for GL account number

IF NOT it_input-newko IS INITIAL.

MOVE it_input-newko TO w_newko.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = w_newko

IMPORTING

output = w_newko.

READ TABLE it_ska1

WITH KEY saknr = w_newko

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

READ TABLE it_lifnr

WITH KEY lifnr = w_newko

bukrs = it_input-newbk

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-029 INTO wa_input_err-err_text.

ENDIF.

**validation for vendor account number

*

IF NOT it_input-newko IS INITIAL.
MOVE it_input-newko TO w_newko.

*

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = w_newko
IMPORTING
output = w_newko.

*

READ TABLE it_lifnr
WITH KEY lifnr = w_newko
TRANSPORTING NO FIELDS.

*

IF sy-subrc NE 0.

*

MOVE w_xblnr TO wa_input_err-xblnr.
MOVE w_item_no TO wa_input_err-item_no.
CONCATENATE wa_input_err-err_text text-029 INTO wa_input_err-err_text SEPARATED BY space.
ENDIF.

*

ENDIF.

*

*validation for taxcode

IF NOT it_input-mwskz IS INITIAL.

READ TABLE it_mwskz

WITH KEY mwskz = it_input-mwskz

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-007 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for with taxcode

IF NOT it_input-wt_wit IS INITIAL.

READ TABLE it_qsskz

WITH KEY qsskz = it_input-wt_wit

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-008 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validaton for payment terms

IF NOT it_input-zterm IS INITIAL.

READ TABLE it_zterm

WITH KEY zterm = it_input-zterm

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-009 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for posting key

IF NOT it_input-newbs IS INITIAL.

READ TABLE it_bschl

WITH KEY bschl = it_input-newbs

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-010 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for spl gl indicator

IF NOT it_input-newum IS INITIAL.

READ TABLE it_umskz

WITH KEY umskz = it_input-newum

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-011 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for profitcenter

IF NOT it_input-prctr IS INITIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = it_input-prctr

IMPORTING

output = it_input-prctr.

READ TABLE it_prctr

WITH KEY prctr = it_input-prctr

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-015 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for costcenter

IF NOT it_input-kostl IS INITIAL.

READ TABLE it_kostl

WITH KEY kostl = it_input-kostl

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-012 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for business place

IF NOT it_input-bupla IS INITIAL.

READ TABLE it_branch

WITH KEY branch = it_input-bupla

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

CONCATENATE wa_input_err-err_text text-014 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for internal order

IF NOT it_input-aufnr IS INITIAL.

READ TABLE it_aufnr

WITH KEY aufnr = it_input-aufnr

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

CONCATENATE wa_input_err-err_text text-026 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for personal number

IF NOT it_input-pernr IS INITIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = it_input-pernr

IMPORTING

output = it_input-pernr.

READ TABLE it_pernr

WITH KEY pernr = it_input-pernr

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

CONCATENATE wa_input_err-err_text 'invalid pernr' INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for sectioncode

IF NOT it_input-secco IS INITIAL.

*

READ TABLE it_seccode
WITH KEY seccode = it_input-secco
TRANSPORTING NO FIELDS.

*

IF sy-subrc NE 0.
MOVE w_xblnr TO wa_input_err-xblnr.
CONCATENATE wa_input_err-err_text text-013 INTO wa_input_err-err_text SEPARATED BY space.
ENDIF.

*

ENDIF.

*

*Checking the debit credit indicator for the line item amount.

*if the indicator is credit then amount is multiplied with -1.

*if the indicator is debit then positive amount is retained.

READ TABLE it_tbsl INTO wa_it_tbsl

WITH KEY bschl = it_input-newbs.

IF sy-subrc EQ 0.

IF wa_it_tbsl-shkzg EQ 'S'.

MOVE it_input-wrbtr TO w_wrbtr.

ELSE.

w_wrbtr2 = it_input-wrbtr * -1.

MOVE w_wrbtr2 TO w_wrbtr.

ENDIF.

*Finally after performing all the validations if the error table is not empty

*then only move the work area content to the internal table.

IF NOT wa_input_err IS INITIAL.

APPEND wa_input_err TO it_input_err.

ENDIF.

*If the record is not the header record then check whether post flag is initial or not.

*Means it is a item record and it is not posted in the SAP

*So for such entry do all the validations on the item level.

ELSEIF w_post IS INITIAL.

*keeping the track of item number for error record.

w_item_no = w_item_no + 1.

*validation for taxcode

IF NOT it_input-mwskz IS INITIAL.

READ TABLE it_mwskz

WITH KEY mwskz = it_input-mwskz

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-007 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for withtax code

IF NOT it_input-wt_wit IS INITIAL.

READ TABLE it_qsskz

WITH KEY qsskz = it_input-wt_wit

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-008 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for payment terms

IF NOT it_input-zterm IS INITIAL.

READ TABLE it_zterm

WITH KEY zterm = it_input-zterm

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-009 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for posting key

IF NOT it_input-newbs IS INITIAL.

READ TABLE it_bschl

WITH KEY bschl = it_input-newbs

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-010 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for spl gl indicator

IF NOT it_input-newum IS INITIAL.

READ TABLE it_umskz

WITH KEY umskz = it_input-newum

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-011 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for gl account number

IF NOT it_input-newko IS INITIAL.

MOVE it_input-newko TO w_newko.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = w_newko

IMPORTING

output = w_newko.

READ TABLE it_ska1

WITH KEY saknr = w_newko

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

READ TABLE it_lifnr

WITH KEY lifnr = w_newko

bukrs = it_input-newbk

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-023 INTO wa_input_err-err_text.

ENDIF.

**validation for vendor account number

*

IF NOT it_input-newko IS INITIAL.
MOVE it_input-newko TO w_newko.

*

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = w_newko
IMPORTING
output = w_newko.

*

READ TABLE it_lifnr
WITH KEY lifnr = w_newko
TRANSPORTING NO FIELDS.

*

IF sy-subrc NE 0.

*

MOVE w_xblnr TO wa_input_err-xblnr.
MOVE w_item_no TO wa_input_err-item_no.
CONCATENATE wa_input_err-err_text text-029 INTO wa_input_err-err_text SEPARATED BY space.
ENDIF.

*

ENDIF.

*

*validation for profitcenter

IF NOT it_input-prctr IS INITIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = it_input-prctr

IMPORTING

output = it_input-prctr.

READ TABLE it_prctr

WITH KEY prctr = it_input-prctr

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-015 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for costcenter

IF NOT it_input-kostl IS INITIAL.

READ TABLE it_kostl

WITH KEY kostl = it_input-kostl

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-012 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for business place

IF NOT it_input-bupla IS INITIAL.

READ TABLE it_branch

WITH KEY branch = it_input-bupla

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

MOVE w_item_no TO wa_input_err-item_no.

CONCATENATE wa_input_err-err_text text-014 INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for internal order

IF NOT it_input-aufnr IS INITIAL.

READ TABLE it_aufnr

WITH KEY aufnr = it_input-aufnr

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

CONCATENATE wa_input_err-err_text 'invalid aufnr' INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for personal number

IF NOT it_input-pernr IS INITIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = it_input-pernr

IMPORTING

output = it_input-pernr.

READ TABLE it_pernr

WITH KEY pernr = it_input-pernr

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

MOVE w_xblnr TO wa_input_err-xblnr.

CONCATENATE wa_input_err-err_text 'invalid pernr' INTO wa_input_err-err_text SEPARATED BY space.

ENDIF.

*validation for sectioncode

IF NOT it_input-secco IS INITIAL.

*

READ TABLE it_seccode
WITH KEY seccode = it_input-secco
TRANSPORTING NO FIELDS.

*

IF sy-subrc NE 0.
MOVE w_xblnr TO wa_input_err-xblnr.
MOVE w_item_no TO wa_input_err-item_no.
CONCATENATE wa_input_err-err_text text-013 INTO wa_input_err-err_text SEPARATED BY space.
ENDIF.

*

ENDIF.

*Checking the debit credit indicator for the line item amount.

*if the indicator is credit then amount is multiplied with -1.

*if the indicator is debit then positive amount is retained.

READ TABLE it_tbsl INTO wa_it_tbsl

WITH KEY bschl = it_input-newbs.

IF sy-subrc EQ 0.

CLEAR w_wrbtr1.

IF wa_it_tbsl-shkzg EQ 'S'.

MOVE it_input-wrbtr TO w_wrbtr1.

ELSE.

w_wrbtr2 = it_input-wrbtr * -1 .

MOVE w_wrbtr2 TO w_wrbtr1.

ENDIF.

*Adding the all the item amount.

w_wrbtr = w_wrbtr + w_wrbtr1.

*Finally after performing all the validations if the error table is not empty

*then only move the work area content to the internal table.

IF NOT wa_input_err IS INITIAL.

APPEND wa_input_err TO it_input_err.

ENDIF.

*Finally if the record is not header record and post flag is also set for that

*corresponding header record then skip the current record.

*Means skipping the items which are alredy posted.

ELSE.

CONTINUE.

ENDIF.

IF w_post EQ 'X'.

IF it_input-ind IS INITIAL.

**

MOVE w_xblnr TO wa_input_err-xblnr.

**

MOVE 'record already posted' TO wa_input_err-err_text.

**

ENDIF.

*

CONTINUE.

ENDLOOP.

w_count1 = w_count1 + 1.

*After all the validation for the all the record in the file if error table filled

*then move the error table to the error file on the server in the ERROR directory.

IF NOT it_input_err IS INITIAL.

WRITE sy-datum TO w_date.

CONCATENATE w_path_err pr_err c_under w_date c_under w_count1 c_ext INTO file.

OPEN DATASET file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

LOOP AT it_input_err INTO wa_input_err.

TRANSFER wa_input_err TO file.

IF sy-subrc NE 0.

MESSAGE i001(mg) WITH file. " error writing to sequential file

MESSAGE a099(mg). " processing terminated

ENDIF.

ENDLOOP.

CLOSE DATASET file.

*If there is a error in the file then this whole file content is moved into the error

*directory with same name.

*moving the file name to temporary variable.

CONCATENATE w_path_err it_file-name INTO w_path_capinv2.

OPEN DATASET w_path_capinv2 FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

w_path_capinv2 contains the path of the error file.

*so all of the content of it_input is tranfered to file which is stored in the error.

LOOP AT it_input.

TRANSFER it_input TO w_path_capinv2 .

IF sy-subrc NE 0.

MESSAGE i001(mg) WITH w_path_capinv2 . " error writing to sequential file

MESSAGE a099(mg). " processing terminated

ENDIF.

ENDLOOP.

CLOSE DATASET w_path_capinv2.

*After moving file to error directory that file is now deleted from its original directory.

CONCATENATE w_path_capinv it_file-name INTO w_path_capinv1.

DELETE DATASET w_path_capinv1.

*clearing the temporary variable.

CLEAR w_path_capinv1.

CLEAR w_path_capinv2.

*If error table is empty then flag is set.

ELSE.

MOVE 'X' TO w_check.

ENDIF.

ENDFORM. " f002_validate

&----

*& Form next_steps

&----

text

----

--> p1 text
<-- p2 text

----

FORM next_steps .

validations

PERFORM f002_validate.

*If the error table is empty then only do the posting otherwise flash a error.

IF w_check EQ 'X'.

PERFORM f003_create_doc.

ELSE.

WRITE :/'There are some errors in the file .Please check the error directory'.

ENDIF.

ENDFORM. " next_steps

*Text elements

*----

001 Input File
002 Output File
003 Company Code
004 File not Available
005 Invalid Company Code
006 Invalid Currency
007 Invalid Tax Code
008 Invalid With-holding Tax Code
009 Invalid Payment terms
010 Incorrect Posting key
011 Invalid Spl Gl Indicator
012 Invalid Cost Center
013 Invalid Section Code
014 Invalid Business Place
015 Invalid Profit Center
016 Invalid Amount In Items
017 Record Already Posted
018 Invalid Document Type
019 Invalid Amount In Items
020 8000
021 Checking File for valid company code
022 Directory not Found
023 File not Found
024 Record Already Posted
025 Invalid GL Account Number
026 Invalid Internal Order Number
027 Invalid Personal Number
028 There are some errors in the file .Please check the error directory
029 Invalid Vendor account number

*Selection texts

*----

CALLMODE Data transfer type
PR_BUKRS Company Code
PR_ERR Error file
PR_GROUP Session name
PR_LFILE Local file
PR_LOK Local
PR_MAX No. of docs per commit
PR_OUT Output file
PR_SERV Server
PR_SFILE Server file
PR_WAERS Currency

Former Member · ‎2007 Sep 09

Dear Mr. Naveen,

Thank you for nice code, please I need to use same program for Park the document , can you help on this. Actually i don't know any thing please.. help me.

My Requirement is Parking Documents Using Standard program rfbibl00, please can you suggest how the standard file .

how to transfer my text file to the program understandable file

please help

sincerely

Former Member · ‎2015 Feb 13

This message was moderated.

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

RFBIBL00 for FB01 - BATCH INPUT ERROR