/*
  user procedure interface
  name: pbputana
*/

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  _value;
   /* CALL   */ T_ANA  _size;
   /* CALL   */ T_ANA  _index;
   /* CALL   */ T_ANA  _byte_offset;
   /* CALL   */ T_BOO  _swapp;
   /* RETURN */ T_BOO  _ret_val;
} str_arg;

#define VALUE            (arg->_value)
#define SIZE             (arg->_size)
#define INDEX            (arg->_index)
#define BYTE_OFFSET      (arg->_byte_offset)
#define SWAPP            (arg->_swapp)
#define RET_VAL          (arg->_ret_val)
