zOs/SQL/PROCNAT

set current sqlId = 'S100447';                                          00010002
--#SET TERMINATOR ?                                                     00020000
CREATE PROCEDURE A540769.WKSQL1                                         00030003
   (IN CMDTEXT VARCHAR(254) FOR SBCS DATA CCSID EBCDIC ,                00040000
    OUT CMDRESULT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC )           00050000
  DYNAMIC RESULT SETS 1                                                 00060000
  LANGUAGE SQL                            NOT DETERMINISTIC  FENCED     00070001
  CALLED ON NULL INPUT  MODIFIES SQL DATA  NO DBINFO                    00080000
  COLLID DSNREXDE  WLM ENVIRONMENT DB2DSNR  ASUTIME LIMIT 60            00090000
  STAY RESIDENT NO  PROGRAM TYPE MAIN  SECURITY DB2                     00100000
  INHERIT SPECIAL REGISTERS  STOP AFTER SYSTEM DEFAULT FAILURES         00110000
RUN OPTIONS 'TRAP(ON)'  COMMIT ON RETURN NO                             00120000
BEGIN                                                                   00130000
    select * from sysIbm.sysDummy1;                                     00140000
end                                                                     00150000
?                                                                       00160004
rollback                                                                00170004