 
 
 
call "PC_PRINTER_DEFAULT_FONT" using     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).
 
          | cblte-pn-name-len | The length of the font family name. | 
| cblte-pn-name | 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. If the point size is zero the font is reset to the system defaults. | 
| font-style | The font-style set: 
 All remaining bits are reserved for future use and should not be set. | 
| status-code | Printer Handling Routines Return Codes | 
 
 
 
Comments:
Default parameters are not validated until the default printer is opened.