[sqr-users] Question about an array

["Laura Mayer" <lmayer@gw.housing.umass.edu>]

Afternoon,

I have an array that loops to many times. It seems that when a student requests 
one roommate its all happy when they request two roommates it loops through 
twice for the three people. 

Any thoughts or advise would be most appreciated. By the way this is code I've 
inherited and trying to make sense of.

Thanks 

Laura

!********************************************************
Begin-Procedure Get_Preference
!********************************************************
Begin-Select 

!fields go here

        let $Emplid=$PriEMPLID
        Do Get_Assign
        Do Get_RAP
        Do Get_Name
        Do Get_Felony
        Do Get_Priority_Order 
        Do Get_Ferpa
                Do Get_AcaLevel
        let $PriName=$Name

if $Type <> 'No Roommate'
Let $PriEMPLID = &MA.UMH_PREF_ROOMMATE1
Let $InputIdRM1=&MA.UMH_PREF_ROOMMATE1
Do Get_Name

if $Period <> $parm_proc_cd
let $printPeriod='('|| $Period || ')'
else
 let $printPeriod=' '
end-if
 let $RoommateName1=$Name || ' ' || $printPeriod
if isBlank(&MA.UMH_PREF_ROOMMATE2) or isnull(&MA.UMH_PREF_ROOMMATE2)
else
Let $PriEMPLID = &MA.UMH_PREF_ROOMMATE2
let $InputIdRM2=&MA.UMH_PREF_ROOMMATE2

Do Get_Name
let $RoommateName2=$Name || ' ' || $printPeriod
Do Print_Roommate_Name
end-if
else 

Print 'No Roommate'  (+1,1) Bold
Print '='        (+1,1,140) fill
end-if
Do Print_Data
  FROM PS_UM_H_PREF MA
  WHERE MA.STRM = $ProcSTRM
     AND MA.UMH_PROC_PD = $parm_proc_cd 
     AND MA.EMPLID = $PriEMPLID
    
End-Select
End-Procedure


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