× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



   Jim,
   I agree it is good to learn but it is also good to complete the task at
   hand(which is rather simple in nature and should only take a couple of
   hours to write and test).  I will search Info Center some more and see
   what I can find.

   Jim Franz wrote:

     The SQL STT code did not change in 5.3 and would still give you same
     return code.
     There are pages in Info Center for list of SQLSTT and SQLCOD. Just put
     SQLSTT in search.
     Very informative.
     Stick with this - it's good to learn.
     Jim Franz

     ----- Original Message ----- From: "Duane Kehoe" <dkehoe@xxxxxxxxxxxxxx>
     To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
     Sent: Wednesday, October 26, 2005 3:49 PM
     Subject: Re: embedded sql, procedure, and report output

         I had my code looking very similar to that without the activation
       groups
         and can not get it to work on V5R2.  I am about to give up and
       convert the
         program back to regular file access as I know it will work.  I wish
       this
         SQL stuff was easier(I know upgrade to V5R3 and it is!!), thanks

         rob@xxxxxxxxx wrote:

       This compiles on my V5R3 machine
            h dftactgrp(*no) actgrp(*caller)
            FQSYSPRT   O    F   80        PRINTER
            D MySub           PR
            D ts              s               z
            C/exec sql
            C+ values current timestamp into :ts
            C/end-exec
             /free
              *inlr=*on;
              return;
             /end-free
            OQSYSPRT   E            H
            O                                           08 'DATE:'
            P MySub           B
            D MySub           PI
             /free
              return;
             /end-free
            P MySub           E

       With TGTRLS set to *CURRENT, V5R2M0 or V5R1M0.

       Rob Berendt

         --

         Weyco Group -

             Florsheim, Brass Boot, Nunn Bush, Stacy Adams
         Duane Kehoe                       Phone # 414.908.1814
         EC / Programmer / Analyst           Fax # 414.908.1601
                                   Email: dkehoe@xxxxxxxxxxxxxx
       -- 
       This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
       list
       To post a message email: RPG400-L@xxxxxxxxxxxx
       To subscribe, unsubscribe, or change list options,
       visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
       or email: RPG400-L-request@xxxxxxxxxxxx
       Before posting, please take a moment to review the archives
       at http://archive.midrange.com/rpg400-l.

   --

   Weyco Group -             
                             
       Florsheim, Brass Boot, Nunn Bush, Stacy Adams
   Duane Kehoe                       Phone # 414.908.1814 
   EC / Programmer / Analyst           Fax # 414.908.1601 
                             Email: dkehoe@xxxxxxxxxxxxxx 

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.