How to convert spool object to XLS file in background job? (please..urgent)

Question

Hello all.
My requirment is to convert a spool object to an XLS file in the background (and send it via mail).
Is it possible?
If so, please help!
please attach a code sample if you have one...
Thanks allot.
Barak.

Answer 1

hi ,
this might healp you ought
TABLES: TBTCP, T024D.
*PARAMETERS TEST(5).
DATA: TJOBNAME LIKE TBTCP-JOBNAME VALUE 'REJ_COMP_MAIL_TO_MRP',
      SPOOLID LIKE TSP01-RQIDENT,
     V_LGORT LIKE MSEG-LGORT,
      V_DISPO LIKE T024D-DISPO,
      V_REPORT TYPE RSVAR-REPORT,
      V_VARIANT TYPE RSVAR-VARIANT.
DATA: BEGIN OF VVALUES OCCURS 0.
        INCLUDE STRUCTURE RSPARAMS.
DATA END OF VVALUES.
DATA : BEGIN OF T_RECEIVERS OCCURS 0.
        INCLUDE STRUCTURE SOMLRECI1.
DATA END OF T_RECEIVERS.
DATA: BEGIN OF T_TBTCP,
     jobname like tbtcp-jobname,
     jobcount like tbtcp-jobcount,
      LISTIDENT LIKE TBTCP-LISTIDENT,
      SDLDATE LIKE TBTCP-SDLDATE,
      SDLTIME LIKE TBTCP-SDLTIME,
      VARIANT LIKE TBTCP-VARIANT,
      END OF T_TBTCP,
      ITAB_SPOOL LIKE STANDARD TABLE OF T_TBTCP,
      WA_SPOOL LIKE T_TBTCP.
DATA: PLIST LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: DOCUMENT_DATA LIKE SODOCCHGI1.
DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: SO_ALI LIKE SOLI OCCURS 100 WITH HEADER LINE,
      REAL_TYPE LIKE SOODK-OBJTP,
      SP_LANG LIKE TST01-DLANG, LINE_SIZE TYPE I VALUE 255,
      V_NAME LIKE SOEXTRECI1-RECEIVER.
DATA: GD_EVENTID LIKE TBTCM-EVENTID,
      GD_EVENTPARM LIKE TBTCM-EVENTPARM,
      GD_EXTERNAL_PROGRAM_ACTIVE LIKE TBTCM-XPGACTIVE,
      GD_JOBCOUNT LIKE TBTCM-JOBCOUNT,
      GD_JOBNAME LIKE TBTCM-JOBNAME,
      GD_STEPCOUNT LIKE TBTCM-STEPCOUNT,
      GD_ERROR    TYPE SY-SUBRC,
      GD_RECIEVER TYPE SY-SUBRC.
START-OF-SELECTION.
  PERFORM GET_SPOOL_REQNUMBER USING TJOBNAME. " CHANGING SPOOLID.
  PERFORM SEND_MAIL.
PERFORM REMOVE_BLANK_SPOOLS.
*&      Form  GET_SPOOL_REQNUMBER
      text
     -->P_0111   text                                                *
     <--P_UU  text                                                   *
FORM GET_SPOOL_REQNUMBER USING P_0111.
  SELECT ALISTIDENT BSTRTDATE BSTRTTIME AVARIANT
   FROM TBTCP AS A INNER JOIN TBTCO AS B
        ON AJOBNAME EQ BJOBNAME AND
           AJOBCOUNT EQ BJOBCOUNT AND
           ASTEPCOUNT EQ BSTEPCOUNT
   INTO TABLE ITAB_SPOOL
      WHERE AJOBNAME = P_0111 AND BSTRTDATE EQ SY-DATUM.
ENDFORM.                    " GET_SPOOL_REQNUMBER
*&      Form  send_mail
      text
-->  p1        text
<--  p2        text
FORM SEND_MAIL .
Get the spool data.
  LOOP AT ITAB_SPOOL INTO WA_SPOOL.
    REFRESH : SO_ALI, PLIST, T_RECEIVERS.
    CLEAR : SO_ALI, PLIST, V_NAME, DOCUMENT_DATA, T_RECEIVERS, SPOOLID,
            V_REPORT, V_VARIANT, V_DISPO.
    IF WA_SPOOL-LISTIDENT <> '0'.
      MOVE WA_SPOOL-LISTIDENT TO SPOOLID.
      CALL FUNCTION 'RSPO_RETURN_SPOOLJOB'
        EXPORTING
          RQIDENT              = SPOOLID
          FIRST_LINE           = 1
          LAST_LINE            = 0
          DESIRED_TYPE         = ' '
        IMPORTING
          REAL_TYPE            = REAL_TYPE
          SP_LANG              = SP_LANG
        TABLES
          BUFFER               = SO_ALI
        EXCEPTIONS
          NO_SUCH_JOB          = 1
          JOB_CONTAINS_NO_DATA = 2
          SELECTION_EMPTY      = 3
          NO_PERMISSION        = 4
          CAN_NOT_ACCESS       = 5
          READ_ERROR           = 6
          TYPE_NO_MATCH        = 7
          OTHERS               = 8.
Check the return code.
      IF SY-SUBRC <> 0.
        MESSAGE S208(00) WITH 'Error'.
        LEAVE LIST-PROCESSING.
      ENDIF.
DATA : DATE LIKE SY-DATUM,
       DATE1(10) TYPE C.
Prepare the data.
CLEAR OBJTXT.
REFRESH OBJTXT.
DATE = SY-DATUM - 1.
CONCATENATE DATE6(2) '-' DATE4(2) '-' DATE+0(4) INTO DATE1.
CONCATENATE 'PLEASE CHECK THE LIST OF REJECTED MATERIALS POSTED ON :' DATE1 INTO OBJTXT.
APPEND OBJTXT.
SELECT SINGLE DSNAM FROM T024D INTO T024D-DSNAM WHERE WERKS = '1000' AND DISPO = WA_SPOOL-VARIANT.
CONCATENATE 'MRP CONTROLLER :' WA_SPOOL-VARIANT '-' T024D-DSNAM INTO OBJTXT.
APPEND OBJTXT.
OBJTXT = ''.
APPEND OBJTXT.
CLEAR PLIST.
REFRESH PLIST.
PLIST-TRANSF_BIN = SPACE.
PLIST-HEAD_START = 1.
PLIST-HEAD_NUM = 0.
PLIST-BODY_START = 1.
DESCRIBE TABLE OBJTXT LINES PLIST-BODY_NUM.
PLIST-DOC_TYPE = 'RAW'.
APPEND PLIST.
CLEAR PLIST.
     PLIST-TRANSF_BIN = 'X'.
     PLIST-HEAD_START = 0.
     PLIST-HEAD_NUM = 0.
     PLIST-BODY_START = 0.
     PLIST-BODY_NUM = 0.
     PLIST-DOC_TYPE = 'RAW'.
      PLIST-OBJ_DESCR = WA_SPOOL-VARIANT.
     APPEND PLIST.
      PLIST-TRANSF_BIN = 'X'.
      PLIST-HEAD_START = 0.
      PLIST-HEAD_NUM = 0.
      PLIST-BODY_START = 1.
      DESCRIBE TABLE SO_ALI LINES PLIST-BODY_NUM.
      PLIST-DOC_TYPE = REAL_TYPE.
Get the size.
      READ TABLE SO_ALI INDEX PLIST-BODY_NUM.
      PLIST-DOC_SIZE = ( PLIST-BODY_NUM - 1 ) * LINE_SIZE + STRLEN( SO_ALI ).
      APPEND PLIST.
***get the values of the variant
      MOVE : WA_SPOOL-VARIANT TO V_VARIANT.
      SELECT * FROM TBTCP WHERE JOBNAME EQ TJOBNAME ORDER BY SDLDATE.
        MOVE TBTCP-PROGNAME TO V_REPORT.
      ENDSELECT.
      CALL FUNCTION 'RS_VARIANT_VALUES_TECH_DATA'
        EXPORTING
          REPORT                     = V_REPORT
          VARIANT                    = V_VARIANT
        SEL_TEXT                   = ' '
        MOVE_OR_WRITE              = 'W'
        SORTED                     = ' '
        EXECUTE_DIRECT             =
      IMPORTING
        TECHN_DATA                 =
        TABLES
          VARIANT_VALUES             = VVALUES
       EXCEPTIONS
         VARIANT_NON_EXISTENT       = 1
         VARIANT_OBSOLETE           = 2
         OTHERS                     = 3.
      LOOP AT VVALUES.
        CASE VVALUES-SELNAME.
          WHEN 'S_DISPO'.
           MOVE VVALUES-LOW TO V_LGORT.
            MOVE VVALUES-LOW TO V_DISPO.
        ENDCASE.
      ENDLOOP.
      SELECT SINGLE USRKEY FROM T024D INTO T024D-USRKEY WHERE WERKS EQ '1000' AND DISPO EQ V_DISPO.
      IF SY-SUBRC EQ 0.
        T_RECEIVERS-RECEIVER = T024D-USRKEY.
        T_RECEIVERS-REC_TYPE = 'U'.
        APPEND T_RECEIVERS.
      IF V_DISPO = '3'   OR V_DISPO = '5'   OR
         V_DISPO = '21'  OR V_DISPO = '48'  OR
         V_DISPO = '51'  OR V_DISPO = '231' OR
         V_DISPO = '512' OR V_DISPO = '921'.
        T_RECEIVERS-RECEIVER = 
        T_RECEIVERS-REC_TYPE = 'U'.
        T_RECEIVERS-COPY = 'X'.
        APPEND T_RECEIVERS.
      ENDIF.
      IF V_DISPO = '14'  OR V_DISPO = '86'  OR
         V_DISPO = '515' OR V_DISPO = '704' OR
         V_DISPO = '711' OR V_DISPO = '712' OR
         V_DISPO = '713'.
        T_RECEIVERS-RECEIVER =
        T_RECEIVERS-REC_TYPE = 'U'.
        T_RECEIVERS-COPY = 'X'.
        APPEND T_RECEIVERS.
      ENDIF.
       T_RECEIVERS-RECEIVER = *        T_RECEIVERS-REC_TYPE = 'U'.
       T_RECEIVERS-COPY = 'X'.
       APPEND T_RECEIVERS.
       T_RECEIVERS-RECEIVER = *        T_RECEIVERS-REC_TYPE = 'U'.
       T_RECEIVERS-BLIND_COPY = 'X'.
       APPEND T_RECEIVERS.
      ENDIF.
      IF NOT SP_LANG IS INITIAL.
        DOCUMENT_DATA-OBJ_LANGU = SP_LANG.
      ELSE.
        DOCUMENT_DATA-OBJ_LANGU = SY-LANGU.
      ENDIF.
      V_NAME = SY-UNAME.
Subject.
CONCATENATE 'List of Rejected Materials, MRP Controller:' WA_SPOOL-VARIANT
            INTO DOCUMENT_DATA-OBJ_DESCR.
Send the email.
      CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
        EXPORTING
          DOCUMENT_DATA              = DOCUMENT_DATA
          SENDER_ADDRESS             = V_NAME
          SENDER_ADDRESS_TYPE        = 'B'
        TABLES
          PACKING_LIST               = PLIST
          CONTENTS_BIN               = SO_ALI
          CONTENTS_TXT               = OBJTXT
          RECEIVERS                  = T_RECEIVERS
        EXCEPTIONS
          TOO_MANY_RECEIVERS         = 1
          DOCUMENT_NOT_SENT          = 2
          DOCUMENT_TYPE_NOT_EXIST    = 3
          OPERATION_NO_AUTHORIZATION = 4
          PARAMETER_ERROR            = 5
          X_ERROR                    = 6
          ENQUEUE_ERROR              = 7
          OTHERS                     = 8.
      IF SY-SUBRC <> 0.
        MESSAGE E208(00) WITH 'Error in sending email'.
      ENDIF.
      COMMIT WORK.
Send the email immediately.
      SUBMIT RSCONN01
      WITH MODE = 'INT'
      AND RETURN.
      IF SY-SUBRC EQ 0.
        WRITE 'To get the spool no'.
        CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
          IMPORTING
            EVENTID                 = GD_EVENTID
            EVENTPARM               = GD_EVENTPARM
            EXTERNAL_PROGRAM_ACTIVE = GD_EXTERNAL_PROGRAM_ACTIVE
            JOBCOUNT                = GD_JOBCOUNT
            JOBNAME                 = GD_JOBNAME
            STEPCOUNT               = GD_STEPCOUNT
          EXCEPTIONS
            NO_RUNTIME_INFO         = 1
            OTHERS                  = 2.
        IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.
        WRITE : / 'Spool id of the job that is sent', SPOOLID,
                 GD_EVENTID,
                 GD_EVENTPARM,
                 GD_EXTERNAL_PROGRAM_ACTIVE,
                 GD_JOBCOUNT,
                 GD_JOBNAME,
                 GD_STEPCOUNT.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " send_mail
*&      Form  remove_blank_spools
      text
-->  p1        text
<--  p2        text
*FORM REMOVE_BLANK_SPOOLS .
LOOP AT ITAB_SPOOL INTO WA_SPOOL.
   MOVE WA_SPOOL-LISTIDENT TO SPOOLID.
   CALL FUNCTION 'RSPO_ISELECT_TSP01'
     EXPORTING
       RFCSYSTEM        = SY-SYSID
       RQIDENT          = SPOOLID
  FORUPDATE        = ' '
    IMPORTING
      TSP01_ELEM       = W_INFO
    EXCEPTIONS
      ERROR            = 1
      OTHERS           = 2.
   CALL FUNCTION 'RSPO_IRETURN_RAW_DATA'
     EXPORTING
       RQ                 = W_INFO
     TABLES
      LINE_BUFFER        = W_DATA
   PAGE_INDEX         = W_PAGES
      LINE_BUFFER2       =
    EXCEPTIONS
      ERROR              = 1
      OTHERS             = 2.
   IF W_INFO-RQDOCTYPE = 'LIST'.
     CALL FUNCTION 'RSPO_R_GET_TOC_SPOOLREQ'
       EXPORTING
         RQIDENT = SPOOLID
       TABLES
         TOCDESC = W_TODESC
       EXCEPTIONS
         ERROR   = 1
         OTHERS  = 2.
     CALL FUNCTION 'RSPO_SPOOLDATA_WRITE_INIT'.
     READ TABLE W_DATA WITH KEY DATA_LINE = 'List contains no data'.
     LOOP AT W_DATA.
       IF W_DATA-DATA_LINE CP 'List contains no data'.
       ENDIF.
     ENDLOOP.
   ENDIF.
ENDLOOP.
*ENDFORM.                    " remove_blank_spools