home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / dbms9106.arj / OLY3 < prev    next >
Text File  |  1991-04-23  |  1KB  |  40 lines
  1. *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  2. *  TCNOVL.PRG by P. L. Olympia, Platinum Software Int'l, 03/91
  3.  
  4. *  From: DBMS Set Expert On Column, 06/91 issue
  5.  
  6. * Program to show Force/TurboC/Netware mixture
  7. * Uses compiled Novlconn.c to get userid and station number
  8. * from the Novell bindery and use those in a Force program
  9.  
  10. * Sample Link command:
  11. *   tlink tcnovl+novlconn+\f21e\lib\turboc.obj,,,\f21e\lib\force ;
  12.       d:\turboc\lib\lnit d:\turboc\lib\cl
  13.  
  14. #include io.hdr
  15. #include math.hdr
  16. #include string.hdr
  17. #include system.hdr
  18.  
  19. *--    Extrn Procedures and Functions
  20. PROCEDURE setup_turboc prototype
  21. PROCEDURE userid prototype         && our external turboC proc
  22.   PARAMETERS char(48) yourid, UINT StaNo
  23.  
  24. *--    Main Program
  25. PROCEDURE force_main
  26.     vardef
  27.       char(48) yourid
  28.       UINT StaNo
  29.     Enddef
  30.  
  31.     DO setup_turboc        && init turboC...simulate
  32.                            &&  turboC startup
  33.     yourid = SPACE(48)
  34.     StaNo = 0
  35.     DO userid WITH yourid, StaNo
  36.     ? "Your userid is ", yourid
  37.     ? "Your station number is ", StaNo
  38. ENDPRO
  39. *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  40.