Date:         Wed, 14 Apr 2004 13:55:06 -0400
Reply-To:     Kevin Roland Viel <kviel@EMORY.EDU>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Kevin Roland Viel <kviel@EMORY.EDU>
Subject:      Re: DOW type problem
In-Reply-To:  <148E8334465C024399DD7B14E61D7D15281038@m-nchstp-2.nchstp.cdc.gov>
Content-Type: TEXT/PLAIN; charset=US-ASCII

Kevin,

  I encounter something similar to this with genomic plates for PCR and
sequencing.  Our convention is to number the cells down the columns.  This
does *not* help for SAS multidimensional arrays.

  The following may get you on your way:

data newbox ;
  do newbox = 1 by 1 until ( end ) ;
    do _n_ = 1 by 1 until ( _n_ = 81 | end ) ;
      set box end = end ;
          /* Across columns: R1C1 = 1  , R1C2 = 2 , ... R1C9 = 9
                             R2C1 = 10 , ... ,
                                                        R9C9 = 81 */
          newrow = ceil( _n_ / 9 ) ;
          newcolumn = mod( _n_ , 9 ) ;
          if newcolumn = 0 then newcolumn = 9 ;
          output ;
    end ;
  end ;
run ;

Regards,

Kevin

Kevin Viel
Department of Epidemiology
Rollins School of Public Health
Emory University
Atlanta, GA 30322