Category : Files from Magazines
Archive   : DBMS9106.ZIP
Filename : OLY3

*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
* TCNOVL.PRG by P. L. Olympia, Platinum Software Int'l, 03/91

* From: DBMS Set Expert On Column, 06/91 issue

* Program to show Force/TurboC/Netware mixture
* Uses compiled Novlconn.c to get userid and station number
* from the Novell bindery and use those in a Force program

* Sample Link command:
* tlink tcnovl+novlconn+\f21e\lib\turboc.obj,,,\f21e\lib\force ;
d:\turboc\lib\lnit d:\turboc\lib\cl

#include io.hdr
#include math.hdr
#include string.hdr
#include system.hdr

*-- Extrn Procedures and Functions
PROCEDURE setup_turboc prototype
PROCEDURE userid prototype && our external turboC proc
PARAMETERS char(48) yourid, UINT StaNo

*-- Main Program
PROCEDURE force_main
vardef
char(48) yourid
UINT StaNo
Enddef

DO setup_turboc && init turboC...simulate
&& turboC startup
yourid = SPACE(48)
StaNo = 0
DO userid WITH yourid, StaNo
? "Your userid is ", yourid
? "Your station number is ", StaNo
ENDPRO
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=