ÿþ     //IDENTIFICATION DIVISION.

     //PROGRAM-ID. CLIB.

     //DATE-WRITTEN. TODAY.

     //DATE-COMPILED. TODAY.

     //DATE-COMPILED. TODAY.

     //AUTHOR. ‰|+g.

     //

     //ENVIRONMENT DIVISION.

      using System;

      using System.Runtime.InteropServices;

      

      namespace SYS

      {

          public class CLIB

          {

     //DATA DIVISION.

          	public enum hvxmp{

                  hi,

                  lo,

                  z,

                  sp,

              }

              

              public static int RETURN_CODE = 0;

              public const hvxmp HIGH_VALUE = hvxmp.hi;

              public const hvxmp LOW_VALUE  = hvxmp.lo;

              public const hvxmp ZERO       = hvxmp.z;

              public const hvxmp SPACE      = hvxmp.sp;

     //PROCEDURE DIVISION.

     //

     // COMPUTE

     //

              public static void COMPUTE( ref int O_STRK_DATA, int I_NRK_DATA )

              {

                  O_STRK_DATA = I_NRK_DATA;

              } 

              

              public static void COMPUTE( ref int O_STRK_DATA, double I_NRK_DATA )

              {

                  O_STRK_DATA = (int)I_NRK_DATA;

              } 

              

              public static void COMPUTE( ref double O_STRK_DATA, int I_NRK_DATA )

              {

                  O_STRK_DATA = (double)I_NRK_DATA;

              }

              public static void COMPUTE( ref double O_STRK_DATA, double I_NRK_DATA )

              {

                  O_STRK_DATA = (double)I_NRK_DATA;

              }

      

      //

      // MOVE

      //

              public static void MOVE( int I_NRK_DATA, ref int O_STRK_DATA )

              {

                  O_STRK_DATA = I_NRK_DATA;

              }

      

              public static void MOVE( string I_NRK_DATA, ref string O_STRK_DATA )

              {

                  O_STRK_DATA = I_NRK_DATA;

              }

      

              public static void MOVE( hvxmp I_TYP_FLG, ref int O_STRK_DATA )

              {

                  switch( I_TYP_FLG )

                  {

                  case HIGH_VALUE:

                      MOVE( 16777216, ref O_STRK_DATA );

                      break;

                  case LOW_VALUE:

                      MOVE( -16777216, ref O_STRK_DATA );

                      break;

                  case ZERO:

                      MOVE( 0, ref O_STRK_DATA );

                      break;

                  default:

                      throw new S0C7();

                  }

              }

      

              public static void MOVE( hvxmp I_TYP_FLG, ref string O_STRK_DATA )

              {

                  switch( I_TYP_FLG )

                  {

                  case SPACE:

                      MOVE( "                                                                                          ", ref O_STRK_DATA );

                      break;

                  default:

                      throw new S0C7();

                  }

              }

              

     //

     // INITIALIZE

     //

              public static void INITIALIZE( out int O_STRK_DATA )

              {

                  O_STRK_DATA = 0;

              }

              

              public static void INITIALIZE( out double O_STRK_DATA )

              {

                  O_STRK_DATA = 0;

              }

              

              public static void INITIALIZE( out string O_STRK_DATA )

              {

                  O_STRK_DATA = "";

              }

              

          }

          

     //Ç0ü0¿0‹OY

          public class S0C7 : Exception

          {

          }

          

      }