SQL5011 - Why am I getting this?

["Siegrist, Dawn (Penske)" <dawn.siegrist@xxxxxxxxxx>]

I am trying to run an SQL statement to load 4 records into a multiple
occurrence data structure.  According to what I see in the manuals, I
have everything set up correctly, but it is giving me an SQL5011 - Host
structure array HVWEEKDS not defined or not usable.  I can't seem to
figure out how to fix this.  Does anyone have any ideas?

 

Here is my code.

 

      //----------------------------------

      // Define Entry ProtoType

      //----------------------------------

     D EntryList       PR                  ExtPgm('PMSBCUR2R')

     D                                4

     D                                2

     D   #PmWeekRcds                       Likeds(PmWeekDS) Dim(4)

 

      //----------------------------------

      // Main Procedure Interface

      //----------------------------------

     D EntryList       PI

     D   PiDist                       4

     D   PiLoc                        2

     D   PmWeekRcds                        Likeds(PmWeekDS) Dim(4)

 

      //---------------------------------------------------------

      // Stand Alone Fields

      //---------------------------------------------------------

 

     D $$Corp          S              4

     D $$Flag          S              1

     D $$Dnam          S             24

     D $$Admn          S              4

     D $$Regn          S              4

     D $$Area          S              4

     D $$Cdis          S              4

     D NumRows         S              3P 0

     D RowCount        S              3P 0

 

      //---------------------------------------------------------

      // Data Structures

      //---------------------------------------------------------

     D PmWeekDs        DS                  Inz

     D  pwWeekFrom                   10

     D  pwOverDays                    7P 0

     D  pwOverMtrs                    7P 0

     D  pwIncpOver                    7P 0

     D  pwTotFleet                    7P 0

     D  pwTotDue                      7P 0

     D  pwDefectPct                   3P 0

     D  pwCurrPct                     3P 0

     D  pw4weekPct                    3P 0

 

     D hvWeekDs        DS                  Occurs(4) Inz

     D  hvWeekFrom                     D

     D  hvWeekTo                       D

     D  hvOverDays                    7P 0

     D  hvOverMtrs                    7P 0

     D  hvIncpOver                    7P 0

     D  hvTotFleet                    7P 0

     D  hvTotDue                      7P 0

     D  hvDefectPct                   3P 0

     D  hvCurrPct                     3P 0

 

      //---------------------------------------------------------

      // Prototypes

      //---------------------------------------------------------

 

     D SPV1LOCN        PR                  ExtPgm('SPV1LOCN')

     D   $$Corp                       4

     D   PiDist                       4

     D   PiLoc                        2

     D   $$Flag                       1

     D   $$Dnam                      24

     D   $$Admn                       4

     D   $$Regn                       4

     D   $$Area                       4

     D   $$Cdis                       4

 

      //---------------------------------------------------------

      // M A I N   P R O G R A M

      //---------------------------------------------------------

 

      /FREE

 

       // Get district information to use in query

 

       $$Corp = '*ANY';

       SPV1LOCN ($$Corp :PiDist :PiLoc :$$Flag :$$Dnam :$$Admn

                 :$$Regn :$$Area :$$Cdis);

 

       // Get last 4 weeks of records for location from weekly

       // PM defect summary file

 

       Exec SQL

         Declare SummCsr Cursor For

           Select START_DATE,

                  END_DATE,

                  OVR_DAYS_CNT,

                  OVR_MTRS_CNT,

                       INCOMPLETE_CNT,

                       TOT_FLEET,

                       TOT_DUE,

                  TOT_DEF_PCT,

                  PCT_FLEET

             from PMSSUMMWF

             where CORP = :$$Corp and

                   AREA = :$$Area and

                   CTRL_DIST = :$$Cdis and

                   DIST = :PiDist and

                   LOCN = :PiLoc

             order by END_DATE desc ;

 

       Exec SQL

         Open SummCsr;

 

       Exec SQL

         Fetch SummCsr For 4 Rows Into :hvWeekDs;

 

       NumRows = 0;

       For RowCount = 4 downto 1;

         %Occur(hvWeekDs) = RowCount;

         If ( hvWeekFrom <> *Loval );

           NumRows += 1;

 

           //Load data to data structure to send to caller

           pwWeekFrom = %Char(hvWeekFrom : *USA);

           pwOverDays = hvOverDays;

           pwOverMtrs = hvOverMtrs;

           pwIncpOver = hvIncpOver;

           pwTotFleet = hvTotFleet;

           pwTotDue = hvTotDue;

           pwDefectPct = 100 - hvDefectPct;

           pwCurrPct = 100 - hvCurrPct;

 

           // Get 4-week rolling currency percentage

           Exec SQL

             Select PCT_FLEET

               Into :pw4weekPct

               From PMSSUMM4WF

               Where CORP = :$$Corp and

                     AREA = :$$Area and

                     CTRL_DIST = :$$Cdis and

                     DIST = :PiDist and

                     LOCN = :PiLoc and

                     END_DATE = :hvWeekTo;

 

           pw4weekPct = 100 - pw4weekPct;

           PmWeekRcds(RowCount) = PmWeekDs;

         EndIf;

       EndFor;

 

       // Send results back - used if called from stored procedure

       Exec SQL

         SET RESULT SETS ARRAY :PmWeekRcds FOR :NumRows ROWS;

 

       Return;

 

Thank you.

 

Dawn Siegrist

Penske

Systems Analyst

 

T 610-775-6243

F 610-603-8402

E Dawn.Siegrist@xxxxxxxxxx <mailto:Dawn.Siegrist@xxxxxxxxxx> 

GoPenske.com

 

PO Box 563

Reading  PA  19603-0563  USA

 

Check out our blog for news and event info:

Blog.GoPenske.com