RE: REXX AND ADDRESS EXECSQL

[David FOXWELL <David.FOXWELL@xxxxxxxxx>]

Thanks,

Would anyone like to paste this script into a QREXSRC member and run option 16 to confirm this?
 
ADDRESS EXECSQL,                                                       
EXECSQL 'SET OPTION COMMIT = *NONE'                                    
ADDRESS EXECSQL,                                                       
EXECSQL 'CREATE ALIAS QTEMP/A1 FOR QTEMP/T1'                           
IF RC <> 0 THEN DO                                                     
   MSGID = "SQL"RIGHT(STRIP(ABS(SQLCODE)),4,'0')                       
   'SNDPGMMSG MSGID(&MSGID) MSGF(QSQLMSG) MSGDTA(&SQLERRMC) MSGTYPE(*ESCAPE)'
END                                                                    


> -----Message d'origine-----
> De : midrange-l-bounces@xxxxxxxxxxxx 
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] De la part de CRPence
> Envoyé : jeudi 1 avril 2010 17:25
> À : midrange-l@xxxxxxxxxxxx
> Objet : Re: REXX AND ADDRESS EXECSQL
>
>    I expect there is a defect which would need to be reported 
> to your service provider.  In my experience, the REXX is not 
> thoroughly tested in the lab, nor as well supported as for 
> with embedded SQL. 
> For example in REXX the SQL RENAME does not work [perhaps 
> only with FOR SYSTEM NAME, I do not recall] and SQL CALL for 
> INOUT parameters does not effect any updated parameter 
> values, and the lab had no intention to correct these when I 
> reported them years ago [although I made a private version of 
> the code in the lab which made the INOUT parametes function 
> as I expected].
>
> Regards, Chuck
>
> Jack Kingsley wrote:
> > <<SNIP per message from OP not on NG; using msg indirectly>>
> >
> > On Thu, Apr 1, 2010 at 6:17 AM, David FOXWELL wrote:
> >
> > > I've been using this little script for a while now without any 
> > > problems in order to use SQL from the command line or in 
> CL programs.
> > > PARSE ARG iSql
> > > RC=0
> > >
> > > ADDRESS EXECSQL,
> > > EXECSQL 'SET OPTION COMMIT = *NONE'
> > > ADDRESS EXECSQL,
> > > EXECSQL iSql
> > >
> > > However, if I pass a CREATE ALIAS command, I get this in 
> the joblog :
> > > STRREXPRC EXECSQL PARM('create alias myalias for myfile')
> > > *   Address EXECSQL EXECSQL iSql;
> > > +     RC(-10)
> > > SNDPGMMSG MSGID(SQL0901) MSGF(QSQLMSG)
> > >
> > > Create table/index works fine.
> > >
> > > Any ideas what might be different with create alias?
> --
> This is the Midrange Systems Technical Discussion 
> (MIDRANGE-L) mailing list To post a message email: 
> MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change 
> list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, 
> please take a moment to review the archives at 
> http://archive.midrange.com/midrange-l.