call "PC_PRINTER_SET_FONT" using     printer-handle
                                     font-family-name
                           by value  font-size
                           by value  font-style
                           returning status-code 
               	 01 cblt-printer-name       typedef.
  03 cblte-pn-name-length  cblt-x2-comp5. *> pic x(2) comp-5.
  03 cblte-pn-name         cblt-x1.       *> Occurs depending on
                                          *> cblte-pn-name-length.  pic x(n). 
                     			 | printer-handle | The printer handle returned when the printer was opened. | 
| name-len | The length of the font family name. | 
| name-text | The family name of the font to be used (for example, Courier, Helvetica, Times, Symbol, Times New Roman, Roman, and so on). | 
| font-size | Point size of font. | 
| font-style | Set of bits defining the required font style: 
 All remaining bits are reserved for future use and should not be set. | 
| status-code | Printer Handling Routines Return Codes |