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

["Wright, David L. II" <DAVID.L.WRIGHT.II@saic.com>]

TOTAL is a variable and should be preceeded with either $ or # depending on
the type of variable you want to use.  In your SELECT statement, you've
defined the total variable using an &.  In the get array you are
reading$total - not the same as &total.

Dave



-----Original Message-----
From: sqr-users-bounces+david.l.wright.ii=saic.com@sqrug.org
[mailto:sqr-users-bounces+david.l.wright.ii=saic.com@sqrug.org] On Behalf Of
Laura Mayer
Sent: Friday, July 14, 2006 11:28 AM
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