TAx Reporter Temse Files Download Automation

Question

Hi,
I have a reuiqrement to download the Temse files generated in Tax Reporter. I have completed the code and it works fine if we run the program in foreground. But when I run the same program in background some Temse files downloaded have junk characters. If I download the same Temse file in foreground it works fine.
There seems to be some issue with the FM when I run my progam in background.
I have searched SDN and SAP Notes for any clues but did not get any.
REPORT  ZPHOP_TEMSE  NO STANDARD PAGE HEADING
                  LINE-SIZE 1023
                  LINE-COUNT 65
                  MESSAGE-ID zz.
DATA: BEGIN OF tape OCCURS 1,
         DATA(2000),
      END OF tape.
DATA: force_ascii type c VALUE 'T'.
DATA:  BEGIN OF int_msgs2 OCCURS 10,
         errnum(2) TYPE c,
         text1(8) TYPE c,
         text2(60) TYPE c,
       END OF int_msgs2.
DATA: BEGIN OF g_int_temse OCCURS 0,
         dname    LIKE TST01-dname,
         dpart    LIKE TST01-dpart,
         dcretime LIKE TST01-DCRETIME,
         dcreater LIKE TST01-DCREATER,
      END OF g_int_temse.
DATA: record_length  TYPE i VALUE 275,
       data_length    TYPE i,
       convert_to_ebcdic,
       filesize TYPE i,
       number_of_records TYPE i VALUE 1,
       filetype(3) VALUE 'BIN',
       conv TYPE REF TO cl_abap_conv_out_ce,
       dline TYPE REF TO data,
       dtab TYPE REF TO data,
       p_compid(4),
       p_pswd(8),
       g_str(2000),
       uc_filename TYPE string.
DATA: l_nm_fixed_record.
CONSTANTS: c_lpath TYPE pathintern VALUE 'ZOUT'.
TABLES: TST01, ZPHOPFLS, ZTEMSE_LOG, V_5UXY_A.
FIELD-SYMBOLS: <dtab> TYPE STANDARD TABLE,
               <dline> TYPE ANY.
INCLUDE: dbpnpcom.           " No logical database        Do not modify!
INCLUDE: zphoptop,           " Top Include                Do not modify!
         zphopfil.           " File inlcude               Do not modify!
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-T01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) text-001.
SELECT-OPTIONS  s_temse FOR TST01-dname NO INTERVALS.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE text-T02.
SELECT-OPTIONS  s_cai   FOR TST01-DCREATER NO INTERVALS.
SELECT-OPTIONS  s_date  FOR sy-datum.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE text-T03.
PARAMETERS: p_ifid   LIKE t9aoa-if_id MODIF ID DIS ,
            p_fileid LIKE t9aoa-file_id MODIF ID DIS,
            p_unixf(60)  LOWER CASE MODIF ID DIS,
            p_uxdir  TYPE pathextern LOWER CASE MODIF ID DIS,
            p_dstfil(45) LOWER CASE MODIF ID DIS.
SELECTION-SCREEN END OF BLOCK B3.
PARAMETERS: p_skip AS CHECKBOX.
DATA: ws_unixr LIKE p_unixf,
      ws_trans LIKE p_unixf.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'DIS'.
      screen-output = '1'.
      screen-input  = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
INITIALIZATION.
  p_ifid = 'PAYFLS'.
  p_compid = 'HR00'.
  p_fileid = '01'.
  p_unixf = 'AFS'.
  p_pswd = 'chevr123'.
  p_skip = 'X'.
-End of Initialization--
  PERFORM get_physical_path.
  FORMAT COLOR COL_HEADING.
  WRITE: /01 text-t04,
          10 sy-pagno,
          41 text-t05,
         110 text-t06,
         123 sy-datum.
  WRITE: /01 text-t08,
          14 sy-repid,
         110 text-t07,
         125 sy-uzeit.
  FORMAT COLOR OFF.
  SKIP.
  WRITE: /(20) text-T21       CENTERED COLOR COL_HEADING,
          (15) text-T22       CENTERED COLOR COL_HEADING,
          (20) text-T23       CENTERED COLOR COL_HEADING,
          (15) text-T24       CENTERED COLOR COL_HEADING,
          (40) text-T25       CENTERED COLOR COL_HEADING.
START-OF-SELECTION.
*Do not allow background processing
*Check if the Temse file and CAI both are entered
IF NOT S_TEMSE IS INITIAL AND NOT S_CAI IS INITIAL.
   MESSAGE W999 WITH TEXT-E01.
ELSEIF S_TEMSE IS INITIAL AND S_CAI IS INITIAL.
   MESSAGE W999 WITH TEXT-E02.
ENDIF.
Collect all temse filenames from TST01 into an internal table.
IF NOT s_temse IS INITIAL.
   SELECT dname dpart dcretime dcreater FROM TST01 INTO TABLE g_int_temse
          WHERE dname in s_temse
          AND   dpart EQ '1'.
ELSE.
   SELECT * FROM TST01
          WHERE DCREATER in s_cai
          AND   DPART EQ '1'.
     IF TST01-DCRETIME(8) GE s_date-low
         AND TST01-DCRETIME(8) LE s_date-high.
        MOVE-CORRESPONDING TST01 TO g_int_temse.
        APPEND g_int_temse.
     ENDIF.
   ENDSELECT.
ENDIF.
SORT g_int_temse BY DNAME DPART DCRETIME.
LOOP AT g_int_temse.
Check if the temse file is already processed in ZTEMSE_LOG table.
  SELECT SINGLE * FROM ZTEMSE_LOG
         WHERE DNAME = g_int_temse-dname.
  IF sy-subrc EQ 0.
error. Temse already processed
     CONTINUE.
  ENDIF.
Check if the temse file bieng processed is the eligible temse file
  SELECT SINGLE * FROM V_5UXY_A
         WHERE TSOBJ = g_int_temse-dname.
  IF sy-subrc EQ 0.
     SELECT SINGLE * FROM ZPHOPFLS
         WHERE TAXAU = V_5UXY_A-TAXAU
         AND   TXFRM = V_5UXY_A-TXFRM.
     IF sy-subrc EQ 0.
Generate the filename for the target destination
        CONCATENATE ZPHOPFLS-FILENAME '.' sy-datum '.' sy-uzeit INTO p_dstfil.
     ELSE.
error. Script not maintained in ZPHOPFLS table
        CONTINUE.
     ENDIF.
  ELSE.
error. Temse file is not the latest processed file.
     CONTINUE.
  ENDIF.
  CALL FUNCTION 'RP_TS_OPEN'
    EXPORTING
      tsobj = g_int_temse-dname
     versn = g_int_temse-dpart
      empfg = 'RPUTSVUM'.
  COMMIT WORK.
  REFRESH tape.
  CLEAR   tape.
Einlesen von der TemSe
  CALL FUNCTION 'RSTS_READ'
    EXPORTING
       PARTS1BY1 = 'X'
    TABLES
      datatab = tape.
  CALL FUNCTION 'RSTS_CLOSE'.
Read the 1st line which is supposed to contains info important for
the downloading procedure. The syntax of the line is :
  SAPxxxnnnyyyy  - the 1st 3 char 'SAP' indicates this line contains
download related info. xxx can either be 'ASC' (for ASCII) or 'EBC'
(for EBCDIC). nnn is the length of each record, e.g. 128 for SSA disk
format, 275 for SSA tape format etc. yyyy can either be 'CRLF' (each
record is delimited by CRLF) or blank (no CRLF).
After processing the 1st line, the line is deleted from the internal
table. Downloading begins on the 2nd line.
  READ TABLE tape INDEX 1.
  IF tape-data(3) EQ 'SAP'.
    IF tape-data+3(3) EQ 'EBC'.
      convert_to_ebcdic = 'x'.
    ELSEIF tape-data+3(3) EQ 'ASC'
          AND force_ascii EQ 'T'.
      filetype = 'ASC'.
    ENDIF.
    IF tape-data+6(3) NA '*'.
      record_length = tape-data+6(3).
    ELSE.
      record_length = tape-data+13(4).
    ENDIF.
    IF tape-data+9(4) EQ 'CRLF'.
      data_length = record_length + 2.
    ELSE.
      data_length = record_length.
    ENDIF.
    DELETE tape INDEX 1.
  ELSE.
    data_length = record_length.
  ENDIF.
Transfer the Temse file data to Unix file.
      PERFORM transfer_file.
Update the Log table with the temse details.
      ZTEMSE_LOG-dname = g_int_temse-dname.
      ZTEMSE_LOG-txcmp = V_5UXY_A-taxau.
      ZTEMSE_LOG-txfrm = V_5UXY_A-txfrm.
      ZTEMSE_LOG-filename = ws_unixr.
      ZTEMSE_LOG-DCREATER = g_int_temse-dcreater.
      INSERT ZTEMSE_LOG.
    WRITE: /(20) ZTEMSE_LOG-dname,
            (15) ZTEMSE_LOG-txcmp,
            (20) ZTEMSE_LOG-txfrm,
            (15) ZTEMSE_LOG-dcreater,
            (40) ZTEMSE_LOG-filename.
ENDLOOP.
*&      Form  get_physical_path
      Get Physical directory name for the given logical path name
FORM get_physical_path .
  CALL FUNCTION 'ZFILE_GET_PATH_NAME'
    EXPORTING
      LOGICAL_PATH               = c_lpath
    IMPORTING
      FILE_NAME_PATH             = p_uxdir
    EXCEPTIONS
      PATH_NOT_FOUND             = 1
      MISSING_PARAMETER          = 2
      OPERATING_SYSTEM_NOT_FOUND = 3
      FILE_SYSTEM_NOT_FOUND      = 4
      OTHERS                     = 5.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " get_physical_path
*&      Form  TRANSFER_FILE
FORM transfer_file.
  p_unixf = 'AFS'.
Concatenate Date with Unix File name
  CONCATENATE p_unixf '.' p_compid '.' p_ifid  '.' sy-datum '.' sy-uzeit INTO ws_unixr.
Concatenate Unix Directory with Unix File for Outbound
  CONCATENATE p_uxdir ws_unixr INTO p_unixf.
  PERFORM open_files USING p_unixf.
LOOP AT tape.
     g_str = tape-data(record_length).
    TRANSFER g_str TO p_unixf LENGTH record_length.
    IF sy-subrc <> 0.
      MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH 'sy-subrc:' sy-subrc
       ' Error Transferring to: ' p_unixf.
    ENDIF.
ENDLOOP.
  PERFORM close_files USING p_unixf.
ENDFORM.                    " TRANSFER_FILE
Can anyone please check and tell me what I need to overcome this problem.

Answer 1

Hi Bhaskar,
I also have the same requirement to upload TemSe files in to application server.
In FDTA tcode after we enter company code and click on enter.
In the second screen checking and line item and go to edit and click on download button.
Here we see a popup with default file name, and when we say ok the file will get downloaded into C:\.....
Here our req is to upload the file automatically pick up via batch job and place it in the in to the application server and from there it should be placed in the Netwrok server (UNIX).
Pls provide me with suitable code so that i can finish it off.I tried a lot but did not work.
Thanks.