Frank:
:EDITOR
/ADD
1 PROCEDURE DBCALL(L'STATUS,L'BUF,BUF'LEN);
2 LOGICAL ARRAY L'STATUS,L'BUF;
3 INTEGER BUF'LEN;
4 OPTION EXTERNAL;
5
6 PROCEDURE DBSTATUS2(L'STATUS,L'BUF,BUF'LEN);
7 LOGICAL ARRAY L'STATUS,L'BUF;
8 INTEGER BUF'LEN;
9 OPTION EXTERNAL;
10 //
/K DBINTPAR,UNN
/EXIT
:FILE
:FILE SPLINTR=SPLINTRO
:FILE INTDECL=DBINTPAR
:RUN BUILDINT.PUB.SYS
:RESET INTDECL
:RESET SPLINTR
FYI, "REFERENCE" is not an SPL option.
--
-------------------------------------------------------------
Randy Medd email: [log in to unmask]
Telamon, Inc.
492 Ninth Street, Suite 310 voice: 510-987-7700
Oakland, CA 94607 fax: 510-987-7009
-------------------------------------------------------------