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).