Subject in the mail sent through Batch Job

Question

Hi,
We have a batch job which is running daily.
Consumer wants the output of the batch job (spool request) in mail. We generally send the mail from batch job by filling the mail id in "Title field".. there is some third party involved in managing spool requests..
But now consumer wants to send the mail with a subject line filled..
I could not find any field or option in SM36 where i can fill in the subject..
Please help. Now we are getting the subject as user id + spool request + system number.

Answer 1

Check the below Code.
DATA: NUMBYTES TYPE TST01-DSIZE,
        PDFSPOOLID TYPE TSP01-RQIDENT.
  DATA: BEGIN OF PDFDATA OCCURS 0.
          INCLUDE STRUCTURE TLINE.
  DATA: END OF PDFDATA.
  DATA: G1_LINES_TXT  TYPE I.
  DATA  : L_DOCUMENT_DATA    TYPE SODOCCHGI1,
          T_PACKING_LIST     TYPE STANDARD TABLE OF SOPCKLSTI1,
          W_OBJHEAD TYPE SOLI_TAB,
          T_OBJBIN TYPE STANDARD TABLE OF SOLISTI1,
          T_OBJTXT  TYPE STANDARD TABLE OF SOLISTI1,
          LW_PACKING_LIST    TYPE SOPCKLSTI1,
          L_LINES            TYPE I,
          W_RECEIVER        TYPE SOMLRECI1,
          T_RECEIVER         TYPE STANDARD TABLE OF SOMLRECI1.
  DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS  2 WITH HEADER LINE.
  DATA: OBJHEAD LIKE SOLISTI1   OCCURS  1 WITH HEADER LINE.
  DATA: OBJBIN  LIKE SOLISTI1   OCCURS 10 WITH HEADER LINE.
  DATA: OBJTXT  LIKE SOLISTI1   OCCURS 10 WITH HEADER LINE.
  DATA: RECLIST LIKE SOMLRECI1  OCCURS  5 WITH HEADER LINE.
  DATA: DOC_CHNG LIKE SODOCCHGI1.
  DATA: TAB_LINES LIKE SY-TABIX.
*...Read the Spool request number generated.
  SELECT MAX( RQIDENT ) INTO G_SPOOL_NUM
                        FROM TSP01
                        WHERE RQCLIENT = SY-MANDT AND
                        RQOWNER = SY-UNAME.
*....Convert Spool to PDF
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      SRC_SPOOLID              = G_SPOOL_NUM
      NO_DIALOG                = 'X'
      DST_DEVICE               = G_PDEST
    IMPORTING
      PDF_BYTECOUNT            = NUMBYTES
    TABLES
      PDF                      = PDFDATA
    EXCEPTIONS
      ERR_NO_ABAP_SPOOLJOB     = 1
      ERR_NO_SPOOLJOB          = 2
      ERR_NO_PERMISSION        = 3
      ERR_CONV_NOT_POSSIBLE    = 4
      ERR_BAD_DESTDEVICE       = 5
      USER_CANCELLED           = 6
      ERR_SPOOLERROR           = 7
      ERR_TEMSEERROR           = 8
      ERR_BTCJOB_OPEN_FAILED   = 9
      ERR_BTCJOB_SUBMIT_FAILED = 10
      ERR_BTCJOB_CLOSE_FAILED  = 11
      OTHERS                   = 12.
*...Convert 132 char to 255 char
  LOOP AT PDFDATA.
    TRANSLATE PDFDATA USING ' ~'.
    CONCATENATE GD_BUFFER PDFDATA INTO GD_BUFFER.
  ENDLOOP.
  TRANSLATE GD_BUFFER USING '~ '.
  DO.
    IT_MESS_ATT = GD_BUFFER.
    APPEND IT_MESS_ATT.
    SHIFT GD_BUFFER LEFT BY 255 PLACES.
    IF GD_BUFFER IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
Creating the document attachment
  LOOP AT IT_MESS_ATT.
    OBJBIN = IT_MESS_ATT.
    APPEND OBJBIN.
    CLEAR: OBJBIN,
           IT_MESS_ATT.
  ENDLOOP.
Creating the document to be sent
  DOC_CHNG-OBJ_NAME = 'IG Balance'.
*.....Subject of the email.
  CONCATENATE 'Intragroup Confirmation from AoO: ' P_ZAOO INTO DOC_CHNG-OBJ_DESCR.
DOC_CHNG-OBJ_DESCR = 'Intragroup Confirmation from AoO '.
*...Body of the email
  OBJTXT = 'Please find attached a summary and details '.
  APPEND OBJTXT.
  OBJTXT = 'Any queries regarding the attached should be addressed to the contact names on the Report.'.
  APPEND OBJTXT.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ TABLE OBJTXT INDEX TAB_LINES.
  DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
Creating the entry for the compressed document
  CLEAR OBJPACK-TRANSF_BIN.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
  OBJPACK-DOC_TYPE   = 'RAW'.
  APPEND OBJPACK.
  DESCRIBE TABLE OBJBIN LINES TAB_LINES.
  OBJHEAD = 'Balace.PDF'. APPEND OBJHEAD.
Creating the entry for the compressed attachment
  OBJPACK-TRANSF_BIN = 'X'.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 1.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
  OBJPACK-DOC_TYPE   = 'PDF'.
  OBJPACK-OBJ_NAME   = 'ATTACHMENT'.
  OBJPACK-OBJ_DESCR = 'Balance Report'.
  OBJPACK-DOC_SIZE   = TAB_LINES * 255.
  APPEND OBJPACK..
Entering names in the distribution list
  DATA: L_CNT TYPE I.
  LOOP AT T_EMAIL INTO W_EMAIL.
    IF W_EMAIL-ZCONTACT1 IS NOT INITIAL.
      RECLIST-RECEIVER = W_EMAIL-ZCONTACT1.
      RECLIST-REC_TYPE = 'U'.
      L_CNT = L_CNT + 1.
    ELSEIF W_EMAIL-ZCONTACT2 IS NOT INITIAL.
      RECLIST-RECEIVER = W_EMAIL-ZCONTACT2.
      RECLIST-REC_TYPE = 'U'.
      L_CNT = L_CNT + 1.
    ENDIF.
    APPEND RECLIST.
    CLEAR: RECLIST,
           W_EMAIL.
  ENDLOOP.
  SELECT SINGLE ZAOO
                 ZCONTACT1
                 ZCONTACT2 FROM ZFI_MT_RPTRMAP INTO W_EMAIL
                 WHERE ZAOO EQ P_ZAOO.
  IF W_EMAIL-ZCONTACT1 IS NOT INITIAL.
    RECLIST-RECEIVER = W_EMAIL-ZCONTACT1.
    RECLIST-REC_TYPE = 'U'.
    L_CNT = L_CNT + 1.
    APPEND RECLIST.
  ELSEIF W_EMAIL-ZCONTACT2 IS NOT INITIAL.
    RECLIST-RECEIVER = W_EMAIL-ZCONTACT2.
    RECLIST-REC_TYPE = 'U'.
    L_CNT = L_CNT + 1.
    APPEND RECLIST.
  ENDIF.
Sending the document
  IF L_CNT > 0.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        DOCUMENT_DATA              = DOC_CHNG
        PUT_IN_OUTBOX              = 'X'
        COMMIT_WORK                = 'X'
      TABLES
        PACKING_LIST               = OBJPACK
        OBJECT_HEADER              = OBJHEAD
        CONTENTS_BIN               = OBJBIN
        CONTENTS_TXT               = OBJTXT
        RECEIVERS                  = RECLIST
      EXCEPTIONS
        TOO_MANY_RECEIVERS         = 1
        DOCUMENT_NOT_SENT          = 2
        OPERATION_NO_AUTHORIZATION = 4
        OTHERS                     = 99.
    CASE SY-SUBRC.
      WHEN 0.
        WRITE 'Email sent successfully'.
      WHEN 1.
        WRITE: / 'no authorization to send to the specified number of recipients!'.
      WHEN 2.
        WRITE: / 'document could not be sent to any of the recipients!'.
      WHEN 4.
        WRITE: / 'no authorization to send !'.
      WHEN OTHERS.
        WRITE: / 'error occurred during sending !'.
    ENDCASE.
  ELSE.
    MESSAGE S000 WITH TEXT-018.
    STOP.
  ENDIF.
*...Delete Spool Request.
  DATA: SPOOLID TYPE TSP01_SP0R-RQID_CHAR.
  SPOOLID = G_SPOOL_NUM.
  CALL FUNCTION 'RSPO_R_RDELETE_SPOOLREQ'
    EXPORTING
      SPOOLID             = SPOOLID
  IMPORTING
    RC                  =
    STATUS              =
    ERROR_MESSAGE       =