create procedure force_appl(nm varchar( 128 ))
begin
  declare stmt varchar( 1024 ) default '';
  for c1 as
    SELECT AGENT_ID FROM SYSIBMADM.APPLICATIONS 
    WHERE APPL_ID!=APPLICATION_ID() AND APPL_NAME LIKE nm 
  do
    set stmt=','||rtrim(char(c1.AGENT_ID));
  end for;
  if stmt!='' then
    set stmt='force application ('||substr(stmt,  2 )||')';
    call sysproc.admin_cmd(stmt);
  end if;
end@

call force_appl('App1.EXE%')@

stmt = concat(stmt, ','||rtrim(char(c1.AGENT_ID)));

create procedure force_appl(nm varchar( 128 ), out stmt varchar( 1024 ))
begin
  set stmt = '';
  for c1 as
...
end@

call force_appl('App1.EXE%', ?)@