call "win$printer" using winprint-setup-ex
initialize winprint-selection
call "win$printer" using winprint-get-current-info-ex winprint-selection giving call-fehler-num

 

return with 10.1.0 wrong

return with 10.0.1 OK

 

Please send your sample program to Customer Care so that Development can look into this.

---

call "win$printer" using winprint-setup-ex
initialize winprint-selection
call "win$printer" using winprint-get-current-info-ex winprint-selection giving call-fehler-num

 

return with 10.1.0 wrong

return with 10.0.1 OK

 

Hello shjerpe,
i have send this sample programm to "customercare@microfocus.com"
-----------------------------------------------------------------------------------------------------------------------------

program-id. test1.
working-storage section.
77 key-status is special-names crt status pic 9(5).
88 ok-button-pressed value 13.
88 cancel-button-pressed value 27.
01 call-fehler-num pic s9.

copy "lmresize.def".
copy "acucobol.def".
copy "winprint.def".
screen section.
01 screen-1.
03 label "Test screen", line 2, col 2.
03 push-button "PRINTER" , ok-button, line 2, col 70,
exception-value 3600
layout-data = rlm-move-x-any.
03 push-button, cancel-button, line 4, col 70
layout-data = rlm-move-x-any.

03 label "Version " line 2 pos 02
TRANSPARENT.
03 entry-field using runtime-version pos 10
enabled = 0.

03 label "Name " line 2 pos 02
TRANSPARENT.
03 entry-field using winprint-name pos 10
size 60 enabled = 0.

03 label "Port " line 2 pos 02
TRANSPARENT.
03 entry-field using winprint-port pos 10
size 60 enabled = 0.
03 label "Treiber " line 2 pos 02
TRANSPARENT.
03 entry-field using winprint-driver pos 10
size 60 enabled = 0.
03 entry-field, line 14 col 2, size 65, lines 10 cells,
layout-data = rlm-resize-both-any.
procedure division.
main-logic.
perform systeminfo
display standard graphical window
background-low, resizable,
min-size = 30
layout-manager = lm-resize.
display screen-1.
perform printer-select
accept screen-1
until cancel-button-pressed
on exception perform taste-funktion
end-accept
stop run.


printer-select section.
call "win$printer" using winprint-setup-ex
initialize winprint-selection
call "win$printer" using winprint-get-current-info-ex
winprint-selection
giving call-fehler-num
display screen-1
.

systeminfo section.
ACCEPT TERMINAL-ABILITIES FROM TERMINAL-INFO
ACCEPT SYSTEM-INFORMATION FROM SYSTEM-INFO
.

taste-funktion section.
evaluate key-status
when 3600 perform printer-select
when other continue
end-evaluate
.

---

call "win$printer" using winprint-setup-ex
initialize winprint-selection
call "win$printer" using winprint-get-current-info-ex winprint-selection giving call-fehler-num

 

return with 10.1.0 wrong

return with 10.0.1 OK

 

Thanks. I have reproduced the issue. It is in the queue for Development to look at and resolve.

---

call "win$printer" using winprint-setup-ex
initialize winprint-selection
call "win$printer" using winprint-get-current-info-ex winprint-selection giving call-fehler-num

 

return with 10.1.0 wrong

return with 10.0.1 OK

 

If you get in touch with Customer Care you can request 10.1.0 with ECN-4464, this ECN resolves the WINPRINT-PORT truncation.

---