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

 

  • Please send your sample program to Customer Care so that Development can look into this.
  • 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
    .
  • Thanks. I have reproduced the issue. It is in the queue for Development to look at and resolve.
  • If you get in touch with Customer Care you can request 10.1.0 with ECN-4464, this ECN resolves the WINPRINT-PORT truncation.