File Open failed Error in Process Chain

Question

Hi,
Our process chains are failing at the last step of event trigger.The file is not getting created in the directory as a result of which the BO reports are not getting triggered.Kindly help.
Regards,
Shalaka

Answer 1

Pl find the below code:
DATA mesg(80) VALUE 'BW load complete. Ready for BOBJ Refresh. File Created on : '.
DATA fname(60).
DATA pc_flag TYPE rspc_state.
* Get the folder and file name from parameter
PARAMETERS p_fname TYPE string LOWER CASE.
AT SELECTION-SCREEN.
START-OF-SELECTION.
   fname = p_fname.
*Add the system date into the file.
   CONCATENATE mesg sy-datum INTO mesg.
   CALL FUNCTION 'AUTHORITY_CHECK_DATASET'
   EXPORTING
* PROGRAM =
  activity = 'DELETE'
  filename = fname
  EXCEPTIONS no_authority = 1
         activity_unknown = 2
         OTHERS   = 3 .
   IF sy-subrc = 0.
*Delete the file if it is already existing
     DELETE DATASET fname.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ELSE.
     MESSAGE i051(rsar) WITH 'No Authorizations to delete the file'.
   ENDIF.
   WAIT UP TO 65 SECONDS.
*Set the flag for the process chain to read if file deletion fails.
   IF sy-subrc <> 0." The ABAP program failed
     pc_flag = zcl_abap_bobj_event_trg=>failed.
   ELSE. " The ABAP program was successful
     pc_flag = zcl_abap_bobj_event_trg=>success.
   ENDIF.
   CALL FUNCTION 'AUTHORITY_CHECK_DATASET'
     EXPORTING
       activity         = 'WRITE'
       filename         = fname
     EXCEPTIONS
       no_authority     = 1
       activity_unknown = 2.
   IF sy-subrc <> 0.
     MESSAGE i051(rsar) WITH 'No Authorizations to Write to file'.
   ELSE.
*Create the file based on the input from variant including folder and file name.
     OPEN DATASET fname FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
*Set the flag for the process chain to read if file creation fails.
     IF sy-subrc <> 0.
       MESSAGE i051(rsar) WITH 'File open failed.'.
       pc_flag = zcl_abap_bobj_event_trg=>failed.
     ELSE. " The ABAP program was successful
       TRANSFER mesg TO fname.
       pc_flag = zcl_abap_bobj_event_trg=>success.
     ENDIF.
     CLOSE DATASET fname.
   ENDIF.
   EXPORT e_state FROM pc_flag TO DATABASE indx(bo) ID
   zcl_abap_bobj_event_trg=>status_idx_id.