HELP: COM1

[mfcobol2002]

Respected Gentlemen,

a mistake(173) exists in this program and me I didn't get to repair.
he is in 200-get-handle

respectfully
--------------
$set Ans85 Mf DefaultByte"00"
id division.
program-id. readcom.
special-names.
call-convention 74 is staticWINAPI.
working-storage section.

78 PROGRAM-NAME value "READCOM".

.
.
.

200-get-handle.

call staticWINAPI "CreateFileA"
using by reference z"\\.\COM1"
by value GENERIC-READ-WRITE size 4
by value 0 size 4
by value 0 size 4
by value OPEN-EXISTING size 4
by value 0 size 4
by value 0 size 4
returning com-port-handle
end-call

.
.
.