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

["the dragon" <ceprn@hotmail.com>]

It's been a while since I messed around with arrays... or sqr for that 
matter...   sigh.  I miss the good olde days./

In any case,  you're definin the array as follows:

name=preference_array
size=16500
   field=EMPLID:char
   field=TOTAL:number
   field=UMH_PRIORITY_ORDER:number


yet, in the get, they are all character variables...  (line 49??)
   get $C.EMPLID $TOTAL $C.UMH_PRIORITY_ORDER from preference_array(#i)

I am not certain sqr allows implicit data conversion in that manner.

peace,
clark 'the dragon' willis



PSA: Salary <> Slavery. If you earn a salary, your employer is renting your 
services for 40 hours a week, not purchasing your soul. Your time is the 
only real finite asset that you have, and once used it can never be 
recovered, so don't waste it by giving it away.

I work to live; I don't live to work.

"Time is the coin of your life. It is the only coin you have, and only you 
can determine how it will be spent. Be careful lest you let other people 
spend it for you."

Carl Sandburg
(1878 - 1967)

----Original Message Follows----

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

_________________________________________________________________
On the road to retirement? Check out MSN Life Events for advice on how to 
get there! http://lifeevents.msn.com/category.aspx?cid=Retirement


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