RE: CL Commands in SQL

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/04/2019
04:53:17 PM:

...snip... However, Run SQL Statements does not
execute the compound statement interactively. It compiles it into a
temporary object and apparently executes it in a new (or second level)

job

environment and that apparently does not handle the internal QCMDEXC

calls

the same way as when Run SQL Scripts executes QCMDEXC interactively.

Well, strike all that. I just tried it again and it seems to be
working just fine.


create type comp_array as char(5) array[10];

begin
declare comp comp_array;
declare idx,max integer;

set comp = array['00620','00621'];
set max = cardinality(comp);
set idx = 0;

array_loop:
Loop
set idx = idx + 1;
if idx > max then
leave array_loop;
end if;
call qsys2/qcmdexc('CALL UTSETLLCL (''' || comp[idx] || ''')');
call qsys2/qcmdexc('IMIOVEVAL CMDUSE(*MONTHEND)');
End Loop;

End;


Sincerely,

Dave Clark