John asks:

> I have been playing w/ the new DATE intrinsic files from jazz.
> My problem is what to do w/ the DATEINTR file. I can compile ok
> w/ my test program if I redirect SYSINTR to DATAINTR but I can't
> if I FCOPY append to SYSINTR.
> I haven't found any documentation.

You can't merge intrinsic files with FCOPY (or at all, as far as I know).

What language are you using?

Some languages let you specify different intrinsic files:

   SPLash!:

      intrinsic (dateintr.pub.sys) hpdateconvert;

   Pascal/iX:

      $sysintr 'dateintr.pub.sys'$
      Procedure hpdateconvert; intrinsic;


> What am I missing?

<plug> CSEQ from Lund Performance Solutions </plug> ?  :)

:cseq

CSEQ [2.2] - LPS Toolbox [A.01q]      (c) 1995 Lund Performance Solutions

CSEQ [nm]: sysintr dateintr
Opened DATEINTR

CSEQ [nm]: allnm HPDATE@


{sorting}

Procedure HPDATECONVERT (
   Parm_0       : (# actual parameters)   {R26}
   input_datecode:        int32   ;       {R25}
   inputdate    : anyvar record  ;        {R24}
   output_datecode:        int32   ;      {R23}
   outputdate   : anyvar record  ;        {SP-$0034}
   status       : var    record  ;        {SP-$0038, @32 -> 32, align 32}
   cutoff       :        int32   )        {SP-$003c}
   {cutoff: (0..100) used for YY -> YYYY                               }
   {   If = 50, YY in 00..49 --> 2000..2049                            }
   {                  50..99 --> 1950..1999                            }
   {   if =  0, YY in 00..99 --> 1900..1999                            }
   {   if =100, YY in 00..99 --> 2000..2099                            }
   {Date Codes:                                                        }
   { ## Type #bytes  meaning                                           }
   {  1 longint  8 #microsecs since 1970-01-01                         }
   {  2 integer  4 upper 2 bytes: year; next byte:                     }
   {               month of year; low byte: day of month               }
   {  3 integer  4 High 2 bytes: year; Low 2: day of year              }
   {  4 integer  4 High 23 bits: year since 1970                       }
   {               Low 9 bits: day of year.                            }
   { 10 integer  4 #secs since 1970-01-01; POSIX.1 time()              }
   { 14 shortint 2 High 7 bits: #years since 1900                      }
   {               Low 9 bits: day of year                             }
   { 15 integer  4 YYMMDD date                                         }
   { 16 integer  4 MMDDYY date                                         }
   { 17 integer  4 DDMMYY date                                         }
   { 18 integer  4 YYYYMMDD date                                       }
   { 25 ASCII    6 YYMMDD date                                         }
   { 26 ASCII    6 MMDDYY date                                         }
   { 27 ASCII    6 DDMMYY date                                         }
   { 35 ASCII    6 YYMMDD date YY:MM3000 date                          }
   { 36 ASCII    6 MMDDYY date YY:MM3000 date                          }
   { 37 ASCII    6 DDMMYY date YY:MM3000 date                          }
   { 38 ASCII    8 YYYYMMDD date                                       }
      extensible 5
      uncheckable_anyvar

Procedure HPDATEDIFF (
   Parm_0       : (# actual parameters)   {R26}
   datecode     :        int32   ;        {R25}
   firstdate    : anyvar record  ;        {R24}
   seconddate   : anyvar record  ;        {R23}
   diff_in_days : var    int32   ;        {SP-$0034, align 32}
   status       : var    record  ;        {SP-$0038, @32 -> 32, align 32}
   cutoff       :        int32   )        {SP-$003c}
   {Calculates:  seconddate - firstdate                                }
   {datecode: see HPDATECONVERT for values                             }
   {cutoff:   see HPDATECONVERT for meaning                            }
      extensible 5
      uncheckable_anyvar

...


--
Stan Sieler                                          [log in to unmask]
                                     http://www.allegro.com/sieler.html