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

 PJbNumberGet()
------------------------------------------------------------------------------
 Purpose:
 Get the job number of the currently printing job.

 Syntax:
 iJobNum = PJbNumberGet( wPtrNum )

 Parameters:
 wPtrNum The printer number.

 Returns:
 A numeric value (signed short int).

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

 Description:
 PJbNumberGet() returns the job number of the print job currently being
 serviced by printer wPtrNum.

 Returns NOVERRINT if an error occurs.

 Example:
 // To log in to print server PRINTERS and test printer 0 to display the
 // job number being printed, the queue and print server from which
 // it originated, its description and form number:
 if( PSWSLogin ( "PRINTERS" ) > 0 )
    iJobNum    = PJbNumberGet(0)
    lpszServer = PJbFSGet(0)
    lpszQueue  = PJbQueueGet(0)
    lpszDesc   = PJbDescriptionGet(0)
    iFormNo    = PJbFormNumberGet(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
       ??" using form number ",iFormNo
    endif
 endif

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