/*
  user procedure interface
  name: PBL7Init
*/

typedef long  T_BOO;
typedef long  T_ANA;
typedef float T_REAL;
typedef long  T_TMR;
typedef char  *T_MSG;

typedef struct {
   /* CALL   */ T_ANA  _isa_kernel_nb;
   /* CALL   */ T_MSG  _device_name;
   /* CALL   */ T_MSG  _path_name;
   /* RETURN */ T_BOO  _error_code;
} str_arg;

#define ISA_KERNEL_NB    (arg->_isa_kernel_nb)
#define DEVICE_NAME      (arg->_device_name)
#define PATH_NAME        (arg->_path_name)
#define ERROR_CODE       (arg->_error_code)
