isn't array 'month' inside one of the datetime sqc's? Did you check your dates to confirm they are all valid?
-----Original Message-----
From: the dragon [mailto:ceprn@HOTMAIL.COM]
Sent: Thursday, October 21, 1999 2:19 PM
To: Multiple recipients of list SQR-USERS
Subject: brain dead question
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