× 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.



----- Original Message -----
From: "Jon Paris" <Jon.Paris@Partner400.com>
To: <cobol400-l@midrange.com>
Sent: Wednesday, July 31, 2002 10:27 AM
Subject: RE: Problems with Insert in Embedded SQL


> I will try to get hold of Kent Milligan or someone to confirm it, but it
> looks to me as if you are correct, that for some reason it cannot accept a
> qualified name for a structure.  Goodness knows why - they claim they need
> to update this archaic monstrosity because it is so complex - but if it
> can't even handle something as simple as this what good is it?


it does accept the qualified name..... the following compiles on V5R1...

       Data division.
        File section.

         fd rcvd-file.
         01 rcvd-rec.
            copy dds-all-formats of rcvdaplc.

         fd send-file.
         01 send-rec.
            copy dds-all-formats of sendctrl.



             move zeros to error-counter

             EXEC SQL
               select count(*) into :temp-counter
                 from erelfile
                 where tsetrf = :rcvdrec.tsetrf
                   and sgmtid <>"AK4"
                   and fldsno <> 4
                   and ak403 <> "5"
             end-exec

             add temp-counter to error-counter

             EXEC SQL
               select count(*) into :temp-counter
                 from ersgfile
                 where tsetrf = :rcvdrec.tsetrf
             end-exec

             add temp-counter to error-counter

             EXEC SQL
               select count(*) into :temp-counter
                 from ertsfile
                 where tsetrf = :rcvdrec.tsetrf
             end-exec

             add temp-counter to error-counter


again, the only difference is that the field is the end field not a group
item.

===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified Specialist - iSeries Administrator
 -- IBM Certified Specialist - RPG IV Developer

"There is a crack in everything,
  that's how the light gets in.
    - Leonard Cohen




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.