No vendor specified

[Former Member]

Hi ,

I am getting Information message

when i am executing session.

report ZINVV

no standard page heading line-size 255.

*include bdcrecx1.

data: it_bdcdata type standard table of bdcdata with header line.

Types: begin of t_ven,

lifnr type lifnr,

begda(10) type c,

end of t_ven .

data: g_ven type standard table of t_ven initial size 0,

wa type t_ven.

data : lv_filename type string.

data : vv_file type ibipparms-path .

selection-screen: begin of block 1 with frame.

parameters: v_snam like apqi-groupid modif id md2,

p_keep like apqi-qerase default 'X' modif id md2,

p_uname like apqi-userid default sy-uname obligatory modif id md2.

selection-screen: end of block 1.

parameter p_infile like rlgrap-filename.

at selection-screen on value-request for p_infile .

call function 'F4_FILENAME'

importing

file_name = vv_file.

p_infile = vv_file .

start-of-selection.

perform upload_file.

perform open_group.

*loop at g_ven into wa.

perform bdc_dynpro using 'SAPMF05A' '1100'.

perform bdc_field using 'BDC_OKCODE'

'=DUMMY'.

perform bdc_field using 'RF05A-BUSCS'

'R'.

perform bdc_field using 'BDC_CURSOR'

'INVFO-MWSKZ'.

perform bdc_field using 'INVFO-ACCNT'

'3000000176'.

perform bdc_field using 'INVFO-BLDAT'

'27.08.2008'.

perform bdc_field using 'INVFO-BUDAT'

'27.08.2008'.

*perform bdc_field using 'INVFO-WAERS'

• 'USD'.

perform bdc_field using 'INVFO-MWSKZ'

'E0'.

perform bdc_field using 'INVFO-WRBTR' '200'."add

perform bdc_field using 'INVFO-SGTXT' 'test'. "add

perform bdc_dynpro using 'SAPMF05A' '1100'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

perform bdc_field using 'RF05A-BUSCS'

'R'.

perform bdc_field using 'INVFO-ACCNT'

'3000000176'.

perform bdc_field using 'INVFO-MWSKZ'

'E0'.

perform bdc_field using 'BDC_CURSOR'

'ACGL_ITEM-KOSTL(01)'.

perform bdc_field using 'ACGL_ITEM-HKONT(01)'

'061100'.

perform bdc_field using 'ACGL_ITEM-WRBTR(01)'

' 200'.

perform bdc_field using 'ACGL_ITEM-KOSTL(01)'

'110301'.

*perform bdc_transaction using 'FB60'.

perform bdc_insertt.

clear : it_bdcdata.

refresh : it_bdcdata.

*endloop.

perform close_group.

form upload_file .

lv_filename = p_infile.

call method cl_gui_frontend_services=>gui_upload

exporting

filename = lv_filename

filetype = 'ASC'

has_field_separator = 'X'

• HEADER_LENGTH = 0

• READ_BY_LINE = 'X'

• DAT_MODE = SPACE

• CODEPAGE = SPACE

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

• VIRUS_SCAN_PROFILE =

• IMPORTING

• FILELENGTH =

• HEADER =

changing

data_tab = g_ven

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

not_supported_by_gui = 17

error_no_gui = 18

others = 19.

endform.

form open_group .

call function 'BDC_OPEN_GROUP'

exporting

client = sy-mandt

group = v_snam

keep = p_keep

user = p_uname

exceptions

client_invalid = 1

destination_invalid = 2

group_invalid = 3

group_is_locked = 4

holddate_invalid = 5

internal_error = 6

queue_error = 7

running = 8

system_lock_error = 9

user_invalid = 10

others = 11.

endform. " OPEN_GROUP

form bdc_insertt .

call function 'BDC_INSERT'

exporting

tcode = 'FB60'

tables

dynprotab = it_bdcdata.

if sy-subrc = 0.

message 'sesion created' type 'S'.

endif.

endform. " BDC_INSERTT

form close_group .

call function 'BDC_CLOSE_GROUP'

exceptions

not_open = 1

queue_error = 2

others = 3.

if sy-subrc = 0.

endif.

endform.

form bdc_dynpro using program dynpro.

clear it_bdcdata.

it_bdcdata-program = program.

it_bdcdata-dynpro = dynpro.

it_bdcdata-dynbegin = 'X'.

append it_bdcdata.

endform.

*----

---

*Insert field *

*----

---

form bdc_field using fnam fval.

clear it_bdcdata.

it_bdcdata-fnam = fnam.

it_bdcdata-fval = fval.

append it_bdcdata.

endform.

Thanks,

Asha

[Former Member]

Hi ,

I am getting Information message

when i am executing session.

report ZINVV

no standard page heading line-size 255.

*include bdcrecx1.

data: it_bdcdata type standard table of bdcdata with header line.

Types: begin of t_ven,

lifnr type lifnr,

begda(10) type c,

end of t_ven .

data: g_ven type standard table of t_ven initial size 0,

wa type t_ven.

data : lv_filename type string.

data : vv_file type ibipparms-path .

selection-screen: begin of block 1 with frame.

parameters: v_snam like apqi-groupid modif id md2,

p_keep like apqi-qerase default 'X' modif id md2,

p_uname like apqi-userid default sy-uname obligatory modif id md2.

selection-screen: end of block 1.

parameter p_infile like rlgrap-filename.

at selection-screen on value-request for p_infile .

call function 'F4_FILENAME'

importing

file_name = vv_file.

p_infile = vv_file .

start-of-selection.

perform upload_file.

perform open_group.

*loop at g_ven into wa.

perform bdc_dynpro using 'SAPMF05A' '1100'.

perform bdc_field using 'BDC_OKCODE'

'=DUMMY'.

perform bdc_field using 'RF05A-BUSCS'

'R'.

perform bdc_field using 'BDC_CURSOR'

'INVFO-MWSKZ'.

perform bdc_field using 'INVFO-ACCNT'

'3000000176'.

perform bdc_field using 'INVFO-BLDAT'

'27.08.2008'.

perform bdc_field using 'INVFO-BUDAT'

'27.08.2008'.

*perform bdc_field using 'INVFO-WAERS'

• 'USD'.

perform bdc_field using 'INVFO-MWSKZ'

'E0'.

perform bdc_field using 'INVFO-WRBTR' '200'."add

perform bdc_field using 'INVFO-SGTXT' 'test'. "add

perform bdc_dynpro using 'SAPMF05A' '1100'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

perform bdc_field using 'RF05A-BUSCS'

'R'.

perform bdc_field using 'INVFO-ACCNT'

'3000000176'.

perform bdc_field using 'INVFO-MWSKZ'

'E0'.

perform bdc_field using 'BDC_CURSOR'

'ACGL_ITEM-KOSTL(01)'.

perform bdc_field using 'ACGL_ITEM-HKONT(01)'

'061100'.

perform bdc_field using 'ACGL_ITEM-WRBTR(01)'

' 200'.

perform bdc_field using 'ACGL_ITEM-KOSTL(01)'

'110301'.

*perform bdc_transaction using 'FB60'.

perform bdc_insertt.

clear : it_bdcdata.

refresh : it_bdcdata.

*endloop.

perform close_group.

form upload_file .

lv_filename = p_infile.

call method cl_gui_frontend_services=>gui_upload

exporting

filename = lv_filename

filetype = 'ASC'

has_field_separator = 'X'

• HEADER_LENGTH = 0

• READ_BY_LINE = 'X'

• DAT_MODE = SPACE

• CODEPAGE = SPACE

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

• VIRUS_SCAN_PROFILE =

• IMPORTING

• FILELENGTH =

• HEADER =

changing

data_tab = g_ven

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

not_supported_by_gui = 17

error_no_gui = 18

others = 19.

endform.

form open_group .

call function 'BDC_OPEN_GROUP'

exporting

client = sy-mandt

group = v_snam

keep = p_keep

user = p_uname

exceptions

client_invalid = 1

destination_invalid = 2

group_invalid = 3

group_is_locked = 4

holddate_invalid = 5

internal_error = 6

queue_error = 7

running = 8

system_lock_error = 9

user_invalid = 10

others = 11.

endform. " OPEN_GROUP

form bdc_insertt .

call function 'BDC_INSERT'

exporting

tcode = 'FB60'

tables

dynprotab = it_bdcdata.

if sy-subrc = 0.

message 'sesion created' type 'S'.

endif.

endform. " BDC_INSERTT

form close_group .

call function 'BDC_CLOSE_GROUP'

exceptions

not_open = 1

queue_error = 2

others = 3.

if sy-subrc = 0.

endif.

endform.

form bdc_dynpro using program dynpro.

clear it_bdcdata.

it_bdcdata-program = program.

it_bdcdata-dynpro = dynpro.

it_bdcdata-dynbegin = 'X'.

append it_bdcdata.

endform.

*----

---

*Insert field *

*----

---

form bdc_field using fnam fval.

clear it_bdcdata.

it_bdcdata-fnam = fnam.

it_bdcdata-fval = fval.

append it_bdcdata.

endform.

Thanks,

Asha

[kesavadas_thekkillath]

THis is the area wher the problem is...i think ur using Ecc6.

In Ecc6 i got the same error.

message 'sesion created' type 'S'.

instead if this

Try the message using a message class like below.

message S000(ZSD) with 'Session Created'.

[Former Member]

ans