if screen-name cp `*S_BATCH*`  .

endif.

selection-screen begin of block blk2 with frame  .
select-options: s_batch  for qals-batch .
selection-screen end of block blk2.

at selection-screen output.
  perform f_init_label.
*

form f_init_label.

 loop at screen.
    case screen-name.

       when `P_ART`.

 when others.

if screen-name cp `*S_BATCH*`   .
          case gm-tcode.
            when  `ZQM0000001`.
              screen-invisible = 0.
              screen-active = 1.
            when others.
              screen-invisible = 1.
              screen-active = 0.
          endcase.
        endif.
    endcase.

    modify screen.
  endloop.


endform.                    "