Subject: | |
From: | |
Reply To: | |
Date: | Mon, 20 Oct 1997 11:26:09 -0700 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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
|
|
|