[sqr-users] almost got it.

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

I've got it working, sort of. The problem I have now is it wont print the 
matches out together. They all get printed out one at a time, which is good,  
but they go in order of the input file not grouped as I would like them. 

I have the problem narrowed down to a few lines of code. If you look at line 11 
its taking the id set by the roommate and resetting it to next id in the array. 
 How I can I say check if the EMPLID is blank if it is blank go ahead and get 
the next value in the array if not continue processing with the roommates ID....

I know the problem is in the first few lines of the code but I've been looking 
at this so long I cant see the forest for the trees...

Thanks as always for any help you can offer.

Laura

let $found='N'
let #index=0


While 1
Read 1 into $Input_Str:8
if #end-File =1
break
end-if
Let $InputEmplid = substr($Input_Str, 1, 8)
Let $EMPLID =$InputEmplid

Do Check_If_ID_Printed  !if input Id has been proceed
if $found='N' ! not processed

let $PrintFlag = 'Y'
let $period= $parm_proc_cd ! only run period
Do Get_Roommate     ! find input id's Preference record (building

if $PreferenceFound='Y'   ! found row in Preference table

if $RMFound='N' and $RMFound2 ='N'! rm1 and rm2 empty
Let $prType = 'No Roomate'
else   !Has rmts
Let $InputIdRM1 = ''
Let $InputIdRM2 = ''
Let $InputIdRM1=    &A.UMH_PREF_ROOMMATE1
Let $InputIdRM2=    &A.UMH_PREF_ROOMMATE2
Let $EMPLID= &A.UMH_PREF_ROOMMATE1  ! input id' roommate1
Do Get_Roommate  !find rmt1'rmts for run period

if $PreferenceFound='Y' 
Do Get_Mutual_Type  
else !no Preference in run period, may try another period

if $RunPeriod='2' or $RunPeriod='3'    !105720 or 105730
Do Look_Next_Period                            
else  ! run period is not 20 or 30
let $prType = 'Unmatched'
let $PrintFlag ='Y' 

end-if                                          
end-if
end-if          

Do Fill_Array
       
end-if
end-if  !end of no processed
end-while



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