#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include "extern.h"

makfno()
	{ 
	  int fnox,fret;

	  fpw = fopen(KANRI_FIL,"r+");
	  if ( fpw == NULL ) return(0);
	  fseek(fpw,1L,0);

	  for ( fnox = 1 ; fnox < fnumb_max ; fnox++ )
		{
		fret = fgetc(fpw);
		if ( fret == '0' ) break;
		if ( fret == EOF ) 
			{ fclose(fpw);
			  fnox = makdltf();
			  if ( fnox == 9999 )
					{ strcpy(ssent,": ファイルが一杯で書き込みができません\n");
			  		  rsout();
			  		  return(0);
					}
			  return(fnox);
			}
		}
	  fseek(fpw,-1L,1);
	  fret = '1';
	  fputc(fret,fpw);
	  fclose(fpw);

	  return(fnox);
	}



makdltf()
        {   
        char fno[5];
		int  numd;
		long pnf;

		if ( ! cyclic_flg ) { return(9999); }
        fpw = fopen(HDR_FIL,"r+");    /* ﾍｯﾀﾞ ﾌｧｲﾙ open */ 
        if (fpw == NULL) { return(9999);}
        rewind(fpw);
   while(1)
    {   pnf = ftell(fpw);
        if ( fgets(fbuff,255,fpw) == NULL) { fclose(fpw);
                                             return(9999);}         /* ﾖﾐｺﾐ */
        
        if ( ! isdigit(*(fbuff)) ) continue;    /* ｻｸｼﾞｮ ｽﾐ ﾌｧｲﾙ ﾊ ﾖﾐﾄﾊﾞｼ */
        
        substr(fbuff,0,4,fno);
        numd = atoi(fno);
        break;
    } 

        fseek(fpw,pnf,0);              /* ﾚｺｰﾄﾞ ﾉ ｾﾝﾄｳ ﾆ ﾓﾄﾞﾙ */
        
        fputs("D",fpw);               /* 'D' ｦ ｲﾚﾃ ﾚｺｰﾄﾞ ｺｳｼﾝ */

        fclose(fpw);

		printf("\n\n=========== ファイル再利用 (削除ファイル有) =============\n\n");
   
   /* MSG & PDS & DATALIB ﾌｧｲﾙ ｻｸｼﾞｮ */
      makfname("MSG",numd,fname);
      remove(fname);
      
	   makfname("PDS",numd,fname);
           remove(fname);
	   makfname("DAT",numd,fname);
           remove(fname);
                  
      return(numd);
      }