zOs/TX/WK984DDL

set current sqlid = 's100447' ;
drop   procedure $creator.wk984VersP2;
drop   procedure $creator.wk984VersP1;
commit;
$@[
if $phase >= 1 then $@=[
terminator    } ;
create procedure $creator.wk984VersP1(out ve char(4))
        version v1 deterministic contains sql
    set ve = 'p1V1'
}
alter  procedure $creator.wk984VersP1 add version v2 (out ve char(4))
                   deterministic contains sql
    set ve = 'p1V2'
}
create procedure $creator.wk984VersP2(in ci varchar(100), out da date,
                            out ve varchar(100))
        version v1
        deterministic contains sql
    begin
    set da = current date + 1 day;
    call $creator.wk984VersP1(ve);
    set ve = 'p2 v1 - curr=''' || current routine version
          || ''', phase=$phase, ' || ve;

    end
}
alter  procedure $creator.wk984VersP2 add version v2
        (in ci varchar(100), out da date,
                            out ve varchar(100))
        deterministic contains sql
    begin
    set da = current date + 2 day;
    call $creator.wk984VersP1(ve);
    set ve = 'p2 v2 - curr=''' || current routine version
          || ''', phase=$phase, ' || ve;
    end
}
alter  procedure $creator.wk984VersP2 add version v3
        (in ci varchar(100), out da date,
                            out ve varchar(100))
        deterministic contains sql
    begin
    set da = current date + 3 day;
    call $creator.wk984VersP1(ve);
    set ve = 'p2 v3 - curr=''' || current routine version || ''', '||ve;
    end
}
terminator ; }
commit;
$*(
call $creator.wk984VersP2(wie geht es Dir Konstäntchen? oder , :res,);
set current routine version v1;
call $creator.wk984VersP2(wie geht es Dir v1? , :res,);
set current routine version v2;
call $creator.wk984VersP2(wie geht es Dir v2? , :res,);
set current routine version v3;
call $creator.wk984VersP2(wie geht es Dir v3? , :res,);
set current routine version = '';
call $creator.wk984VersP2(wie geht es Dir v empty? , :res,);
alter  procedure $creator.wk984VersP2 activate version v3;
call $creator.wk984VersP2(wie geht es Dir Konstäntchen? oder , :res,);
set current routine version v1;
call $creator.wk984VersP2(wie geht es Dir v1? , :res,);
set current routine version v2;
call $creator.wk984VersP2(wie geht es Dir v2? , :res,);
set current routine version v3;
call $creator.wk984VersP2(wie geht es Dir v3? , :res,);
set current routine version = '';
call $creator.wk984VersP2(wie geht es Dir v empty? , :res,);
$*)
alter  procedure $creator.wk984VersP2 activate version v2;
$*(
call $creator.wk984VersP2(wie geht es Dir Konstäntchen? oder , :res,);
set current routine version v1;
call $creator.wk984VersP2(wie geht es Dir v1? , :res,);
set current routine version v2;
call $creator.wk984VersP2(wie geht es Dir v2? , :res,);
set current routine version v3;
call $creator.wk984VersP2(wie geht es Dir v3? , :res,);
set current routine version = 'V9';
call $creator.wk984VersP2(wie geht es Dir v empty? , :res,);
set current routine version = '';
call $creator.wk984VersP2(wie geht es Dir v empty? , :res,);
$*)
commit;
$]
$]