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

statjul()                       /* ｶｸｼｭ ｼｮｷ ｾｯﾄ & ｼﾞｬﾝﾙ ﾃｰﾌﾞﾙ ｻｸｾｲ */
   {  int i , j = 0 , k = 1;
      int dya, dyb = 0;
      char fdy[3];
      
      /* ｼﾞｬﾝﾙ ﾃｰﾌﾞﾙ ｻｸｾｲ */
      
      fpw = fopen(HDR_FIL,"r");
      if (fpw == NULL) {printf("メッセージヘッダファイル HDR がありません\n");
						exit; }
      else
         {
              for ( i = 0; i <= 31; i++ )  fptr[i] = 0;
              userptr = 0;
      
              while(1)
                  {  if (fgets(fbuff,255,fpw) == NULL )  break;
                     substr(fbuff,61,2,fdy); /* ﾋｽﾞｹ ｶｸﾉｳ */
                     dya = atoi(fdy);
                     if ( dya != dyb)
                          {fptr[dya] = userptr; dyb = dya;}
                     userptr = ftell(fpw);
                   }
               fclose(fpw);
           }
     
      fpw = fopen(JUL_FIL,"r");
      
      while(k)
      {   for ( i = 0; i < 5; i++)
          {   if (fgets(fbuff,255,fpw) == NULL)  { k = 0; break;}
              if (i == 0 && j <= JUNLE_MAX)            /* 1ｼﾞｬﾝﾙ 4ﾚｺｰﾄﾞ ﾉ ｳﾁ ｾﾝﾄｳ ﾚｺｰﾄﾞ(ｼﾞｬﾝﾙ ﾒｲ) ﾉﾐ ｶｸﾉｳ */
                 {  idcpy(jtbl[j],fbuff); j++;  } 
          }                             /* ｻｲﾀﾞｲ JUNLE_MAX ｼﾞｬﾝﾙ ﾏﾃﾞ ｶﾉｳ */ 
      }
      fclose(fpw);

      *(hiscall) = NULL;
      *(stattime) = NULL;
      *(lastdate) = NULL;
      *(stus) = NULL;
      *(pasttime) = NULL;
      
      chgjyo("BEGIN");

      return(0);      
   }