Hi Experts,
have problem sending a email ..spool not genrating using it showing (spool does't exit 0) program is alv program
REPORT zhrptr0269 NO STANDARD PAGE HEADING MESSAGE-ID zhrcd.
*---------------------------------------------------------------------*
* INCLUDES *
*---------------------------------------------------------------------*
*------All the Global Data Decalarations
INCLUDE: zhrptr0269_data_declaration.
*------All the Selection Screen Decalarations
INCLUDE: zhrptr0269_selection_screen.
*------All the Subroutines Decalarations
INCLUDE: zhrptr0269_subroutines.
**---------------------------------------------------------------------*
** AT SELECTION-SCREEN *
**---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
PERFORM screen_init.
AT SELECTION-SCREEN.
PERFORM screen_vldt.
*------Checking for Authority of User
PERFORM authority_check.
*------For Interface Last Run Date
IF chk_test EQ ' '.
PERFORM interface_check.
ENDIF.
PERFORM initial_check.
**---------------------------------------------------------------------*
** START OF SELECTION *
**---------------------------------------------------------------------*
START-OF-SELECTION.
*------Date Retrieval Logic
GET peras.
* If plant rate file is checked
IF plnt_fle IS NOT INITIAL.
PERFORM get_plant_rate_data.
ENDIF.
*------Date Retrieval Logic
* If mini master data is checked
IF mini_dta IS NOT INITIAL.
PERFORM get_mini_data.
ENDIF.
END-OF-SELECTION.
*------Validation Checks
PERFORM validation_check.
**---------------------------------------------------------------------*
** END-OF-SELECTION *
**---------------------------------------------------------------------*
IF chk_test EQ 'X'.
*------Report Genaration
IF mini_dta IS NOT INITIAL.
PERFORM create_report.
ELSEIF plnt_fle IS NOT INITIAL.
PERFORM create_report_plt.
ENDIF.
ELSE.
**------IDOC Genaration
IF gt_data IS NOT INITIAL.
PERFORM process_idoc_control.
PERFORM process_idoc_data.
PERFORM process_master_idoc.
PERFORM create_report.
ELSEIF gt_data_plt IS NOT INITIAL.
PERFORM process_idoc_control.
PERFORM process_idoc_data_plt.
PERFORM process_master_idoc.
PERFORM create_report_plt.
ELSE.
MESSAGE s017(zhrcd) WITH pn-begda pn-endda.
ENDIF.
ENDIF.
*------Mail From Spool
IF chk_test EQ ' '.
PERFORM email_notification.
ENDIF.
*------Clear
PERFORM clear_data.
Bluesky
