HP3000-L Archives

October 1997, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Stan Sieler <[log in to unmask]>
Reply To:
Stan Sieler <[log in to unmask]>
Date:
Mon, 20 Oct 1997 11:26:09 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (58 lines)
Gopi writes:
> DATEINTR can't be directly appended to SYSINTR file by FCOPY.

I said something similar ... and then belatedly remembered that
there is a way to "combine" SYSINTR with new intrinsics ... sort of.

If you have the Pascal external declarations (or typed in
equivalent ones) *and* have the Pascal/iX compiler, you can do:

   :copy sysintr.pub.sys, myintr
   :pasxl

   $buildint 'myintr'$

   $standard_level 'os_features'$

   program add_my_intrinsics;

   Procedure hpdateconvert (...);
      external;

   ...

   begin
   end.

When done, the file "myintr" will have the combination of the
original SYSINTR and whatever procedures you declared above...
ideally, the equivalent of SYSINTR + DATEINTR.

> However, if you are using HP COBOL then as such there is no
> compiler support available for alternate intrinsic file

You could then use the combined intrinsic file in either of
two ways:

   1)  replace SYSINTR.PUB.SYS:

      :rename sysintr, sysint0
      :copy myintr, sysintr.pub.sys

      :cobxl... compile as you wish ... and use as many intrinsics
       as you wish...
          CALL INTRINSIC "HPDATECONVERT"
          CALL INTRINSIC "FOPEN"
          ...

   2) File equate:

      :file sysintr.pub.sys = myintr
      :cobxl... compile as you wish ... and use as many intrinsics
       as you wish...
          CALL INTRINSIC "HPDATECONVERT"
          CALL INTRINSIC "FOPEN"
          ...

SS

ATOM RSS1 RSS2