zOs/TX/WK973DDL

set current sqlid = 'S100447';
drop   view $creator.vWk973Stmt ;
$@[
if $phase > 0 then $@=[
create view $creator.vWk973Stmt as
select collid, name, contoken, stmtNo, stmtNoI, seqNo,
        CASE WHEN substr(stmt, 9, 1) >=  'a'
            then 'ebcdic ' || substr(stmt,9, 1000)
            else  'uni ' || cast(CAST(substr(stmt,9, 1000)
                     AS VARCHAR(1000) CCSID 1208)
         --          AS VARCHAR(1000) CCSID unicode)
                     AS VARCHAR(1000) CCSID EBCDIC)
        end tc
    from sysibm.sysPackStmt
    where seqNo = 1
;
$]
$]
commit