Kbase 12790: Sending control sequences with PUT FILL and PUT CONTROL V7
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/10/1998 |
|
Sending control sequences with PUT FILL and PUT CONTROL V7
The code below should print a horizontal line to a HP Laserjet.
In version 6 this works but in version 7, it prints the character A
with 2 dots over it, across the page.
def var sym as char initial "~033(10U". /* Set printer to PC-8 */
def var reset as char initial "~033&l0O~033(s8H". /* reset sequence */
define var horizontal as char initial "~304". /* horizontal seq */
output through lp -s -onb -dlwmis .
put sym.
put fill(horizontal,80) format "X(80)" at 1 skip.
put reset.
output close.
If your source code contains character constants between 128 & 255
then the default behavior in V7 is generally to convert them from
iso885901 to ibm850 when writting output.
To get the program to work in V7 as did in V6:
1) run -charset 8859-1 and -stream iso8859-1 or
2) run -charset undefined
Progress Software Technical Support Note # 12790