/*
 * Copyright (c) 1994, 1995, 1996 Gunther Schadow.  All rights reserved.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

#include <stdio.h>

typedef char string[20];

EXEC SQL BEGIN DECLARE SECTION;
EXEC SQL TYPE string IS STRING(20) REFERENCE;
     
     string username;
     string password;
     string database;
     string fucode;
     string izahl;
     string lst;
     string grundlst;
     string jahr;
     string monat;
     string tag;
     string zeit;
     ROWID  x;
     DATE   y;
     
EXEC SQL END DECLARE SECTION;

int i;

int fuc;
#define FU_AUF 0
#define FU_ENT 1
#define FU_INT 2
const char *futab = "ADT";

EXEC SQL INCLUDE sqlca;

void sqlerror();	/* handles unrecoverable errors */

main(int argc, char *argv[])
{
  
  /* Log onto ORACLE */
  
  strcpy(username, "schadow");
  strcpy(password, "hl7ora");
  strcpy(database, "T:anae:anae");
  
  EXEC SQL
    WHENEVER SQLERROR DO sqlerror();
  
  EXEC SQL
    CONNECT :username IDENTIFIED BY :password USING :database;
  
  for(i=1; i<argc; i++)
    {
      strncpy(fucode, argv[i], 3);

      if(strcmp(fucode, "AUF") == 0)
	fuc = FU_AUF;
      else if(strcmp(fucode, "ENT") == 0)
	fuc = FU_ENT;
      else if(strcmp(fucode, "INT") == 0)
	fuc = FU_INT;
      else
	{
	  fprintf(stderr,
		  "fucode must be one of `AUF', `ENT' or `INT' (was: `%s'",
		  fucode);
	  exit(1);
	}
			
      EXEC SQL
	WHENEVER NOT FOUND GOTO notfound;
      
      switch(fuc) {
      case FU_AUF:
	EXEC SQL DECLARE amessages CURSOR FOR
	  SELECT
	    EVN.AUFJAHR,
	    EVN.AUFMON,
	    EVN.AUFTAG,
	    EVN.AUFNZEIT,
	    PID.IZAHL,
	    PV1.GRUNDLST,
	    PV1.LST
	  FROM
	    EVN, PID, PV1
	  WHERE
	    EVN.FUCODE = :fucode
	    AND EVN.LINK = PID.LINK
	    AND EVN.LINK = PV1.LINK;

	EXEC SQL
	  OPEN amessages;
      
	while(1)
	  {
	    EXEC SQL
	      WHENEVER NOT FOUND DO break;
	  
	    EXEC SQL
	      FETCH amessages
	    INTO
	      :jahr,
	      :monat,
	      :tag,
	      :zeit,
	      :izahl,
	      :grundlst,
	      :lst;
	    
	    printf("%c:19%s%s%s%s:%s:%s:%s\n",
		   futab[fuc],
		   jahr, monat, tag, zeit,
		   izahl, grundlst, lst);
	  }
      
	EXEC SQL CLOSE amessages;

	break;
	
      case FU_ENT:

	EXEC SQL DECLARE dmessages CURSOR FOR
	  SELECT
	    EVN.ENTLJAHR,
	    EVN.ENTLMON,
	    EVN.ENTLTAG,
	    EVN.ENTLZEIT,
	    PID.IZAHL,
	    PV1.GRUNDLST,
	    PV1.LST
	  FROM
	    EVN, PID, PV1
	  WHERE
	    EVN.FUCODE = :fucode
	    AND EVN.LINK = PID.LINK
	    AND EVN.LINK = PV1.LINK;

	EXEC SQL
	  OPEN dmessages;
      
	while(1)
	  {
	    EXEC SQL
	      WHENEVER NOT FOUND DO break;
	    
	    EXEC SQL
	      FETCH dmessages INTO
		:jahr,
		:monat,
		:tag,
		:zeit,
		:izahl,
		:grundlst,
		:lst;
	  
	    printf("%c:19%s%s%s%s:%s:%s:%s\n",
		   futab[fuc],
		   jahr, monat, tag, zeit,
		   izahl, grundlst, lst);
	  }
	
	EXEC SQL CLOSE dmessages;
	
	break;
	
      default:
	fprintf(stderr, "sorry, not implemented\n");
      }
      
      continue;
      
    notfound:
      fprintf(stderr, "sorry, didn't find anything\n");
    }
  
  EXEC SQL COMMIT WORK RELEASE;    /* logoff database */
  exit(0); 
}

void sqlerror()
{
  EXEC SQL WHENEVER SQLERROR CONTINUE;
  
  fprintf(stderr,"ORACLE error detected: % .70s\n",
	  sqlca.sqlerrm.sqlerrmc);

  EXEC SQL ROLLBACK RELEASE;
  exit(1);
}