dos_compilers/Microsoft Cobol v5/SAMPLES/PRINTESC.CBL

58 lines
2.4 KiB
Plaintext
Raw Normal View History

2024-07-01 00:35:16 +02:00
$set ans85 noosvs mf
************************************************************
* *
* (C) Micro Focus Ltd. 1989 *
* *
* PRINTESC.CBL *
* *
* This program demonstrates how to send escape *
* sequences to a printer. In this case, an Okidata 93 *
* parallel printer was used and the escape sequences in *
* question were to set form length to either "7" or *
* "11". To determine the proper escape sequences for *
* the printer in question, consult your printer manual. *
* *
************************************************************
file-control.
select print-file assign "LPT1".
data division.
file section.
fd print-file.
01 print-record pic x(60).
working-storage section.
01 form-length-11 pic x(4) value x"1b43000b".
01 form-length-7 pic x(4) value x"1b430007".
01 form-feed pic x value x"0c".
01 first-line pic x(10) value "First Line".
01 last-line pic x(9) value "Last Line".
procedure division.
main-line.
open output print-file.
perform set-printer-to-7-inches.
perform set-printer-to-11-inches.
main-line-end.
exit program.
close print-file.
stop run.
exit-program-end.
set-printer-to-7-inches.
write print-record from form-length-7.
write print-record from first-line.
write print-record from form-feed.
write print-record from last-line.
set-printer-to-7-inches-end.
set-printer-to-11-inches.
write print-record from form-length-11.
write print-record from first-line.
write print-record from form-feed.
write print-record from last-line.
set-printer-to-11-inches-end.