UploadProgramm for Cash JOurnal

[Former Member]

HI Guru's,

following upload program for FBCJ-Cash journal showing error..its failing to upload the file.. showing error.. any one can help me..

report ZTESTFBCJ

no standard page heading line-size 255.

Tables : TCJ_C_JOURNALS , ISCJ_E_POSTINGS.

data: begin of bdcdata occurs 0,

COMP_CODE TYPE TCJ_C_JOURNALS-COMP_CODE,

CAJO_NUMBER TYPE TCJ_C_JOURNALS-CAJO_NUMBER,

TRANSACT_NAME TYPE ISCJ_E_POSTINGS-TRANSACT_NAME,

H_PAYMENTS TYPE ISCJ_E_POSTINGS-H_PAYMENTS,

TAX_CODE TYPE ISCJ_E_POSTINGS-TAX_CODE,

POSITION_TEXT TYPE ISCJ_E_POSTINGS-POSITION_TEXT,

DOCUMENT_NUMBER TYPE ISCJ_E_POSTINGS-DOCUMENT_NUMBER,

POSTING_DATE TYPE ISCJ_E_POSTINGS-POSTING_DATE,

DOCUMENT_DATE TYPE ISCJ_E_POSTINGS-DOCUMENT_DATE,

KOSTL TYPE ISCJ_E_POSTINGS-KOSTL,

end of bdcdata.

data : it_bdcdata type standard table of bdcdata .

data : wa_bdcdata type bdcdata.

SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME.

PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.

SELECTION-SCREEN : END OF BLOCK blk.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = p_file

FLETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

DATA_TAB = bdcdata

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_bdcdata into wa_bdcdata.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.

perform bdc_field using 'BDC_OKCODE'

' =CHCJ'.

perform bdc_field using 'F_DISPLAY_PERIOD_LO'

'03.11.2008'.

perform bdc_field using 'F_DISPLAY_PERIOD_HI'

'03.11.2008'.

perform bdc_field using 'BDC_CURSOR'

'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'.

perform bdc_dynpro using 'SAPMFCJ0' '0050'.

perform bdc_field using 'BDC_CURSOR'

'TCJ_C_JOURNALS-CAJO_NUMBER'.

perform bdc_field using 'BDC_OKCODE'

'=OK50'.

perform bdc_field using 'TCJ_C_JOURNALS-COMP_CODE'

'a1sg'.

perform bdc_field using 'TCJ_C_JOURNALS-CAJO_NUMBER'

'a500'.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.

perform bdc_field using 'BDC_OKCODE'

'=POST'.

perform bdc_field using 'F_DISPLAY_PERIOD_LO'

'03.11.2008'.

perform bdc_field using 'F_DISPLAY_PERIOD_HI'

'03.11.2008'.

perform bdc_field using 'BDC_CURSOR'

'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'.

perform bdc_field using 'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'

'postage'.

perform bdc_field using 'ISCJ_E_POSTINGS-H_PAYMENTS(02)'

' 10'.

perform bdc_field using 'ISCJ_E_POSTINGS-TAX_CODE(02)'

'p5'.

perform bdc_field using 'ISCJ_E_POSTINGS-POSITION_TEXT(02)'

'test'.

perform bdc_field using 'ISCJ_E_POSTINGS-POSTING_DATE(02)'

'03.11.2008'.

perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_DATE(02)'

'03.11.2008'.

perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_NUMBER(02)'

'test'.

perform bdc_field using 'ISCJ_E_POSTINGS-KOSTL(02)'

'a3070020'.

perform bdc_field using 'F_LINE_SEL(02)'

'X'.

endloop.

call transaction 'FBCJ' using it_BDCDATA.

*----

---

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR wa_BDCDATA.

wa_BDCDATA-PROGRAM = PROGRAM.

wa_BDCDATA-DYNPRO = DYNPRO.

wa_BDCDATA-DYNBEGIN = 'X'.

APPEND wa_BDCDATA to it_bdcdata.

ENDFORM.

*----

---

*Insert field

*----

---

FORM BDC_FIELD USING FNAM FVAL.

CLEAR wa_BDCDATA.

wa_BDCDATA-FNAM = FNAM.

wa_BDCDATA-FVAL = FVAL.

APPEND wa_BDCDATA to it_bdcdata.

ENDFORM.

regards

JK

[Former Member]

Hi

ort ZTESTFBCJ
no standard page heading line-size 255.
Tables : TCJ_C_JOURNALS , ISCJ_E_POSTINGS.

data: begin of bdcdata occurs 0,
COMP_CODE TYPE TCJ_C_JOURNALS-COMP_CODE,
CAJO_NUMBER TYPE TCJ_C_JOURNALS-CAJO_NUMBER,
TRANSACT_NAME TYPE ISCJ_E_POSTINGS-TRANSACT_NAME,
H_PAYMENTS TYPE ISCJ_E_POSTINGS-H_PAYMENTS,
TAX_CODE TYPE ISCJ_E_POSTINGS-TAX_CODE,
POSITION_TEXT TYPE ISCJ_E_POSTINGS-POSITION_TEXT,
DOCUMENT_NUMBER TYPE ISCJ_E_POSTINGS-DOCUMENT_NUMBER,
POSTING_DATE TYPE ISCJ_E_POSTINGS-POSTING_DATE,
DOCUMENT_DATE TYPE ISCJ_E_POSTINGS-DOCUMENT_DATE,
KOSTL TYPE ISCJ_E_POSTINGS-KOSTL,
end of bdcdata.

data : it_bdcdata type standard table of bdcdata .
data : wa_bdcdata type bdcdata.
SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME.
PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK blk.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE. "add this to the code.

  CALL FUNCTION 'F4_FILENAME'
* EXPORTING
*   PROGRAM_NAME        = SYST-CPROG
*   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ' '
     IMPORTING
       FILE_NAME           = P_File.



start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = p_file
FLETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
DATA_TAB = bdcdata
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_bdcdata into wa_bdcdata.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.
perform bdc_field using 'BDC_OKCODE'
' =CHCJ'.
perform bdc_field using 'F_DISPLAY_PERIOD_LO'
'03.11.2008'.
perform bdc_field using 'F_DISPLAY_PERIOD_HI'
'03.11.2008'.
perform bdc_field using 'BDC_CURSOR'
'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'.
perform bdc_dynpro using 'SAPMFCJ0' '0050'.
perform bdc_field using 'BDC_CURSOR'
'TCJ_C_JOURNALS-CAJO_NUMBER'.
perform bdc_field using 'BDC_OKCODE'
'=OK50'.
perform bdc_field using 'TCJ_C_JOURNALS-COMP_CODE'
'a1sg'.
perform bdc_field using 'TCJ_C_JOURNALS-CAJO_NUMBER'
'a500'.
perform bdc_dynpro using 'SAPMFCJ0' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=POST'.
perform bdc_field using 'F_DISPLAY_PERIOD_LO'
'03.11.2008'.
perform bdc_field using 'F_DISPLAY_PERIOD_HI'
'03.11.2008'.
perform bdc_field using 'BDC_CURSOR'
'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'.
perform bdc_field using 'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'
'postage'.
perform bdc_field using 'ISCJ_E_POSTINGS-H_PAYMENTS(02)'
' 10'.
perform bdc_field using 'ISCJ_E_POSTINGS-TAX_CODE(02)'
'p5'.
perform bdc_field using 'ISCJ_E_POSTINGS-POSITION_TEXT(02)'
'test'.
perform bdc_field using 'ISCJ_E_POSTINGS-POSTING_DATE(02)'
'03.11.2008'.
perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_DATE(02)'
'03.11.2008'.
perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_NUMBER(02)'
'test'.
perform bdc_field using 'ISCJ_E_POSTINGS-KOSTL(02)'
'a3070020'.
perform bdc_field using 'F_LINE_SEL(02)'
'X'.

endloop.

call transaction 'FBCJ' using it_BDCDATA.

*----------------------------------------------------------------------
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR wa_BDCDATA.
wa_BDCDATA-PROGRAM = PROGRAM.
wa_BDCDATA-DYNPRO = DYNPRO.
wa_BDCDATA-DYNBEGIN = 'X'.
APPEND wa_BDCDATA to it_bdcdata.
ENDFORM.

*----------------------------------------------------------------------

*Insert field
*----------------------------------------------------------------------
FORM BDC_FIELD USING FNAM FVAL.
CLEAR wa_BDCDATA.
wa_BDCDATA-FNAM = FNAM.
wa_BDCDATA-FVAL = FVAL.
APPEND wa_BDCDATA to it_bdcdata.
ENDFORM.

Regards,

VIshwa.

[Former Member]

HI Thanks for your reply...as per file format its not data not uploading prperly...

data format is: A1SG A500 POSTAGE 1000 P5 TEST 20081103 20081103 TEST A300700

data reading like this...

A1SG |0500 |P |1000

this is my code:

report ZTESTFBCJ

no standard page heading line-size 255.

Tables : TCJ_C_JOURNALS , ISCJ_E_POSTINGS.

data: begin of bdcdata occurs 0,

COMP_CODE TYPE TCJ_C_JOURNALS-COMP_CODE,

CAJO_NUMBER TYPE TCJ_C_JOURNALS-CAJO_NUMBER,

TRANSACT_NAME TYPE ISCJ_E_POSTINGS-TRANSACT_NAME,

H_PAYMENTS TYPE ISCJ_E_POSTINGS-H_PAYMENTS,

TAX_CODE TYPE ISCJ_E_POSTINGS-TAX_CODE,

POSITION_TEXT TYPE ISCJ_E_POSTINGS-POSITION_TEXT,

DOCUMENT_NUMBER TYPE ISCJ_E_POSTINGS-DOCUMENT_NUMBER,

POSTING_DATE TYPE ISCJ_E_POSTINGS-POSTING_DATE,

DOCUMENT_DATE TYPE ISCJ_E_POSTINGS-DOCUMENT_DATE,

KOSTL TYPE ISCJ_E_POSTINGS-KOSTL,

end of bdcdata.

data : it_bdcdata type standard table of bdcdata .

data : wa_bdcdata type bdcdata.

SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME.

PARAMETERS : p_file(50) type c obligatory.

SELECTION-SCREEN : END OF BLOCK blk.

data : v_file type string.

v_file = p_file.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = V_FILE

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

tables

data_tab = it_bdcdata

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.

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_bdcdata into wa_bdcdata.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.

perform bdc_field using 'BDC_CURSOR'

'F_DISPLAY_PERIOD_HI'.

perform bdc_field using 'BDC_OKCODE'

'=CHCJ'.

*perform bdc_field using 'F_DISPLAY_PERIOD_LO'

• wa_bdcdata-F_DISPLAY_PERIOD_LO.

*perform bdc_field using 'F_DISPLAY_PERIOD_HI'

• wa_bdcdata-F_DISPLAY_PERIOD_HI.

perform bdc_dynpro using 'SAPMFCJ0' '0050'.

perform bdc_field using 'BDC_CURSOR'

'TCJ_C_JOURNALS-CAJO_NUMBER'.

perform bdc_field using 'BDC_OKCODE'

'=OK50'.

perform bdc_field using 'TCJ_C_JOURNALS-COMP_CODE'

bdcdata-COMP_CODE.

perform bdc_field using 'TCJ_C_JOURNALS-CAJO_NUMBER'

bdcdata-CAJO_NUMBER.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.

perform bdc_field using 'BDC_OKCODE'

'=POST'.

*perform bdc_field using 'F_DISPLAY_PERIOD_LO'

• bdcdata-F_DISPLAY_PERIOD_LO.

*perform bdc_field using 'F_DISPLAY_PERIOD_HI'

• bdcdata-F_DISPLAY_PERIOD_HI.

perform bdc_field using 'BDC_CURSOR'

'ISCJ_E_POSTINGS-TRANSACT_NAME(01)'.

perform bdc_field using 'ISCJ_E_POSTINGS-TRANSACT_NAME(01)'

bdcdata-TRANSACT_NAME.

perform bdc_field using 'ISCJ_E_POSTINGS-H_PAYMENTS(01)'

bdcdata-H_PAYMENTS.

perform bdc_field using 'ISCJ_E_POSTINGS-POSITION_TEXT(01)'

bdcdata-POSITION_TEXT.

perform bdc_field using 'ISCJ_E_POSTINGS-POSTING_DATE(01)'

bdcdata-POSTING_DATE.

perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_DATE(01)'

bdcdata-DOCUMENT_DATE.

perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_NUMBER(01)'

bdcdata-DOCUMENT_NUMBER.

perform bdc_field using 'ISCJ_E_POSTINGS-KOSTL(01)'

bdcdata-KOSTL.

perform bdc_field using 'F_LINE_SEL(01)'

'X'.

endloop.

call transaction 'FBCJ' using it_BDCDATA.

*----

---

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR wa_BDCDATA.

wa_BDCDATA-PROGRAM = PROGRAM.

wa_BDCDATA-DYNPRO = DYNPRO.

wa_BDCDATA-DYNBEGIN = 'X'.

APPEND wa_BDCDATA to it_bdcdata.

ENDFORM.

*----

---

*Insert field

*----

---

FORM BDC_FIELD USING FNAM FVAL.

CLEAR wa_BDCDATA.

wa_BDCDATA-FNAM = FNAM.

wa_BDCDATA-FVAL = FVAL.

APPEND wa_BDCDATA to it_bdcdata.

ENDFORM.

regards

JK

[Former Member]

Hi

In GUI_Upload, you have given field seperator right?.. So, check in the flat file..If the gap between one field to the other is only one Tab or more than that.

What I meant is:

A1SG |0500 |P |1000

Between A1SG and 0500, the gap should be of one tab only,you can check that by keeping the cursor after G at the first field..and when u hit tab..it should take u to 0 which is the first number in the next field...I think there is gap betwen G and 0...the gap should be exactly of that of the Tab and not more than that.

Check once in the flat file.

Regards,

Vishwa.

[Former Member]

HI,

Which format i need to save.. the file..

thanks

regards

JK

[Former Member]

Save it in .txt format..like in Notepad.

Vishwa.