PrintToPDF
identification division.
program-id. PrintToPDF.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
input-output section.
file-control.
select file-output
ASSIGN TO PRINT ws-printer
organization is LINE SEQUENTIAL
FILE STATUS IS FILE-STATUS.
data division.
file section.
FD file-output.
01 file-output-rec.
05 file-record PIC X(132).
working-storage section.
77 FILE-STATUS pic XX.
01 WS-PRINTER PIC X(51) VALUE spaces.
procedure division.
main-logic.
move "-p pdf PRINT.PDF" to ws-printer
open output file-output.
move "Test Print" to file-record
write file-output-rec
close file-output.
stop run.