Re: Embedded SQL question

When I run the following program the DSPLY looks good to me.  Granted, 
it's V5R4.

     D count           S             10i 0

      /free
       exec sql
        Set Option
            Naming    = *Sys,
            Commit    = *None,
            UsrPrf    = *User,
            DynUsrPrf = *User,
            Datfmt    = *iso,
            CloSqlCsr = *EndMod;
       exec sql
        update aaakey
         set comp=1
         where loc='a';
       exec sql
        get diagnostics :count = row_count;
       dsply count;
       *inlr=*on;
      /end-free 

Rob Berendt