moin.

versuch es doch mal mit pointern:
PHP-Code:
d a10 s 10 inz( 'ABCDEFGHIJ' )
d a10_ptr s *
d ara10 s 1 dim(10) based( a10_ptr )

/free
 a10_ptr = %addr( a10 );
 *inlr = *on
/end-free 
ara10 enthält jetzt a-j.
musst halt nur an deine variablen anpassen.

mfg.