topic Re: Problem in Open dataset in background in Application Development and Automation Discussions

Problem in Open dataset in background

Former Member — Wed, 23 May 2007 00:55:02 GMT

Hi All,

Iam facing the problem in Open dataset in background. It is working fine in foreground.

Iam able to read only one line from the application server file in background.

Please find below the code.

IF sy-batch = wl_x.

OPEN DATASET pa_sfile FOR INPUT IN TEXT MODE encoding default. "

IF sy-subrc = 0.

DO.

READ DATASET pa_sfile INTO wf_string.

IF sy-subrc <> 0.

EXIT.

ELSE.

SPLIT wf_string AT cl_abap_char_utilities=>horizontal_tab INTO wa_upload-

field1 wa_upload-field2 wa_upload-field3

wa_upload-field4 wa_upload-field5 wa_upload-field6 wa_upload-field7

wa_upload-field8 wa_upload-field9 wa_upload-field10 wa_upload-field11 wa_upload-field12 wa_upload-field13 wa_upload-field14 wa_upload-field15 wa_upload-field16 wa_upload-field17 wa_upload-field18 wa_upload-field19 wa_upload-field20 wa_upload-field21 wa_upload-field22 wa_upload-field23

wa_upload-field24 wa_upload-field25 wa_upload-field26 wa_upload-field27 wa_upload-field28 wa_upload-field29 wa_upload-field30 wa_upload-field31 wa_upload-field32 wa_upload-field33 wa_upload-field34 wa_upload-field35 wa_upload-field36 .

APPEND wa_upload TO int_upload.

CLEAR wa_upload.

ENDIF.

ENDDO.

CLOSE DATASET pa_sfile.

Thanks in advance.

Quick suggestions are highly appreciated.

Best Regards,

Brahma Reddy

Re: Problem in Open dataset in background

Former Member — Wed, 23 May 2007 01:06:57 GMT

Hi Brahma,

Can you please post the whole code, as you are saying that program works fine in foreground but you are checking IF sy-batch = wl_x.

Regards,

Atish

Re: Problem in Open dataset in background

Former Member — Wed, 23 May 2007 01:12:43 GMT

Thanks for the reply.

Here is the whole code.

Here iam submitting one job to the backgrond. But if iam executing it in debugging mode by changing the values of sy-batch( without submitting to background ) at run time, my program is working fine.

REPORT zvtraffic_carrier_upload

NO STANDARD PAGE HEADING LINE-SIZE 255

MESSAGE-ID zmmx.

************************************************************************

*Data Declarations *

************************************************************************

TABLES: vtrkh,

vekp,

zvship_non_pkgs.

declaration of data

DATA:

wf_filename LIKE ibipparms-path, "file with path

wf_file LIKE ibipparms-path, "file

wf_extsn(3) TYPE c , "file extension

wf_recnt TYPE i,

wf_recok TYPE i,

*+001 Begin

wf_string TYPE string,

wf_mess TYPE string,

wf_field1 TYPE string,

wf_field2(30) TYPE c,

wf_sum_source_file TYPE rlgrap-filename ,

wf_sum_dest_file TYPE rlgrap-filename ,

wf_path LIKE rlgrap-filename,

wf_path TYPE salfile-longname

VALUE '/usr/sap/nfs/erp/UTL/',

*+001 End

wf_complete_file LIKE pcfile-path. "total file path

declaration of counters

DATA:

wc_rec(6) TYPE c, "total record counter

wc_success_rec(6) TYPE c, "no of rec.having no errors

wc_error_rec(6) TYPE c, "no of rec. having errors

wc_rec_tot(6) TYPE c. "total records

Constants declarations

CONSTANTS:

wl_x(1) TYPE c VALUE 'X', "X

wl_1 TYPE i VALUE '1', "Integer value

wl_e(1) TYPE c VALUE 'E', "Char value

wl_mode TYPE c VALUE 'N',

wl_update TYPE c VALUE 'S',

wl_trackno(13) TYPE c VALUE 'Tracking No. ',

wl_tcode(14) TYPE c VALUE 'ZVTRAFFICINPUT',

*+001 Begin:

wl_id(11) TYPE c VALUE 'CARRIERFILE',

wl_adm(100) TYPE c VALUE 'brahma.reddy@watson.com',

wl_u(1) TYPE c VALUE 'U', " Email through Internet

wl_int(3) TYPE c VALUE 'INT', " Communication method

wl_urgent(6) TYPE c VALUE 'Urgent',

wl_raw(3) TYPE c VALUE 'RAW',

wl_descr(48) TYPE c VALUE 'SAP Alert: Carrier upload',

wl_file(128) TYPE c VALUE '/usr/sap/nfs/erp/UTL/carrier.xls',

wl_jobname LIKE tbtcjob-jobname VALUE 'ZVTRAFFIC_UP',

wl_variant LIKE raldb-variant VALUE 'VMM01_ZVTRFFIC',

wl_action TYPE zaction VALUE 'MOV', "For moving file to other dir

wl_i TYPE c VALUE 'I',

wl_cmd(50) TYPE c VALUE '/usr/sap/nfs/erp/UTL/',

wl_57 TYPE i VALUE 57,

wl_m1(2) TYPE c VALUE 'M1', "value M1

wl_m2(2) TYPE c VALUE 'M2', "value M1

*+001 End:

wl_xls(3) TYPE c VALUE 'xls', "Char value

wl_value(1) TYPE c VALUE ','. "Char value

************************************************************************

*Internal Tables Declarations *

************************************************************************

internal table for holding data from excel file

*+001 begin

TYPES : BEGIN OF ty_dir,

dir(132) TYPE c,

END OF ty_dir.

*internal table to get the files in the direactory

DATA : int_dir TYPE ty_dir OCCURS 0 WITH HEADER LINE .

*work area for int_dir

DATA : wa_int_dir LIKE LINE OF int_dir.

DATA: ifiles TYPE TABLE OF salfldir WITH HEADER LINE.

*+001 end

TYPES: BEGIN OF int_upload,

field1(30) TYPE c, "

field2(30) TYPE c, "

field3(30) TYPE c, "

field4(30) TYPE c, "

field5(30) TYPE c, "

field6(30) TYPE c, "

field7(30) TYPE c, "

field8(30) TYPE c, "

field9(30) TYPE c, "

field10(30) TYPE c, "

field11(30) TYPE c, "

field12(30) TYPE c, "

field13(30) TYPE c, "

field14(30) TYPE c, "

field15(30) TYPE c, "

field16(30) TYPE c, "

field17(30) TYPE c, "

field18(30) TYPE c, "

field19(30) TYPE c, "

field20(30) TYPE c, "

field21(30) TYPE c, "

field22(30) TYPE c, "

field23(30) TYPE c, "

field24(30) TYPE c, "

field25(30) TYPE c, "

field26(30) TYPE c, "

field27(30) TYPE c, "

field28(30) TYPE c, "

field29(30) TYPE c, "

field30(30) TYPE c, "

field31(30) TYPE c, "

field32(30) TYPE c, "

field33(30) TYPE c, "

field34(30) TYPE c, "

field35(30) TYPE c, "

field36(30) TYPE c, "

END OF int_upload.

DATA: int_upload TYPE STANDARD TABLE OF int_upload.

declaring bdc table

DATA: int_bdcdata LIKE STANDARD TABLE OF bdcdata

INITIAL SIZE 0 WITH HEADER LINE.

DATA: wa_bdcdata LIKE bdcdata.

DATA:int_messages TYPE

STANDARD TABLE OF bdcmsgcoll INITIAL SIZE 0.

TYPES: BEGIN OF ty_error_data,

errtext(500) TYPE c,

END OF ty_error_data.

DATA: wa_messages LIKE LINE OF

int_messages.

DATA: wa_error_data TYPE

ty_error_data .

DATA: int_error_data TYPE

STANDARD TABLE OF ty_error_data INITIAL SIZE 0.

***********************************************************************

*Work Area declarations

************************************************************************

Work area

DATA:

wa_upload LIKE LINE OF int_upload. "work area for int_upload

Selection Screen

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

PARAMETERS : pa_foreg RADIOBUTTON GROUP g1 USER-COMMAND rad DEFAULT 'X', " user command rad,

pa_backg RADIOBUTTON GROUP g1 .

SELECTION-SCREEN: SKIP.

Input File Location Specification

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

PARAMETERS pa_file LIKE rlgrap-filename

MODIF ID m1. "OBLIGATORY. "Input File -001

SELECTION-SCREEN END OF BLOCK b11.

*+001 Begin

SELECTION-SCREEN BEGIN OF BLOCK b12 WITH FRAME TITLE text-006.

PARAMETERS pa_sfile LIKE rlgrap-filename DEFAULT '/usr/sap/nfs/erp/UTL/carrier2'

LOWER CASE MODIF ID m2. " server filename

*PARAMETERS pa_batch AS CHECKBOX DEFAULT ' ' MODIF ID m2. "Background job

*+001 End

SELECTION-SCREEN END OF BLOCK b12.

SELECTION-SCREEN END OF BLOCK b1.

************************************************************************

Event: INITIALIZATION

************************************************************************

INITIALIZATION.

clear variables
refresh internal tables

REFRESH:int_upload.

clear Work areas

CLEAR: wa_upload.

***********************************************************************

A T S E L E C T I O N - S C R E E N

***********************************************************************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file. "-001

subroutine to display the batch data input file location

PERFORM f_get_filename.

*+001 Begin:

AT SELECTION-SCREEN OUTPUT.

IF pa_backg = wl_x.

LOOP AT SCREEN.

IF screen-group1 = wl_m2.

screen-invisible = space.

screen-active = '1'.

MODIFY SCREEN.

ELSE.

IF screen-group1 = wl_m1.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF screen-group1 = wl_m2.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_sfile.

subroutine to display list of files in application server

PERFORM f_get_server_file.

*+001 End:

************************************************************************

At Selection-Screen Event: validations check *

************************************************************************

AT SELECTION-SCREEN .

validates the Selection Screen input

PERFORM f_check_input.

Event TOP-OF-PAGE

TOP-OF-PAGE.

************************************************************************

Event: START-OF-SELECTION

************************************************************************

START-OF-SELECTION.

*+001 Begin :

get the path for all files from the directory
PERFORM f_get_path.

set up background job

PERFORM f_background_job.

*+001 End:

*-001

CHECK pa_backg EQ ' '.

*-001

LOOP AT ifiles.

clear itab. refresh itab.
CONCATENATE wf_path ifiles-name INTO pa_sfile.

upload PC file to internal table int_UPLOAD

PERFORM f_upload_excel_file.

reformat data

PERFORM f_format_data.

upload formatted data into SAP system

break breddy.

PERFORM f_upload_data.

************************************************************************

Event: END-OF-SELECTION

************************************************************************

*END-OF-SELECTION.

display summary report

PERFORM f_display_report.

*+001 Begin

IF sy-batch = wl_x.

CONCATENATE '/usr/sap/trans/carrier2' '_'

sy-datum '_' sy-uzeit

INTO wf_sum_dest_file.

wf_sum_source_file = '/usr/sap/nfs/erp/UTL/carrier2'.

wf_sum_dest_file = '/usr/sap/trans/carrier2'.
ELSE.
wf_sum_source_file = pa_file.
wf_sum_dest_file = '/usr/sap/trans/carrier2'.

To move the processed file to Completed directory

PERFORM f_move_file_to_other_dir USING

wf_sum_source_file

wf_sum_dest_file.

ENDIF.

*+001 End

wait up to 60 seconds.

************************************************************************

&----

*& Form f_get_filename

&----

Display the File Location

----

Called by: Main Program (AT SELECTION-SCREEN on VALUE-REQUEST)
Calls:

----

FORM f_get_filename.

CLEAR wf_filename.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

field_name = wf_fieldname

IMPORTING

file_name = wf_filename.

If the user press cancel button without selecting file name
then the file name will be initial and raise the error message

IF wf_filename IS INITIAL.

MESSAGE i000 WITH 'No File selected'(012).

LEAVE LIST-PROCESSING.

ENDIF.

pa_file = wf_filename.

ENDFORM. " f_get_filename

************************************************************************

Form: F_CHECK_INPUT **
**
Description:
This subroutine is used to validate the Selection Screen inputs.
**

----

Called By: ZMISOPPLAN01 *
Calls: None *

************************************************************************

FORM f_check_input.

if pa_foreg eq wl_X.

if sy-batch ne wl_X. " IF pa_foreg EQ wl_x. " +001

check file type

IF pa_file NS '.xls'.

MESSAGE e106.

ENDIF.

ENDIF. "+001

endif.

*+001 Begin:

wf_file = pa_sfile.
EXPORT wf_file TO MEMORY ID wl_id.

ENDIF. " Commented by Br

*+001 Begin

IF pa_backg EQ wl_x.

pa_sfile = '/usr/sap/nfs/erp/UTL/carrier2'.

OPEN DATASET pa_sfile FOR INPUT IN TEXT MODE ENCODING DEFAULT MESSAGE wf_mess.

IF sy-subrc NE 0.

MESSAGE e000(zmmx) WITH 'File not present in path /usr/sap/nfs/erp/UTL'.

LEAVE LIST-PROCESSING.

STOP.

ELSE.

CLOSE DATASET pa_sfile.

ENDIF.

ELSE.
OPEN DATASET pa_sfile FOR INPUT IN TEXT MODE ENCODING DEFAULT MESSAGE wf_mess.
IF sy-subrc NE 0.
MESSAGE e000(zmmx) WITH 'File not found:' pa_sfile.
LEAVE LIST-PROCESSING.
STOP.
ELSE.
CLOSE DATASET pa_sfile.
ENDIF.

ENDIF.

*+001 End:

ENDFORM. "f_check_input

&----

*& Form f_upload_excel_file

&----

Uploads an excel file from the workstation. The file is loaded *
into the internal table specified by int_out_tab. *

----

--> PA_FILE The name and path of the excel file to upload *
<-- int_UPLOAD Internal table that that will contain the data *
loaded from the excel file. *

----

FORM f_upload_excel_file.

*-001

TYPES truxs_t_text_data(4096) TYPE c OCCURS 0.

DATA: int_tab_input_data TYPE truxs_t_text_data.

*+001

IF sy-batch IS INITIAL.

*+001

uploading data into internal table int_upload from excel file

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

EXPORTING

i_tab_raw_data = int_tab_input_data[]

i_filename = pa_file "-001

TABLES

i_tab_converted_data = int_upload

EXCEPTIONS

conversion_failed = 1

OTHERS = 2.

problems occur in file uploading

IF int_upload[] IS INITIAL.

MESSAGE i000 WITH 'No data uploaded from input file'(005).

LEAVE LIST-PROCESSING.

ENDIF.

*+001

ENDIF.

*+001

IF sy-batch = wl_x.

OPEN DATASET pa_sfile FOR INPUT IN TEXT MODE encoding default. " ENCODING DEFAULT MESSAGE wf_mess.

IF sy-subrc = 0.

DO.

READ DATASET pa_sfile INTO wf_string.

IF sy-subrc <> 0.

EXIT.

ELSE.

SPLIT wf_string AT cl_abap_char_utilities=>horizontal_tab INTO wa_upload-field1 wa_upload-field2 wa_upload-field3

wa_upload-field4 wa_upload-field5 wa_upload-field6 wa_upload-field7 wa_upload-field8

wa_upload-field9 wa_upload-field10 wa_upload-field11 wa_upload-field12 wa_upload-field13

wa_upload-field14 wa_upload-field15 wa_upload-field16 wa_upload-field17 wa_upload-field18

wa_upload-field19 wa_upload-field20 wa_upload-field21 wa_upload-field22 wa_upload-field23

wa_upload-field24 wa_upload-field25 wa_upload-field26 wa_upload-field27 wa_upload-field28

wa_upload-field29 wa_upload-field30 wa_upload-field31 wa_upload-field32 wa_upload-field33

wa_upload-field34 wa_upload-field35 wa_upload-field36 .

APPEND wa_upload TO int_upload.

CLEAR wa_upload.

ENDIF.

ENDDO.

CLOSE DATASET pa_sfile.

ELSE.

MESSAGE i000(zmmx) WITH 'File not found'.

LEAVE LIST-PROCESSING.

STOP.

ENDIF.

+001

ENDFORM. "f_upload_excel_file

&----

*& Form f_format_data

&----

format the data to be uploaded

----

Called by: ZMISOPPLAN01
Calls: N/A

----

FORM f_format_data.

delete the header lines

DELETE int_upload WHERE

field1 CS 'SCAC' OR field1 CS 'Scac' OR field1 CS 'Carrier'.

delete lines with no carrier info

DELETE int_upload WHERE

field1 IS INITIAL OR field2 IS INITIAL.

SORT int_upload BY field2.

ENDFORM. " f_format_data

&----

*& Form f_upload_data

&----

Description:upload the data

----

FORM f_upload_data.

DATA: loc_priceperlb LIKE zvship_trk_data-act_per_lb,

loc_charprice(10) TYPE n,

loc_size TYPE i,

loc_pickupdate(10) TYPE c,

loc_totalwt LIKE zvship_trk_data-pkg_wgt.

CHECK NOT int_upload[] IS INITIAL.

DESCRIBE TABLE int_upload LINES wf_recnt.

LOOP AT int_upload INTO wa_upload.

SELECT COUNT(*) FROM zvship_trk_data WHERE trackn = wa_upload-field2.

IF sy-subrc = 0.

tracking no. exists in carrier database

CONCATENATE wl_trackno wa_upload-field2

' already exists in carrier tracking database' INTO

wa_error_data-errtext. "Error text of int_error_data

APPEND wa_error_data TO int_error_data.

ELSE.

SELECT SINGLE * FROM vtrkh WHERE trackn = wa_upload-field2.

IF sy-subrc <> 0.

tracking no. not in tracking database

CONCATENATE wl_trackno wa_upload-field2

' not found in tracking database' INTO

wa_error_data-errtext. "Error text of int_error_data

APPEND wa_error_data TO int_error_data.

ELSE.

must have freight charge

IF wa_upload-field20 IS INITIAL.

CONCATENATE wl_trackno wa_upload-field2

' has no total net charges' INTO

wa_error_data-errtext. "Error text of int_error_data

APPEND wa_error_data TO int_error_data.

CONTINUE.

ENDIF.

must have final delv. date

IF wa_upload-field25 IS INITIAL.

CONCATENATE wl_trackno wa_upload-field2

' has no final delivery date' INTO

wa_error_data-errtext. "Error text of int_error_data

APPEND wa_error_data TO int_error_data.

CONTINUE.

ENDIF.

all checks ok, build BDC for ZVTRAFFICINPUT
get total weight and compute price/lb

IF vtrkh-uevbtyp EQ wl_x.

SELECT SINGLE brgew INTO loc_totalwt

FROM zvship_non_pkgs

WHERE venum = vtrkh-vbeln.

ELSE.

SELECT SINGLE brgew INTO loc_totalwt

FROM vekp WHERE venum = vtrkh-vbeln.

ENDIF.

IF sy-subrc NE 0.

CONCATENATE wl_trackno wa_upload-field2

' has no total weight' INTO

wa_error_data-errtext. "Error text of int_error_data

APPEND wa_error_data TO int_error_data.

CONTINUE.

ENDIF.

price/lb = total net charges / total wt

loc_priceperlb = wa_upload-field20 / loc_totalwt.

WRITE loc_priceperlb TO loc_charprice LEFT-JUSTIFIED.

if no pickup date from VTRKH, use date from file

IF vtrkh-routeldat IS INITIAL.

loc_pickupdate = wa_upload-field23.

ELSE.

CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'

EXPORTING

input = vtrkh-routeldat

IMPORTING

output = loc_pickupdate.

ENDIF.

PERFORM f_set_bdc_val

USING :

'1' 'SAPLZVSHIP_TRAK' '0001',

' ' 'BDC_CURSOR' 'VIM_POSITION_INFO',

' ' 'BDC_OKCODE' '=AEND'.

PERFORM f_set_bdc_val

USING :

'1' 'SAPLZVSHIP_TRAK' '0001',

' ' 'BDC_CURSOR' 'ZVSHIP_TRK_DATA-EOD_DATE(01)',

' ' 'BDC_OKCODE' '=NEWL'.

PERFORM f_set_bdc_val

USING :

'1' 'SAPLZVSHIP_TRAK' '0002',

' ' 'BDC_CURSOR' 'ZVSHIP_TRK_DATA-TRACKN',

' ' 'ZVSHIP_TRK_DATA-TRACKN' wa_upload-field2,

' ' 'BDC_OKCODE' '/00'.

PERFORM f_set_bdc_val

USING :

'1' 'SAPLZVSHIP_TRAK' '0002',

' ' 'ZVSHIP_TRK_DATA-EOD_DATE' loc_pickupdate,

' ' 'ZVSHIP_TRK_DATA-ACT_DATE' wa_upload-field25.

IF NOT wa_upload-field15 IS INITIAL.
PERFORM F_SET_BDC_VAL
USING :
' ' 'ZVSHIP_TRK_DATA-PKG_WGT' wa_upload-field15. "Total Wt.
ENDIF.

PERFORM f_set_bdc_val

USING :

' ' 'ZVSHIP_TRK_DATA-ACT_FRT' wa_upload-field20,"Total Net charges

' ' 'ZVSHIP_TRK_DATA-ACT_SURCH' wa_upload-field18,"Fuel surcharge

' ' 'ZVSHIP_TRK_DATA-ACT_ACC' wa_upload-field19, "Accessorial ch.

' ' 'ZVSHIP_TRK_DATA-ACT_TOTAL' wa_upload-field16,"Gross Charges

' ' 'ZVSHIP_TRK_DATA-ACT_PER_LB' loc_charprice. "Price/LB

IF NOT wa_upload-field13 IS INITIAL.
PERFORM F_SET_BDC_VAL
USING :
' ' 'ZVSHIP_TRK_DATA-PKG_PAL' wa_upload-field13. "Pallet count
ENDIF.

IF NOT wa_upload-field14 IS INITIAL.
PERFORM F_SET_BDC_VAL
USING :
' ' 'ZVSHIP_TRK_DATA-PKG_PCS' wa_upload-field14. "Case count
ENDIF.

PERFORM f_set_bdc_val

USING :

' ' 'BDC_OKCODE' '=SAVE'.

PERFORM f_set_bdc_val

USING :

'1' 'SAPLZVSHIP_TRAK' '0002',

' ' 'BDC_OKCODE' '=UEBE'.

PERFORM f_set_bdc_val

USING :

'1' 'SAPLZVSHIP_TRAK' '0001',

' ' 'BDC_OKCODE' '=BACK'.

call transaction ZVTRAFFICINPUT

PERFORM f_call_zvtrafficinput.

ENDIF.

ENDLOOP.

ENDFORM. " f_upload_data

----

FORM F_SET_BDC_VAL *

----

........ *

----

--> WG_DYNBEGIN *
--> WF_FIELDNAME *
--> WF_FIELDVAL *

----

FORM f_set_bdc_val USING

locf_dynbegin

locf_fieldname

locf_fieldval.

CLEAR wa_bdcdata.

IF locf_dynbegin = wl_1. "'1'.

wa_bdcdata-program = locf_fieldname.

wa_bdcdata-dynpro = locf_fieldval.

wa_bdcdata-dynbegin = wl_x. "'X'.

ELSE.

wa_bdcdata-fnam = locf_fieldname.

wa_bdcdata-fval = locf_fieldval.

ENDIF.

APPEND wa_bdcdata TO int_bdcdata.

ENDFORM. "F_SET_BDC_VAL

&----

*& Form F_CALL_ZVTRAFFICINPUT

&----

text

----

--> p1 text
<-- p2 text

----

FORM f_call_zvtrafficinput .

DATA: locf_last_rec TYPE sy-index,

wf_msgstring(128) TYPE c.

DATA: loc_mode TYPE c.

loc_mode = 'N'. "+001 needs to be changed

CALL TRANSACTION wl_tcode

USING int_bdcdata

MODE 'A'
MODE wl_mode "In Backgrnd(N)

MODE loc_mode

UPDATE wl_update "(S)ynchr mode "+001

MESSAGES INTO int_messages.

In case there are errors in call transaction

IF sy-subrc <> 0.

DESCRIBE TABLE int_messages LINES locf_last_rec.

READ TABLE int_messages INTO wa_messages

INDEX locf_last_rec.

PERFORM f_fill_bdc_error USING wa_upload-field2 wf_msgstring.

ELSE.

Keep count of successfully process records

wf_recok = wf_recok + 1.

PERFORM f_fill_bdc_success USING wa_upload-field2.

ENDIF.

REFRESH: int_bdcdata, int_messages.

ENDFORM. " F_CALL_ZVTRAFFICINPUT

&----

*& Form f_fill_bdc_success

&----

text

----

-->P_WA_UPLOAD_FIELD2 text

----

FORM f_fill_bdc_success USING p_wa_upload_field2.

CONCATENATE wl_trackno p_wa_upload_field2 '- Entry added'

INTO

wa_error_data-errtext. "Success message

APPEND wa_error_data TO int_error_data.

ENDFORM. " f_fill_bdc_success

&----

*& Form f_fill_bdc_error

&----

text

----

-->P_WA_UPLOAD_FIELD2 text
-->P_WF_MSGSTRING text

----

FORM f_fill_bdc_error USING p_wa_upload_field2

p_wf_msgstring.

CONCATENATE wl_trackno p_wa_upload_field2

'- Error : ' p_wf_msgstring

INTO

wa_error_data-errtext. "Error text of int_error_data

APPEND wa_error_data TO int_error_data.

ENDFORM. " f_fill_bdc_error

&----

*& Form f_display_report

&----

text

----

FORM f_display_report.

*+001 Begin:

DATA: reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE,

doc_chng LIKE sodocchgi1,

objcont LIKE solisti1 OCCURS 0 WITH HEADER LINE.

DATA: loc_recnt(4) TYPE c,

loc_recok(4) TYPE c.

*+001 End:

if sy-batch ne wl_x. "+001

ULINE /1(175).

WRITE:/ 'Date/Time: '(006) COLOR COL_HEADING,

sy-datum DD/MM/YYYY, '/',sy-uzeit,

40 'Uploading of Carrier Information to ZVTRAFFIC'.

ULINE /1(175).

SKIP.

WRITE:/ 'Following File Has Been Processed'.

/ pa_file. "-001

SKIP.

WRITE:/ 'Number of records read:', wf_recnt.

WRITE:/ 'Number of records processed successfully:', wf_recok.

SKIP.

LOOP AT int_error_data INTO wa_error_data.

WRITE 😕 wa_error_data-errtext.

ENDLOOP.

*+001 Begin:

ELSE.

IMPORT wf_file FROM MEMORY ID wl_id.

reclist-receiver = wl_adm.

reclist-rec_type = wl_u.

reclist-com_type = wl_int.

APPEND reclist.

doc_chng-obj_name = wl_urgent.

doc_chng-obj_descr = wl_descr.

CONCATENATE 'Date/Time: ' sy-datum '/' sy-uzeit

'Uploading of Carrier Information to ZVTRAFFIC'

INTO objcont SEPARATED BY space.

APPEND objcont.

*-001

CONCATENATE 'Following File Has Been Processed' pa_file
INTO objcont SEPARATED BY space.
APPEND objcont.

*-001

loc_recnt = wf_recnt.

CONCATENATE 'Number of records read:' loc_recnt

INTO objcont SEPARATED BY space.

APPEND objcont.

loc_recok = wf_recok.

CONCATENATE 'Number of records processed successfully:' loc_recok

INTO objcont SEPARATED BY space.

APPEND objcont.

LOOP AT int_error_data INTO wa_error_data.

MOVE wa_error_data-errtext TO objcont.

APPEND objcont.

ENDLOOP.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

EXPORTING

document_type = wl_raw

document_data = doc_chng

put_in_outbox = wl_x

commit_work = wl_x

TABLES

object_content = objcont

receivers = reclist

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

operation_no_authorization = 4

OTHERS = 99.

IF sy-subrc EQ 0.

MESSAGE s205. "email sent

ELSE.

MESSAGE i206. "email not sent

ENDIF.

*+001 End:

ENDFORM. " f_display_report

&----

*& Form f_background_job

&----

text

----

--> p1 text
<-- p2 text

----

FORM f_background_job .

DATA: loc_jobcount LIKE btch1150-jobcount.

IF pa_backg = wl_x.

CALL FUNCTION 'JOB_OPEN'

EXPORTING

jobname = wl_jobname

jobclass = 'A'

IMPORTING

jobcount = loc_jobcount

EXCEPTIONS

cant_create_job = 1

invalid_job_data = 2

jobname_missing = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE i000(zmmx) WITH 'JOB_OPEN failed.' 'sy-subrc =' sy-subrc.

LEAVE LIST-PROCESSING.

ENDIF.

CALL FUNCTION 'JOB_SUBMIT'

EXPORTING

extpgm_param = pa_file

authcknam = sy-uname

jobcount = loc_jobcount

jobname = wl_jobname

report = sy-repid

variant = wl_variant

EXCEPTIONS

bad_priparams = 1

bad_xpgflags = 2

invalid_jobdata = 3

jobname_missing = 4

job_notex = 5

job_submit_failed = 6

lock_failed = 7

program_missing = 8

prog_abap_and_extpg_set = 9

OTHERS = 10.

IF sy-subrc <> 0.

MESSAGE i000(zmmx) WITH 'JOB_SUMBMIT failed.' 'sy-subrc =' sy-subrc.

LEAVE LIST-PROCESSING.

ENDIF.

CALL FUNCTION 'JOB_CLOSE'

EXPORTING

jobcount = loc_jobcount

jobname = wl_jobname

strtimmed = 'X'

EXCEPTIONS

cant_start_immediate = 1

invalid_startdate = 2

jobname_missing = 3

job_close_failed = 4

job_nosteps = 5

job_notex = 6

lock_failed = 7

OTHERS = 8.

IF sy-subrc <> 0.

MESSAGE i000(zmmx) WITH 'JOB_CLOSE failed.' 'sy-subrc =' sy-subrc.

LEAVE LIST-PROCESSING.

ELSE.

MESSAGE i000(zmmx) DISPLAY LIKE wl_i WITH 'Background job submitted'.

LEAVE LIST-PROCESSING.

wait up to 60 seconds.

STOP.

ENDIF.

ENDFORM. " f_background_job

&----

*& Form f_get_server_file

&----

text

----

--> p1 text
<-- p2 text

----

FORM f_get_server_file .

CLEAR: wf_filename.

following function module display the list of application file and
directories in a pop up window

CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'

IMPORTING

serverfile = wf_filename

EXCEPTIONS

canceled_by_user = 1

OTHERS = 2.

If the user press cancel button without selecting file name
then the file name will be initial and raise the error message

IF wf_filename IS INITIAL.

MESSAGE i000 WITH 'No File selected'(012).

LEAVE LIST-PROCESSING.

ENDIF.

pa_sfile = wf_filename.

ENDFORM. " f_get_server_file

&----

*& Form f_move_file_to_other_dir

&----

To move the

----

FORM f_move_file_to_other_dir USING locf_source_file

locf_dest_file.

CALL FUNCTION 'Z_FILE_HANDLING_UTILITY'

EXPORTING

action = wl_action "VALUE 'mov'

source_physical_file_name = locf_source_file

dest_physical_file_name = locf_dest_file

EXCEPTIONS

invalid_action = 1

invalid_file_type = 2

file_type_missing = 3

file_type_not_required = 4

source_file_missing = 5

source_filename_error = 6

destination_not_required = 7

destination_missing = 8

multiple_file_names = 9

file_deletion_error = 10

invalid_source_file = 11

file_read_error = 12

file_write_error = 13

file_rename_error = 14

file_move_error = 15

destination_file_exists = 16

OTHERS = 17.

IF sy-subrc <> 0.

MESSAGE i000(zmmx) WITH 'Error in Moving Process directory to completed Directory'(004).

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " f_move_file_to_other_dir

&----

*& Form f_get_path

&----

text

----

--> p1 text
<-- p2 text

----

FORM f_get_path .

CALL FUNCTION 'RZL_READ_DIR_LOCAL'

EXPORTING

name = wf_path

TABLES

file_tbl = ifiles

EXCEPTIONS

argument_error = 1

not_found = 2

OTHERS = 3.

DELETE ifiles WHERE name+0(1) = '.'.

DELETE ifiles WHERE name+0(1) NE 'w'.

ENDFORM. " f_get_path

Regards,

Brahma Reddy

Re: Problem in Open dataset in background

Former Member — Wed, 23 May 2007 01:19:03 GMT

To check if it is a problem with different server

try following:

go to sm51 - click on the server on which the background job was started (and failed). Call se38 and try it again. If it fails in foreground it is a problem of the application server.

Re: Problem in Open dataset in background

Former Member — Wed, 23 May 2007 01:25:47 GMT

Hi Brahma,

In your program as I see when there is sy-batch initial at that time you are uploading file from presentation server, and in background from application server.

As looking at your code for the background processing there is nothing seem to be wrong.

Can you just check the text file on the application server, if it has that records.

Regards,

Atish

Re: Problem in Open dataset in background

Former Member — Wed, 23 May 2007 01:33:17 GMT

It contans many records . But it is reading the first one only and that too junk val;ues....

But working fine in foreground.

Thanks in advance,

Brahma Reddy

Re: Problem in Open dataset in background

Former Member — Wed, 23 May 2007 01:34:36 GMT

Are you using the same EXCEL file on application server?

Regards,

Atish

Re: Problem in Open dataset in background

Former Member — Wed, 23 May 2007 01:41:20 GMT

No..iam using tab delimeted text file

Re: Problem in Open dataset in background

Former Member — Wed, 23 May 2007 01:49:19 GMT

I am not able to figure out what is the issue, but can you just try a simple program which just read data from this file into a table by removing all other coding. Hard code the file name too and just output the entries by looping at internal table and let me know the outcome

Regards,

Atish