Problem with 'BACK' option for ALV grid

Question

Hi Friends,
I'm using FM, REUSE_ALV_GRID_DISPLAY in my report.
Once I got an ALV output, when I press the BACK button,
it's going to blank sceen again when I press BACK am getting selection screen.
From output am not able to goto the selection screen. Kindly suggest on this issue.
Thanks in advance.
Regards,
Bharat.

Answer 1

Hi,
I don't have write statement anywhere in my prog.
pls refer to the code.
REPORT  ZCDC_TRACKING_REPORT no standard page heading message-id zz1
tables:vbak,
       vbap,
       vbkd,
       vtfa,
       vbfa,
       vtrkh,
       vttk.
TYPE-POOLS: SLIS.                      "Field catalog structure
DATA: FCATALOG TYPE SLIS_FIELDCAT_ALV OCCURS 30.
DATA: FZEILE   TYPE SLIS_FIELDCAT_ALV OCCURS 30 with header line.
data:w_disp_variant TYPE disvariant,
     s_alv_layout   type slis_layout_alv.
DATA: W_REPID     LIKE SY-REPID,
      W_SUBRC     LIKE SY-SUBRC,
      W_LOOPCOUNT LIKE SY-TABIX,
      W_LINES     TYPE I,
      IS_VARIANT  LIKE DISVARIANT,
      GS_LAYOUT   TYPE SLIS_LAYOUT_ALV.
*Internal table declaration.
data: begin of i_vbak occurs 0,
      vbeln like vbak-vbeln,
      kunnr like vbak-kunnr,
      bstnk like vbak-bstnk,
      end of i_vbak.
data: begin of i_vbfa occurs 0,
      vbeln like vbfa-vbeln,
      vbelv like vbfa-vbelv,
      end of i_vbfa.
data: begin of i_vtfa occurs 0,
      tknum like vtfa-tknum,
      vbeln like vbak-vbeln,
      end of i_vtfa.
data: begin of i_vttp occurs 0,
      tknum like vtfa-tknum,
      vbeln like vbak-vbeln,
      end of i_vttp.
data: begin of i_vttk occurs 0,
      tknum like vtfa-tknum,
      vsart like vttk-vsart,
      dtabf like vttk-dtabf,
      tdlnr like vttk-tdlnr,
      TNDR_TRKID like vttk-TNDR_TRKID,
      end of i_vttk.
data: begin of i_final occurs 0,
      kunnr like vbak-kunnr,
      name1 like kna1-name1,
      vbeln like vbak-vbeln,
      bstkd like vbkd-bstkd,
      dtabf like vttk-dtabf,
      tdlnr like vttk-tdlnr,
      TNDR_TRKID like vttk-TNDR_TRKID,
      end of i_final,
      wa_final like i_final.
data: v_name1 like kna1-name1,
      v_trackno like vtrkh-trackn.
**selection-screen.
SELECTION-SCREEN begin of block b1 with frame.
parameters: R1 RADIOBUTTON GROUP rad1 DEFAULT 'X'.
parameters: p_vbeln like vbak-vbeln,
            p_bstkd like vbkd-bstkd.
SKIP.
SKIP.
*SELECTION-SCREEN end of block b1.
*SELECTION-SCREEN begin of block b2.
parameters: R2 RADIOBUTTON GROUP rad1.
select-options: s_kunnr for vbak-kunnr.
select-options: s_dtabf for VTTK-DTABF.
SELECTION-SCREEN end of block b1.
SELECTION-SCREEN begin of block b2 with frame.
parameters: P_track RADIOBUTTON GROUP rad2 default 'X',
            P_car RADIOBUTTON GROUP rad2,
            P_both RADIOBUTTON GROUP rad2.
SELECTION-SCREEN end of block b2.
**Initialization.
Initialization.
  MOVE SY-REPID TO W_REPID.
*At selection-screen.
At selection-screen.
if R1 eq 'X'.
   if p_vbeln eq ' ' and p_bstkd eq ' '.
     message e000(zz1) with 'Please enter either PO # or SO #'.
   endif.
elseif R2 eq 'X'.
  if ( s_kunnr-low is initial and  s_kunnr-high is initial ) and
     ( s_dtabf-low is initial and  s_dtabf-high is initial )  .
     message e000(zz1) with 'Please limit your selection criteria, this'
                         'cannot run without a Customer # & Date range'.
  endif.
endif.
**start-of-selection.
start-of-selection.
**if option foreground is selected
IF R1 eq 'X'.
**step1 select data from VBAK,VBKD
**step2 select data from VTTK
  perform get_data_foreground.
Perform process_data.
elseif R2 eq 'X'.
**if option Batch processing selected
**select data from KNA1,VBAK,VTTKelseif R2 eq 'X'.
  perform get_data_batch_processing.
endif.
  Perform process_data.
end-of-selection.
*&      Form  get_data_foreground
      text
-->  p1        text
<--  p2        text
form get_data_foreground .
if p_vbeln ne ' ' and p_bstkd ne ' '.
select vbeln
       kunnr
       bstnk
       from vbak into table i_vbak
       where vbeln eq p_vbeln
         and bstnk eq p_bstkd.
elseif p_vbeln eq ' ' .
select vbeln
       kunnr
       bstnk
       from vbak into table i_vbak
       where bstnk eq p_bstkd.
elseif p_bstkd eq ' '.
select vbeln
       kunnr
       bstnk
       from vbak into table i_vbak
       where vbeln eq p_vbeln.
endif.
**Get data from VBFA
  if not i_vbak[] is initial.
   select vbeln
          vbelv from VBFA into table i_vbfa
          for all entries in i_vbak
          where vbelv = i_vbak-vbeln
            and vbtyp_n = 'J'.
  endif.
**select data from VTTP
  if not i_vbfa[] is initial.
   select tknum
          vbeln
          from vttp into table i_vttp
          for all entries in i_vbfa
          where vbeln = i_vbfa-vbeln.
  endif.
*select data from VTTK
if not i_vttp[] is initial.
   select  tknum
           vsart
           dtabf
           tdlnr
           TNDR_TRKID  from vttk into table i_vttk
           for all entries in i_vttp
           where tknum eq i_vttp-tknum.
endif.
**select data from VTFA
if not i_vbak[] is initial.
  select tknum
         vbeln
         from vtfa into table i_vtfa
         for all entries in i_vbak
         where vbeln = i_vbak-vbeln.
endif.
*select data from VTTK
if not i_vtfa[] is initial.
  select  tknum
          dtabf
          tdlnr
          TNDR_TRKID  from vttk into table i_vttk
          for all entries in i_vtfa
          where tknum eq i_vtfa-tknum.
endif.
endform.                    " get_data_foreground
*&      Form  get_data_batch_processing
      text
-->  p1        text
<--  p2        text
form get_data_batch_processing .
select vbeln
       kunnr
       bstnk
       from vbak into table i_vbak
       where kunnr in s_kunnr.
**Get data from VBFA
  if not i_vbak[] is initial.
   select vbeln from VBFA into table i_vbfa
          for all entries in i_vbak
          where vbelv = i_vbak-vbeln
            and vbtyp_n = 'J'.
  endif.
**select data from VTTP
  if not i_vbfa[] is initial.
   select tknum
          vbeln
          from vttp into table i_vttp
          for all entries in i_vbfa
          where vbeln = i_vbfa-vbeln.
  endif.
*select data from VTTK
if not i_vttp[] is initial.
   select  tknum
           vsart
           dtabf
           tdlnr
           TNDR_TRKID  from vttk into table i_vttk
           for all entries in i_vttp
           where tknum eq i_vttp-tknum
             and dtabf eq s_dtabf.
endif.
**select data from VTFA
if not i_vbak[] is initial.
  select tknum
         vbeln
         from vtfa into table i_vtfa
         for all entries in i_vbak
         where vbeln = i_vbak-vbeln.
endif.
**select data from VTTK
if not i_vtfa[] is initial.
  select  tknum
          dtabf
          tdlnr
          TNDR_TRKID  from vttk into table i_vttk
          for all entries in i_vtfa
          where tknum eq i_vtfa-tknum
            and dtabf eq s_dtabf.
endif.
endform.                    " get_data_batch_processing
*&      Form  process_data
      text
-->  p1        text
<--  p2        text
form process_data .
**loop processing
loop at i_vbak.
   wa_final-vbeln = i_vbak-vbeln.
   wa_final-bstkd = i_vbak-bstnk.
   wa_final-kunnr = i_vbak-kunnr.
   select single name1 into v_name1
                       from kna1
                       where kunnr eq wa_final-kunnr.
   if sy-subrc eq 0.
     wa_final-name1 = v_name1.
   endif.
  read table i_vbfa with key vbelv = i_vbak-vbeln.
  if sy-subrc eq 0.
     read table i_vttp with key vbeln = i_vbfa-vbeln.
     if sy-subrc eq 0.
        read table i_vttk with key tknum = i_vttp-tknum.
         if sy-subrc eq 0.
            wa_final-dtabf = i_vttk-dtabf.
            if p_track eq 'X'.
               if i_vttk-vsart = 'LTL'.
                  wa_final-TNDR_TRKID = i_vttk-TNDR_TRKID.
               else.
                 select single trackn from VTRKH into v_trackno
                                  where uevbeln = i_vbfa-vbeln
                                    and uevbtyp = 'J'
                                    and vbtyp   = 'X'.
                   if sy-subrc eq 0.
                    wa_final-TNDR_TRKID = v_trackno.
                   endif.
               endif.
            elseif P_car eq 'X'.
               wa_final-tdlnr = i_vttk-tdlnr.
            else.
               wa_final-tdlnr = i_vttk-tdlnr.
               if i_vttk-vsart = 'LTL'.
                  wa_final-TNDR_TRKID = i_vttk-TNDR_TRKID.
               else.
                 select single trackn from VTRKH into v_trackno
                                  where uevbeln = i_vbfa-vbeln
                                    and uevbtyp = 'J'
                                    and vbtyp   = 'X'.
                   if sy-subrc eq 0.
                    wa_final-TNDR_TRKID = v_trackno.
                   endif.
               endif.
            endif.
         endif.
      endif.
  endif.
  append wa_final to i_final.
  clear : i_final, wa_final,i_vbak,i_vbfa,i_vttp, i_vttk,v_name1.
endloop.
IF R1 eq 'X'.
  PERFORM FIELDCATALOG.
  PERFORM LAYOUT_BUILD CHANGING GS_LAYOUT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
         I_CALLBACK_PROGRAM       = W_REPID
         IS_LAYOUT                = GS_LAYOUT
         IT_FIELDCAT              = FCATALOG
        TABLES
             T_OUTTAB             = i_final
        EXCEPTIONS
             PROGRAM_ERROR        = 1
             OTHERS               = 2.
else.
  PERFORM BACKGROUND_JOB.
**Transfer of data into Application server
OPEN DATASET P_PFILE for output IN TEXT MODE encoding DEFAULT .
  if sy-subrc eq 0.
      loop at itab.
     transfer itab to p_pfile.
    endloop.
  else.
   message e000(zz1) with p_pfile.
  endif.
CLOSE dataset p_pfile.
endif.
endform.                    " process_data
*&      Form  FIELDCATALOG
      text
-->  p1        text
<--  p2        text
form FIELDCATALOG .
  DATA: L_FIELDNO LIKE SY-TABIX.
  L_FIELDNO = 1.
**Cust. Number
  CLEAR FZEILE.
  FZEILE-COL_POS    = L_FIELDNO.
  L_FIELDNO         = L_FIELDNO + 1.
  FZEILE-FIELDNAME  = 'KUNNR'.
  FZEILE-DATATYPE   = 'CHAR'.
  FZEILE-OUTPUTLEN  = 15.
  FZEILE-SELTEXT_L  = 'Customer' .
  FZEILE-LOWERCASE  = 'X'.
  FZEILE-SP_GROUP   = 'A'.
  FZEILE-KEY = 'X'.
  FZEILE-DDICTXT       = 'M'.          " medium text
  APPEND FZEILE TO FCATALOG.
**Customer name
  CLEAR FZEILE.
  FZEILE-COL_POS    = L_FIELDNO.
  L_FIELDNO         = L_FIELDNO + 1.
  FZEILE-FIELDNAME  = 'NAME1'.
  FZEILE-DATATYPE   = 'CHAR'.
  FZEILE-OUTPUTLEN  = 35.
  FZEILE-SELTEXT_L  = 'Customer Name' .
  FZEILE-LOWERCASE  = 'X'.
  FZEILE-SP_GROUP   = 'A'.
  FZEILE-KEY = 'X'.
  FZEILE-DDICTXT       = 'M'.          " medium text
  APPEND FZEILE TO FCATALOG.
**Sales order
  CLEAR FZEILE.
  FZEILE-COL_POS    = L_FIELDNO.
  L_FIELDNO         = L_FIELDNO + 1.
  FZEILE-FIELDNAME  = 'VBELN'.
  FZEILE-DATATYPE   = 'CHAR'.
  FZEILE-OUTPUTLEN  = 10.
  FZEILE-SELTEXT_L  = 'Sales order' .
  FZEILE-LOWERCASE  = 'X'.
  FZEILE-SP_GROUP   = 'A'.
  FZEILE-KEY = 'X'.
  FZEILE-DDICTXT       = 'M'.          " medium text
  APPEND FZEILE TO FCATALOG.
**Custmoer PO
  CLEAR FZEILE.
  FZEILE-COL_POS    = L_FIELDNO.
  L_FIELDNO         = L_FIELDNO + 1.
  FZEILE-FIELDNAME  = 'BSTKD'.
  FZEILE-DATATYPE   = 'CHAR'.
  FZEILE-OUTPUTLEN  = 30.
  FZEILE-SELTEXT_L  = 'Custmoer PO' .
  FZEILE-LOWERCASE  = 'X'.
  FZEILE-SP_GROUP   = 'A'.
  FZEILE-KEY = 'X'.
  FZEILE-DDICTXT       = 'M'.          " medium text
  APPEND FZEILE TO FCATALOG.
**Date shipped
  CLEAR FZEILE.
  FZEILE-COL_POS    = L_FIELDNO.
  L_FIELDNO         = L_FIELDNO + 1.
  FZEILE-FIELDNAME  = 'DTABF'.
  FZEILE-DATATYPE   = 'CHAR'.
  FZEILE-OUTPUTLEN  = 15.
  FZEILE-SELTEXT_L  = 'Date shipped' .
  FZEILE-LOWERCASE  = 'X'.
  FZEILE-SP_GROUP   = 'A'.
  FZEILE-KEY = 'X'.
  FZEILE-DDICTXT       = 'M'.          " medium text
  APPEND FZEILE TO FCATALOG.
**Carrier
  CLEAR FZEILE.
  FZEILE-COL_POS    = L_FIELDNO.
  L_FIELDNO         = L_FIELDNO + 1.
  FZEILE-FIELDNAME  = 'TDLNR'.
  FZEILE-DATATYPE   = 'CHAR'.
  FZEILE-OUTPUTLEN  = 15.
  FZEILE-SELTEXT_L  = 'Carrier' .
  FZEILE-LOWERCASE  = 'X'.
  FZEILE-SP_GROUP   = 'A'.
  FZEILE-KEY = 'X'.
  FZEILE-DDICTXT       = 'M'.          " medium text
  APPEND FZEILE TO FCATALOG.
**Tracking/Pro #
  CLEAR FZEILE.
  FZEILE-COL_POS    = L_FIELDNO.
  L_FIELDNO         = L_FIELDNO + 1.
  FZEILE-FIELDNAME  = 'TNDR_TRKID'.
  FZEILE-DATATYPE   = 'CHAR'.
  FZEILE-OUTPUTLEN  = 15.
  FZEILE-SELTEXT_L  = 'Tracking/Pro#' .
  FZEILE-LOWERCASE  = 'X'.
  FZEILE-SP_GROUP   = 'A'.
  FZEILE-KEY = 'X'.
  FZEILE-DDICTXT       = 'M'.          " medium text
  APPEND FZEILE TO FCATALOG.
  CLEAR FZEILE.
endform.                    " FIELDCATALOG
*&      Form  LAYOUT_BUILD
      text
     <--P_GS_LAYOUT  text
form LAYOUT_BUILD  changing p_gs_layout TYPE SLIS_LAYOUT_ALV.
  CLEAR P_GS_LAYOUT.
  P_GS_LAYOUT-ZEBRA            = 'X'.
  P_GS_LAYOUT-BOX_FIELDNAME    = SPACE.
  P_GS_LAYOUT-MAX_LINESIZE     = 250.
endform.                    " LAYOUT_BUILD
*&      Form  BACKGROUND_JOB
      text
-->  p1        text
<--  p2        text
form BACKGROUND_JOB .
DATA: JOB_NAME         LIKE TBTCO-JOBNAME,
JOB_NR           LIKE TBTCO-JOBCOUNT,
JOB_RELEASED     TYPE C,
JOB_START_SOFORT TYPE C.
DATA: TITEL(15) TYPE C,
TEXT1(35) TYPE C,
TEXT2(40) TYPE C,
ANSWER    TYPE C.
DATA: PARAMS    LIKE PRI_PARAMS,
VALID     TYPE C.
JOB_NAME = SYST-REPID.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
JOBNAME          = JOB_NAME
IMPORTING
JOBCOUNT         = JOB_NR
EXCEPTIONS
CANT_CREATE_JOB  = 1
INVALID_JOB_DATA = 2
JOBNAME_MISSING  = 3
OTHERS           = 4.
IF SYST-SUBRC NE 0.
MESSAGE I162(00) WITH
'An error occured while creating the background job.'.
STOP.
ELSE.
*set print parameters to output any errors to spool...
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
IMMEDIATELY            = ' '
MODE                   = 'BATCH'
NO_DIALOG              = 'X'
RELEASE                = 'X'
NEW_LIST_ID            = 'X'
LINE_SIZE              = SY-LINSZ
*LIST_NAME              = 'RBE'
LIST_TEXT              = 'Extract Results'
IMPORTING
OUT_PARAMETERS         = PARAMS
VALID                  = VALID
EXCEPTIONS
ARCHIVE_INFO_NOT_FOUND = 1
INVALID_PRINT_PARAMS   = 2
INVALID_ARCHIVE_PARAMS = 3
OTHERS                 = 4.
IF VALID NE SPACE.
*submit job with all the selection screen params...
SUBMIT (JOB_NAME) USER SYST-UNAME
VIA JOB JOB_NAME NUMBER JOB_NR
*WITH CLIENT   = CLIENT
*WITH MONIFROM = MONIFROM
*WITH MONI_TO  = MONI_TO
*WITH TQ_FROM  = TQ_FROM
*WITH TQ_TO    = TQ_TO
*WITH WORKLOAD = WORKLOAD
*WITH ALL      = ALL
*WITH SPL1     = SPL1
*WITH APPSERV1 = APPSERV1
*WITH SPOOLNR  = SPOOLNR
*WITH APPPATH1 = APPPATH1
*WITH PCPATH   = PCPATH
*WITH SPL2     = SPL2
*WITH APPSERV2 = APPSERV2
TO SAP-SPOOL SPOOL PARAMETERS PARAMS
WITHOUT SPOOL DYNPRO
AND RETURN.
IF SYST-SUBRC <> 0.
CASE SYST-SUBRC.
WHEN  4.
MESSAGE I162(00) WITH
'Error defining background job!'
' Background job canceled by User.'.
WHEN 8.
MESSAGE I162(00) WITH
'Error defining background job!'
' Error in job scheduling (JOB_SUBMIT)'.
WHEN 12.
MESSAGE I162(00) WITH
'Error defining background job!'
' Error in internal number assignment'.
ENDCASE.
ENDIF.
endif.
endif.
endform.                    " BACKGROUND_JOB