*---------------------------------------------------------------------*
*       FORM CALL_SHELL_SCRIPT                                        *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  PAR_FILENAME                                                  *
*---------------------------------------------------------------------*
FORM call_shell_script USING par_filename.

  DATA: btcxpm   TYPE TABLE OF btcxpm WITH HEADER LINE,
        lc_param TYPE btcxpgpar                       .

  lc_param = par_filename.

  CALL FUNCTION ’SXPG_CALL_SYSTEM’
       EXPORTING
            commandname                = ’ZCOMMAND’
            additional_parameters      = lc_param
       TABLES     
            exec_protocol              = btcxpm
       
       EXCEPTIONS
            no_permission              = 1
            command_not_found          = 2
            parameters_too_long        = 3
            security_risk              = 4           
            wrong_check_call_interface = 5      
            program_start_error        = 6            
            program_termination_error  = 7            
            x_error                    = 8         
            parameter_expected         = 9
            too_many_parameters        = 10
            illegal_command            = 11
            OTHERS                     = 12.

ENDFORM.                    " CALL_SHELL_SCRIPT