home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a523 / 14.ddi / RWECPF.PC < prev    next >
Encoding:
Text File  |  1990-06-26  |  1.9 KB  |  72 lines
  1. /* Copyright (c) 1987,1990 by Oracle Corporation */
  2.  
  3. #include <ctype.h>
  4. #include <string.h>
  5.  
  6. /***********************************************************************/
  7. /*   Define user exit routine to copy from one field to another        */
  8. /*                                                                     */
  9. /*   Parse assumes that SQL*ReportWriter removes extra spaces between  */
  10. /*     fields in the #string                                           */
  11. /***********************************************************************/
  12.  
  13. /* This is a sample */
  14.  
  15. #define SQLCA_STORAGE_CLASS extern
  16. EXEC SQL INCLUDE SQLCA;
  17.  
  18. /* Error buffer -- SQL*ReportWriter will raise error if first byte non-null */
  19. extern char SRWERB[256];
  20.  
  21. int RWECPF(ue_string)
  22. char *ue_string;
  23. {
  24.   EXEC SQL BEGIN DECLARE SECTION;
  25.     VARCHAR  field[240];
  26.     VARCHAR  value[240];
  27.   EXEC SQL END DECLARE SECTION;
  28.  
  29.   char arg[241];
  30.   char *p;
  31.   char *srw_source;
  32.   char *srw_dest;
  33.   int  len;
  34.   int  i;
  35.  
  36.   /* copy #string to work buffer */
  37.   arg[240] = '\0';
  38.   strcpy(arg,ue_string);
  39.  
  40.   /* skip over user exit name in #string */
  41.   p = arg;
  42.   while (*p && !isspace(*p)) p++;
  43.   if (*p) p++;
  44.   else goto error;
  45.  
  46.   /* parse #string for source field; null terminate the source name */
  47.   srw_source = p;
  48.   while (*p && !isspace(*p)) p++;
  49.   if ((p == srw_source) || (!*p)) goto error;
  50.   *p++ = '\0';
  51.  
  52.   /* parse #string for destination field; null terminate the dest name */
  53.   srw_dest = p;
  54.   while (*p && !isspace(*p)) p++;
  55.   if (p == srw_dest) goto error;
  56.   *p = '\0';
  57.  
  58.   /* put field value into host variable */
  59.   field.len = strlen(strcpy(field.arr,srw_source));
  60.   EXEC IAF GET :field INTO :value;
  61.  
  62.   /* put host variable value into field */
  63.   field.len = strlen(strcpy(field.arr,srw_dest));
  64.   EXEC IAF PUT :field VALUES (:value);
  65.  
  66.   return(0);
  67.  
  68. error:
  69.   strcpy((char *) SRWERB, "Usage: #RWECPF <source> <destination>");
  70.   return(0);
  71. }
  72.