Re: Please help with arrays

[Carel Teijgeler <COTeijgeler@xxxxxxxxx>]

--
If you want to change '111111111' into '111-111-111' why do you not simply
use XLATE. If memory does not fail me here:

FM1:Field               XLate    FM2                         Result

FM1 and FM2 are named constants having the values 'ABCDEFGHI' and
'ABC-DEF-GHI'.

Hope this helps.

Regards,
Carel Teijgeler.


>I am trying to use a program that was writen by someone. I would like to
>insert "-". E.g 111111111 would like to see 111-111-111. I run the prgram
>but I get 111-111111. Can you please take a look at the code and let me know
>what I am missing. Thanks in advance.
>
>  * Use this array to insert the '-' in the  id field.
>  *
>D SS              S              1    DIM(11)
>
>              D                 DS
>D  SSNO                   1     11
>D  S1                     1      3
>D  S3                     4      5
>D  S5                     6      9
>
>c    MOVEA     S1            SS(1)
>c    MOVEA     S3            SS(5)
>c    MOVEA     S5            SS(8)
>
>C     MOVEA     '-'           SS(4)
>C     MOVEA     '-'           SS(8)
--