Click above to get retro games delivered to your door ever month!

 PJbTextTest()
------------------------------------------------------------------------------
 Purpose:
 Get whether the current printing job is text.

 Syntax:
 bResult = PJbTextTest( wPtrNum )

 Parameters:
 wPtrNum The printer number.

 Returns:
 A boolean value (TRUE or FALSE).

 The CA-Clipper name for this function is:
 PJbTextTst()

 Description:
 PJbTextTest() returns TRUE if the print job currently being serviced by
 printer wPtrNum is text. PJbTextTest() returns FALSE if the currently
 printing print job is bytestream or if an error occurs, in which case
 NWErrorGet() is set to an appropriate value. If PJbTextTest() returns
 TRUE, this means that NetWare is expanding tab characters to spaces.

 Example:
 // To log in to print server PRINTERS and test printer 0 to display the
 // job number being printed, the queue and print server it came from, its
 // description and whether it is text or byte stream:
 if( PSWSLogin ( "PRINTERS" ) > 0 )
    iJobNum    = PJbNumberGet(0)
    lpszServer = PJbFSGet(0)
    lpszQueue  = PJbQueueGet(0)
    lpszDesc   = PJbDescriptionGet(0)
    bText      = PJbTextTest(0)
    if iJobNum > 0
       ? "Printer 0 of print server PRINTERS, is printing "
       ?? "Job number ",iJobNum," from print queue ",lpszQueue
       ? "from file server ",lpszServer
       ? "The description for this job is ",lpszDesc
       ?? " and it is a ",if(bText, "Text","byte stream")," Job"
    endif
 endif

 Notes:
 It is only possible to be logged in to one print server at a time.