* Name: APIRET _export sample_stub(Kwd_List param)
   *
   * Description: Sample stub function.
   *
   * Parameters:  Kwd_List &.
   *
   * Returns:     APIRET.
   *
   * Cautions:
   *
   *******************************************/
   APIRET _export sample_stub(Kwd_List & param)
   {
     APIRET apiret;
     struct
     {
       BYTE one;
       BYTE two;
       BYTE three;
     } paramblock;

     ULONG ulParamsize = sizeof(paramblock);
     paramblock.one = param.getInt("ONE");
     paramblock.two = param["TWO"];
     paramblock.three = param.getPtr("THREE");
     struct
     {
       BYTE  data1;
       BYTE  data2;
     } data;

     ULONG  ulDataSize = sizeof(data);
     HFILE  hfDrvHandle =
            param.getInt("DRIVEHANDLE");

     apiret = ddtDosDevIOCtl(hfDrvHandle, 0x99,
              0x99,
              &paramblock, ulParamsize,
              &ulParamsize,
              &data, ulDataSize, &ulDataSize,
              "Sample Stub",
              "only call",
              param.files()->out1);
     // Let DDTT check the APIRET
     param.set("APIRET_00", (IString)apiret );
     if (apiret == 0)
     {
       IString s1;
       s1 = "The result is:";
       s1 += "\n\tdata1 :";
       s1 += (LONG)data.data1;
       s1 += "\n\tdata2 :";
       s1 += (LONG)data.data2;
     }
     return 0;
   }