How to save ALV list and send listoutput as email in background process

Question

Can anyone tell me if an ALV list report could be saved as LIST using 'LIST_TO_MEMORY' and then by using 'LIST_FROM_MEMORY' we need to read the list. If so How?
I don't want to use 'Submit....exporting list to memory and return' as then I have to trigger my program twice.
Finally with one program itself i want to get the listoutput and send the list output as an email to the customer in background.
I have gone through the forums and could see many of them facing the same problem, but could not find the solution in the forums.
Waiting for a reply
Santhoshi

Answer 1

if you want to send mail with the same data as you display in ALV, you can use the same internal table,which you sent to ALV_LIST_DISPLAY function module.
take the email ids from the user on the selection-screen & use the below code to send mail to them.
call this FORM F_SEND_MAIL before you called the ALV function module.
FORM F_SEND_MAIL .
  CLEAR WA_RECLIST.
  REFRESH IT_RECLIST.
*-popualate email ids
*--Receipient 1
this receipient can be select-option from the selection screen. or can be hardcoded as below.
  WA_RECLIST-RECEIVER = '[email protected]'.
  WA_RECLIST-REC_TYPE = C_U.
  WA_RECLIST-EXPRESS  = C_X.
*--append receiver table
  APPEND WA_RECLIST TO IT_RECLIST.
  CLEAR : WA_RECLIST.
*--Receipient 2
  WA_RECLIST-RECEIVER = '[email protected]'.
  WA_RECLIST-REC_TYPE = C_U.
  WA_RECLIST-EXPRESS  = C_X.
*-append receiver table
  APPEND WA_RECLIST TO IT_RECLIST.
  CLEAR : WA_RECLIST.
*--populate document attributes
  CLEAR: X_DOC_CHNG.
  X_DOC_CHNG-OBJ_NAME = 'HEADING'.
  CONCATENATE 'Japan BOL details for the delivery#'(003)
              V_VBELN
              INTO X_DOC_CHNG-OBJ_DESCR SEPARATED BY SPACE.
*-populate body text
CONCATENATE 'Japan BOL details for the Delivery#'(003)
  CONCATENATE TEXT-003
               V_VBELN
               ',is attached'
               INTO WA_OBJTXT SEPARATED BY SPACE.
  APPEND WA_OBJTXT TO IT_OBJTXT.
*---- Append Date and Time into Body of email.
  MOVE 'File is generated on'(004) TO V_INFO.
  V_TIME = SY-UZEIT.
WRITE : SY-UZEIT TO V_TIME USING EDIT MASK '__:__:__'.
  CONCATENATE V_TIME+0(2)
              V_TIME+2(2)
              V_TIME+4(2)
              INTO
              V_TIME2 SEPARATED BY ':'.
   WRITE : sy-datum MM/DD/YYYY TO lv_date .
  CONCATENATE SY-DATUM+4(2)
              SY-DATUM+6(2)
              SY-DATUM+0(4)
              INTO V_DATE.
  CONCATENATE V_INFO
              V_DATE
              'At'
              V_TIME2
              INTO V_INFO
              SEPARATED BY SPACE.
  WA_OBJTXT = V_INFO.
  APPEND WA_OBJTXT TO IT_OBJTXT.
*-document size
  CLEAR : V_TABLE_LINES.
  DESCRIBE TABLE IT_OBJTXT LINES V_TABLE_LINES.
  READ TABLE IT_OBJTXT INTO WA_OBJTXT INDEX V_TABLE_LINES.
  X_DOC_CHNG-DOC_SIZE =
                 ( V_TABLE_LINES - 1 ) * 255 + STRLEN( WA_OBJTXT ).
*-populate packing list for body text
CLEAR IT_OBJPACK-TRANSF_BIN.
  WA_OBJPACK-HEAD_START = 1.
  WA_OBJPACK-HEAD_NUM = 0.
  WA_OBJPACK-BODY_START = 1.
  WA_OBJPACK-BODY_NUM = V_TABLE_LINES.
  WA_OBJPACK-DOC_TYPE = 'RAW'.
  APPEND WA_OBJPACK TO IT_OBJPACK.
  CLEAR WA_OBJPACK.
*--for attachment
*--add Internal table lines here, as attachment.
*--IT_FINAL IS THE internal table which you used to display the result as ALV output
  loop at IT_FINAL.
    CONCATENATE IT_FINAL-FIELD1
                IT_FINAL-FIELD2
*--AND SO ON
         INTO WA_OBJBIN.
  APPEND WA_OBJBIN TO IT_OBJBIN.
  CLEAR  WA_OBJBIN.
ENDLOOP.
*-get total no.of lines of Object table(attachment)
  CLEAR : V_TABLE_LINES.
  DESCRIBE TABLE IT_OBJBIN LINES V_TABLE_LINES.
*-populate object header
  CONCATENATE  'Delivery#'(005)
                 V_VBELN
                 SY-DATUM
                 V_TIME
                 INTO
                 WA_OBJHEAD SEPARATED BY SPACE.
  APPEND WA_OBJHEAD TO IT_OBJHEAD.
  CLEAR  WA_OBJHEAD.
*-packing list for attachment
  WA_OBJPACK-TRANSF_BIN = C_X.
  WA_OBJPACK-HEAD_START = 1.
  WA_OBJPACK-HEAD_NUM = 1.
  WA_OBJPACK-BODY_START = 1.
  WA_OBJPACK-BODY_NUM = V_TABLE_LINES .
WA_OBJPACK-DOC_TYPE = 'CSV' .
  WA_OBJPACK-DOC_TYPE = 'RAW' .
  WA_OBJPACK-OBJ_NAME = 'POTR'.
CONCATENATE 'Delivery details for '(005)
  CONCATENATE TEXT-005
            V_VBELN
            SY-DATUM
            V_TIME
            '.CSV'
            INTO
            WA_OBJPACK-OBJ_DESCR SEPARATED BY SPACE.
  BREAK-POINT.
  WA_OBJPACK-DOC_SIZE = V_TABLE_LINES * 255.
  APPEND WA_OBJPACK TO IT_OBJPACK.
  CLEAR  WA_OBJPACK.
*-Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA              = X_DOC_CHNG
      PUT_IN_OUTBOX              = C_X
      COMMIT_WORK                = C_X
    TABLES
      PACKING_LIST               = IT_OBJPACK
      OBJECT_HEADER              = IT_OBJHEAD
      CONTENTS_BIN               = IT_OBJBIN
      CONTENTS_TXT               = IT_OBJTXT
      RECEIVERS                  = IT_RECLIST
    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 ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    " F_SEND_MAIL
Regards
srikanth
added comments
Message was edited by: Srikanth Kidambi