home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTPKEY.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  7.0 KB  |  309 lines
  1. /*
  2.  *    program to test key segment offsets. It prints a sample of
  3.  *    each key from each data file to determine if keys are being
  4.  *    extracted from the data records as expected.
  5.  *
  6.  *    This program is the CONFIDENTIAL and PROPRIETARY property 
  7.  *    of FairCom(R) Corporation. Any unauthorized use, reproduction or
  8.  *    transfer of this program is strictly prohibited.
  9.  *
  10.  *      Copyright (c) 1986, 1987, 1988, 1989 FairCom Corporation
  11.  *    (Subject to limited distribution and
  12.  *     restricted disclosure only.)
  13.  *    *** ALL RIGHTS RESERVED ***
  14.  *
  15.  *    4006 West Broadway
  16.  *    Columbia, MO 65203
  17.  *
  18.  *
  19.  *    c-tree(R)    Version 4.3
  20.  *            Release C
  21.  *            February 7, 1989 17:30
  22.  *
  23.  */
  24.  
  25. /* to use this utility with incremental ISAM files, you must remove the
  26.    comment delimiters from the following #define statement. When this is done,
  27.    then CTPKEY.C is changed from a main, stand-alone module to a function
  28.    requiring a calling program to be issued from your own main program.
  29.  */
  30.  
  31. /******   #define INCREMENTAL_ISAMS   ******/
  32.  
  33. #include "ctstdr.h"        /* standard i/o header         */
  34. #include "ctoptn.h"        /* c-tree configuration options */
  35. #include "cterrc.h"        /* c-tree error codes        */
  36. #include "ctstrc.h"        /* c-tree data structures    */
  37. #include "ctgvar.h"        /* c-tree global variables    */
  38. #include "ctisam.h"
  39.  
  40. #ifdef VARLDATA
  41. #include "ctvrec.h"
  42. #endif
  43.  
  44. #ifdef CTSERVER
  45. #include "ctcomm.h"
  46. extern UCOUNT  cts_apxsiz;            /* message size */
  47. #endif
  48.  
  49.  
  50. #ifdef INCREMENTAL_ISAMS
  51. #include "ctifil.h"
  52. COUNT   OPNIFIL();
  53. #else
  54. COUNT   OPNISAM();
  55. #endif
  56.  
  57. COUNT   FRSREC(),NXTREC(),frmkey(),CLISAM();
  58. TEXT   *mballc();
  59. #ifdef  VARLDATA
  60. VRLEN   GETVLEN();
  61. COUNT   REDVREC();
  62. #endif
  63.  
  64. LOCAL TEXT  *recbuf;
  65. LOCAL VRLEN  bufsiz;
  66. LOCAL TEXT   keybuf[MAXLEN];
  67. EXTERN COUNT isam_err,isam_fil;
  68.  
  69. LOCAL TEXT  unk[]   = "unknown";
  70. LOCAL TEXT  yours[] = "YOUR CUSTOM segment";
  71. LOCAL TEXT  oldsq[] = "alternative collating sequence\n\t\tNOW AT SEGMENT LEVEL!";
  72. LOCAL TEXT *kt[]    = {
  73.         "fixed length",
  74.         "unsigned integer",
  75.         "single float",
  76.         "double float",
  77.         "leading character compression",
  78.         unk,unk,unk,
  79.         "padding compression",
  80.         unk,unk,unk,
  81.         "full compression",
  82.         unk,unk,unk,
  83.         oldsq,
  84.         unk,unk,unk,
  85.         oldsq,
  86.         unk,unk,unk,
  87.         oldsq,
  88.         unk,unk,unk,
  89.         oldsq,
  90.         unk,unk,unk,unk,unk,unk,unk,unk,unk,unk,unk,unk
  91.         };
  92. LOCAL TEXT *md[] = {
  93.         "no transformation",
  94.         "unsigned integer",
  95.         "upper case",
  96.         "serial number",
  97.         "offset = var field #",
  98.         "upper case & offset = var field #",
  99.         yours,yours,
  100.         "signed integer",
  101.         "floating point",
  102.         unk,unk,unk,unk,unk,unk
  103.         };
  104.  
  105. #ifdef INCREMENTAL_ISAMS
  106.  
  107. VOID ctpkey(ifilptr)
  108. IFIL       *ifilptr;
  109. {
  110.     COUNT i;
  111.  
  112.     recbuf = mballc(1,bufsiz = 512);
  113.     printf(
  114. "\n\nc-tree ISAM print key utility\nVersion 4.3 Release C\n");
  115.     printf("Copyright 1986, 1987, 1988, 1989 FairCom Corporation\n");
  116.     printf(
  117. "\nBeginning key values for each index will be displayed in hex and ASCII.");
  118.     printf(
  119. "\nIf the key values do not agree with your expectations, check the key");
  120.     printf(
  121. "\nsegment offset values.\n\n");
  122.  
  123.     if (OPNIFIL(ifilptr)) {
  124.         printf("\nError %d On OPNIFIL for %s\n",isam_err,
  125.             ifilptr->pfilnam);
  126.         mbfree(recbuf);
  127.         return(-1);
  128.     }
  129.  
  130.     for (i = ifilptr->tfilno + 1; i < ifilptr->tfilno +
  131.         ifilptr->dnumidx + 1; i++)
  132.         getkey(i,1);
  133.  
  134.     mbfree(recbuf);
  135.     return(0);
  136. }
  137.  
  138. #else
  139.  
  140. main (argc,argv)
  141. int   argc;
  142. TEXT *argv[];
  143. {
  144.     TEXT    fname[MAX_NAME];
  145.     COUNT   i,n;
  146.  
  147. #ifdef CTSERVER
  148.     cts_apxsiz = CTS_MAXSMSG;
  149. #endif
  150.     recbuf = mballc(1,bufsiz = 512);
  151.  
  152.     printf(
  153. "\n\nc-tree ISAM print key utility\nVersion 4.3 Release C\n");
  154.     printf("Copyright 1986, 1987, 1988, 1989 FairCom Corporation\n");
  155.  
  156.     printf(
  157. "\nBeginning key values for each index will be displayed in hex and ASCII.");
  158.     printf(
  159. "\nIf the key values do not agree with your expectations, check the key");
  160.     printf(
  161. "\nsegment offset values.\n\n");
  162.  
  163.     if (argc > 1)
  164.         strcpy(fname,*++argv);
  165.     else {
  166.         printf("\nEnter ISAM parameter file name >> ");
  167.         gets(ct_buf);
  168.         cpybuf(fname,ct_buf,MAX_NAME);
  169.     }
  170.     if (argc > 2)
  171.         n = atoi(*++argv);
  172.     else
  173.         n = 1;
  174.     if (n < 1)
  175.         n = 1;
  176.  
  177.     if (OPNISAM(fname)) {
  178.         printf("\nError %d with parameter file: %s\n",isam_err,fname);
  179.         exit(0);
  180.     }
  181.  
  182.     for (i = 0; i < ct_mxfil; i++)
  183.         getkey(i,n);
  184.  
  185.     CLISAM();
  186.     exit(0);
  187. }
  188. #endif
  189.  
  190. getkey(i,n)
  191. COUNT  i,n;
  192. {
  193.     FAST CTFILE *knum,*dnum;
  194.     COUNT         j,retval,keyno,datno,tstmod;
  195.     TEXT         ch;
  196. #ifdef VARLDATA
  197.     VRLEN         varlen;
  198. #endif
  199.  
  200.     VOID         chkbuf();
  201.  
  202.     knum = ct_key + i;
  203.     if ((knum->chnacs == 'y' || knum->chnacs == 'v') &&
  204.         knum->clstyp == IDX_CLOSE) {
  205.         dnum  = ct_key + ct_rvmap[keyno = knum->filnum];
  206.         datno = dnum->filnum;
  207.         if (knum->kmem != 0)
  208.             printf("\nIndex member");
  209.         else
  210.             printf("\nIndex %s",knum->flname);
  211.         printf(" (#%d) for Data File %s (#%d)-\nKey Type: %d - %s\n",
  212.             keyno,dnum->flname,datno,knum->ktype,kt[knum->ktype]);
  213. #ifndef VARLDATA
  214.         if (dnum->clstyp == VAT_CLOSE) {
  215.             printf(
  216. "\n%s requires variable length support. Define VARLDATA in CTOPTN.H.\n",
  217.                 dnum->flname);
  218.             return(0);
  219.         }
  220. #endif
  221.  
  222.         printf("\n\tSegment#   Offset   Length   Mode");
  223.         for (i = 0; i < MAX_KEY_SEG; i++) {
  224.             if (ct_sgpos[keyno][i] < 0)
  225.                 break;
  226.             tstmod = ct_sgmod[keyno][i];
  227.             printf("\n\t  %3d        %4d      %3d     %2d %s",
  228.                 i + 1,ct_sgpos[keyno][i],ct_sglen[keyno][i],
  229.                 tstmod,md[tstmod & SEGMSK]);
  230.             if (tstmod & ALTSEG) printf(" (ALT)");
  231.             if (tstmod & DSCSEG) printf(" (DSC)");
  232.         }
  233.         chkbuf(dnum->reclen);
  234.         retval = FRSREC(keyno,recbuf);
  235.         switch (retval) {
  236.     case NO_ERROR:
  237.             break;
  238.     case INOT_ERR:
  239.             printf("\nNo key values found!\n");
  240.             return(0);
  241.     default:
  242.             printf("\nUnexpected error #%d (%d).\n",isam_err,
  243.                 isam_fil);
  244.             return(0);
  245.         }
  246.  
  247.         do {
  248.             
  249. #ifdef VARLDATA
  250.         if (dnum->clstyp == VAT_CLOSE) {
  251.             varlen = GETVLEN(datno);
  252.             chkbuf(varlen);
  253.             if (REDVREC(datno,recbuf,varlen)) {
  254.                 printf("\nUnexpected error #%d (%d).\n",
  255.                     isam_err,isam_fil);
  256.                 return(0);
  257.             }
  258.         }
  259. #endif
  260.  
  261.         frmkey(keyno,recbuf,keybuf,cur_recno[datno]);
  262.         printf("\n\n\tsegment:");
  263.         for (i = 0; i < MAX_KEY_SEG; i++) {
  264.             if (ct_sgpos[keyno][i] < 0)
  265.                 break;
  266.             printf("%2d",i + 1);
  267.             for (j = 1; j++ < ct_sglen[keyno][i]; )
  268.                 printf("--");
  269.         }
  270.         if (knum->autodup)
  271.             printf("|suffix|");
  272.         printf("\n\tHEX:    ");
  273.         retval = knum->length;
  274.         for (i = 0; i < retval; i++)
  275.             printf("%2x",0x00ff & keybuf[i]);
  276.         if (knum->autodup)
  277.             retval -= sizeof(POINTER);
  278.         printf("\n\tASCII:  ");
  279.         for (i = 0; i < retval; i++) {
  280.             ch = keybuf[i];
  281.             if (ch < ' ' || ch > '~')
  282.                 ch = '.';
  283.             printf(" %c",ch);
  284.         }
  285.  
  286.         printf(
  287. "\n---------------------------------------------------------------------");
  288.         retval = NXTREC(keyno,recbuf);
  289.         } while (--n > 0 && retval == NO_ERROR);
  290.     }
  291.     return(0);
  292. }
  293.  
  294. VOID chkbuf(bufreq)
  295. VRLEN       bufreq;
  296. {
  297.     if (bufreq > bufsiz) {
  298.         mbfree(recbuf);
  299.         recbuf = mballc(1,bufreq);
  300.         if (recbuf == NULL) {
  301.             printf("\n\nNo record buffer space available.\n");
  302.             exit(0);
  303.         } else
  304.             bufsiz = bufreq;
  305.     }
  306. }
  307.  
  308. /* end of ctpkey */
  309.