* ====================================================================
* Stefanos Moschidis - SAP Certified Technical Consultant
* ====================================================================

REPORT ZSEND_INTERNET_MAILS_FM_QUEUE
       NO STANDARD PAGE HEADING LINE-SIZE 255.


*----------------------------------------------------------------------*
*   data definition
*----------------------------------------------------------------------*
DATA:  NODATA TYPE C VALUE '/'  .          "nodata

*       Batchinputdata of single transaction
DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
*       messages of call transaction
DATA:   MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
*       message texts
 

*--------------------------------------------------------------------
START-OF-SELECTION.
*--------------------------------------------------------------------
 
  CLEAR :  BDCDATA  ,    MESSTAB .
  FREE :  BDCDATA  ,    MESSTAB .

  PERFORM BDC_DYNPRO USING 'SAPMSSY0' '0120'.
  PERFORM BDC_FIELD  USING 'BDC_CURSOR' '09/11'.
  PERFORM BDC_FIELD  USING 'BDC_OKCODE' '=PDIA'.

  PERFORM BDC_DYNPRO USING 'SAPLSX10' '0120'.
  PERFORM BDC_FIELD  USING 'BDC_CURSOR' 'SXJOBDATA-ADDR_TYPE'.
  PERFORM BDC_FIELD  USING 'BDC_OKCODE' '=ADRTP'.
  PERFORM BDC_FIELD  USING 'SXJOBDATA-ADDR_TYPE' 'INT'.
  PERFORM BDC_FIELD  USING 'SXJOBDATA-MAXJOBS'   '1'.

  PERFORM BDC_DYNPRO USING 'SAPLSX10' '0120'.
  PERFORM BDC_FIELD  USING 'BDC_CURSOR' 'SXJOBDATA-ADDR_TYPE'.
  PERFORM BDC_FIELD  USING 'BDC_OKCODE' '=OK12'.
  PERFORM BDC_FIELD  USING 'SXJOBDATA-ADDR_TYPE'   'INT'.
  PERFORM BDC_FIELD  USING 'SXJOBDATA-MAXJOBS'   '1'.

 

  CALL TRANSACTION 'SCOT'
    USING  BDCDATA
  MODE 'N'
 UPDATE 'S'
 MESSAGES INTO   MESSTAB .

 

*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = PROGRAM.
  BDCDATA-DYNPRO   = DYNPRO.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.
ENDFORM.

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
  IF FVAL <> NODATA.
    CLEAR BDCDATA.
    BDCDATA-FNAM = FNAM.
    BDCDATA-FVAL = FVAL.
    APPEND BDCDATA.
  ENDIF.
ENDFORM.