Printing a Signature Font
<esc>201Q<esc>(s0p2h72v0s0b201T
Thank you,
Lina
Looking for relevant Development Whitepapers? Visit the SearchSQLServer.com Research Library.
JPLamontre | Jul 4 2005 1:40AM GMT
Yes, you can do this with a *WSCST, but it is not the best solution.
You have a better choice to code you hexa string directly in the PRTF (there is a keyword specialized).
AND
when CRTPRTF, add the parameter that permits the prtf to embbed hexa string (something like allow not printable char)
I have do this some years ago, it runs, I have forget the details.
VBOTone | Jul 14 2005 11:17AM GMT
You will need to send the escape character using “transparency”.
First, either override the print file or change it to not replace unprintable characters.
OVRPRTF … RPLUNPRT(*NO)
Second, in you program, replace the excape character with x’03011B’.
The x’03′ indicates transparency. The x’01′ indicates how many bytes are transparent.
This will ensure that the escape character, the x’1B’, will not be translated to a space, x’40′.
The rest of the characters in the control string should be translated. Simply type them “as is”.
Concatenate the strings and place them in a printed field.
This works with all kinds of printer control strings.
Happy testing!
VBOTone | Jul 15 2005 6:51PM GMT
Here is some example code that worked for LinaVC.
d Esc c x’03011B’
d Str1 c ‘(201QX’
d Str2 c ‘(s0p2h72v0s0b201Tabcdef’
eval signature = Esc + Str1 + Esc + Str2
write record1
If you are using fixed format RPG, you will have to use the CONCAT op-code.