"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