HP3000-L Archives

March 1995, Week 5

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:
Hidden intrinsics
From:
Larry Boyd <[log in to unmask]>
Reply To:
Larry Boyd <[log in to unmask]>
Date:
Wed, 29 Mar 1995 05:35:38 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (26 lines) 
"Dr. Ferenc Nagy" <[log in to unmask]> wrote:
 
>I tried to use the DBCALL and the DBSTATUS2 intrinsics from PASCAL/V.
>I got the error messages "subprogram not found in the intrinsic
>file" below the
>(snip)
>If I can not edit this file, should I declare the DBCALL and DBSTATUS2 as
>externals, with an exact parameter list like this?
>TYPE
>SHORTINT    = -32768..32767;
>STATUS_TYPE = ARRAY [1..10] OF SHORTINT;
>PAC72       = PACKED ARRAY [1..72] OF CHAR;
>
>PROCEDURE DBCALL(ST:STATUS_TYPE; VAR MSG:PAC72; VAR MSGLEN:SHORTINT);
>        EXTERNAL;
>(snip)
 
I didn't have the DBSTATUS2 call available quickly, but here is a SPL(ash!)
call definition for DBCALL.
 
PROCEDURE DBCALL (S,B,L);  ARRAY S,B;  INTEGER L;  OPTION EXTERNAL;
 
Your's suggested was correct.
 
Larry Boyd

ATOM RSS1 RSS2