re : help with arrays

["DB_Caloway Caloway" <db_caloway@xxxxxxxxxxx>]

Thank you all for your help. I must have mentioned i am new to rpg.
I will cut to the chase. What I like to see is 111-111-111. After listening
to some suggestions and did some change now I get 111-111111.
Please help. This is what it looks like now. I am not that familiar with ILE
so if you could assist me with rpg400 code I would really appriciate it.
Once again thanks for all your help.


D SS              S              1    DIM(11)


D                 DS
D  SSNO                   1     11
D  S1                     1      3
D  S3                     4      7
D  S5                     8     11

c    MOVEA     S1            SS(1)
c    MOVEA     S3            SS(5)
c    MOVEA     S5            SS(9)


C                   MOVEA     '-'           SS(4)
C                   MOVEA     '-'           SS(7)










_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp