#include <sys/types.h>
/*----------------------------------------------------------
  Module:  Convert::IBM390
----------------------------------------------------------*/

 /* This value is used to flag an invalid packed or zoned field.
    It should work as long as those fields can't be more than 31
    digits. */
#define INVALID_390NUM  -5.5E50

double  CF_packed2num ( const char *, int, int );
int     CF_num2packed ( char *, double, int, int, int );
double  CF_zoned2num ( const char *, int, int );
int     CF_num2zoned ( char *, double, int, int, int );
void    CF_fcs_xlate ( char *, char *, int, unsigned char * );
void    _to_S390fw ( char *, long );
void    _to_S390hw ( char *, long );
int     _halfword ( char * );
void    _clock_to_smfstamp ( char * , long );
void    _smftime_unpack ( short *, const char * );
void    _smfdate_unpack ( short *, const char * );
time_t  _smfstamp_to_clock ( const char * );