RE: [sqr-users] trying to create an array

["Lance Munger" <Lance.Munger@TQ3Navigant.com>]

Check the datatypes on the the table, my guess would be that EMPLID is
actually a number or UMH_PRIORITY_ORDER is actually a char.

-----Original Message-----
From: sqr-users-bounces+lance.munger=tq3navigant.com@sqrug.org
[mailto:sqr-users-bounces+lance.munger=tq3navigant.com@sqrug.org] On
Behalf Of Laura Mayer
Sent: Friday, July 14, 2006 12:28 PM
To: sqr-users@sqrug.org
Subject: [sqr-users] trying to create an array

Afternoon,

I cant seem to get this. Every time I run this it says: 
Error on line 49:
  (SQR 3514) PUT and GET variables must match array field types. 

I checked and they are the right types. I used the code from the manual
but no matter what I do I cant make this work. I cant find any good
tutorials out there either. Any help anyone can offer would be great.

Thanks in advance 

Laura

!********************************************************
begin-setup
!********************************************************
 create-array 
name=preference_array 
size=16500
  field=EMPLID:char   
  field=TOTAL:number
  field=UMH_PRIORITY_ORDER:number 

end-setup

!********************************************************
begin-program
!********************************************************
 do select_data
 do print_array
end-program

!********************************************************
begin-procedure select_data
!********************************************************
let #counter = 0 
begin-select
C.EMPLID (,1) 
(C.UMH_TRMS_IN_HS_PTS + C.UMH_OTHER_PTS) &TOTAL (,10)
C.UMH_PRIORITY_ORDER (,16) 
position (+1)
  put &C.EMPLID &TOTAL &C.UMH_PRIORITY_ORDER into
preference_array(#counter)
  add 1 to #counter
FROM PS_UM_H_SNRTY C, PS_UM_H_PRC_PD_TBL A 
WHERE C.STRM = '1067' 
AND C.STRM = A.STRM 
AND A.EFFDT = 
   (SELECT MAX(A_ED.EFFDT) 
    FROM PS_UM_H_PRC_PD_TBL A_ED 
     WHERE A.UMH_PROC_PD = A_ED.UMH_PROC_PD 
     AND A_ED.EFFDT <= SYSDATE) 
AND A.UMH_PROC_PD = '106730' 
ORDER BY C.UMH_TRMS_IN_HS_PTS DESC, C.UMH_PRIORITY_ORDER DESC
end-select
end-procedure ! select_data

!********************************************************
begin-procedure print_array
!********************************************************
let #i = 0
while #i < #counter
  get $C.EMPLID $TOTAL $C.UMH_PRIORITY_ORDER from preference_array(#i)
  print $C.EMPLID (,1)
  print $TOTAL  (,7)
  print $C.UMH_PRIORITY_ORDER (,24)
  position (+1)
  add 1 to #i
end-while

end-procedure



_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users

_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users