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

 PJbFormNumberGet()
------------------------------------------------------------------------------
 Purpose:
 Get the required form for the current print job.

 Syntax:
 iFmNum = PJbFormNumberGet( wPtrNum )

 Parameters:
 wPtrNum The printer number.

 Returns:
 A numeric value (signed short int).

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

 Description:
 PJbFormNumberGet() returns the form number of the form required by 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.

 PJbFormNumberGet() returns the form that is required by the print job,
 which is not necessarily the one that is loaded on the printer.