Good morning. I'm trying to create a command that can be used to drop stored procedures. In STRSQL, if I type DROP PROCEDURE LIBRARY.PROCNAME the stored procedure is deleted, but if I try to do the same thing in an RPGLE program it looks like it works, but the stored procedure still exists. I've checked my log and I'm not seeing anything to indicate an error. Also, once I've called my command, DROPSPROC, if I go into STRSQL and try to drop the procedure it won't find it. It's only after I sign off and back on that it will work in STRSQL. I'm at a loss as to what the issue could be. Does STRSQL do something behind the scenes that I'm not aware of that makes the command work properly? The code for the program is very simple. Here it is:

ctl-opt option(*nodebugio:*srcstmt) dftactgrp(*no);

// prototype definitions

dcl-pr dropSprocs extpgm('DROPSPROCR');

psproc char(75);

pslib char(10);

end-pr;

dcl-pi dropSprocs;

psproc char(75);

pslib char(10);

end-pi;

// global variable definitions

dcl-s sqlstmt char(100) inz;

if psproc <> ' ' and pslib <> ' ';

sqlstmt = 'drop procedure ' + %trim(pslib) + '.' +

%trim(psproc);

exec sql execute immediate :sqlstmt;

endif;

*inlr = *on;

Any suggestions would be greatly appreciated!