progress-4gl - 定義後のラベルの設定

Question

表示ステートメントがあり、論理値が true の場合に値の 1 つだけを表示します。列のラベルを表示しないようにするにはどうすればよいですか (つまり、空白)

 def var one as char label "one" no-undo.
 def var two as char label "two" no-undo.
 def var three as char label "three" no-undo.
 def var four as char label "four" no-undo.
 def var logic as logi no-undo init no.

 display  
   one
   two
   three
   four when logic
 with stream-io width 80.

Answer 1

define variable one as character no-undo initial "xyz".
define variable two as character no-undo initial "123".

define variable f as handle no-undo.
define variable h as handle no-undo.

form
  one two
 with frame a
.

f = frame a:handle.

if two = "" then
  do:
    h = f:first-child.
    walk_tree: do while valid-handle( h ):
      if h:name = "two" then
        do:
          h:label = "x".
          leave walk_tree.
        end.
      h = h:next-sibling.
    end.
  end.

display
  one two
 with frame a
.