R = new AssocArray()	&& The subscripts are character strings representing
  R[ '68']='SERVICE'    && allowable record lengths for incoming text files.
  R['124']='PAYMENT'
  R['203']='DENIED'	&& 203 or 204 acceptable
  R['204']='DENIED'	&& rec lens for Denied file
  R['246']='ASSESS'
  R['281']='REGISTRY'
  R['289']='CHANGE'

Dimension R(6,2)
R(1,1) = '124'
R(1,2) = 'PAYMENT'

R(2,1) = '203'
R(2,2) = 'DENIED'

R(3,1) = '204'
R(3,2) = 'DENIED'

R(4,1) = '246'
R(4,2) = 'ASSESS'

R(5,1) = '281'
R(5,2) = 'REGISTRY'

R(6,1) = '289'
R(6,2) = 'CHANGE'