Re: brain dead question

[John Ferguson <jferguson@INETNOW.NET>]

Try increasing the size of the Array....

the dragon wrote:

> Guys, Gals, Others,
>
> OK, it's an hour before I go home for the weekend, and I have been staring
> at this, and nothing is coming to mind.  Hopefully one of you will have
> encountered this before..
> PS 5.12 HR
> Oracle 8
> SQR 3x
>
> error message in the log file :
>
> Exiting : DELETE PREVIOUS STS RUN
> Entering : LOAD LOOKUP TABLES  proc  1
> (SQR 2613) Loading 'alocalitymap' lookup table ... done.  348 rows loaded.
> Exiting : LOAD LOOKUP TABLES
> (SQR 1500) Array element out of range (201) for array 'month' on line 1361.
>
> SQR: Program Aborting.
>
> snippets d' code :
>
> calling program :
> *******************
>
> do delete-previous-sts-run('sts_initialization', $global.run_id,
>                            $global.calendar_year, $global.qtrcd) !
> stsdbsql.sqc.3
>
> do load-lookup-tables                            ! stsrtlcl.sqc.1
>                                                  ! Needs $Effdt, sets
>                                            ! global lookup var.
>
> ! -----------------------------------------------+
> ! -- PROGRAMMING NOTE --                         |
> ! Set the Global First and Last Day of the       |
> ! Quarter using PS date routines. Initialize the |
> ! Variables used by the PeopleSoft Get-Weeks and |
> ! Get-Hours routines.  See taxrntcl.sqc and      |
> ! tax002.sqr main. I use my global var's already |
> ! set instead of their method.  Set Period End   |
> ! Date in YMD Format from native.                |
> ! -----------------------------------------------+
> move '1' to $Year4
> move '-' to $DDelimiter
> do format-datetime($global.last_day_of_qtr, $periodenddate, {DEFYMD}, '',
> '')
> ! proc
>
> ! -----------------------------------------------+
> ! -- PROGRAMMING NOTE --                         |
> ! Save the First day of quarter in YMD format    |
> ! from native.                                   |
> ! -----------------------------------------------+
> move '1' to $year4
> move '-' to $ddelimiter
> do format-datetime($global.first_day_of_qtr, $qtrbegindate, {DEFYMD}, '',
> '')
> do dtu-dayofweek#($qtrbegindate, #qtrbeginweekday)
> if #qtrbeginweekday <> 1
>   let #begoffsetdays = #qtrbeginweekday - 1
>   do dtu-subtract-days($qtrbegindate, #begoffsetdays, $earnsbegindate)
> else
>   move $qtrbegindate to $earnsbegindate
> end-if
>
> move '1' to $year4
> move '-' to $ddelimiter
> do format-datetime($earnsbegindate, $slctearnsbegindate, {DEFYMD}, '',
> 'native')
> do dtu-dayofweek#($periodenddate, #qtrendweekday)
> if #qtrendweekday <> 7
>   let #endoffsetdays = 7 - #qtrendweekday
>   do dtu-add-days($periodenddate, #endoffsetdays, $earnsenddate)
> else
>   move $periodenddate to $earnsenddate
> end-if
> move '1' to $year4
> move '-' to $ddelimiter
> do format-datetime($earnsenddate, $slctearnsenddate, {DEFYMD}, '', 'native')
>
> ! -----------------------------------------------+
> ! -- PROGRAMMING NOTE --                         |
> ! End PeopleSoft Routines Date Initialization.   |
> ! -----------------------------------------------+
> #debug1 show 'Init date earn begin/end: ' $earnsbegindate ',' $periodenddate
> #debug1 show 'Init date slct earn begin/end: ' $slctearnsbegindate ','
> $slctearnsenddate
>
> #debug show 'Exiting : STS INITIALIZATION'
>
> end-procedure ! STS INITIALIZATION
>
> **********************
> called sqc procedure :
> **********************
>
> begin-procedure Load-Lookup-Tables
>
> #debug9 show 'Entering : LOAD LOOKUP TABLES  proc  1'
>
> ! -----------------------------------------------+
> ! -- PROGRAMMING NOTE --                         |
> ! I tried to make local; but the load lookup     |
> ! didn't like it here.                           |
> ! -----------------------------------------------+
>
> ! -----------------------------------------------+
> ! -- PROGRAMMING NOTE --                         |
> ! THE GLOBALS used/set are :                     |
> ! -----------------------------------------------+
> let $Global.Local_Map_Lookup = {FALSE}
> let $EFFDT= $Global.EffDt
>
> begin-select
>
> count(*)                          &LOCAL_MAP_COUNT
>
> from ps_sts_local_map lp
> where lp.effdt          = (select max(effdt)
>                            from ps_sts_local_map
>                            where state    = LP.state
>                            and   locality = lp.locality
>                            and   effdt    <= $EFFDT )
> AND   lp.eff_status     = 'A'
> AND   lp.sts_local_code != ' '
>
> end-select
>
> if &LOCAL_MAP_COUNT < {MaxLocalMapLookup}
>   let $Global.Local_Map_Lookup = {TRUE}
>   let $sts_lookup_clause =
>            'lp.effdt = (select max(effdt) '                 ||
>            '            from ps_sts_local_map '             ||
>            '            where state         = lp.state '    ||
>            '            and   locality      = lp.locality ' ||
>            '            and   effdt         <= ''' || $EFFDT  || ''') ' ||
>            'and   lp.eff_status     = ''A'' '               ||
>            'and   lp.sts_local_code != '' '' '
>
>   load-lookup
>             name=aLocalityMap
>             rows={MaxLocalMapLookup}
>            table='ps_sts_local_map lp'
>              key='lp.state || lp.locality'
>     return_value='lp.sts_local_code'
>            where=$sts_lookup_clause
> end-if
>
> #debug9 show 'Exiting : LOAD LOOKUP TABLES'
>
> end-procedure ! LOAD LOOKUP TABLES
>
> I am running with -debug1249, so I should get all the debug statements.
> According to the log, it finishes load-lookup but never gets to the next
> debug statement. So, I don't know where it's puking, especially with an
> array called month...
>
> TIA
> clark
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com