Welcome Serena Central users! CLICK HERE
The migration of the Serena Central community is currently underway. Be sure to read THIS MESSAGE to get your new login set up to access your account.
dinter
Visitor.
1216 views

extend 10.1.0 select a printer retun value in winprint-selection is wrong port is not complete who has a idea

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

 

0 Likes
4 Replies
Micro Focus Expert
Micro Focus Expert

RE: extend 10.1.0 select a printer retun value in winprint-selection is wrong port is not complete who has a idea

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

RE: extend 10.1.0 select a printer retun value in winprint-selection is wrong port is not complete who has a idea

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
.
0 Likes
Micro Focus Expert
Micro Focus Expert

RE: extend 10.1.0 select a printer retun value in winprint-selection is wrong port is not complete who has a idea

Thanks. I have reproduced the issue. It is in the queue for Development to look at and resolve.
0 Likes
Micro Focus Expert
Micro Focus Expert

RE: extend 10.1.0 select a printer retun value in winprint-selection is wrong port is not complete who has a idea

If you get in touch with Customer Care you can request 10.1.0 with ECN-4464, this ECN resolves the WINPRINT-PORT truncation.
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.