...

PROCEDURE DIVISION.

 ...

 CREATE-WIN.

display floating window title "Sample Window"

line 6 col 30

lines 20 size 50

font hfont control font hfont

handle hflo

move 1 to curr-page win-vis(1)

display mask-win

perform CHANGE-PAGE

perform until key-status = 27

perform ACCEPT-PAGE

end-perform

destroy mask-win mask-page-1 mask-page-2 mask-page-3

destroy hflo

move 0 to key-status win-vis(curr-page)

     .

 ...

 CALL-PRG.

CALL "PROG2" USING "ABC"

    .

 ...

 PRINT-PDF.

accept pdf-position from environment "pdf.prefix"

string pdf-position  delimited by trailing space

"/output.pdf" delimited by size

into pdf-position

string "-P PDF " delimited by size

            pdf-position  delimited by trailing space

into pdf-path

open output print-file

write print-rec from

"This line has been printed by isCOBOL Web Direct 2.0"

close print-file  

if print-status = "00"

initialize show-pdf

accept pdf-position from environment "pdf.js.prefix"

string pdf-position  delimited by trailing space

"/output.pdf" delimited by size

into pdf-position

call "WD2$REDIRECT" using pdf-position, "_blank"

giving return-code

else

display message "An error occurred, " x"0a"

"Status: " print-status

icon mb-warning-icon

end-if

     .