Program is executing only when it is debugged

[Former Member]

Hi,

I have written a program in ABAP Editor, when I execute it (F8) i didnt get the desired output. But when I debug the program step by step i get the desired output.

Wat shall be done to get output while doing F8?

[Former Member]

Hi,

Is this a report or some update program?

Regards,

Atish

[Former Member]

Hi,

This is the Report program only.

[Former Member]

hi there,

if its is possible post the code it would give a beter idea of the problem

[Former Member]

Hi,

&----

---

*& Report ZELANCE_UNTAR *

*& *

&----

---

*& *

*& *

&----

---

REPORT zuntar_incremental MESSAGE-ID zelance_msg

.

----

---

*This Program writes the shell script and execute the unzip a 'gz' file

----

---

DATA: fname_raw(60)

VALUE '/bwglobal/WR1/in/Raw/icr_elance_script_untar_new.sh'.

DATA: destination(100),

s_data(256).

DATA: fname1(80),

fname(80),

fname2(80).

DATA: BEGIN OF tabl OCCURS 500,

line(400),

END OF tabl.

DATA: lines TYPE i,

flag TYPE i.

DATA : p_dest(100) VALUE '/bwglobal/WF1/Archive/Processed/',

sdate TYPE d.

TYPES: BEGIN OF ty_tbl,

exten(10) TYPE c,

END OF ty_tbl.

DATA: itab TYPE ty_tbl OCCURS 0,

wa_itab TYPE ty_tbl.

DATA: filename(900) VALUE '/bwglobal/WR1/in/Raw/ICR_ERS_ELANCE_'.

CONSTANTS: unixcom(256) VALUE 'sh

/bwglobal/WR1/in/Raw/icr_elance_script_untar_new.sh'.

START-OF-SELECTION.

CLEAR flag.

wa_itab-exten = '.tar.gz'.

APPEND wa_itab TO itab.

sdate = sy-datum - 1.

CONCATENATE '/bwglobal/WR1/in/Raw/ICR_ERS_ELANCE_'

sdate

wa_itab-exten

INTO filename.

fname2 = filename.

destination = p_dest.

DO.

SPLIT fname2 AT '.' INTO fname1 fname2.

IF fname2 = space.

EXIT.

ENDIF.

ENDDO.

OPEN DATASET fname_raw FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

CLEAR s_data.

CLEAR fname1.

CLEAR fname2.

CLEAR fname.

fname1 = filename.

SPLIT fname1 AT '.' INTO fname2 fname1.

fname = fname2.

DO.

SPLIT fname2 AT '_' INTO fname1 fname2.

IF fname2 = space.

EXIT.

ENDIF.

ENDDO.

s_data = 'exten=".tar.gz"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'exten1=".tar"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'exten2=".csv"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'exten3=".CSV"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

CONCATENATE 'dir="' fname1 '"' INTO s_data.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'dat="$dir$exten"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'dat1="$dir$exten1"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'dat2="$dir$exten2"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'dat3="$dir$exten3"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'echo "dat1: $dat1"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

CONCATENATE 'filename=' filename INTO s_data.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'echo "$filename"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'if test ! -s $filename '.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'then'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'echo "File not found : $filename"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'else'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'echo "File found : $filename"'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

CONCATENATE 'cd' destination INTO s_data

SEPARATED BY space.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

**Unzipping the file

CONCATENATE 'gunzip' fname INTO s_data

SEPARATED BY space.

CONCATENATE s_data '.tar.gz' INTO s_data.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

*Untaring the file

CONCATENATE 'tar -xvf' fname INTO s_data

SEPARATED BY space.

CONCATENATE s_data '.tar' INTO s_data.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

s_data = 'fi'.

TRANSFER s_data TO fname_raw.

CLEAR s_data.

MESSAGE s000 WITH text-000.

*Executing the shell script

REFRESH tabl.

CALL 'SYSTEM' ID 'COMMAND' FIELD unixcom

ID 'TAB' FIELD tabl[].

DESCRIBE TABLE tabl LINES lines.

LOOP AT tabl.

WRITE:/01 tabl-line.

ENDLOOP.

SKIP 2.

IF lines = 0.

WRITE:/ 'NO Occurances were found'.

ELSE.

WRITE:/ 'Command was successfully executed' COLOR COL_TOTAL.

WRITE:/ 'Number of entries in Search' COLOR COL_TOTAL,

lines COLOR 6.

ENDIF.

This is the coding...

Regards,

Poomagal Selvaraj.