Re: Problems with Insert in Embedded SQL

["R. Bruce Hoffman, Jr." <rbruceh@xxxxxxxxxxxxx>]

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