zOs/TX/WK986DDL

set current sqlid = 's100447' ;
set current schema = '$creator' ;
drop   procedure $creator.pWk986;
drop   view      $creator.vWk986;
drop   procedure ${creator}B.pWk986;
drop   view      ${creator}B.vWk986;
$@[
if $phase > 0 then $@=[
create view      $creator.vWk986
    as select   'phase $phase in $creator.vWk986' t$phase
         from sysibm.sysDummy1;
create view      vWk986v2
    as select  'v2' m2, v.* from vwk986 v;
create view     $creator.vWk986v3
    as select  'v3' m3, v.* from $creator.vwk986v2 v;
terminator    } ;
create procedure $creator.pWk986()
        reads sql data
        dynamic result sets 1
    begin
    declare prCu cursor with return for
        select *
            from $creator.vwk986
        ;
    open prCu;
    end
}
terminator ; }
commit;
-- call $creator.pWk986();
$]
$]