next_report.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqliapi.h>
#line 1 "next_report.ec"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <ctype.h>
#include <sys/time.h>
#include <sys/types.h>
#include <sys/stat.h>
 
void next_report(char *stn_id, char *shef, char *next, int debug)
{
/* general defintions */
FILE *pf,*popen();
char random[2];
char line[256];
int freq,nr,i;
int nhr,nmin;
int yy,mm,dd,hh;
int year,month,day,hour,minute,second;
int time_cur;
 
/* declare informix host variables */
/*
 * exec sql begin declare section;
 */
#line 23 "next_report.ec"
#line 24 "next_report.ec"
  char id[6];
  char pe1[2];
  char pe2[2];
  char dur[2];
  char t[2];
  char s[2];
  char e[2];
  char p[2];
int obstime;
/*
 * exec sql end declare section;
 */
#line 33 "next_report.ec"
 
 
  /* take care of time control zone = Z */
  pf=popen("date -u '+%Y %m %d %H %M %S'","r");
  fgets(line,sizeof(line),pf);
  pclose(pf);
  sscanf(line,"%d %d %d %d %d %d",
              &year,&month,&day,&hour,&minute,&second);
  time_cur=100*hour+minute;
 
  strcpy(id,stn_id);
 
  strncpy(pe1,shef,1);
  *(pe1+1)='\0';
  strncpy(pe2,shef+1,1);
  *(pe2+1)='\0';
  strncpy(dur,shef+2,1);
  *(dur+1)='\0';
  strncpy(t,shef+3,1);
  *(t+1)='\0';
  strncpy(s,shef+4,1);
  *(s+1)='\0';
  strncpy(e,shef+5,1);
  *(e+1)='\0';
  strncpy(p,shef+6,1);
  *(p+1)='\0';
 
  strcpy(next,"UNKNOWN");
 
  if(!strcmp(s,"R"))
    strcpy(next,"EVENT");
 
  if(!strcmp(s,"P"))
    strcpy(next,"DIAL UP");
 
/*
 *   $select obstime into $obstime from sens where id=$id and
 *    pe1=$pe1 and pe2=$pe2 and dur=$dur and t=$t and s=$s and
 *    e=$e and p=$p;
 */
#line 68 "next_report.ec"
  {
#line 70 "next_report.ec"
  static const char *sqlcmdtxt[] =
#line 70 "next_report.ec"
    {
#line 70 "next_report.ec"
    "select obstime from sens where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ?",
    0
    };
#line 70 "next_report.ec"
static ifx_cursor_t _SQ0 = {0};
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 70 "next_report.ec"
    };
  static ifx_sqlvar_t _sqobind[] = 
    {
      { 102, sizeof(obstime), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 70 "next_report.ec"
    };
#line 70 "next_report.ec"
  _sqibind[0].sqldata = id;
#line 70 "next_report.ec"
  _sqibind[1].sqldata = pe1;
#line 70 "next_report.ec"
  _sqibind[2].sqldata = pe2;
#line 70 "next_report.ec"
  _sqibind[3].sqldata = dur;
#line 70 "next_report.ec"
  _sqibind[4].sqldata = t;
#line 70 "next_report.ec"
  _sqibind[5].sqldata = s;
#line 70 "next_report.ec"
  _sqibind[6].sqldata = e;
#line 70 "next_report.ec"
  _sqibind[7].sqldata = p;
#line 70 "next_report.ec"
  _sqobind[0].sqldata = (char *) &obstime;
#line 70 "next_report.ec"
  sqli_slct(ESQLINTVERSION, &_SQ0,sqlcmdtxt,8,_sqibind,1,_sqobind,0,(ifx_literal_t *)0,(ifx_namelist_t *)0,0);
#line 70 "next_report.ec"
  }
  if(!sqlca.sqlcode)
  {
 
    if(obstime <= -99999)
      obstime=0;
 
    if(!strcmp(s,"M"))
      obstime=10030;
 
    strcpy(random," ");
 
    if(debug)
      printf("%s %s%s%s%s%s%s%s %d\n",id,pe1,pe2,dur,t,s,e,p,obstime);
 
    if(obstime < 0)
    {
     strcpy(random,"R");
     obstime=obstime*-1;
    }
 
    if(obstime)
    {
      freq=obstime/10000;
      nr=obstime%1000;
 
      nhr=nr/100;
      nmin=nr%100;
 
      if(freq)
      {
        sprintf(next,"%02d%02dZ %s",nhr,nmin,random);
        for(i=1;i<=23;i++)
        {
          if(!(i%freq))
          {
            if(time_cur < 100*(i+nhr)+nmin)
            {
              sprintf(next,"%02d%02dZ %s",i+nhr,nmin,random);
              break;
            }
          }
        }
      }
 
      if(debug)
        printf("time is %d. code is %d. next report is at %s\n",
               time_cur,obstime,next);
    }
  }
  else
    if(debug)
      printf("could not read sens table for %s %s%s%s%s%s%s%s\n",
             id,pe1,pe2,dur,t,s,e,p);
 
  return;
}
 
 
#line 127 "next_report.ec"